[commit: ghc] master: Fix binary instance for IfaceLitTy (9f968e9)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/9f968e97a0de9c2509da00f6337b612dd72a0389/ghc

>---------------------------------------------------------------

commit 9f968e97a0de9c2509da00f6337b612dd72a0389
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed May 20 14:26:06 2015 +0100

    Fix binary instance for IfaceLitTy
    
    Thanks to Christiaan Baaj for spotting this.


>---------------------------------------------------------------

9f968e97a0de9c2509da00f6337b612dd72a0389
 compiler/iface/IfaceType.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/compiler/iface/IfaceType.hs b/compiler/iface/IfaceType.hs
index 6dfff6e..4e3f9d6 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