Add commented-out stdoutLogger implementation

1 files changed, 10 insertions, 1 deletions

diff --git a/src/IRC.hs b/src/IRC.hs
index ac88a78..fdcf90e 100644
--- a/src/IRC.hs
+++ b/src/IRC.hs
@@ -2,11 +2,12 @@ module IRC where
 
 import Control.Monad (forM_)
 import Control.Monad.IO.Class (liftIO)
+-- import Data.ByteString (ByteString)
 import qualified Data.ByteString.Char8 as Char8
 import Data.Char
 import Data.Text (Text)
 import qualified Data.Text as T
-import Network.IRC.Client
+import Network.IRC.Client hiding (stdoutLogger)
 -- import Network.IRC.Client.Events
 import Lens.Micro
 import System.IO (hFlush, stdout)
@@ -68,3 +69,11 @@ privmsgHandler commandDetect msgFun = EventHandler
     forM_ mtarget $ \target ->
       forM_ msgs $ \msg ->
         send $ Privmsg target (Right msg))
+
+-- stdoutLogger :: Origin -> ByteString -> IO ()
+-- stdoutLogger origin x = do
+--   putStrLn $ unwords
+--     [ if origin == FromServer then "<---" else "--->"
+--     , init . tail $ show x
+--     ]
+--   hFlush stdout