File tree Expand file tree Collapse file tree 2 files changed +5
-3
lines changed
Expand file tree Collapse file tree 2 files changed +5
-3
lines changed Original file line number Diff line number Diff line change 1+ cradle :
2+ cabal :
Original file line number Diff line number Diff line change @@ -223,7 +223,7 @@ catchAndExitFailure = catch @x (const (liftIO IO.exitFailure))
223223-- otherwise return 'a'.
224224hoistEither :: forall x e m a . ()
225225 => MonadError (Variant e ) m
226- => CouldBeF e x
226+ => e ` CouldBe ` x
227227 => Monad m
228228 => Either x a
229229 -> m a
@@ -243,7 +243,7 @@ hoistMaybe e = maybe (throw e) pure
243243-- otherwise return 'a'.
244244onLeftThrow :: forall x e m a . ()
245245 => MonadError (Variant e ) m
246- => CouldBeF e x
246+ => e ` CouldBe ` x
247247 => m (Either x a )
248248 -> m a
249249onLeftThrow f = f >>= hoistEither
@@ -296,7 +296,7 @@ onExceptionThrow :: forall x e m a. ()
296296 => CMC. MonadCatch m
297297 => CMC. Exception x
298298 => MonadError (Variant e ) m
299- => CouldBeF e x
299+ => e ` CouldBe ` x
300300 => m a
301301 -> m a
302302onExceptionThrow = onException @ x throw
You can’t perform that action at this time.
0 commit comments