diff options
| author | Jose Pedro Magalhaes <jpm@cs.uu.nl> | 2011-05-02 16:00:43 +0200 |
|---|---|---|
| committer | Jose Pedro Magalhaes <jpm@cs.uu.nl> | 2011-05-02 16:00:43 +0200 |
| commit | 924142621ebc30a3c16368e0df3466ee14185ddd (patch) | |
| tree | cbf0dde250e73ef256e210c49c0248ecc23a248f /compiler/iface/BinIface.hs | |
| parent | 5c11ece98828b0f2ddae4e4b4df7b90b014effdc (diff) | |
| download | haskell-924142621ebc30a3c16368e0df3466ee14185ddd.tar.gz | |
Remove the hasGenerics field of TyCon, improve the way the Generics flags is handled, allow for standalone deriving of Representable0.
Diffstat (limited to 'compiler/iface/BinIface.hs')
| -rw-r--r-- | compiler/iface/BinIface.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs index b1c97cdf00..993159bb45 100644 --- a/compiler/iface/BinIface.hs +++ b/compiler/iface/BinIface.hs @@ -1291,7 +1291,7 @@ instance Binary IfaceDecl where put_ bh idinfo put_ _ (IfaceForeign _ _) = error "Binary.put_(IfaceDecl): IfaceForeign" - put_ bh (IfaceData a1 a2 a3 a4 a5 a6 a7 a8) = do + put_ bh (IfaceData a1 a2 a3 a4 a5 a6 a7) = do putByte bh 2 put_ bh (occNameFS a1) put_ bh a2 @@ -1300,7 +1300,6 @@ instance Binary IfaceDecl where put_ bh a5 put_ bh a6 put_ bh a7 - put_ bh a8 put_ bh (IfaceSyn a1 a2 a3 a4 a5) = do putByte bh 3 put_ bh (occNameFS a1) @@ -1335,9 +1334,8 @@ instance Binary IfaceDecl where a5 <- get bh a6 <- get bh a7 <- get bh - a8 <- get bh occ <- return $! mkOccNameFS tcName a1 - return (IfaceData occ a2 a3 a4 a5 a6 a7 a8) + return (IfaceData occ a2 a3 a4 a5 a6 a7) 3 -> do a1 <- get bh a2 <- get bh |