From 68e8bfd2c148b5b14f297b9b3e5c25d55a85163b Mon Sep 17 00:00:00 2001 From: Khan Thompson Date: Mon, 13 Feb 2012 03:19:01 +1100 Subject: [PATCH] Add in handling for the persistFileWith case in determining dependent files for the yesod devel server --- yesod/Build.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/yesod/Build.hs b/yesod/Build.hs index 3527bf8d..097dab53 100644 --- a/yesod/Build.hs +++ b/yesod/Build.hs @@ -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 (/= '"')