slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: simplify ifdef

Browse Source
This commit is contained in:
Simon Michael 2012-05-29 16:43:13 +00:00
parent b4514cc37d
commit 93dd7bd064
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger-web/Hledger/Web/Foundation.hs
View File

@ -101,16 +101,11 @@ instance Yesod App where
messageLogger y loc level msg = messageLogger y loc level msg =
formatLogText (getLogger y) loc level msg >>= logMsg (getLogger y) formatLogText (getLogger y) loc level msg >>= logMsg (getLogger y)
#ifndef DEVELOPMENT
-- This function creates static content files in the static folder -- This function creates static content files in the static folder
-- and names them based on a hash of their content. This allows -- and names them based on a hash of their content. This allows
-- expiration dates to be set far in the future without worry of -- expiration dates to be set far in the future without worry of
-- users receiving stale content. -- users receiving stale content.
#if DEVELOPMENT
-- in dev builds, skip this for easier debugging
addStaticContent _ _ _ = return Nothing
#else
-- in non-dev builds, do the optimisation
-- doesn't seem to be much different at the moment
addStaticContent = addStaticContentExternal (const $ Left ()) base64md5 Hledger.Web.Settings.staticDir (StaticR . flip StaticRoute []) addStaticContent = addStaticContentExternal (const $ Left ()) base64md5 Hledger.Web.Settings.staticDir (StaticR . flip StaticRoute [])
#endif #endif