From e707cab7cb61bebd311632fd46d508ef2f524c6e Mon Sep 17 00:00:00 2001
From: Sebastian Graf <sebastian.graf@kit.edu>
Date: Mon, 27 May 2019 17:04:34 +0200
Subject: [PATCH] Remove redundant pattern matches

In https://gitlab.haskell.org/ghc/ghc/merge_requests/963, pattern match
checking got more precise in the presence of COMPLETE pragmas. That
uncovered that there are redundant pattern matches in `binary`.
---
 src/Data/Binary/Class.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/Data/Binary/Class.hs b/src/Data/Binary/Class.hs
index 0f4917d..d1e4f65 100644
--- a/src/Data/Binary/Class.hs
+++ b/src/Data/Binary/Class.hs
@@ -974,7 +974,6 @@ putTypeRep (Fun arg res) = do
     put (3 :: Word8)
     putTypeRep arg
     putTypeRep res
-putTypeRep _ = error "GHCi.TH.Binary.putTypeRep: Impossible"
 
 getSomeTypeRep :: Get SomeTypeRep
 getSomeTypeRep = do
-- 
GitLab