Permalink
Browse files

Changes for snap 0.10

  • Loading branch information...
1 parent a15e4e0 commit b1495f5cd73153283a478e8af3ab0220a23cc631 @mightybyte mightybyte committed Dec 12, 2012
Showing with 7 additions and 11 deletions.
  1. +7 −11 src/Snap/Restful.hs
View
@@ -40,7 +40,8 @@ import qualified Data.Text.Encoding as T
import Snap.Core
import Snap.Snaplet
import Snap.Snaplet.Heist
-import Text.Templating.Heist
+import Heist
+import Heist.Interpreted
-------------------------------------------------------------------------------
@@ -183,12 +184,12 @@ rootPath = indexPath
-------------------------------------------------------------------------------
-resourceSplices :: Resource b v a -> [(Text, SnapletSplice b b)]
+resourceSplices :: Resource b v a -> [(Text, SnapletISplice b)]
resourceSplices r@Resource{..} =
- [ (T.concat [rName, "NewPath"], liftHeist . textSplice $ newPath r def)
- , (T.concat [rName, "IndexPath"], liftHeist . textSplice $ indexPath r def)
- , (T.concat [rName, "CreatePath"], liftHeist . textSplice $ createPath r def)
- , (T.concat [rName, "Path"], liftHeist . textSplice $ rootPath r def)
+ [ (T.concat [rName, "NewPath"], textSplice $ newPath r def)
+ , (T.concat [rName, "IndexPath"], textSplice $ indexPath r def)
+ , (T.concat [rName, "CreatePath"], textSplice $ createPath r def)
+ , (T.concat [rName, "Path"], textSplice $ rootPath r def)
]
@@ -207,11 +208,6 @@ itemSplices r@Resource{..} dbid =
-------------------------------------------------------------------------------
-itemSplices':: Resource b v a -> DBId -> [(Text, SnapletSplice b v)]
-itemSplices' r = map (second liftHeist) . itemSplices r
-
-
--------------------------------------------------------------------------------
mkItemActionSplice
:: Monad m => Resource b v a -> DBId -> Text -> (Text, Splice m)
mkItemActionSplice r@Resource{..} dbid t =

0 comments on commit b1495f5

Please sign in to comment.