From 0eda39f242b15a45c0a84aa409bcab5f4fe6576e Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 19 Mar 2013 15:53:03 +0200 Subject: [PATCH] Added ParseRoute instance for Static --- yesod-static/Yesod/Static.hs | 2 ++ 1 file changed, 2 insertions(+) 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 =