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

Filter out blank lines in route parsing #629

Browse Source
This commit is contained in:
Michael Snoyman 2013-12-11 17:00:03 +02:00
parent f88c927875
commit 48ea50ac93
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-routes/Yesod/Routes/Parse.hs
View File

@ -60,7 +60,7 @@ parseRoutesNoCheck = QuasiQuoter
-- invalid input. -- invalid input.
resourcesFromString :: String -> [ResourceTree String] resourcesFromString :: String -> [ResourceTree String]
resourcesFromString = resourcesFromString =
fst . parse 0 . lines fst . parse 0 . filter (not . all (== ' ')) . lines
where where
parse _ [] = ([], []) parse _ [] = ([], [])
parse indent (thisLine:otherLines) parse indent (thisLine:otherLines)