parseFile
  :: Maybe FilePath
  -> Parser FilePath
parseFile fn =
  strOption $ short 'f' <> long "file" <> metavar "FILE" <> case fn of
                                                              Just x -> value x <> h
                                                              _      -> h
  where h = help "Encrypted file that contains passwords."
parseFile
  :: Maybe FilePath
  -> Parser FilePath
parseFile fn =
  strOption $ short 'f' <> long "file" <> metavar "FILE" <> case fn of
                                                              Just x -> value x <> h
                                                              _      -> h
  where h = help "Encrypted file that contains passwords."
parseFile fn =
  strOption $ short 'f' <> long "file" <> metavar "FILE" <> case fn of
                                                              Just x -> value x <> h
                                                              _      -> h
  where h = help "Encrypted file that contains passwords."