haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added ParseRoute instance for Static

Browse Source
This commit is contained in:
Michael Snoyman 2013-03-19 15:53:03 +02:00
parent 13af2461f1
commit 0eda39f242
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-static/Yesod/Static.hs
View File

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