NikolajDanger/2024B1-AP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

:hat: Conforming to other code

Browse Source
This commit is contained in:
Sebatian Larsen Prehn
2024-10-06 17:26:52 +02:00
parent 13dd49ee75
commit f6cb79a62f
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
a4/src/APL/InterpIO.hs
View File

@ -93,11 +93,11 @@ runEvalIO evalm = do
writeDB db dbState'
runEvalIO' r db m
Left e -> pure $ Left e
runEvalIO' r db (Free (TryCatchOp m1 m2)) = do
result <- runEvalIO' r db m1
runEvalIO' r db (Free (TryCatchOp m l)) = do
result <- runEvalIO' r db m
case result of
Right x -> pure $ Right x
Left _ -> runEvalIO' r db m2
Left _ -> runEvalIO' r db l
runEvalIO' r db (Free (TransactionOp l m)) = do
withTempDB transactionDB
runEvalIO' r db m