wgaffa/budget - Change NZ2SHCLDVMHP4MN4ZIVSABSBXKVC6WYMTR7YPVA5AH6VUREXH37AC

Main now creates a new budget with currency "USD" and the rule 50/30/20

Created by wgaffa on May 18, 2023

NZ2SHCLDVMHP4MN4ZIVSABSBXKVC6WYMTR7YPVA5AH6VUREXH37AC

Dependencies

In channels

main

Change contents

Insertion in budget.cabal at line 53 [3.936]
[2.35]
[3.1992]
```
        extra,
```
Insertion in app/Main.hs at line 6 [3.2303]
[3.2322]
[2.36]
```
import Data.Either.Extra
```

Insertion in app/Main.hs at line 18 [3.2303]

[4.4505]

[3.2358]

data AppError =
    Interrupted
    | ReadError String
    | NegativeIncome
    | Undefined
    deriving (Show)

Replacement in app/Main.hs at line 32 [3.2303]

B:BD[2.293] → [2.293:370]

            Left x -> liftIO $ hPutStrLn stderr ("An error occurred: " ++ x)

[2.293]

[2.370]

            Left x -> liftIO $ hPutStrLn stderr ("An error occurred: " ++ show x)

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

B:BD[2.396] → [2.396:474]

                let income = mkIncome x
                liftIO $ print income

[2.396]

[4.4582]

                case calculateBudget x of
                    Left e -> liftIO $ hPutStrLn stderr ("An error occured: " ++ show e)
                    Right x -> liftIO $ print x

Replacement in app/Main.hs at line 38 [3.2303]

B:BD[4.4583] → [2.475:557]

readInput :: String -> (String -> Either String b) -> InputT IO (Either String b)

[4.4583]

[2.557]

calculateBudget :: Int -> Either AppError (Budget "USD" '(50, 30, 20))
calculateBudget x = do
    income <- mkIncome x
    let rule = defaultRule
        budget = calculate rule income
    return budget
readInput :: String -> (String -> Either String b) -> InputT IO (Either AppError b)

Replacement in app/Main.hs at line 50 [3.2303]

B:BD[2.632] → [2.632:716]

        Nothing -> return $ Left "Input Interrupted"
        Just x -> return $ f x

[2.632]

[2.716]

        Nothing -> return $ Left Interrupted
        Just x -> return . mapLeft ReadError $ f x

Replacement in app/Main.hs at line 53 [3.2303]

B:BD[2.717] → [2.717:829]

mkIncome :: Int -> Either String (PosMoney "USD")
mkIncome input = eitherPos input >>= return . PosMoney @"USD"

[2.717]

mkIncome :: Int -> Either AppError (PosMoney "USD")
mkIncome input = mapLeft (const NegativeIncome) $ eitherPos input >>= return . PosMoney @"USD"