From 954f813569278ea80df61942537c91c1ab79d78e Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 7 Feb 2017 15:23:35 +0200 Subject: [PATCH] Fix route parsing for CRLF line endings --- yesod-core/Yesod/Routes/Parse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-core/Yesod/Routes/Parse.hs b/yesod-core/Yesod/Routes/Parse.hs index b5be876a..580f23d6 100644 --- a/yesod-core/Yesod/Routes/Parse.hs +++ b/yesod-core/Yesod/Routes/Parse.hs @@ -63,7 +63,7 @@ parseRoutesNoCheck = QuasiQuoter -- invalid input. resourcesFromString :: String -> [ResourceTree String] resourcesFromString = - fst . parse 0 . filter (not . all (== ' ')) . lines + fst . parse 0 . filter (not . all (== ' ')) . lines . filter (/= '\r') where parse _ [] = ([], []) parse indent (thisLine:otherLines)