Merge pull request #45 from coot/eqRoutePart

Eq instance for RoutePart

Author: garyb

src/Routing/Types.purs

@@ -1,7 +1,13 @@
 module Routing.Types where
 
-import Data.List (List())
-import Data.Map (Map())
+import Data.List (List)
+import Data.Map (Map)
+import Data.Ord (class Ord)
+import Prelude (class Eq)
 
 data RoutePart = Path String | Query (Map String String)
+
+derive instance eqRoutePart :: Eq RoutePart
+derive instance ordRoutePart :: Ord RoutePart
+
 type Route = List RoutePart