haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjusted to use *{..} syntax

Browse Source
This commit is contained in:
Casey Allred 2016-11-26 12:07:49 -07:00
parent cec6f42a99
commit 9458e57a58
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/Yesod/Core/Class/Yesod.hs
View File

@ -575,7 +575,7 @@ widgetToPageContent w = do
^{mkScriptTag s} ^{mkScriptTag s}
$maybe j <- jscript $maybe j <- jscript
$maybe s <- jsLoc $maybe s <- jsLoc
^{mkDefaultScriptTag s (jsAttributes master)} <script src="#{s}" *{jsAttributes master}>
$nothing $nothing
<script>^{jelper j} <script>^{jelper j}
|] |]
@ -618,8 +618,6 @@ widgetToPageContent w = do
renderLoc' _ (Remote s) = s renderLoc' _ (Remote s) = s
addAttr x (y, z) = x ! customAttribute (textTag y) (toValue z) addAttr x (y, z) = x ! customAttribute (textTag y) (toValue z)
mkDefaultScriptTag sUrl attrs _ =
foldl' addAttr TBH.script (("src", sUrl) : attrs) $ return ()
mkScriptTag (Script loc attrs) render' = mkScriptTag (Script loc attrs) render' =
foldl' addAttr TBH.script (("src", renderLoc' render' loc) : attrs) $ return () foldl' addAttr TBH.script (("src", renderLoc' render' loc) : attrs) $ return ()
mkLinkTag (Stylesheet loc attrs) render' = mkLinkTag (Stylesheet loc attrs) render' =