@@ -4,7 +4,7 @@ import Data.Text (Text)
44import Language.Elm
55import Language.Elm.Yesod
66import Yesod
7−import Yesod.Default.Util
7+--import Yesod.Default.Util
88import Text.Hamlet
99import Text.Julius
1010
@@ -43,17 +43,17 @@ mkYesod "ElmTest" [parseRoutes|
4343getMouseR :: Handler RepHtml
4444getMouseR = defaultLayout $ do
4545 setTitle "Mouse position demo"
46− generateWidget mousePage
46+ elmWidget mousePage
4747
4848getClockR :: Handler RepHtml
4949getClockR = defaultLayout $ do
5050 setTitle "A clock"
51− generateWidget clockPage
51+ elmWidget clockPage
5252
5353getShapesR :: Handler RepHtml
5454getShapesR = defaultLayout $ do
5555 setTitle "Simple shapes"
56− generateWidget shapesPage
56+ elmWidget shapesPage
5757
5858-- URLs are rendered manually and then passed on to the function containing
5959-- the elm QuasiQuoter.
@@ -65,7 +65,7 @@ getRootR = do
6565 clock = render ClockR
6666 shapes = render ShapesR
6767 setTitle "Welcome!"
68− generateWidget $ rootPage mouse clock shapes
68+ elmWidget $ rootPage mouse clock shapes
6969
7070
7171-- Our Yesod instance contains the default layout, which inserts the elm-min.js