fix updateop error reporting

agentm · May 13, 2024 · 7266dd5 · 7266dd5
1 parent 7aa767b
commit 7266dd5
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/bin/SQL/Interpreter.hs b/src/bin/SQL/Interpreter.hs
@@ -68,8 +68,10 @@ evalSQLInteractive sessionId conn safeFlag interactiveConsole command =
         Left err -> pure $ DisplayRelationalErrorResult err
         Right dbcExpr -> do
           let hint = renderPretty dbcExpr
-          _ <- eHandler $ C.executeDatabaseContextExpr sessionId conn dbcExpr
-          pure $ DisplayHintWith ("Equivalent TutorialD: " <> hint) QuietSuccessResult
+          ret <- C.executeDatabaseContextExpr sessionId conn dbcExpr
+          case ret of
+            Left err -> barf err
+            Right () -> pure $ DisplayHintWith ("Equivalent TutorialD: " <> hint) QuietSuccessResult
     TransactionGraphOp Commit -> do
       eHandler $ C.commit sessionId conn
     TransactionGraphOp Rollback -> do