wgaffa/budget - Change 4YZYDSDVJFE7RB47LPOUIOQ3U5XBTSJ53UG4TY42VXZI7O3NX7AAC

Read income from user

Created by wgaffa on May 17, 2023

4YZYDSDVJFE7RB47LPOUIOQ3U5XBTSJ53UG4TY42VXZI7O3NX7AAC

Dependencies

In channels

main

Change contents

Replacement in budget.cabal at line 51 [3.936]
∅:D[2.4350] → [3.1977:1992]
B:BD[3.1977] → [3.1977:1992]
```
        budget
```
[2.4350]
[3.1992]
```
        budget,
        haskeline,
```

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

[3.2322]

[3.2357]


import Control.Monad.IO.Class
import System.Console.Haskeline
import System.IO
import Text.Read

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

B:BD[3.2372] → [3.2372:2382]

B:BD[3.2382] → [2.4506:4582]

main = do
    let inc = PosMoney @"SEK" $ unsafePos "" 15_550
        r = defaultRule

[3.2372]

[2.4582]

main = runInputT defaultSettings go
  where
    go :: InputT IO ()
    go = do
        input <- readInput "Income: " (readEither @Int)
        case input of
            Left x -> liftIO $ hPutStrLn stderr ("An error occurred: " ++ x)
            Right x -> do
                let income = mkIncome x
                liftIO $ print income

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

B:BD[2.4583] → [2.4583:4611]

    print $ calculate r inc

[2.4583]

readInput :: String -> (String -> Either String b) -> InputT IO (Either String b)
readInput prompt f = do
    input <- getInputLine prompt
    case input of
        Nothing -> return $ Left "Input Interrupted"
        Just x -> return $ f x
mkIncome :: Int -> Either String (PosMoney "USD")
mkIncome input = eitherPos input >>= return . PosMoney @"USD"