diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,7 @@
+## 1.3.0.1
+
+* Test suite compatibility with GHC 8.4.1 [#358](https://github.com/snoyberg/conduit/issues/358)
+
 ## 1.3.0
 
 * Drop monad-control and exceptions in favor of unliftio
diff --git a/conduit.cabal b/conduit.cabal
--- a/conduit.cabal
+++ b/conduit.cabal
@@ -1,5 +1,5 @@
 Name:                conduit
-Version:             1.3.0
+Version:             1.3.0.1
 Synopsis:            Streaming data processing library.
 description:
     `conduit` is a solution to the streaming data problem, allowing for production,
diff --git a/src/Data/Conduit/Internal/Conduit.hs b/src/Data/Conduit/Internal/Conduit.hs
--- a/src/Data/Conduit/Internal/Conduit.hs
+++ b/src/Data/Conduit/Internal/Conduit.hs
@@ -112,7 +112,7 @@
 -- result @r@. The type synonyms provided here are simply wrappers around this
 -- type.
 --
--- Since 1.0.0
+-- Since 1.3.0
 newtype ConduitT i o m r = ConduitT
     { unConduitT :: forall b.
                     (r -> Pipe i i o () m b) -> Pipe i i o () m b
@@ -713,6 +713,9 @@
 
 -- | Named function synonym for '.|'.
 --
+-- Equivalent to '.|' and '=$='. However, the latter is
+-- deprecated and will be removed in a future version.
+--
 -- Since 1.2.3
 fuse :: Monad m => Conduit a m b -> ConduitM b c m r -> ConduitM a c m r
 fuse = (=$=)
@@ -721,9 +724,12 @@
 --
 -- Output from the upstream (left) conduit will be fed into the
 -- downstream (right) conduit. Processing will terminate when
--- downstream (right) returns. Leftover data returned from the right
--- @Conduit@ will be discarded.
+-- downstream (right) returns.
+-- Leftover data returned from the right @Conduit@ will be discarded.
 --
+-- Equivalent to 'fuse' and '=$=', however the latter is deprecated and will
+-- be removed in a future version.
+--
 -- @since 1.2.8
 (.|) :: Monad m
      => ConduitM a b m () -- ^ upstream
@@ -763,11 +769,7 @@
 {-# RULES "conduit: =$ is =$=" (=$) = (=$=) #-}
 {-# DEPRECATED (=$) "Use .|" #-}
 
--- | Fusion operator, combining two @Conduit@s together into a new @Conduit@.
---
--- Both @Conduit@s will be closed when the newly-created @Conduit@ is closed.
---
--- Leftover data returned from the right @Conduit@ will be discarded.
+-- | Deprecated fusion operator.
 --
 -- Since 0.4.0
 (=$=) :: Monad m => Conduit a m b -> ConduitT b c m r -> ConduitT a c m r
@@ -792,7 +794,6 @@
           where
             recurse = goLeft rp rc
      in goRight (left0 Done) (right0 Done)
-  where
 {-# INLINE [1] (=$=) #-}
 {-# DEPRECATED (=$=) "Use .|" #-}
 
diff --git a/test/StreamSpec.hs b/test/StreamSpec.hs
--- a/test/StreamSpec.hs
+++ b/test/StreamSpec.hs
@@ -35,6 +35,7 @@
 import           System.IO.Unsafe
 import           Test.Hspec
 import           Test.QuickCheck
+import           Data.Semigroup (Semigroup (..))
 
 spec :: Spec
 spec = do
@@ -463,6 +464,8 @@
 newtype Sum a = Sum a
   deriving (Eq, Show, Arbitrary)
 
+instance Prelude.Num a => Semigroup (Sum a) where
+  Sum x <> Sum y = Sum $ x Prelude.+ y
 instance Prelude.Num a => Monoid (Sum a) where
   mempty = Sum 0
   mappend (Sum x) (Sum y) = Sum $ x Prelude.+ y