Adjust for base 4.13 MonadFail changes.

Adds a MonadFail instance for Stream as well
as removing fail from the Monad instance under
base 4.13.

Author: AndreasPK

changelog.md

@@ -21,6 +21,10 @@
 
     Add `wrapEffect`.
 
+    Compatibility with base 4.13.
+    
+    Provide a MonadFail instance for Stream.
+
 - 0.2.1.0
 
     Adding `Semigroup` instances for GHC 8.4.

src/Streaming/Internal.hs

@@ -87,6 +87,7 @@ import Control.Applicative
 import Control.Concurrent (threadDelay)
 import Control.Monad
 import Control.Monad.Error.Class
+import Control.Monad.Fail as Fail
 import Control.Monad.Morph
 import Control.Monad.Reader.Class
 import Control.Monad.State.Class
@@ -252,9 +253,14 @@ instance (Functor f, Monad m) => Monad (Stream f m) where
       Return r  -> f r
   {-# INLINABLE (>>=) #-}
 
-  fail = lift . fail
+#if !(MIN_VERSION_base(4,13,0))
+  fail = lift . Prelude.fail
   {-# INLINE fail #-}
+#endif
 
+instance (Functor f, MonadFail m) => MonadFail (Stream f m) where
+  fail = lift . Fail.fail
+  {-# INLINE fail #-}
 
 -- _bind
 --     :: (Functor f, Monad m)

streaming.cabal

@@ -213,6 +213,10 @@ library
     , transformers-base < 0.5
     , ghc-prim
     , containers
+
+  if !impl(ghc >= 8.0)
+    build-depends: fail        == 4.9.*
+
   hs-source-dirs:
     src
   default-language: