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-static-pages".
The branch, master has been updated
via f786cc1363435ec4cbddb98eda58b0e4fdb2e6a5 (commit)
from dfbe3afe0527a693616e09d902cf8923ee5599f0 (commit)
Summary of changes:
src/Snap/StaticPages.hs | 4 ++++
1 files changed, 4 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 f786cc1363435ec4cbddb98eda58b0e4fdb2e6a5
Author: Gregory Collins <[email protected]>
Date: Sat Jun 19 00:16:23 2010 -0400
Add loadStaticPages'
diff --git a/src/Snap/StaticPages.hs b/src/Snap/StaticPages.hs
index ef82b11..1b03d38 100644
--- a/src/Snap/StaticPages.hs
+++ b/src/Snap/StaticPages.hs
@@ -6,6 +6,7 @@ FIXME: document this.
module Snap.StaticPages
( loadStaticPages
+ , loadStaticPages'
, reloadStaticPages
, reloadStaticPages'
, initStaticPages
@@ -44,6 +45,9 @@ import Snap.StaticPages.Internal.Util.ExcludeList
(ExcludeList)
loadStaticPages :: FilePath -> IO (MVar StaticPagesState)
loadStaticPages f = initStaticPages f >>= newMVar
+loadStaticPages' :: TemplateState Snap -> FilePath -> IO (MVar
StaticPagesState)
+loadStaticPages' t f = initStaticPages' t f >>= newMVar
+
reloadStaticPages :: MVar StaticPagesState -> IO ()
reloadStaticPages mv = modifyMVar_ mv $ \st -> do
-----------------------------------------------------------------------
hooks/post-receive
--
snap-static-pages
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
