diff options
| author | Rutger Broekhoff | 2025-03-22 14:53:56 +0100 |
|---|---|---|
| committer | Rutger Broekhoff | 2025-03-22 14:53:56 +0100 |
| commit | 6b27332df29a294167fe4f5b91e2fa0a8f96c665 (patch) | |
| tree | 924a7aaa9ca290f257c73221f13dd0b539d34363 /app/Data/Res.hs | |
| parent | 5493329b2eed7e151f4a323c108caad2253b08bb (diff) | |
| download | rdcapsis-6b27332df29a294167fe4f5b91e2fa0a8f96c665.tar.gz rdcapsis-6b27332df29a294167fe4f5b91e2fa0a8f96c665.zip | |
Get rid of older current account statement parser
Diffstat (limited to 'app/Data/Res.hs')
| -rw-r--r-- | app/Data/Res.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/app/Data/Res.hs b/app/Data/Res.hs index e8c4ca4..3806e5a 100644 --- a/app/Data/Res.hs +++ b/app/Data/Res.hs | |||
| @@ -19,10 +19,10 @@ instance Monad (Res e) where | |||
| 19 | (Ok v) >>= f = f v | 19 | (Ok v) >>= f = f v |
| 20 | (Err e) >>= _ = Err e | 20 | (Err e) >>= _ = Err e |
| 21 | 21 | ||
| 22 | instance IsString e => MonadFail (Res e) where | 22 | instance (IsString e) => MonadFail (Res e) where |
| 23 | fail = Err . fromString | 23 | fail = Err . fromString |
| 24 | 24 | ||
| 25 | instance IsString e => Alternative (Res e) where | 25 | instance (IsString e) => Alternative (Res e) where |
| 26 | empty = fail "mzero" | 26 | empty = fail "mzero" |
| 27 | m1@(Ok _) <|> _ = m1 | 27 | m1@(Ok _) <|> _ = m1 |
| 28 | (Err _) <|> m2 = m2 | 28 | (Err _) <|> m2 = m2 |