Fix stupid bugs...

2012-08-17 07:35:01 +03:00 · 2012-08-17 07:35:01 +03:00 · 79fcfe0707
commit 79fcfe0707
parent 83b10c4959
1 changed files with 1 additions and 1 deletions
--- a/yesod/Build.hs
+++ b/yesod/Build.hs
@ -166,7 +166,7 @@ determineDeps x = do
                    _ <- A.string "\" \""
                    _y <- A.many1 $ A.satisfy (/= '"')
                    _ <- A.string "\""
-                    return $ Messages $ concat x'
+                    return $ Messages x')
        case ty of
            Messages{} -> return $ Just (ty, "")
            StaticFiles{} -> return $ Just (ty, "")