SCP-4225 wip on annotation of error

input-output-hk · Aug 8, 2022 · 408f837 · 408f837
1 parent bbd1a23
commit 408f837
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/marlowe-cli/src/Language/Marlowe/CLI/Test/Script.hs b/marlowe-cli/src/Language/Marlowe/CLI/Test/Script.hs
@@ -169,6 +169,11 @@ interpret Prepare {..} = do
 
 interpret (Fail message) = throwError $ CliError message
 
+anotateCliError :: String -> CliError -> CliError
+anotateCliError anotation (CliError msg) = CliError $ annotation <> msg
+
+asPrepareError = annotateError "Prepare: "
+
 withError :: MonadError e m => (e -> e) -> m a -> m a
 withError modifyError action = catchError action \e -> do
                                 throwError $ modifyError e