wgaffa/ffxwt - Change 32NN74VJ3YUBOG64WT5MONQWKWYUGBFWGTMVNUJ5NLITSWM5HLNAC

Add MonadFail to type App

Created by wgaffa on March 4, 2023

32NN74VJ3YUBOG64WT5MONQWKWYUGBFWGTMVNUJ5NLITSWM5HLNAC

Dependencies

In channels

main

Change contents

Replacement in app/Main.hs at line 36 [7.1294]
∅:D[5.136] → [6.253:320]
∅:D[4.145] → [6.253:320]
∅:D[8.485] → [6.253:320]
B:BD[6.253] → [6.253:320]
```
import           Data.JSON                      (fromJson, toJson)
```
[4.145]
[9.664]
```
import           Data.JSON                      
```

Replacement in app/Main.hs at line 44 [7.1294]

B:BD[9.801] → [9.801:899]

    deriving newtype (MonadReader (Config Run), Applicative, Monad, MonadIO, MonadError AppError)

[9.801]

[10.477]

    deriving newtype (MonadReader (Config Run), Applicative, Monad, MonadIO, MonadError AppError, MonadFail)

Replacement in app/Main.hs at line 111 [7.1294]

B:BD[2.366] → [2.366:523]

            liftEither .
                maybeToEither "Could not parse default empty json list into AlBhed Index"
                $ loadContent @Maybe "[]"

[2.366]

[11.508]

                loadContent "[]"

Replacement in app/Main.hs at line 117 [7.1294]

B:BD[5.292] → [5.292:410]

        loadContent = maybe (fail "Could not parse JSON into AlBhed.Index.Index") pure . fromJson @AlBhed.Index.Index

[5.292]

[3.403]

        loadContent = either fail pure . fromJson' @AlBhed.Index.Index