diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-03-03 10:03:18 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-03-03 10:03:31 -0500 |
| commit | c02896abdb4cdbbec93a0a670f4d7f5dcc95cc25 (patch) | |
| tree | eacd8c791a50e590d224fb0a977464f7d9fdc334 /compiler/utils/Binary.hs | |
| parent | ca538b84e78b2b58161ca4c0910a65937c374b9c (diff) | |
| download | haskell-c02896abdb4cdbbec93a0a670f4d7f5dcc95cc25.tar.gz | |
Revert "Read COMPLETE sets from external packages"
This reverts commit 0d2f733050ff656b827351108d988e09abc363fc.
Diffstat (limited to 'compiler/utils/Binary.hs')
| -rw-r--r-- | compiler/utils/Binary.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 9d385d23ea..a1ccee3ae7 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -674,6 +674,7 @@ instance Binary KindRep where put_ bh (KindRepFun a b) = putByte bh 3 >> put_ bh a >> put_ bh b put_ bh (KindRepTYPE r) = putByte bh 4 >> put_ bh r put_ bh (KindRepTypeLit sort r) = putByte bh 5 >> put_ bh sort >> put_ bh r + put_ _ _ = fail "Binary.putKindRep: impossible" get bh = do tag <- getByte bh |