wgaffa/ffxwt - Change KWYCFMDQDUU3DLMJ5AOQC7ARBMYWQJG67WL27PMKGUSWHP7YBWTQC

Convert IOException UserError into the relevant Application error type

Created by wgaffa on February 19, 2023

KWYCFMDQDUU3DLMJ5AOQC7ARBMYWQJG67WL27PMKGUSWHP7YBWTQC

Dependencies

In channels

main

Change contents

Replacement in app/Main.hs at line 18 [4.1294]

B:BD[3.153] → [2.364:507]

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

[3.153]

[5.82]

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

Insertion in app/Main.hs at line 23 [4.1294]

[2.663]

[5.166]

import           GHC.IO.Exception               (IOErrorType (UserError),
                                                 IOException (..))

Replacement in app/Main.hs at line 56 [4.1294]

B:BD[6.1857] → [3.524:555]

        handleError = putStrLn

[6.1857]

[5.722]

        handleError = putStrLn . ("error: " ++)

Replacement in app/Main.hs at line 76 [4.1294]

B:BD[5.1297] → [2.979:1074]

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

[5.1297]

[3.948]

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

Insertion in app/Main.hs at line 80 [4.1294]

[3.949]

[2.1075]

    liftEither result
    where
        catchError e = case ioe_type e of
            UserError -> Just $ ioe_description e
            _         -> Nothing