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 =
if development
then (do
putStrLn ("using web files from: " ++ staticDir ++ "/") >> hFlush stdout
putStrLn ("Using web files from: " ++ staticDir ++ "/") >> hFlush stdout
Static.staticDevel staticDir)
else (do
putStrLn "using built-in web files" >> hFlush stdout
-- putStrLn "Using built-in web files" >> hFlush stdout
return $(Static.embed staticDir))
$(publicFiles staticDir)