Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -974,7 +974,6 @@ putTypeRep (Fun arg res) = do ...@@ -974,7 +974,6 @@ putTypeRep (Fun arg res) = do
put (3 :: Word8) put (3 :: Word8)
putTypeRep arg putTypeRep arg
putTypeRep res putTypeRep res
putTypeRep _ = error "GHCi.TH.Binary.putTypeRep: Impossible"
getSomeTypeRep :: Get SomeTypeRep getSomeTypeRep :: Get SomeTypeRep
getSomeTypeRep = do getSomeTypeRep = do
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment