From 48ea50ac937f7aa5ca749249c9f3ad0b240f5307 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 11 Dec 2013 17:00:03 +0200 Subject: [PATCH] Filter out blank lines in route parsing #629 --- yesod-routes/Yesod/Routes/Parse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-routes/Yesod/Routes/Parse.hs b/yesod-routes/Yesod/Routes/Parse.hs index a82919ea..3d27980f 100644 --- a/yesod-routes/Yesod/Routes/Parse.hs +++ b/yesod-routes/Yesod/Routes/Parse.hs @@ -60,7 +60,7 @@ parseRoutesNoCheck = QuasiQuoter -- invalid input. resourcesFromString :: String -> [ResourceTree String] resourcesFromString = - fst . parse 0 . lines + fst . parse 0 . filter (not . all (== ' ')) . lines where parse _ [] = ([], []) parse indent (thisLine:otherLines)