summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--miaowe.hs1
1 files changed, 0 insertions, 1 deletions
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"