parseFingerprint
  :: Maybe Fingerprint
  -> Parser Fingerprint
parseFingerprint fpr =
  strOption $ short 'p' <> long "fpr" <> metavar "FINGERPRINT" <> case fpr of
                                                                    Just x -> value x <> h
                                                                    _      -> h
  where h = help "The fingerprint for the key you will use to encrypt the passwords file."
parseFingerprint
  :: Maybe Fingerprint
  -> Parser Fingerprint
parseFingerprint fpr =
  strOption $ short 'p' <> long "fpr" <> metavar "FINGERPRINT" <> case fpr of
                                                                    Just x -> value x <> h
                                                                    _      -> h
  where h = help "The fingerprint for the key you will use to encrypt the passwords file."
parseFingerprint fpr =
  strOption $ short 'p' <> long "fpr" <> metavar "FINGERPRINT" <> case fpr of
                                                                    Just x -> value x <> h
                                                                    _      -> h
  where h = help "The fingerprint for the key you will use to encrypt the passwords file."