From 64658485d5293f3a8e5cb43eaac88f8856b8566f Mon Sep 17 00:00:00 2001
From: Louis-Guillaume Gagnon <louis.guillaume.gagnon@gmail.com>
Date: Mon, 19 Aug 2013 23:17:58 -0400
Subject: [PATCH] add isHelp function

---
 Util.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Util.hs b/Util.hs
index abb4646..d127057 100644
--- a/Util.hs
+++ b/Util.hs
@@ -1,5 +1,6 @@
 module Util (
     Operation (..),
+    isHelp,
     parseArg,
     progName,
     progVersion,
@@ -22,6 +23,9 @@ data Operation = Add
                | Version
                deriving (Show)
 
+isHelp :: String -> Bool
+isHelp str = str `elem` ["-h","help","--help"]
+
 usage :: Operation -> String
 usage op = show op ++ " not yet implemented" 
 
-- 
2.11.4.GIT