diff -Nru haskell-musicbrainz-0.4/debian/changelog haskell-musicbrainz-0.4.1/debian/changelog
--- haskell-musicbrainz-0.4/debian/changelog	2018-10-01 10:47:38.000000000 +0000
+++ haskell-musicbrainz-0.4.1/debian/changelog	2019-08-08 14:33:05.000000000 +0000
@@ -1,3 +1,15 @@
+haskell-musicbrainz (0.4.1-1build1) eoan; urgency=medium
+
+  * Rebuild against new GHC abi.
+
+ -- Gianfranco Costamagna <locutusofborg@debian.org>  Thu, 08 Aug 2019 16:33:05 +0200
+
+haskell-musicbrainz (0.4.1-1) unstable; urgency=medium
+
+  * New upstream release
+
+ -- Clint Adams <clint@debian.org>  Sun, 28 Jul 2019 16:09:18 -0400
+
 haskell-musicbrainz (0.4-3) unstable; urgency=medium
 
   * Remove build dependency on libghc-text-dev (provided by ghc-8.4.3)
diff -Nru haskell-musicbrainz-0.4/MusicBrainz.cabal haskell-musicbrainz-0.4.1/MusicBrainz.cabal
--- haskell-musicbrainz-0.4/MusicBrainz.cabal	2018-03-14 02:58:10.000000000 +0000
+++ haskell-musicbrainz-0.4.1/MusicBrainz.cabal	2018-10-06 17:02:16.000000000 +0000
@@ -1,5 +1,5 @@
 name:                MusicBrainz
-version:             0.4
+version:             0.4.1
 synopsis:            interface to MusicBrainz XML2 and JSON web services
 description:         interface to MusicBrainz XML2 and JSON web services
 homepage:            http://floss.scru.org/hMusicBrainz
@@ -46,4 +46,4 @@
 source-repository this
   type:     git
   location: https://salsa.debian.org/clint/MusicBrainz.git
-  tag:      hMB/0.4
+  tag:      hMB/0.4.1
diff -Nru haskell-musicbrainz-0.4/Network/Protocol/MusicBrainz/XML2/WebService.hs haskell-musicbrainz-0.4.1/Network/Protocol/MusicBrainz/XML2/WebService.hs
--- haskell-musicbrainz-0.4/Network/Protocol/MusicBrainz/XML2/WebService.hs	2018-03-14 02:58:10.000000000 +0000
+++ haskell-musicbrainz-0.4.1/Network/Protocol/MusicBrainz/XML2/WebService.hs	2018-10-06 17:02:16.000000000 +0000
@@ -143,7 +143,7 @@
     title <- tagNoAttr "{http://musicbrainz.org/ns/mmd-2.0#}title" content
     position <- tagNoAttr "{http://musicbrainz.org/ns/mmd-2.0#}position" content
     format <- tagNoAttr "{http://musicbrainz.org/ns/mmd-2.0#}format" content
-    Just med <- tag' "{http://musicbrainz.org/ns/mmd-2.0#}track-list" (liftA2 (,) (requireAttr "count") (attr "offset")) $ \(c,o) -> do -- not Just
+    mmed <- tag' "{http://musicbrainz.org/ns/mmd-2.0#}track-list" (liftA2 (,) (requireAttr "count") (attr "offset")) $ \(c,o) -> do -- not Just
         tracks <- many parseTrack
         return Medium {
             _mediumTitle = title
@@ -153,7 +153,9 @@
           , _mediumTrackOffset = fmap forceReadDec o
           , _mediumTrackList = Just tracks -- not Just
           }
-    return med
+    case mmed of
+        Just med -> return med
+        Nothing -> error "Missing track list"
 
 parseTrack :: MonadThrow m => ConduitM Event Void m (Maybe Track)
 parseTrack = tag' "{http://musicbrainz.org/ns/mmd-2.0#}track" (requireAttr "id") $ \i -> do