From e41dd5091f597e2252deb9ecbde900eda7c15614 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Tue, 3 Sep 2013 00:00:50 -0300
Subject: Sorted index mode

---
 Main.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'Main.hs')

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>"
-- 
cgit v1.2.3