Insist on lots of newlines in the generated HTML
This commit is contained in:
parent
0f8a553b51
commit
058807dd2a
2 changed files with 4 additions and 4 deletions
|
@ -19,8 +19,9 @@ import Data.Yaml (decodeEither')
|
|||
import Database.Persist.MySQL (MySQLConf (..))
|
||||
import Language.Haskell.TH.Syntax (Exp, Name, Q)
|
||||
import Network.Wai.Handler.Warp (HostPreference)
|
||||
import Text.Hamlet (HamletSettings(hamletNewlines), NewlineStyle(AlwaysNewlines), defaultHamletSettings)
|
||||
import Yesod.Default.Config2 (applyEnvValue, configSettingsYml)
|
||||
import Yesod.Default.Util (WidgetFileSettings, widgetFileNoReload,
|
||||
import Yesod.Default.Util (WidgetFileSettings(wfsHamletSettings), widgetFileNoReload,
|
||||
widgetFileReload)
|
||||
import qualified Database.MySQL.Base as MySQL
|
||||
|
||||
|
@ -112,7 +113,7 @@ instance FromJSON AppSettings where
|
|||
--
|
||||
-- https://github.com/yesodweb/yesod/wiki/Overriding-widgetFile
|
||||
widgetFileSettings :: WidgetFileSettings
|
||||
widgetFileSettings = def
|
||||
widgetFileSettings = def { wfsHamletSettings = defaultHamletSettings { hamletNewlines = AlwaysNewlines } }
|
||||
|
||||
-- | How static files should be combined.
|
||||
combineSettings :: CombineSettings
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue