Ord instance for RoutePart

Author: Marcin Szamotulski

src/Routing/Types.purs

@@ -2,10 +2,12 @@ module Routing.Types where
 
 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