parseCmdline :: IO ()
parseCmdline = join $ customExecParser hmailPrefs parser
  where
    hmailPrefs = OB.defaultPrefs
      { prefDisambiguate = True
      , prefShowHelpOnError = True }

    parser = info (helper <*> hmailOptions)
      (fullDesc
        <> header
          "hmail: a mutt-style mail client, written in haskell"
        -- <> progDescDoc (Just description)
        <> failureCode 1)
parseCmdline :: IO ()
parseCmdline = join $ customExecParser hmailPrefs parser
  where
    hmailPrefs = OB.defaultPrefs
      { prefDisambiguate = True
      , prefShowHelpOnError = True }

    parser = info (helper <*> hmailOptions)
      (fullDesc
        <> header
          "hmail: a mutt-style mail client, written in haskell"
        -- <> progDescDoc (Just description)
        <> failureCode 1)
parseCmdline = join $ customExecParser hmailPrefs parser
  where
    hmailPrefs = OB.defaultPrefs
      { prefDisambiguate = True
      , prefShowHelpOnError = True }

    parser = info (helper <*> hmailOptions)
      (fullDesc
        <> header
          "hmail: a mutt-style mail client, written in haskell"
        -- <> progDescDoc (Just description)
        <> failureCode 1)