Fix spelling. (#77)
This commit is contained in:
committed by
Stephen Diehl
parent
2d8d1f3357
commit
4694fee383
@@ -22,7 +22,7 @@ hush :: Alternative m => Either e a -> m a
|
|||||||
hush (Left _) = empty
|
hush (Left _) = empty
|
||||||
hush (Right x) = pure x
|
hush (Right x) = pure x
|
||||||
|
|
||||||
-- To suppress redundenet applicative constraint warning on GHC 8.0
|
-- To suppress redundant applicative constraint warning on GHC 8.0
|
||||||
#if ( __GLASGOW_HASKELL__ >= 800 )
|
#if ( __GLASGOW_HASKELL__ >= 800 )
|
||||||
note :: (MonadError e m) => e -> Maybe a -> m a
|
note :: (MonadError e m) => e -> Maybe a -> m a
|
||||||
note err = maybe (throwError err) pure
|
note err = maybe (throwError err) pure
|
||||||
|
|||||||
Reference in New Issue
Block a user