Added ParseRoute instance for Static

This commit is contained in:
Michael Snoyman 2013-03-19 15:53:03 +02:00
parent 13af2461f1
commit 0eda39f242

View File

@ -142,6 +142,8 @@ instance RenderRoute Static where
data Route Static = StaticRoute [Text] [(Text, Text)]
deriving (Eq, Show, Read)
renderRoute (StaticRoute x y) = (x, y)
instance ParseRoute Static where
parseRoute (x, y) = Just $ StaticRoute x y
instance YesodSubDispatch Static m where
yesodSubDispatch YesodSubRunnerEnv {..} req =