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

This commit is contained in:
Khan Thompson 2012-02-13 03:19:01 +11:00
parent f1474f4432
commit 68e8bfd2c1

View File

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