haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

yesod devel catches all message file changes (#404)

Browse Source
This commit is contained in:
Michael Snoyman 2012-08-17 07:15:04 +03:00
parent 5da6d0d9ea
commit 83b10c4959
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod/Build.hs
View File

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