wgaffa/ffxwt - Change H3JPRP52WSFSFIMA7KC7GJG3KQW3QZSGFBAN5PXLFDECOPBFUDLAC

When reading a file that does not exist, default to load from an empty JSON array

Created by wgaffa on February 19, 2023

H3JPRP52WSFSFIMA7KC7GJG3KQW3QZSGFBAN5PXLFDECOPBFUDLAC

Dependencies

In channels

main

Change contents

Insertion in ffxwt.cabal at line 91 [5.164]
[4.14]
[5.1182]
```
        , directory
```
Insertion in app/Main.hs at line 5 [5.1294]
[4.191]
[4.191]
```
{-# LANGUAGE OverloadedStrings          #-}
```
Insertion in app/Main.hs at line 15 [5.1294]
[4.363]
[3.0]
```
import           Data.Either.Extra
```
Insertion in app/Main.hs at line 29 [5.1294]
[6.167]
[6.167]
```
import           System.Directory
```

Replacement in app/Main.hs at line 105 [5.1294]

B:BD[6.1297] → [7.347:434]

B:BD[7.434] → [2.0:50]

    result <- liftIO $ withFile filename ReadMode
        (ByteStringLazy.hGetContents
            >=> tryJust catchError . loadContent)

[6.1297]

[8.948]

    fileExists <- liftIO $ doesFileExist filename

Replacement in app/Main.hs at line 107 [5.1294]

B:BD[8.949] → [7.486:508]

    liftEither result

[8.949]

[7.508]

    if fileExists
        then liftIO (withFile filename ReadMode (ByteStringLazy.hGetContents >=> tryJust catchError . loadContent))
                >>= liftEither
        else
            liftEither .
                maybeToEither "Could not parse default empty json list into AlBhed Index"
                $ loadContent @Maybe "[]"

When reading a file that does not exist, default to load from an empty JSON array

Dependencies

In channels

Change contents

Insertion in ffxwt.cabal at line 91 [5.164]

Insertion in app/Main.hs at line 5 [5.1294]

Insertion in app/Main.hs at line 15 [5.1294]

Insertion in app/Main.hs at line 29 [5.1294]

Replacement in app/Main.hs at line 105 [5.1294]

Replacement in app/Main.hs at line 107 [5.1294]