[Pkg-haskell-commits] [SCM] Haskell Logging System Packaging branch, master, updated. debian/1.0.8-3-27-gb17a902

[John Goerzen]

The following commit has been merged in the master branch:
commit 7f99506a174d9dde9a018f371d0e372621fae4c2
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Feb 16 15:36:49 2010 -0600

    Correctly use the passed FIFO path for local logger

diff --git a/src/System/Log/Handler/Syslog.hs b/src/System/Log/Handler/Syslog.hs
index 20576ba..4dfb553 100644
--- a/src/System/Log/Handler/Syslog.hs
+++ b/src/System/Log/Handler/Syslog.hs
@@ -185,7 +185,7 @@ openlog_local :: String                 -- ^ Path to FIFO
 openlog_local fifopath ident options fac pri =
     do
     s <- socket AF_UNIX Datagram 0
-    openlog_generic s (SockAddrUnix "/dev/log") ident options fac pri
+    openlog_generic s (SockAddrUnix fifopath) ident options fac pri
 #endif
 
 {- | Log to a remote server via UDP. -}

-- 
Haskell Logging System Packaging