adjusted to use *{..} syntax
This commit is contained in:
parent
cec6f42a99
commit
9458e57a58
@ -575,7 +575,7 @@ widgetToPageContent w = do
|
||||
^{mkScriptTag s}
|
||||
$maybe j <- jscript
|
||||
$maybe s <- jsLoc
|
||||
^{mkDefaultScriptTag s (jsAttributes master)}
|
||||
<script src="#{s}" *{jsAttributes master}>
|
||||
$nothing
|
||||
<script>^{jelper j}
|
||||
|]
|
||||
@ -618,8 +618,6 @@ widgetToPageContent w = do
|
||||
renderLoc' _ (Remote s) = s
|
||||
|
||||
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' =
|
||||
foldl' addAttr TBH.script (("src", renderLoc' render' loc) : attrs) $ return ()
|
||||
mkLinkTag (Stylesheet loc attrs) render' =
|
||||
|
||||
Loading…
Reference in New Issue
Block a user