diff --git a/digestive-functors-heist.cabal b/digestive-functors-heist.cabal
--- a/digestive-functors-heist.cabal
+++ b/digestive-functors-heist.cabal
@@ -1,5 +1,5 @@
 Name:          digestive-functors-heist
-Version:       0.5.0.0
+Version:       0.5.1.0
 Synopsis:      Heist frontend for the digestive-functors library
 Description:   Heist frontend for the digestive-functors library
 Homepage:      http://github.com/jaspervdj/digestive-functors
@@ -19,6 +19,6 @@
   Build-depends:
     base               >= 4    && < 5,
     digestive-functors >= 0.5  && < 0.6,
-    heist              >= 0.8  && < 0.9,
+    heist              >= 0.10 && < 0.11,
     text               >= 0.11 && < 0.12,
     xmlhtml            >= 0.1  && < 0.3
diff --git a/src/Text/Digestive/Heist.hs b/src/Text/Digestive/Heist.hs
--- a/src/Text/Digestive/Heist.hs
+++ b/src/Text/Digestive/Heist.hs
@@ -57,7 +57,8 @@
 import           Data.Monoid           (mappend)
 import           Data.Text             (Text)
 import qualified Data.Text             as T
-import           Text.Templating.Heist
+import           Heist
+import           Heist.Interpreted
 import qualified Text.XmlHtml          as X
 
 
@@ -106,7 +107,7 @@
 --------------------------------------------------------------------------------
 getRefAttributes :: Monad m
                  => Maybe Text                       -- ^ Optional default ref
-                 -> HeistT m (Text, [(Text, Text)])  -- ^ (Ref, other attrs)
+                 -> HeistT m m (Text, [(Text, Text)])  -- ^ (Ref, other attrs)
 getRefAttributes defaultRef = do
     node <- getParamNode
     return $ case node of
@@ -118,7 +119,7 @@
 
 
 --------------------------------------------------------------------------------
-getContent :: Monad m => HeistT m [X.Node]
+getContent :: Monad m => HeistT m m [X.Node]
 getContent = liftM X.childNodes getParamNode
 
 
@@ -378,7 +379,7 @@
     (ref, _) <- getRefAttributes Nothing
     content  <- getContent
     let view' = subView ref view
-    nodes <- localTS (bindDigestiveSplices view') $ runNodeList content
+    nodes <- localHS (bindDigestiveSplices view') $ runNodeList content
     return nodes