Vergara_Tech/haskell-foreign-rust
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge pull request #2 from BeFunctional/edsko/throw-failure

Browse source 
Introduce `throwFailure`
This commit is contained in:
Edsko de Vries 2023-03-21 12:26:17 +00:00 committed by GitHub
commit f30df93fb5
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/Foreign/Rust/Failure.hs
View file

@ -2,10 +2,13 @@ module Foreign.Rust.Failure (
Failure -- Opaque Failure -- Opaque
, failureMessage , failureMessage
, mkFailure , mkFailure
, throwFailure
, throwFailureIO
) where ) where
import GHC.Stack import Control.Exception
import Data.Text (Text) import Data.Text (Text)
import GHC.Stack
-- | Failure reported by a Rust function -- | Failure reported by a Rust function
-- --
@ -14,7 +17,8 @@ data Failure = Failure {
failureMessage :: Text failureMessage :: Text
, failureCallstackHaskell :: PrettyCallStack , failureCallstackHaskell :: PrettyCallStack
} }
deriving (Show) deriving stock (Show)
deriving anyclass (Exception)
mkFailure :: HasCallStack => Text -> Failure mkFailure :: HasCallStack => Text -> Failure
mkFailure e = Failure e (PrettyCallStack callStack) mkFailure e = Failure e (PrettyCallStack callStack)
@ -24,4 +28,10 @@ newtype PrettyCallStack = PrettyCallStack CallStack
instance Show PrettyCallStack where instance Show PrettyCallStack where
show (PrettyCallStack stack) = prettyCallStack stack show (PrettyCallStack stack) = prettyCallStack stack
throwFailure :: Either Failure a -> a
throwFailure (Left err) = throw err
throwFailure (Right a) = a
throwFailureIO :: Either Failure a -> IO a
throwFailureIO (Left err) = throwIO err
throwFailureIO (Right a) = return a