[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 be004dbc99a54dd1b3cf4feddf6047144f6a178a
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Oct 8 19:44:22 2004 +0100

    Updated with some IORef stuff
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--1.0--patch-53)

diff --git a/ChangeLog b/ChangeLog
index e4dd02e..638fd94 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,22 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--1.0
 #
 
+2004-10-08 13:44:22 GMT	John Goerzen <jgoerzen at complete.org>	patch-53
+
+    Summary:
+      Updated with some IORef stuff
+    Revision:
+      missingh--head--1.0--patch-53
+
+
+    new files:
+     libsrc/MissingH/Logging/Default.hs
+
+    modified files:
+     ChangeLog libsrc/MissingH/Logging.hs
+     libsrc/MissingH/Logging/Handler.hs
+
+
 2004-10-08 13:17:53 GMT	John Goerzen <jgoerzen at complete.org>	patch-52
 
     Summary:
diff --git a/libsrc/MissingH/Logging.hs b/libsrc/MissingH/Logging.hs
index 9d8fbc2..7cb2462 100644
--- a/libsrc/MissingH/Logging.hs
+++ b/libsrc/MissingH/Logging.hs
@@ -26,6 +26,7 @@ This module defines basic types used for logging.
 
 module MissingH.Logging(Priority(..),
                         LogRecord)
+
     where
 
 {- | Priorities are used to define how important a log messgae is.
diff --git a/libsrc/MissingH/Logging/Logger.hs b/libsrc/MissingH/Logging/Default.hs
similarity index 68%
copy from libsrc/MissingH/Logging/Logger.hs
copy to libsrc/MissingH/Logging/Default.hs
index 216a48b..a0f2294 100644
--- a/libsrc/MissingH/Logging/Logger.hs
+++ b/libsrc/MissingH/Logging/Default.hs
@@ -1,4 +1,4 @@
-{- arch-tag: Logger support
+{- arch-tag: Log handlers default code
 Copyright (C) 2004 John Goerzen <jgoerzen at complete.org>
 
 This program is free software; you can redistribute it and/or modify
@@ -24,10 +24,22 @@ For some handlers, check out "MissingH.Logging.Handler.Simple" and
 Written by John Goerzen, jgoerzen\@complete.org
 -}
 
-module MissingH.Logging.Logger(
-                              ) where
+module MissingH.Logging.Default where
 import MissingH.Logging
+import MissingH.Logging.Handler
+import MissingH.Logging.Handler.Simple
+import Data.IORef
 import IO
 
+{-
+defaultHandlerNamespace :: LogHandler b => IO (a -> IORef b)
+defaultHandlerNamespace = do
+                          h <- (streamHandler stdout WARNING)
+                          r <- newIORef h
+                          return (\x -> r)
 
 
+-}
+
+
+foo = streamHandler stdout WARNING
diff --git a/libsrc/MissingH/Logging/Handler.hs b/libsrc/MissingH/Logging/Handler.hs
index 9e3a723..34e4a82 100644
--- a/libsrc/MissingH/Logging/Handler.hs
+++ b/libsrc/MissingH/Logging/Handler.hs
@@ -55,3 +55,5 @@ class LogHandler a where
                    -- any open files, etc.
                    close :: a -> IO ()
 
+
+

-- 
haskell-testpack