diff --git a/yesod-static/Yesod/Static.hs b/yesod-static/Yesod/Static.hs index b600463a..fad22367 100644 --- a/yesod-static/Yesod/Static.hs +++ b/yesod-static/Yesod/Static.hs @@ -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 =