[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 679864e4d38730813ee0c344f38c5dd719591f7f
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Apr 6 02:20:28 2006 +0100

    Formatting enhancements

diff --git a/MissingH/Logging/Handler/Simple.hs b/MissingH/Logging/Handler/Simple.hs
index 98017d9..cda5651 100644
--- a/MissingH/Logging/Handler/Simple.hs
+++ b/MissingH/Logging/Handler/Simple.hs
@@ -88,7 +88,7 @@ verboseStreamHandler h pri =
                withMVar lock (\_ -> do hPutStrLn hdl ("[" ++ loggername 
                                                           ++ "/" ++
                                                           show prio ++
-                                                          "]" ++ msg)
+                                                          "] " ++ msg)
                                        hFlush hdl
                              )
        return (GenericHandler {priority = pri,
diff --git a/MissingH/Logging/Handler/Syslog.hs b/MissingH/Logging/Handler/Syslog.hs
index 049aa08..4ab123e 100644
--- a/MissingH/Logging/Handler/Syslog.hs
+++ b/MissingH/Logging/Handler/Syslog.hs
@@ -245,7 +245,7 @@ instance LogHandler SyslogHandler where
             pidstr <- getpid
             let outstr = "<" ++ (show code) ++ ">" 
                          ++ (identity sh) ++ pidstr ++ ": "
-                         ++ "[" ++ loggername ++ "/" ++ (show p) ++ "]" ++ msg
+                         ++ "[" ++ loggername ++ "/" ++ (show p) ++ "] " ++ msg
             if (elem PERROR (options sh))
                then hPutStrLn stderr outstr
                else return ()

-- 
haskell-testpack