rnhmjoj/skeleton
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improve help

Browse Source
This commit is contained in:
rnhmjoj 2015-07-07 23:16:29 +02:00
parent 1813d67e10
commit bbb9fd83ae
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
skeleton.cabal
View File

@ -29,4 +29,4 @@ executable skeleton
build-depends: base >=4.8 && <= 5.0, filepath, process,
attoparsec, bytestring, hex, time,
argparser
ghc-options: -O2

6
src/Main.hs
View File

@ -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 ()