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 1081d0b0e8a9ae2ba2a2a4d626acda3003cf8e0e (commit)
from eba3be26bf644cd51266bea3cd99bbefc85d3717 (commit)
Summary of changes:
project_template/default/foo.cabal | 2 +-
project_template/default/src/Glue.hs | 9 +--
project_template/default/src/Main.hs | 1 +
project_template/default/src/TemplateDirectory.hs | 78 ---------------------
4 files changed, 5 insertions(+), 85 deletions(-)
delete mode 100644 project_template/default/src/TemplateDirectory.hs
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 1081d0b0e8a9ae2ba2a2a4d626acda3003cf8e0e
Author: Mighty Byte <[email protected]>
Date: Fri Jun 18 21:06:18 2010 -0400
Moved TemplateDirectory to Heist.
diff --git a/project_template/default/foo.cabal
b/project_template/default/foo.cabal
index 4ebc8eb..d3e3b7b 100644
--- a/project_template/default/foo.cabal
+++ b/project_template/default/foo.cabal
@@ -21,7 +21,7 @@ Executable projname
bytestring >= 0.9.1 && <0.10,
snap-core >= 0.2 && <0.3,
snap-server >= 0.2 && <0.3,
- heist >= 0.1 && <0.3,
+ heist >= 0.2.2 && <0.3,
hexpat == 0.16,
xhtml-combinators,
unix,
diff --git a/project_template/default/src/Glue.hs
b/project_template/default/src/Glue.hs
index e2513ba..e6a789c 100644
--- a/project_template/default/src/Glue.hs
+++ b/project_template/default/src/Glue.hs
@@ -1,13 +1,11 @@
{-# LANGUAGE OverloadedStrings #-}
module Glue
( templateHandler
- , newTemplateDirectory'
, defaultReloadHandler
, templateServe
, render
- , bindSplices
- , withSplices
) where
+
import Control.Applicative
import Control.Monad
import Data.ByteString.Char8 (ByteString)
@@ -16,15 +14,14 @@ import Prelude hiding (catch)
import Snap.Types hiding (dir)
import Snap.Util.FileServe
import Text.Templating.Heist
-
-import TemplateDirectory
+import Text.Templating.Heist.TemplateDirectory
templateHandler :: TemplateDirectory Snap
-> (TemplateDirectory Snap -> Snap ())
-> (TemplateState Snap -> Snap ())
-> Snap ()
-templateHandler td reload f = reload td <|> (f =<< getTemplateState td)
+templateHandler td reload f = reload td <|> (f =<< getDirectoryTS td)
defaultReloadHandler :: TemplateDirectory Snap -> Snap ()
diff --git a/project_template/default/src/Main.hs
b/project_template/default/src/Main.hs
index 5b74e26..3254b3b 100644
--- a/project_template/default/src/Main.hs
+++ b/project_template/default/src/Main.hs
@@ -5,6 +5,7 @@ import Control.Applicative
import Snap.Types
import Snap.Util.FileServe
import Text.Templating.Heist
+import Text.Templating.Heist.TemplateDirectory
import Glue
import Server
diff --git a/project_template/default/src/TemplateDirectory.hs
b/project_template/default/src/TemplateDirectory.hs
deleted file mode 100644
index 36362c4..0000000
--- a/project_template/default/src/TemplateDirectory.hs
+++ /dev/null
@@ -1,78 +0,0 @@
-module TemplateDirectory
- ( TemplateDirectory
- , newTemplateDirectory
- , newTemplateDirectory'
-
- , getTemplateState
- , reloadTemplateDirectory
-
- , bindSplices
- , withSplices
- ) where
-import Control.Concurrent
-import Control.Monad
-import Control.Monad.Trans
-import Data.ByteString.Char8 (ByteString)
-import Text.Templating.Heist
-import Text.Templating.Heist.Splices.Static
-
-
-data TemplateDirectory m
- = TemplateDirectory
- FilePath
- (TemplateState m)
- (MVar (TemplateState m))
- StaticTagState
-
-
-newTemplateDirectory :: (MonadIO m, MonadIO n)
- => FilePath
- -> TemplateState m
- -> n (Either String (TemplateDirectory m))
-newTemplateDirectory dir templateState = liftIO $ do
- (origTs,sts) <- bindStaticTag templateState
- ets <- loadTemplates dir origTs
- leftPass ets $ \ts -> do
- tsMVar <- newMVar $ ts
- return $ TemplateDirectory dir origTs tsMVar sts
-
-
-newTemplateDirectory' :: (MonadIO m, MonadIO n)
- => FilePath
- -> TemplateState m
- -> n (TemplateDirectory m)
-newTemplateDirectory' = ((either fail return =<<) .) . newTemplateDirectory
-
-
-getTemplateState :: (Monad m, MonadIO n)
- => TemplateDirectory m
- -> n (TemplateState m)
-getTemplateState (TemplateDirectory _ _ tsMVar _) = liftIO $ readMVar $ tsMVar
-
-
-reloadTemplateDirectory :: (MonadIO m, MonadIO n)
- => TemplateDirectory m
- -> n (Either String ())
-reloadTemplateDirectory (TemplateDirectory p origTs tsMVar sts) = liftIO $ do
- clearStaticTagCache sts
- ets <- loadTemplates p origTs
- leftPass ets $ \ts -> modifyMVar_ tsMVar (const $ return ts)
-
-
-bindSplices :: Monad m
- => [(ByteString, Splice m)]
- -> TemplateState m
- -> TemplateState m
-bindSplices = flip $ foldr (uncurry bindSplice)
-
-
-withSplices :: MonadIO m
- => [(ByteString, Splice m)]
- -> TemplateState m
-withSplices = foldr (uncurry bindSplice) emptyTemplateState
-
-
-leftPass :: Monad m => Either String b -> (b -> m c) -> m (Either String c)
-leftPass e m = either (return . Left . loadError) (liftM Right . m) e
- where
- loadError = (++) "Error loading templates: "
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
