diff options
| author | Laura <the-ceo-of-antifa@protonmail.com> | 2023-01-05 15:40:17 +0100 |
|---|---|---|
| committer | Laura <the-ceo-of-antifa@protonmail.com> | 2023-01-05 15:40:17 +0100 |
| commit | 48c4ab12c4195da2d9a1e0747f1166366a655e16 (patch) | |
| tree | b149ea63c2b1344f342448811c31c8862c1437dd | |
| parent | 0e004369555929ad54a62e841f31adcca614874c (diff) | |
| download | miaowe-48c4ab12c4195da2d9a1e0747f1166366a655e16.tar.gz miaowe-48c4ab12c4195da2d9a1e0747f1166366a655e16.zip | |
Close file
| -rw-r--r-- | miaowe.hs | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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 |