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