From d197bc769e2eb45e84e0de749796f32345825469 Mon Sep 17 00:00:00 2001 From: Laura Date: Thu, 26 Jan 2023 17:12:36 +0100 Subject: No reason for a quit command really --- miaowe.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/miaowe.hs b/miaowe.hs index f046198..aa26987 100644 --- a/miaowe.hs +++ b/miaowe.hs @@ -233,7 +233,6 @@ getFortune = readCreateProcess ((shell "fortune -e | cowsay -b")) "" doCommand :: IrcChannel -> MircString -> IO () doCommand channel command = case map toLower ((words command)!!4) of - "quit" -> exitSuccess "list" -> listDirectory "." >>= sendToChannel channel . intercalate "\n" -- cgit v1.2.3