web: be less verbose about web files source, mention it only in dev mode

This commit is contained in:
Simon Michael 2013-05-01 07:24:42 -07:00
parent c9b6dd8819
commit b06c96c04c

View File

@ -23,10 +23,10 @@ staticSite :: IO Static.Static
staticSite = staticSite =
if development if development
then (do then (do
putStrLn ("using web files from: " ++ staticDir ++ "/") >> hFlush stdout putStrLn ("Using web files from: " ++ staticDir ++ "/") >> hFlush stdout
Static.staticDevel staticDir) Static.staticDevel staticDir)
else (do else (do
putStrLn "using built-in web files" >> hFlush stdout -- putStrLn "Using built-in web files" >> hFlush stdout
return $(Static.embed staticDir)) return $(Static.embed staticDir))
$(publicFiles staticDir) $(publicFiles staticDir)