digital-asset/daml
1
1
Fork 0
mirror of https://github.com/digital-asset/daml.git synced 2024-09-20 09:17:43 +03:00
Code Issues Projects Releases Wiki Activity

Add displayException to errMessage for AssistantError wrapping (#18465)

Browse Source
This commit is contained in:
dylant-da 2024-02-22 16:01:06 +00:00 committed by GitHub
parent 3d2f8650b1
commit 1525ef84b2
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
daml-assistant/src/DA/Daml/Assistant/Util.hs
View File

@ -34,8 +34,8 @@ wrapErrG wrapSomeException ctx m = m `catches`
addErrorContext err =
err { errContext = errContext err <|> Just ctx }
wrapErr :: Text -> IO a -> IO a
wrapErr = wrapErrG wrapSomeExceptionWithoutMsg
wrapErrNoDisplay :: Text -> IO a -> IO a
wrapErrNoDisplay = wrapErrG wrapSomeExceptionWithoutMsg
wrapSomeExceptionWithoutMsg :: Text -> SomeException -> AssistantError
wrapSomeExceptionWithoutMsg ctx err =
@ -45,8 +45,8 @@ wrapSomeExceptionWithoutMsg ctx err =
, errInternal = Just (pack (show err))
}
wrapErrDisplay :: Text -> IO a -> IO a
wrapErrDisplay = wrapErrG wrapSomeExceptionWithMsg
wrapErr :: Text -> IO a -> IO a
wrapErr = wrapErrG wrapSomeExceptionWithMsg
wrapSomeExceptionWithMsg :: Text -> SomeException -> AssistantError
wrapSomeExceptionWithMsg ctx err =