Bug#867844: haskell-servant-server FTBFS: Couldn't match expected type `MatchBody' with actual type `Maybe BCL.ByteString'

[Adrian Bunk]

Source: haskell-servant-server
Version: 0.8.1-2
Severity: serious
Tags: buster sid

https://buildd.debian.org/status/package.php?p=haskell-servant-server&suite=sid

...
[ 8 of 10] Compiling Servant.Server.ErrorSpec ( test/Servant/Server/ErrorSpec.hs, dist-ghc/build/spec/spec-tmp/Servant/Server/ErrorSpec.o )

test/Servant/Server/ErrorSpec.hs:214:44: error:
    * Couldn't match expected type `MatchBody'
                  with actual type `Maybe BCL.ByteString'
    * In the `matchBody' field of a record
      In the second argument of `shouldRespondWith', namely
        `200 {matchBody = Just $ encode (8 :: Int)}'
      In a stmt of a 'do' block:
        request methodPost "" [jsonCT, jsonAccept] jsonBody
        `shouldRespondWith` 200 {matchBody = Just $ encode (8 :: Int)}

test/Servant/Server/ErrorSpec.hs:218:44: error:
    * Couldn't match expected type `MatchBody'
                  with actual type `Maybe BCL.ByteString'
    * In the `matchBody' field of a record
      In the second argument of `shouldRespondWith', namely
        `200 {matchBody = Just $ encode (4 :: Int)}'
      In a stmt of a 'do' block:
        request methodGet "a" [jsonCT, jsonAccept] jsonBody
        `shouldRespondWith` 200 {matchBody = Just $ encode (4 :: Int)}
/usr/share/cdbs/1/class/hlibrary.mk:147: recipe for target 'build-ghc-stamp' failed
make: *** [build-ghc-stamp] Error 1