[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit bed1017f01b733072cf13443ed280d40211cb1a0
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sat Oct 9 01:24:13 2004 +0100

    More checkpointing
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--1.0--patch-58)

diff --git a/ChangeLog b/ChangeLog
index 5d01075..408cd56 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,19 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--1.0
 #
 
+2004-10-08 19:24:13 GMT	John Goerzen <jgoerzen at complete.org>	patch-58
+
+    Summary:
+      More checkpointing
+    Revision:
+      missingh--head--1.0--patch-58
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/Logging/Handler/Simple.hs
+     libsrc/MissingH/Logging/Logger.hs
+
+
 2004-10-08 19:12:49 GMT	John Goerzen <jgoerzen at complete.org>	patch-57
 
     Summary:
diff --git a/libsrc/MissingH/Logging/Handler/Simple.hs b/libsrc/MissingH/Logging/Handler/Simple.hs
index 877ce03..8258840 100644
--- a/libsrc/MissingH/Logging/Handler/Simple.hs
+++ b/libsrc/MissingH/Logging/Handler/Simple.hs
@@ -40,6 +40,7 @@ instance LogHandler (GenericHandler a) where
     emit sh lr = (writeFunc sh) (privData sh) (snd lr)
     close sh = (closeFunc sh) (privData sh)
 
+
 {- | Create a stream log handler.  Log messages sent to this handler will
    be sent to the stream used initially.  Note that the 'close' method
    will have no effect on stream handlers; it does not actually close
diff --git a/libsrc/MissingH/Logging/Logger.hs b/libsrc/MissingH/Logging/Logger.hs
index 476864d..b75748b 100644
--- a/libsrc/MissingH/Logging/Logger.hs
+++ b/libsrc/MissingH/Logging/Logger.hs
@@ -153,3 +153,7 @@ callHandler lr ht =
 handlerActions :: [HandlerT] -> LogRecord -> [IO ()]
 handlerActions h lr = map (callHandler lr) h
                          
+-- | Add handler to logger.
+addHandler :: LogHandler a => Logger -> a -> Logger
+addHandler l h = l{handlers = (HandlerT h) : (handlers l)}
+

-- 
haskell-testpack