1 files changed, 4 insertions, 2 deletions
diff --git a/miaowe.hs b/miaowe.hs
index 7cdcb0d..a575bc2 100644
--- a/miaowe.hs
+++ b/miaowe.hs
@@ -200,8 +200,10 @@ mainLoop channel = waitForCommand
 main :: IO ()
 main =
   openFile "conf" ReadMode
-  >>= hGetLine
-  >>= putStr . ircConnect
+  >>= (\handle ->
+        hGetLine handle
+        >>= putStr . ircConnect
+        >> hClose handle)
   >> hFlush stdout
   >> waitForCloak
   >> hFlush stdout