Sorted index mode

1 files changed, 3 insertions, 5 deletions

diff --git a/Main.hs b/Main.hs
index ebc4810..416b65a 100644
--- a/Main.hs
+++ b/Main.hs
@@ -19,12 +19,10 @@ import Screen
 import State
 
 parse ["-h"] = usage   >> exit
+parse ["--help"] = usage   >> exit
 parse ["-v"] = version >> exit
-parse [md]   = do
-  putStrLn $ "Maildirs directory: " ++ md
-  run entryPoint
-
-parse [] = usage >> die
+parse ["--version"] = version >> exit
+parse _   = run entryPoint
 
 usage   = putStrLn . unlines $ usageText where
   usageText = ["Usage: ./Main [-vh] <maildirs>"