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 "snap-core".
The branch, master has been updated
via 8ee59a23de7bdb3444510599656af4417ece9c3c (commit)
from e97491ec289a6e594fc535ac3e3582183080ba73 (commit)
Summary of changes:
src/Snap/Internal/Types.hs | 12 +++++++++++-
1 files changed, 11 insertions(+), 1 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 8ee59a23de7bdb3444510599656af4417ece9c3c
Author: Carl Howells <[email protected]>
Date: Wed Jun 16 16:14:42 2010 -0700
Make Typeable instance for Snap play nicely with hint
diff --git a/src/Snap/Internal/Types.hs b/src/Snap/Internal/Types.hs
index e51c266..e8b2953 100644
--- a/src/Snap/Internal/Types.hs
+++ b/src/Snap/Internal/Types.hs
@@ -84,7 +84,7 @@ import Snap.Internal.Http.Types
------------------------------------------------------------------------------
newtype Snap a = Snap {
unSnap :: StateT SnapState (Iteratee IO) (Maybe (Either Response a))
-} deriving Typeable
+}
------------------------------------------------------------------------------
@@ -151,6 +151,16 @@ instance Alternative Snap where
empty = mzero
(<|>) = mplus
+------------------------------------------------------------------------------
+-- | The Typeable instance is here so Snap can be dynamically executed with
+-- Hint.
+snapTyCon :: TyCon
+snapTyCon = mkTyCon "Snap.Types.Snap"
+{-# NOINLINE snapTyCon #-}
+
+instance Typeable1 Snap where
+ typeOf1 _ = mkTyConApp snapTyCon []
+
------------------------------------------------------------------------------
liftIter :: Iteratee IO a -> Snap a
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
