@@ -4,7 +4,7 @@ import Data.Text (Text)
4import Language.Elm
4import Language.Elm
5import Language.Elm.Yesod
5import Language.Elm.Yesod
6import Yesod
6import Yesod
7−import Yesod.Default.Util
7+--import Yesod.Default.Util
8import Text.Hamlet
8import Text.Hamlet
9import Text.Julius
9import Text.Julius
@@ -43,17 +43,17 @@ mkYesod "ElmTest" [parseRoutes|
43getMouseR :: Handler RepHtml
43getMouseR :: Handler RepHtml
44getMouseR = defaultLayout $ do
44getMouseR = defaultLayout $ do
45 setTitle "Mouse position demo"
45 setTitle "Mouse position demo"
46− generateWidget mousePage
46+ elmWidget mousePage
48getClockR :: Handler RepHtml
48getClockR :: Handler RepHtml
49getClockR = defaultLayout $ do
49getClockR = defaultLayout $ do
50 setTitle "A clock"
50 setTitle "A clock"
51− generateWidget clockPage
51+ elmWidget clockPage
53getShapesR :: Handler RepHtml
53getShapesR :: Handler RepHtml
54getShapesR = defaultLayout $ do
54getShapesR = defaultLayout $ do
55 setTitle "Simple shapes"
55 setTitle "Simple shapes"
56− generateWidget shapesPage
56+ elmWidget shapesPage
58-- URLs are rendered manually and then passed on to the function containing
58-- URLs are rendered manually and then passed on to the function containing
59-- the elm QuasiQuoter.
59-- the elm QuasiQuoter.
@@ -65,7 +65,7 @@ getRootR = do
65 clock = render ClockR
65 clock = render ClockR
66 shapes = render ShapesR
66 shapes = render ShapesR
67 setTitle "Welcome!"
67 setTitle "Welcome!"
68− generateWidget $ rootPage mouse clock shapes
68+ elmWidget $ rootPage mouse clock shapes
71-- Our Yesod instance contains the default layout, which inserts the elm-min.js
71-- Our Yesod instance contains the default layout, which inserts the elm-min.js