{-# LANGUAGE TypeFamilies #-}
module Routes.DefaultRoute
( DefaultMaster(..)
, Route(DefaultRoute)
)
where
import Data.Text (Text)
import Data.Set (empty)
import Routes.Routes
data DefaultMaster = DefaultMaster deriving (Eq, Show, Ord)
instance RenderRoute DefaultMaster where
data Route DefaultMaster = DefaultRoute ([Text],[(Text, Text)]) deriving (Eq, Show, Ord)
renderRoute (DefaultRoute r) = r
instance ParseRoute DefaultMaster where
parseRoute = Just . DefaultRoute
instance RouteAttrs DefaultMaster where
routeAttrs = const empty