This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "heist".
The branch, master has been updated
via 0220a7ea872ab4f56620816edb0d5db50a0828ec (commit)
from 94eb71efcc6eb37c8ac1d22a6e537d3679f00b15 (commit)
Summary of changes:
src/Text/Templating/Heist/Internal.hs | 11 +++++++++++
1 files changed, 11 insertions(+), 0 deletions(-)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 0220a7ea872ab4f56620816edb0d5db50a0828ec
Author: Carl Howells <[email protected]>
Date: Wed May 26 18:10:00 2010 -0700
Add a Typeable instance for TemplateMonad
diff --git a/src/Text/Templating/Heist/Internal.hs
b/src/Text/Templating/Heist/Internal.hs
index c0b56b4..a94e528 100644
--- a/src/Text/Templating/Heist/Internal.hs
+++ b/src/Text/Templating/Heist/Internal.hs
@@ -16,6 +16,7 @@ import qualified Data.Foldable as F
import Data.List
import qualified Data.Map as Map
import Data.Map (Map)
+import Data.Typeable
import Prelude hiding (catch)
import System.Directory.Tree hiding (name)
import Text.XML.Expat.Format
@@ -126,6 +127,16 @@ instance MonadTrans TemplateMonad where
lift = TemplateMonad . lift
------------------------------------------------------------------------------
+instance (Typeable1 m, Typeable a) => Typeable (TemplateMonad m a) where
+ typeOf _ = mkTyConApp tCon [mRep, aRep]
+ where
+ tCon = mkTyCon "TemplateMonad"
+ maRep = typeOf (undefined :: m a)
+ (mCon, [aRep]) = splitTyConApp maRep
+ mRep = mkTyConApp mCon []
+
+
+------------------------------------------------------------------------------
-- | A Splice is a TemplateMonad computation that returns [Node].
type Splice m = TemplateMonad m Template
-----------------------------------------------------------------------
hooks/post-receive
--
heist
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
