AMP fallout compatability fix.

2016-10-10 12:36:09 +01:00
parent 9e4f374811
commit 4f96a523da
1 changed files with 1 additions and 1 deletions
@@ -21,7 +21,7 @@ hush :: Alternative m => Either e a -> m a
 hush (Left _)  = empty
 hush (Right x) = pure x

-note :: (MonadError e m) => e -> Maybe a -> m a
+note :: (MonadError e m, Applicative m) => e -> Maybe a -> m a
 note err = maybe (throwError err) pure

 tryIO :: MonadIO m => IO a -> ExceptT IOException m a