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".
The branch, master has been updated
via a9086854d476806cd3f59e9a887d8c3068803996 (commit)
from de5d53760c854b93d01e3fa94923e829d84a780c (commit)
Summary of changes:
src/Snap/Loader/Static.hs | 9 +++------
1 files changed, 3 insertions(+), 6 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 a9086854d476806cd3f59e9a887d8c3068803996
Author: Carl Howells <[email protected]>
Date: Thu Jul 1 14:28:05 2010 -0700
Simplify Snap.Loader.Static
diff --git a/src/Snap/Loader/Static.hs b/src/Snap/Loader/Static.hs
index 0785c9e..1524f09 100644
--- a/src/Snap/Loader/Static.hs
+++ b/src/Snap/Loader/Static.hs
@@ -11,7 +11,7 @@
module Snap.Loader.Static where
import Control.Arrow
-import Language.Haskell.TH.Syntax
+import Language.Haskell.TH
------------------------------------------------------------------------------
@@ -25,9 +25,6 @@ import Language.Haskell.TH.Syntax
-- > return (cleanup i, action i)
loadSnapTH :: Name -> Name -> Name -> Q Exp
loadSnapTH initialize cleanup action = do
- funE <- [| \c a -> fmap (c &&& a) |]
+ let [initE, cleanE, actE] = map varE [initialize, cleanup, action]
- let [initE, cleanE, actE] = map VarE [initialize, cleanup, action]
- simpleLoad = foldl AppE funE [cleanE, actE, initE]
-
- return simpleLoad
+ [| fmap ($cleanE &&& $actE) $initE |]
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
