wgaffa/ffxwt - Change DYEZ6CABMQQZD5GZR2DPR7NTHQH3GVT2ZI5ALX2YMEDWPS3YRNKQC

Print contents of a json file

Created by wgaffa on February 18, 2023

DYEZ6CABMQQZD5GZR2DPR7NTHQH3GVT2ZI5ALX2YMEDWPS3YRNKQC

Dependencies

In channels

main

Change contents

Deletion in ffxwt.cabal at line 86 [5.164]
B:BD[3.27] → [4.0:23]
```
        , transformers
```
Insertion in ffxwt.cabal at line 89 [5.164]
[2.21]
[5.1182]
```
        , mtl
```

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

B:BD[5.1294] → [2.22:56]

{-# LANGUAGE TypeApplications #-}

[5.1294]

[2.56]

{-# LANGUAGE DeriveFunctor              #-}
{-# LANGUAGE DerivingStrategies         #-}
{-# LANGUAGE FlexibleContexts           #-}
{-# LANGUAGE GeneralisedNewtypeDeriving #-}
{-# LANGUAGE TypeApplications           #-}

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

[2.120]

import           Data.ByteString.Lazy           (ByteString)
import qualified Data.ByteString.Lazy           as ByteStringLazy

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

[2.153]

[4.82]

import           Control.Monad.Except           (ExceptT, MonadError, runExceptT,
                                                 throwError)

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

B:BD[4.122] → [2.154:241]

∅:D[2.241] → [4.122:166]

B:BD[4.122] → [4.122:166]

import           Control.Monad.Trans.Class
import           Control.Monad.Trans.Except
import           Control.Monad.Trans.Reader

[4.122]

[4.166]

import           Control.Monad.Reader           (MonadReader, ReaderT, ask, runReaderT)
import           Control.Monad.Trans            (MonadTrans, lift)

Insertion in app/Main.hs at line 29 [5.1294]
[2.357]
[4.300]
```
import           Data.Maybe
```

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

B:BD[4.438] → [2.358:416]

type App a = ReaderT (Config Run) (ExceptT AppError IO) a

[4.438]

[4.477]

newtype App a = App { runApp :: ReaderT (Config Run) (ExceptT AppError IO) a }
    deriving stock (Functor)
    deriving newtype (MonadReader (Config Run), Applicative, Monad, MonadIO, MonadError AppError)

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

B:BD[4.680] → [2.417:486]

    result <- runExceptT . flip runReaderT config $ dispatch command

[4.680]

[2.486]

    result <- runExceptT . flip runReaderT config . runApp $ dispatch command

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

B:BD[4.1297] → [2.689:948]

    result <- liftIO $ withFile filename ReadMode
        (ByteString.hGetContents >=> return . fromJson @Index . ByteString.fromStrict)
    case result of
        Nothing -> lift $ throwE "Unable to parse JSON into AlBhed.Index"
        Just x  -> return x

[4.1297]

[2.948]

    liftIO $ withFile filename ReadMode
        (ByteStringLazy.hGetContents >=> printContent)

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

[2.949]

printContent :: (MonadFail m) => ByteString -> m Index
printContent = maybe (fail "Could not parse JSON into AlBhed.Index.Index") pure . fromJson @Index