Fixup for PR #74: better error parsing in CLB

mlabs-haskell · May 28, 2024 · 208f2f5 · 208f2f5
1 parent 9eb3c8c
commit 208f2f5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Cardano/CEM/Monads/CLB.hs b/src/Cardano/CEM/Monads/CLB.hs
@@ -77,7 +77,8 @@ instance (MonadFail m) => MonadSubmitTx (ClbT m) where
         result <- sendTx tx'
         case result of
           Success _ _ -> return $ Right $ getTxId body
-          _ -> fail "TODO"
+          Fail _ validationError ->
+            return $ Left $ UnhandledNodeSubmissionError validationError
       Right (_, _) -> fail "Unsupported tx format"
       Left e -> return $ Left $ UnhandledAutobalanceError e