From 83b10c495943ecf82674e411df1787823aa2527b Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 17 Aug 2012 07:15:04 +0300
Subject: [PATCH] yesod devel catches all message file changes (#404)

---
 yesod/Build.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/yesod/Build.hs b/yesod/Build.hs
index fb147114..e608820c 100644
--- a/yesod/Build.hs
+++ b/yesod/Build.hs
@@ -138,7 +138,7 @@ determineDeps x = do
     go (Just (StaticFiles fp, _)) = getFolderContents fp
     go (Just (Hamlet, f)) = return [f, "templates/" ++ f ++ ".hamlet"]
     go (Just (Verbatim, f)) = return [f]
-    go (Just (Messages f, _)) = return [f]
+    go (Just (Messages f, _)) = getFolderContents f
     go Nothing = return []
 
     parser = do
@@ -164,9 +164,9 @@ determineDeps x = do
                     _ <- A.string "\" \""
                     x' <- A.many1 $ A.satisfy (/= '"')
                     _ <- A.string "\" \""
-                    y <- A.many1 $ A.satisfy (/= '"')
+                    _y <- A.many1 $ A.satisfy (/= '"')
                     _ <- A.string "\""
-                    return $ Messages $ concat [x', "/", y, ".msg"])
+                    return $ Messages $ concat x'
         case ty of
             Messages{} -> return $ Just (ty, "")
             StaticFiles{} -> return $ Just (ty, "")