git.iko.soy/elk
on master help sign in
Move script tags into header.
d7948adevancz
compiler/Gen/GenerateHtml.hs+1−1
compare with master
unifiedsplit
@@ -66,8 +66,8 @@ createHtml jsStyle libLoc title js noscript moduleToLoad =
66 H.head $ do
66 H.head $ do
67 H.meta ! A.charset "UTF-8"
67 H.meta ! A.charset "UTF-8"
68 H.title . H.toHtml $ title
68 H.title . H.toHtml $ title
69− H.body $ do
70 makeScript Readable (Left libLoc)
69 makeScript Readable (Left libLoc)
71 makeScript jsStyle js
70 makeScript jsStyle js
71+ H.body $ do
72 H.script ! A.type_ "text/javascript" $ preEscapedToMarkup ("Elm.init(Elm." ++ moduleToLoad ++ ")" :: String)
72 H.script ! A.type_ "text/javascript" $ preEscapedToMarkup ("Elm.init(Elm." ++ moduleToLoad ++ ")" :: String)
73 H.noscript $ preEscapedToMarkup noscript
73 H.noscript $ preEscapedToMarkup noscript