diff options
-rw-r--r-- | miaowe.hs | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -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" |