parseKey
  :: Maybe KeyLocation
  -> Parser KeyLocation
parseKey keyDir =
  strOption $ short 'k' <> long "key" <> metavar "GPGKEY" <> case keyDir of
                                                               Just x -> value x <> h
                                                               _      -> h
  where h = help "This is the path to where your GPG key is."

-- Option primitives
parseKey
  :: Maybe KeyLocation
  -> Parser KeyLocation
parseKey keyDir =
  strOption $ short 'k' <> long "key" <> metavar "GPGKEY" <> case keyDir of
                                                               Just x -> value x <> h
                                                               _      -> h
  where h = help "This is the path to where your GPG key is."

-- Option primitives
parseKey keyDir =
  strOption $ short 'k' <> long "key" <> metavar "GPGKEY" <> case keyDir of
                                                               Just x -> value x <> h
                                                               _      -> h
  where h = help "This is the path to where your GPG key is."

-- Option primitives