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

Add in handling for the persistFileWith case in determining dependent files for the yesod devel server

Browse Source
This commit is contained in:
Khan Thompson 2012-02-13 03:19:01 +11:00
parent f1474f4432
commit 68e8bfd2c1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod/Build.hs
View File

@ -138,8 +138,12 @@ determineHamletDeps x = do
<|> (A.string "$(widgetFile " >> return Hamlet) <|> (A.string "$(widgetFile " >> return Hamlet)
<|> (A.string "$(Settings.hamletFile " >> return Hamlet) <|> (A.string "$(Settings.hamletFile " >> return Hamlet)
<|> (A.string "$(Settings.widgetFile " >> return Hamlet) <|> (A.string "$(Settings.widgetFile " >> return Hamlet)
<|> (A.string "$(persistFile " >> return Verbatim)
<|> (A.string "$(parseRoutesFile " >> return Verbatim) <|> (A.string "$(parseRoutesFile " >> return Verbatim)
<|> (A.string "$(persistFile " >> return Verbatim)
<|> (do
A.string "$(persistFileWith "
A.many1 $ A.satisfy (/= '"')
return Verbatim)
<|> (do <|> (do
_ <- A.string "\nmkMessage \"" _ <- A.string "\nmkMessage \""
A.skipWhile (/= '"') A.skipWhile (/= '"')