Moved all output to module: Logging

1 files changed, 4 insertions, 5 deletions

diff --git a/Presence/ServerC.hs b/Presence/ServerC.hs
index 02c6446e..d8cca897 100644
--- a/Presence/ServerC.hs
+++ b/Presence/ServerC.hs
@@ -12,8 +12,7 @@ module ServerC
     ) where
 
 import Network.Socket as Socket
-import Data.ByteString.Lazy.Char8 as L 
-    ( putStrLn )
+import Logging
 import Data.ByteString.Char8
     ( hGetNonBlocking
     )
@@ -97,10 +96,10 @@ doServer (HCons family port) g = runServer port (runConn g)
                   "resource exhausted" -> return Retry
 
                   -- InvalidArgument
-                  "invalid argument"   -> L.putStrLn "quit accept-loop." >> return QuitOnException
+                  "invalid argument"   -> debugL "quit accept-loop." >> return QuitOnException
 
                   _  -> do
-                    L.putStrLn ("accept-loop exception: " <++> bshow ioerror <++> "\n")
+                    debugL ("accept-loop exception: " <++> bshow ioerror <++> "\n")
                     return QuitOnException
 
             mcon <- handle doException $ fix $ \loop -> do
@@ -146,6 +145,6 @@ runConn ::
 runConn g st (sock,_) = do
         h <- socketToHandle sock ReadWriteMode
         hSetBuffering h NoBuffering
-        let doException (SomeException e) = Prelude.putStrLn ("\n\nexception: " ++ show e ++ "\n\n")
+        let doException (SomeException e) = debugStr ("\n\nexception: " ++ show e ++ "\n\n")
         handle doException (g (restrictSocket sock `HCons` st) (packets h) (packetSink h))
         hClose h