summaryrefslogtreecommitdiff
path: root/miaowe.hs
diff options
context:
space:
mode:
Diffstat (limited to 'miaowe.hs')
-rw-r--r--miaowe.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/miaowe.hs b/miaowe.hs
index 3778e23..6ee36c2 100644
--- a/miaowe.hs
+++ b/miaowe.hs
@@ -184,6 +184,8 @@ processCommand :: IrcChannel -> MircString -> IO ()
processCommand channel command | length (words command) < 5 = sendToChannel channel
"You need to specify a command."
| (words command)!!4 == "Quit" = exitSuccess
+ | (words command)!!4 == "List" = listDirectory "."
+ >>= sendToChannel channel . intercalate "\n"
| otherwise = (if isInfixOf "/" ((words command)!!4)
then
sendToChannel channel
@@ -201,7 +203,7 @@ mainLoop channel = waitForCommand
main :: IO ()
main =
- openFile "conf" ReadMode
+ openFile "../conf" ReadMode
>>= (\handle ->
hGetLine handle
>>= putStr . ircConnect