digestive-functors-heist 0.5.0.0 → 0.5.1.0
raw patch · 2 files changed
+7/−6 lines, 2 filesdep ~heistPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: heist
API changes (from Hackage documentation)
Files
digestive-functors-heist.cabal view
@@ -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
src/Text/Digestive/Heist.hs view
@@ -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