diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-05-20 14:26:06 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-05-20 14:26:45 +0100 |
| commit | 9f968e97a0de9c2509da00f6337b612dd72a0389 (patch) | |
| tree | b54efb27def68627e7b5755bd5601b0bf429b89b /compiler | |
| parent | c9349146ea74f0e074e287f29581e759cc5f8afd (diff) | |
| download | haskell-9f968e97a0de9c2509da00f6337b612dd72a0389.tar.gz | |
Fix binary instance for IfaceLitTy
Thanks to Christiaan Baaj for spotting this.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/iface/IfaceType.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/iface/IfaceType.hs b/compiler/iface/IfaceType.hs index 6dfff6e4e5..4e3f9d6d0a 100644 --- a/compiler/iface/IfaceType.hs +++ b/compiler/iface/IfaceType.hs @@ -748,11 +748,9 @@ instance Binary IfaceType where ; return (IfaceTyConApp tc tys) } 6 -> do { s <- get bh; i <- get bh; tys <- get bh ; return (IfaceTupleTy s i tys) } - 30 -> do n <- get bh + _ -> do n <- get bh return (IfaceLitTy n) - _ -> panic ("get IfaceType " ++ show h) - instance Binary IfaceCoercion where put_ bh (IfaceReflCo a b) = do putByte bh 1 |