-- | For debugging purposes
logP :: Pipe ByteString ByteString IO r
logP = forever $ do
 s <- await
 lift . putStrLn $ "Sending response: " ++ Prelude.show s
 yield s

-- | Proxy that filters messages according to 'IRCSettings'
logP :: Pipe ByteString ByteString IO r
logP = forever $ do
 s <- await
 lift . putStrLn $ "Sending response: " ++ Prelude.show s
 yield s

-- | Proxy that filters messages according to 'IRCSettings'
logP = forever $ do
 s <- await
 lift . putStrLn $ "Sending response: " ++ Prelude.show s
 yield s

-- | Proxy that filters messages according to 'IRCSettings'