From c3e1c5dabb3178a490c4331da45bc92069950a60 Mon Sep 17 00:00:00 2001
From: opfez <opfez@disroot.org>
Date: Fri, 17 Dec 2021 19:56:28 +0000
Subject: [PATCH] asdf

---
 Anna.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Anna.hs b/Anna.hs
index dde9ee4..fe9deb1 100644
--- a/Anna.hs
+++ b/Anna.hs
@@ -154,7 +154,7 @@ anna = rollcall
 write :: String -> String -> Net ()
 write cmd args = do
   h <- asks socket
-  liftIO $ hPutStr h $ output
+  liftIO $ hPutStr h output
   liftIO $ putStr $ "> " ++ output
     where output = cmd ++ " " ++ args ++ "\r\n"
 
@@ -174,7 +174,7 @@ joinChannels :: Net ()
 joinChannels = mapM_ (\chn -> write "JOIN" chn) channels
 
 pong :: Net ()
-pong = write "PONG" $ ":" ++ name ++ "\r\n"
+pong = write "PONG" $ ":" ++ name
 
 -- Connect to a server given its name and port number
 connectTo :: N.HostName -> N.PortNumber -> IO Handle