@@ -15,21 +15,20 @@
1515
1616 A full example implementation is provided in the examples folder of the Elm github repository.
1717-}
18−module Language.Elm.Yesod (toWidget) where
18+module Language.Elm.Yesod (elmWidget) where
1919
2020import Text.Blaze (preEscapedToMarkup)
21−import Text.Hamlet
2221import Text.Julius
23−import Yesod.Widget (toWidgetHead, whamlet, GWidget)
22+import Yesod.Widget (toWidgetHead, toWidgetBody, GWidget)
2423import Language.Elm
2524
2625-- |toWidget takes some Elm code in String format and produces a widget. Usage example:
2726--
2827-- > toWidget [elmFile|elm-source/somePage.elm|]
29−toWidget :: String -- ^ The Elm source code
30− -> GWidget sub master ()
31−toWidget source =
28+elmWidget :: String -- ^ The Elm source code
29+ -> GWidget sub master ()
30+elmWidget source =
3231 let (html, css, js) = toParts source in
33− do toWidgetHead [hamlet| #{css} |]
32+ do toWidgetHead css
3433 toWidgetHead [julius| #{js} |]
35− [whamlet| ^{html} |]
34+ toWidgetBody html