pageHeist

1
2
3
4
5
pageHeist template par = do
          Right tpls  <- liftIO $ runEitherT $ loadTemplates "template"          
          Right sa <- liftIO $ runEitherT $ initHeist $ HeistConfig {hcInterpretedSplices = [], hcLoadTimeSplices = [], hcCompiledSplices = mapSnd (return . yieldPureText) par, hcAttributeSplices = [], hcTemplates = tpls}                       
          let t = renderTemplate sa template
          flip (maybe mzero) t $ \(builder, mimeType) -> liftM (toResponseBS mimeType . toLazyByteString) builder
3:45: Warning: Redundant $
Found:
initHeist $
HeistConfig{hcInterpretedSplices = [], hcLoadTimeSplices = [],
hcCompiledSplices = mapSnd (return . yieldPureText) par,
hcAttributeSplices = [], hcTemplates = tpls}
Why not:
initHeist
HeistConfig{hcInterpretedSplices = [], hcLoadTimeSplices = [],
hcCompiledSplices = mapSnd (return . yieldPureText) par,
hcAttributeSplices = [], hcTemplates = tpls}