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

use globFilePackage in widgetFileReload and widgetFileNoReload

Browse Source 
this will mean that files can be build from another directory whilst still finding the package's templates
This commit is contained in:
David Hewson 2020-08-07 13:22:55 +01:00
parent b73a95c8b6
commit 8069d42d90
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod/Yesod/Default/Util.hs
View File

@ -130,7 +130,7 @@ warnUnlessExists :: Bool
-> Bool -- ^ requires toWidget wrap -> Bool -- ^ requires toWidget wrap
-> String -> (FilePath -> Q Exp) -> Q (Maybe Exp) -> String -> (FilePath -> Q Exp) -> Q (Maybe Exp)
warnUnlessExists shouldWarn x wrap glob f = do warnUnlessExists shouldWarn x wrap glob f = do
let fn = globFile glob x fn <- globFilePackage glob x
e <- qRunIO $ doesFileExist fn e <- qRunIO $ doesFileExist fn
when (shouldWarn && not e) $ qRunIO $ putStrLn $ "widget file not found: " ++ fn when (shouldWarn && not e) $ qRunIO $ putStrLn $ "widget file not found: " ++ fn
if e if e