From bbb9fd83aea4239efb5e03bc5d9b8f2be248017e Mon Sep 17 00:00:00 2001
From: rnhmjoj <micheleguerinirocco@me.com>
Date: Tue, 7 Jul 2015 23:16:29 +0200
Subject: [PATCH] Improve help

---
 skeleton.cabal | 2 +-
 src/Main.hs    | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/skeleton.cabal b/skeleton.cabal
index 1197f4f..df83c3c 100644
--- a/skeleton.cabal
+++ b/skeleton.cabal
@@ -29,4 +29,4 @@ executable skeleton
   build-depends:       base >=4.8 && <= 5.0, filepath, process,
                        attoparsec, bytestring, hex, time,
                        argparser
-
+  ghc-options:         -O2
diff --git a/src/Main.hs b/src/Main.hs
index 6ce267f..7f4154a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -61,14 +61,14 @@ parser = ProgArgs
   `parsedBy` reqPos      "term"      `Descr` "Keychain search term"
   `andBy`    optFlag  "" "keychain"  `Descr` "Use a specific keychain (default: all except System)"
   `andBy`    optFlag  "" "exact"     `Descr` "Return exact matches with the given class"
-  `andBy`    optFlag  10 "limit"     `Descr` "Set upper results limit (0: unlimited)"
+  `andBy`    optFlag  10 "limit"     `Descr` "Set upper results limit (default: 10, 0: unlimited)"
   `andBy`    boolFlag    "content"   `Descr` "Print only the items content"
-  `andBy`    boolFlag    "clipboard" `Descr` "Disable clipboard paste"
+  `andBy`    boolFlag    "clipboard" `Descr` "Disable paste to clipboard"
 
 interface :: IO (CmdLnInterface ProgArgs)
 interface =
   (`setAppDescr` "Quickly access the OSX keychain") <$>
-  (`setAppEpilog` "the skeleton key") <$>
+  (`setAppEpilog` "The skeleton key") <$>
   mkApp parser
 
 main :: IO ()