Commit e707cab7 authored by Sebastian Graf's avatar Sebastian Graf
Browse files

Remove redundant pattern matches

In ghc/ghc!963, pattern match
checking got more precise in the presence of COMPLETE pragmas. That
uncovered that there are redundant pattern matches in `binary`.
parent 94855814
......@@ -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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment