From 00c8f6d5d921e98f31e26411347a91b78e7f1daa Mon Sep 17 00:00:00 2001 From: opfez Date: Fri, 8 Oct 2021 19:22:55 +0200 Subject: [PATCH] fix indentation --- Anna.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Anna.hs b/Anna.hs index 4a040fa..4ed6543 100644 --- a/Anna.hs +++ b/Anna.hs @@ -13,7 +13,7 @@ import Control.Monad.Trans.Reader hostname = "127.0.0.1" port = 6667 name = "anna" -channels = ["#foo", "#bots"] +channels = ["#tildetown", "#bots"] data Bot = Bot { socket :: Handle } type Net = ReaderT Bot IO @@ -142,7 +142,7 @@ pong = write "PONG" $ ":" ++ name ++ "\r\n" -- Connect to a server given its name and port number connectTo :: N.HostName -> N.PortNumber -> IO Handle connectTo host port = do - addr : _ <- N.getAddrInfo Nothing (Just host) (Just (show port)) - sock <- N.socket (N.addrFamily addr) (N.addrSocketType addr) (N.addrProtocol addr) - N.connect sock (N.addrAddress addr) - N.socketToHandle sock ReadWriteMode + addr : _ <- N.getAddrInfo Nothing (Just host) (Just (show port)) + sock <- N.socket (N.addrFamily addr) (N.addrSocketType addr) (N.addrProtocol addr) + N.connect sock (N.addrAddress addr) + N.socketToHandle sock ReadWriteMode