@@ -1,20 +1,18 @@
11{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings, TypeFamilies, MultiParamTypeClasses #-}
22
3−import Data.Text (Text)
43import Language.Elm
54import Language.Elm.Yesod
65import Yesod
7−--import Yesod.Default.Util
86import Text.Hamlet
9−import Text.Julius
107
118data ElmTest = ElmTest
129
1310-- embedding an external elm file (note: no spaces!)
14−mousePage = [elmFile|elm_source/mouse.elm|]
15−
11+rootPage :: Show a => a -> a -> a -> String
1612rootPage mouse clock shapes = [elmFile|elm_source/index.elm|]
1713
14+mousePage = [elmFile|elm_source/mouse.elm|]
15+
1816clockPage = [elmFile|elm_source/clock.elm|]
1917
2018-- embedding elm code inside Haskell using the QuasiQuoter: