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, "")