Merge pull request #8 from nrolland/lesson-7

update memoise.cabal and fix Main.hs
ryantrinkle · Jun 6, 2015 · 404fa3f · 404fa3f
2 parents 29590db + 020dc9b
commit 404fa3f
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 6 deletions.
diff --git a/memoise.cabal b/memoise.cabal
@@ -15,11 +15,13 @@ Executable memoise
   Hs-source-dirs: src
   Main-is: Main.hs
   Build-depends: base                      >= 4        && < 5
-               , snap                      >= 0.12     && < 0.13
+               , snap                      >= 0.12     
                , snap-core                 >= 0.9      && < 0.10
-               , heist                     >= 0.12     && < 0.13
-               , lens                      >= 3.9      && < 3.10
-               , text                      >= 0.11     && < 0.12
+               , heist                     >= 0.12     
+               , lens                      >= 3.9      
+               , text                      >= 0.11
+               , mtl            
   GHC-options: -threaded -O2
   Extensions: OverloadedStrings
             , TemplateHaskell
+            , FlexibleInstances
diff --git a/src/Main.hs b/src/Main.hs
@@ -1,3 +1,6 @@
+{-# LANGUAGE FlexibleInstances, UndecidableInstances #-}
+{-# LANGUAGE ConstraintKinds #-}
+
 import Snap
 import Snap.Snaplet.Heist
 import Snap.Util.FileServe
@@ -7,7 +10,8 @@ import Data.Text.Encoding
 import Data.Monoid
 import Heist
 import Heist.Interpreted
-
+import Control.Monad.Trans
+
 data Memoise
   = Memoise { _heist :: Snaplet (Heist Memoise)
             , _mainTextboxContents :: Maybe Text
@@ -36,7 +40,7 @@ mainTextboxAttributeSplice _ = do
 memoiseInit :: SnapletInit Memoise Memoise
 memoiseInit = makeSnaplet "memoise" "The world's laziest hyperlink shortener" Nothing $ do
   h <- nestSnaplet "heist" heist $ heistInit "templates"
-  modifyHeistState $ bindAttributeSplices [("main-textbox", mainTextboxAttributeSplice)]
+  modifyHeistState $ bindAttributeSplices ("main-textbox" ## mainTextboxAttributeSplice)
   addRoutes [ ("static", serveDirectory "static")
             , ("", indexHandler)
             ]