From 79fcfe07071ed8b27cc0c206b68fb9de7a5833c2 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 17 Aug 2012 07:35:01 +0300
Subject: [PATCH] Fix stupid bugs...

---
 yesod/Build.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod/Build.hs b/yesod/Build.hs
index e608820c..b238997a 100644
--- 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, "")