From c5396149fd708905632762327f9f7a88a0da533c Mon Sep 17 00:00:00 2001 From: Laura Date: Tue, 17 Jan 2023 23:54:10 +0100 Subject: forgot toLower --- miaowe.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/miaowe.hs b/miaowe.hs index 82ad8aa..88d3da7 100644 --- a/miaowe.hs +++ b/miaowe.hs @@ -22,6 +22,7 @@ import Data.Bits import qualified Data.ByteString as S import qualified Data.ByteString.Char8 as S.Char8 import qualified Data.ByteString.Internal as S.Internal +import Data.Char import Data.List import Data.Word import System.Directory @@ -202,7 +203,7 @@ getFortune = readCreateProcess ((shell "fortune | cowsay -b")) "" processCommand :: IrcChannel -> MircString -> IO () processCommand channel command | length (words command) < 5 = sendToChannel channel "You need to specify a command." - | otherwise = case (words command)!!4 of + | otherwise = case map toLower ((words command)!!4) of "quit" -> exitSuccess "list" -> listDirectory "." >>= sendToChannel channel . -- cgit v1.2.3