Update incremental-benchmark/src/Main.hs

Co-authored-by: coot <coot@coot.me>

Author: crocodile-dentist

incremental-benchmark/src/Main.hs

@@ -226,9 +226,10 @@ encodeIncremental _experiment msg = Write.toLazyByteString cbor
   where
     cbor = case msg of
       MsgReq () -> CBOR.encodeListLen 1 <> CBOR.encodeWord 0
-      MsgResp resp
-        | BlockCBOR bs <- resp -> CBOR.encodeListLen 2 <> CBOR.encodeWord 1 <> CBOR.encodePreEncoded bs
-        | otherwise -> error "impossible"
+      MsgResp resp ->
+        case resp of
+          BlockCBOR bs -> CBOR.encodeListLen 2 <> CBOR.encodeWord 1 <> CBOR.encodePreEncoded bs
+          Block {} -> error "impossible"
       MsgDone -> CBOR.encodeListLen 1 <> CBOR.encodeWord 2