Commit 9f968e97 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Fix binary instance for IfaceLitTy

Thanks to Christiaan Baaj for spotting this.
parent c9349146
...@@ -748,11 +748,9 @@ instance Binary IfaceType where ...@@ -748,11 +748,9 @@ instance Binary IfaceType where
; return (IfaceTyConApp tc tys) } ; return (IfaceTyConApp tc tys) }
6 -> do { s <- get bh; i <- get bh; tys <- get bh 6 -> do { s <- get bh; i <- get bh; tys <- get bh
; return (IfaceTupleTy s i tys) } ; return (IfaceTupleTy s i tys) }
30 -> do n <- get bh _ -> do n <- get bh
return (IfaceLitTy n) return (IfaceLitTy n)
_ -> panic ("get IfaceType " ++ show h)
instance Binary IfaceCoercion where instance Binary IfaceCoercion where
put_ bh (IfaceReflCo a b) = do put_ bh (IfaceReflCo a b) = do
putByte bh 1 putByte bh 1
......
Markdown is supported
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