00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Insist on lots of newlines in the generated HTML

Browse source
This commit is contained in:
Danielle McLean 2017-10-02 21:39:17 +11:00
parent 0f8a553b51
commit 058807dd2a
Signed by: 00dani
GPG key ID: 3844A6973C6058F1
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Settings.hs
View file

@ -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

3
templates/default-layout-wrapper.hamlet
View file

@ -1,5 +1,4 @@
$newline never
\<!doctype html>
$doctype 5
\<!--[if lt IE 7]> <html class="no-js ie6 oldie" lang="en"> <![endif]-->
\<!--[if IE 7]> <html class="no-js ie7 oldie" lang="en"> <![endif]-->
\<!--[if IE 8]> <html class="no-js ie8 oldie" lang="en"> <![endif]-->