wgaffa/ffxwt - Change O2MR7QHTC3YJ2BBLNDEI7LY6RWE53BEAJNOQXJYSXEHFI7JKHAUQC

data file is now defaulted to XDG Data Directory

Created by wgaffa on February 15, 2023

O2MR7QHTC3YJ2BBLNDEI7LY6RWE53BEAJNOQXJYSXEHFI7JKHAUQC

Dependencies

In channels

main

Change contents

Insertion in ffxwt.cabal at line 85 [4.164]
[3.27]
[4.1182]
```
        , filepath
```
Insertion in app/Options.hs at line 26 [5.134]
[3.561]
[3.561]
```
import           System.FilePath
```

Replacement in app/Options.hs at line 39 [5.134]

B:BD[3.745] → [3.745:792]

    { dataFile :: select Last (Maybe FilePath)

[3.745]

[3.792]

    { dataFile :: select Last FilePath

Replacement in app/Options.hs at line 62 [5.134]

B:BD[3.1365] → [3.1365:1497]

configBuild :: Config Build -> Config Run
configBuild Config {..} = Config
    { dataFile = fromMaybe mempty . getLast !<- dataFile

[3.1365]

[3.1497]

configBuild :: FilePath -> Config Build -> Config Run
configBuild datadir Config {..} = Config
    { dataFile = fromMaybe (datadir </> "db.json") . getLast !<- dataFile

Replacement in app/Options.hs at line 71 [5.134]

B:BD[2.126] → [2.126:184]

configOpts = Config . Build . Last . Just <$> dataFileOpt

[2.126]

[6.233]

configOpts = Config <$> dataFileOpt

Replacement in app/Options.hs at line 73 [5.134]

B:BD[6.234] → [2.185:309]

dataFileOpt :: Parser (Maybe FilePath)
dataFileOpt = optional $ strOption (long "data-file" <> short 'f' <> metavar "FILE")

[6.234]

[2.309]

dataFileOpt :: Parser (Build Last FilePath)
dataFileOpt = Build . Last <$> optional (strOption
    (long "data-file"
    <> short 'f'
    <> metavar "FILE"
    <> help "The datafile to read from, if none is given it will default to DATA_HOME of the XDG Base Directory implementation"))