Added ParseRoute instance for Static
This commit is contained in:
parent
13af2461f1
commit
0eda39f242
@ -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 =
|
||||
|
||||
Loading…
Reference in New Issue
Block a user