From fffc3130f5bff6a7e7fb942093aaaed29b9861dd Mon Sep 17 00:00:00 2001
From: Louis-Guillaume Gagnon <louis.guillaume.gagnon@gmail.com>
Date: Fri, 30 Aug 2013 11:01:17 -0400
Subject: [PATCH] Add.hs: now fails with error message when given bad flag

---
 Add.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Add.hs b/Add.hs
index 190b30b..8426b9b 100644
--- a/Add.hs
+++ b/Add.hs
@@ -98,6 +98,7 @@ getFlag x@(x0:x1:_) =
                                          \ add help' for help)"
                  "-k" -> Right $ Keywords $ getValues $ tail  x
                  "-a" -> Right $ Authors  $ getValues $ tail  x
+                 _    -> Left $ "Invalid argument: " ++ x0
 
 getValues :: [String] -> String
 getValues argv = intercalate "/" $ takeWhile (not . isFlag) argv 
-- 
2.11.4.GIT