Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fixed warnings.

  • Loading branch information...
commit e2ac892a525bd500eeb4521a5375a8a49b9e4e39 1 parent a278a5b
@mightybyte mightybyte authored
View
1  src/Text/Templating/Heist/Splices.hs
@@ -1,6 +1,7 @@
module Text.Templating.Heist.Splices
( module Text.Templating.Heist.Splices.Apply
, module Text.Templating.Heist.Splices.Bind
+ , module Text.Templating.Heist.Splices.Cache
, module Text.Templating.Heist.Splices.Html
, module Text.Templating.Heist.Splices.Ignore
, module Text.Templating.Heist.Splices.Markdown
View
6 src/Text/Templating/Heist/Splices/Apply.hs
@@ -3,7 +3,6 @@ module Text.Templating.Heist.Splices.Apply where
------------------------------------------------------------------------------
import Data.Maybe
import Data.Text (Text)
-import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Text.XmlHtml as X
@@ -26,6 +25,11 @@ applyAttr = "template"
------------------------------------------------------------------------------
-- | Raw core of apply functionality. This is abstracted for use in other
-- places like an enhanced (from the original) bind
+rawApply :: (Monad m)
+ => [X.Node]
+ -> TPath
+ -> [X.Node]
+ -> TemplateMonad m Template
rawApply calledNodes newContext paramNodes = do
st <- getTS -- Can't use localTS here because the modifier is not pure
processedParams <- runNodeList paramNodes
View
1  src/Text/Templating/Heist/Splices/Html.hs
@@ -1,7 +1,6 @@
module Text.Templating.Heist.Splices.Html where
------------------------------------------------------------------------------
-import Data.List
import Data.Maybe
import Data.Text (Text)
import qualified Text.XmlHtml as X
Please sign in to comment.
Something went wrong with that request. Please try again.