web: better hamlet override

This commit is contained in:
Simon Michael 2012-04-03 17:53:12 +00:00
parent 64b6316785
commit 296a4d1bb2

View File

@ -28,6 +28,8 @@ import Text.Shakespeare.Text (st)
import Yesod.Default.Config
import qualified Yesod.Default.Util
import qualified Text.Hamlet (hamlet)
-- when available:
-- import Text.Hamlet (HamletSettings(..), hamletWithSettings, defaultHamletSettings, hamletRules)
hledgerorgurl, manualurl :: String
@ -83,8 +85,5 @@ parseExtra _ o = Extra
<*> o .:? "analytics"
hamlet :: QuasiQuoter
#if DEVELOPMENT
hamlet = Text.Hamlet.hamlet -- Text.Hamlet.hamlet' when available
#else
hamlet = Text.Hamlet.hamlet
#endif
-- hamlet = hamletWithSettings hamletRules defaultHamletSettings{hamletNewlines=True}