Skip to content

Commit c2f9454

Browse files
authored
Merge pull request #15 from haskell-works/newhoggy/replace-use-of-CouldBeF-with-CouldBe
Replace use of CouldBeF with CouldBe
2 parents e6f3d81 + 31cd632 commit c2f9454

File tree

2 files changed

+5
-3
lines changed

2 files changed

+5
-3
lines changed

hie.yaml

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
cradle:
2+
cabal:

src/Control/Monad/Oops.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -223,7 +223,7 @@ catchAndExitFailure = catch @x (const (liftIO IO.exitFailure))
223223
-- otherwise return 'a'.
224224
hoistEither :: 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'.
244244
onLeftThrow :: 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
249249
onLeftThrow 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
302302
onExceptionThrow = onException @x throw

0 commit comments

Comments
 (0)