Tabs -> Spaces
authorDavid Terei <davidterei@gmail.com>
Wed, 9 Nov 2011 18:28:48 +0000 (10:28 -0800)
committerDavid Terei <davidterei@gmail.com>
Thu, 10 Nov 2011 06:54:05 +0000 (22:54 -0800)
compiler/iface/BinIface.hs

index 1c69d20..8193944 100644 (file)
@@ -1,10 +1,3 @@
-{-# OPTIONS -fno-warn-tabs #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and
--- detab the module (please do the detabbing in a separate patch). See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
--- for details
-
 {-# OPTIONS_GHC -O #-}
 -- We always optimise this, otherwise performance of a non-optimised
 -- compiler is severely affected
@@ -178,15 +171,15 @@ writeBinIface dflags hi_path mod_iface = do
   let way_descr = getWayDescr dflags
   put_  bh way_descr
 
-       -- Remember where the dictionary pointer will go
+        -- Remember where the dictionary pointer will go
   dict_p_p <- tellBin bh
-  put_ bh dict_p_p     -- Placeholder for ptr to dictionary
+  put_ bh dict_p_p      -- Placeholder for ptr to dictionary
 
         -- Remember where the symbol table pointer will go
   symtab_p_p <- tellBin bh
   put_ bh symtab_p_p
 
-       -- Make some intial state
+        -- Make some intial state
   symtab_next <- newFastMutInt
   writeFastMutInt symtab_next 0
   symtab_map <- newIORef emptyUFM
@@ -200,15 +193,15 @@ writeBinIface dflags hi_path mod_iface = do
                       bin_dict_next = dict_next_ref,
                       bin_dict_map  = dict_map_ref }
   
-       -- Put the main thing, 
+        -- Put the main thing, 
   bh <- return $ setUserData bh $ newWriteState (putName bin_dict bin_symtab)
                                                 (putFastString bin_dict)
   put_ bh mod_iface
 
-       -- Write the symtab pointer at the fornt of the file
-  symtab_p <- tellBin bh               -- This is where the symtab will start
-  putAt bh symtab_p_p symtab_p -- Fill in the placeholder
-  seekBin bh symtab_p          -- Seek back to the end of the file
+        -- Write the symtab pointer at the fornt of the file
+  symtab_p <- tellBin bh                -- This is where the symtab will start
+  putAt bh symtab_p_p symtab_p  -- Fill in the placeholder
+  seekBin bh symtab_p           -- Seek back to the end of the file
 
         -- Write the symbol table itself
   symtab_next <- readFastMutInt symtab_next
@@ -220,19 +213,19 @@ writeBinIface dflags hi_path mod_iface = do
         -- NB. write the dictionary after the symbol table, because
         -- writing the symbol table may create more dictionary entries.
 
-       -- Write the dictionary pointer at the fornt of the file
-  dict_p <- tellBin bh         -- This is where the dictionary will start
-  putAt bh dict_p_p dict_p     -- Fill in the placeholder
-  seekBin bh dict_p            -- Seek back to the end of the file
+        -- Write the dictionary pointer at the fornt of the file
+  dict_p <- tellBin bh          -- This is where the dictionary will start
+  putAt bh dict_p_p dict_p      -- Fill in the placeholder
+  seekBin bh dict_p             -- Seek back to the end of the file
 
-       -- Write the dictionary itself
+        -- Write the dictionary itself
   dict_next <- readFastMutInt dict_next_ref
   dict_map  <- readIORef dict_map_ref
   putDictionary bh dict_next dict_map
   debugTraceMsg dflags 3 (text "writeBinIface:" <+> int dict_next
                                  <+> text "dict entries")
 
-       -- And send the result to the file
+        -- And send the result to the file
   writeBinMem bh hi_path
 
 initBinMemSize :: Int
@@ -479,148 +472,148 @@ data BinDictionary = BinDictionary {
 
 instance Binary ModIface where
    put_ bh (ModIface {
-                mi_module    = mod,
-                mi_boot      = is_boot,
-                mi_iface_hash= iface_hash,
-                mi_mod_hash  = mod_hash,
-                mi_orphan    = orphan,
-                mi_finsts    = hasFamInsts,
-                mi_deps      = deps,
-                mi_usages    = usages,
-                mi_exports   = exports,
-                mi_exp_hash  = exp_hash,
+                 mi_module    = mod,
+                 mi_boot      = is_boot,
+                 mi_iface_hash= iface_hash,
+                 mi_mod_hash  = mod_hash,
+                 mi_orphan    = orphan,
+                 mi_finsts    = hasFamInsts,
+                 mi_deps      = deps,
+                 mi_usages    = usages,
+                 mi_exports   = exports,
+                 mi_exp_hash  = exp_hash,
                  mi_used_th   = used_th,
                  mi_fixities  = fixities,
-                mi_warns     = warns,
-                mi_anns      = anns,
-                mi_decls     = decls,
-                mi_insts     = insts,
-                mi_fam_insts = fam_insts,
-                mi_rules     = rules,
-                mi_orphan_hash = orphan_hash,
+                 mi_warns     = warns,
+                 mi_anns      = anns,
+                 mi_decls     = decls,
+                 mi_insts     = insts,
+                 mi_fam_insts = fam_insts,
+                 mi_rules     = rules,
+                 mi_orphan_hash = orphan_hash,
                  mi_vect_info = vect_info,
                  mi_hpc       = hpc_info,
                  mi_trust     = trust,
                  mi_trust_pkg = trust_pkg }) = do
-       put_ bh mod
-       put_ bh is_boot
-       put_ bh iface_hash
-       put_ bh mod_hash
-       put_ bh orphan
-       put_ bh hasFamInsts
-       lazyPut bh deps
-       lazyPut bh usages
-       put_ bh exports
-       put_ bh exp_hash
+        put_ bh mod
+        put_ bh is_boot
+        put_ bh iface_hash
+        put_ bh mod_hash
+        put_ bh orphan
+        put_ bh hasFamInsts
+        lazyPut bh deps
+        lazyPut bh usages
+        put_ bh exports
+        put_ bh exp_hash
         put_ bh used_th
         put_ bh fixities
-       lazyPut bh warns
-       lazyPut bh anns
+        lazyPut bh warns
+        lazyPut bh anns
         put_ bh decls
-       put_ bh insts
-       put_ bh fam_insts
-       lazyPut bh rules
-       put_ bh orphan_hash
+        put_ bh insts
+        put_ bh fam_insts
+        lazyPut bh rules
+        put_ bh orphan_hash
         put_ bh vect_info
-       put_ bh hpc_info
-       put_ bh trust
-       put_ bh trust_pkg
+        put_ bh hpc_info
+        put_ bh trust
+        put_ bh trust_pkg
 
    get bh = do
-       mod_name  <- get bh
-       is_boot   <- get bh
-       iface_hash <- get bh
-       mod_hash  <- get bh
-       orphan    <- get bh
-       hasFamInsts <- get bh
-       deps      <- lazyGet bh
-       usages    <- {-# SCC "bin_usages" #-} lazyGet bh
-       exports   <- {-# SCC "bin_exports" #-} get bh
-       exp_hash  <- get bh
+        mod_name  <- get bh
+        is_boot   <- get bh
+        iface_hash <- get bh
+        mod_hash  <- get bh
+        orphan    <- get bh
+        hasFamInsts <- get bh
+        deps      <- lazyGet bh
+        usages    <- {-# SCC "bin_usages" #-} lazyGet bh
+        exports   <- {-# SCC "bin_exports" #-} get bh
+        exp_hash  <- get bh
         used_th   <- get bh
         fixities  <- {-# SCC "bin_fixities" #-} get bh
-       warns     <- {-# SCC "bin_warns" #-} lazyGet bh
-       anns      <- {-# SCC "bin_anns" #-} lazyGet bh
-        decls    <- {-# SCC "bin_tycldecls" #-} get bh
-       insts     <- {-# SCC "bin_insts" #-} get bh
-       fam_insts <- {-# SCC "bin_fam_insts" #-} get bh
-       rules     <- {-# SCC "bin_rules" #-} lazyGet bh
-       orphan_hash <- get bh
+        warns     <- {-# SCC "bin_warns" #-} lazyGet bh
+        anns      <- {-# SCC "bin_anns" #-} lazyGet bh
+        decls     <- {-# SCC "bin_tycldecls" #-} get bh
+        insts     <- {-# SCC "bin_insts" #-} get bh
+        fam_insts <- {-# SCC "bin_fam_insts" #-} get bh
+        rules     <- {-# SCC "bin_rules" #-} lazyGet bh
+        orphan_hash <- get bh
         vect_info <- get bh
         hpc_info  <- get bh
         trust     <- get bh
         trust_pkg <- get bh
-       return (ModIface {
-                mi_module    = mod_name,
-                mi_boot      = is_boot,
-                mi_iface_hash = iface_hash,
-                mi_mod_hash  = mod_hash,
-                mi_orphan    = orphan,
-                mi_finsts    = hasFamInsts,
-                mi_deps      = deps,
-                mi_usages    = usages,
-                mi_exports   = exports,
+        return (ModIface {
+                 mi_module    = mod_name,
+                 mi_boot      = is_boot,
+                 mi_iface_hash = iface_hash,
+                 mi_mod_hash  = mod_hash,
+                 mi_orphan    = orphan,
+                 mi_finsts    = hasFamInsts,
+                 mi_deps      = deps,
+                 mi_usages    = usages,
+                 mi_exports   = exports,
                  mi_exp_hash  = exp_hash,
                  mi_used_th   = used_th,
                  mi_anns      = anns,
-                mi_fixities  = fixities,
-                mi_warns     = warns,
-                mi_decls     = decls,
-                mi_globals   = Nothing,
-                mi_insts     = insts,
-                mi_fam_insts = fam_insts,
-                mi_rules     = rules,
-                mi_orphan_hash = orphan_hash,
+                 mi_fixities  = fixities,
+                 mi_warns     = warns,
+                 mi_decls     = decls,
+                 mi_globals   = Nothing,
+                 mi_insts     = insts,
+                 mi_fam_insts = fam_insts,
+                 mi_rules     = rules,
+                 mi_orphan_hash = orphan_hash,
                  mi_vect_info = vect_info,
-                mi_hpc       = hpc_info,
-                mi_trust     = trust,
-                mi_trust_pkg = trust_pkg,
-                       -- And build the cached values
-                mi_warn_fn   = mkIfaceWarnCache warns,
-                mi_fix_fn    = mkIfaceFixCache fixities,
-                mi_hash_fn   = mkIfaceHashCache decls })
+                 mi_hpc       = hpc_info,
+                 mi_trust     = trust,
+                 mi_trust_pkg = trust_pkg,
+                        -- And build the cached values
+                 mi_warn_fn   = mkIfaceWarnCache warns,
+                 mi_fix_fn    = mkIfaceFixCache fixities,
+                 mi_hash_fn   = mkIfaceHashCache decls })
 
 getWayDescr :: DynFlags -> String
 getWayDescr dflags
   | cGhcUnregisterised == "YES" = 'u':tag
   | otherwise                   = tag
   where tag = buildTag dflags
-       -- if this is an unregisterised build, make sure our interfaces
-       -- can't be used by a registerised build.
+        -- if this is an unregisterised build, make sure our interfaces
+        -- can't be used by a registerised build.
 
 -------------------------------------------------------------------------
---             Types from: HscTypes
+--              Types from: HscTypes
 -------------------------------------------------------------------------
 
 instance Binary Dependencies where
     put_ bh deps = do put_ bh (dep_mods deps)
-                     put_ bh (dep_pkgs deps)
-                     put_ bh (dep_orphs deps)
-                     put_ bh (dep_finsts deps)
+                      put_ bh (dep_pkgs deps)
+                      put_ bh (dep_orphs deps)
+                      put_ bh (dep_finsts deps)
 
     get bh = do ms <- get bh 
-               ps <- get bh
-               os <- get bh
-               fis <- get bh
-               return (Deps { dep_mods = ms, dep_pkgs = ps, dep_orphs = os,
-                              dep_finsts = fis })
+                ps <- get bh
+                os <- get bh
+                fis <- get bh
+                return (Deps { dep_mods = ms, dep_pkgs = ps, dep_orphs = os,
+                               dep_finsts = fis })
 
 instance Binary AvailInfo where
     put_ bh (Avail aa) = do
-           putByte bh 0
-           put_ bh aa
+            putByte bh 0
+            put_ bh aa
     put_ bh (AvailTC ab ac) = do
-           putByte bh 1
-           put_ bh ab
-           put_ bh ac
+            putByte bh 1
+            put_ bh ab
+            put_ bh ac
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do aa <- get bh
-                     return (Avail aa)
-             _ -> do ab <- get bh
-                     ac <- get bh
-                     return (AvailTC ab ac)
+            h <- getByte bh
+            case h of
+              0 -> do aa <- get bh
+                      return (Avail aa)
+              _ -> do ab <- get bh
+                      ac <- get bh
+                      return (AvailTC ab ac)
 
     
 -- where should this be located?
@@ -709,29 +702,29 @@ instance Binary WarningTxt where
                       return (DeprecatedTxt d)
 
 -------------------------------------------------------------------------
---             Types from: BasicTypes
+--              Types from: BasicTypes
 -------------------------------------------------------------------------
 
 instance Binary Activation where
     put_ bh NeverActive = do
-           putByte bh 0
+            putByte bh 0
     put_ bh AlwaysActive = do
-           putByte bh 1
+            putByte bh 1
     put_ bh (ActiveBefore aa) = do
-           putByte bh 2
-           put_ bh aa
+            putByte bh 2
+            put_ bh aa
     put_ bh (ActiveAfter ab) = do
-           putByte bh 3
-           put_ bh ab
+            putByte bh 3
+            put_ bh ab
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do return NeverActive
-             1 -> do return AlwaysActive
-             2 -> do aa <- get bh
-                     return (ActiveBefore aa)
-             _ -> do ab <- get bh
-                     return (ActiveAfter ab)
+            h <- getByte bh
+            case h of
+              0 -> do return NeverActive
+              1 -> do return AlwaysActive
+              2 -> do aa <- get bh
+                      return (ActiveBefore aa)
+              _ -> do ab <- get bh
+                      return (ActiveAfter ab)
 
 instance Binary RuleMatchInfo where
     put_ bh FunLike = putByte bh 0
@@ -775,12 +768,12 @@ instance Binary HsBang where
     put_ bh HsUnpackFailed  = putByte bh 3
     put_ bh HsNoUnpack      = putByte bh 4
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do return HsNoBang
-             1 -> do return HsStrict
-             2 -> do return HsUnpack
-             3 -> do return HsUnpackFailed
+            h <- getByte bh
+            case h of
+              0 -> do return HsNoBang
+              1 -> do return HsStrict
+              2 -> do return HsUnpack
+              3 -> do return HsUnpackFailed
               _ -> do return HsNoUnpack
 
 instance Binary TupleSort where
@@ -796,254 +789,254 @@ instance Binary TupleSort where
 
 instance Binary RecFlag where
     put_ bh Recursive = do
-           putByte bh 0
+            putByte bh 0
     put_ bh NonRecursive = do
-           putByte bh 1
+            putByte bh 1
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do return Recursive
-             _ -> do return NonRecursive
+            h <- getByte bh
+            case h of
+              0 -> do return Recursive
+              _ -> do return NonRecursive
 
 instance Binary DefMethSpec where
     put_ bh NoDM      = putByte bh 0
     put_ bh VanillaDM = putByte bh 1
     put_ bh GenericDM = putByte bh 2
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> return NoDM
-             1 -> return VanillaDM
-             _ -> return GenericDM
+            h <- getByte bh
+            case h of
+              0 -> return NoDM
+              1 -> return VanillaDM
+              _ -> return GenericDM
 
 instance Binary FixityDirection where
     put_ bh InfixL = do
-           putByte bh 0
+            putByte bh 0
     put_ bh InfixR = do
-           putByte bh 1
+            putByte bh 1
     put_ bh InfixN = do
-           putByte bh 2
+            putByte bh 2
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do return InfixL
-             1 -> do return InfixR
-             _ -> do return InfixN
+            h <- getByte bh
+            case h of
+              0 -> do return InfixL
+              1 -> do return InfixR
+              _ -> do return InfixN
 
 instance Binary Fixity where
     put_ bh (Fixity aa ab) = do
-           put_ bh aa
-           put_ bh ab
+            put_ bh aa
+            put_ bh ab
     get bh = do
-         aa <- get bh
-         ab <- get bh
-         return (Fixity aa ab)
+          aa <- get bh
+          ab <- get bh
+          return (Fixity aa ab)
 
 instance (Binary name) => Binary (IPName name) where
     put_ bh (IPName aa) = put_ bh aa
     get bh = do aa <- get bh
-               return (IPName aa)
+                return (IPName aa)
 
 -------------------------------------------------------------------------
---             Types from: Demand
+--              Types from: Demand
 -------------------------------------------------------------------------
 
 instance Binary DmdType where
-       -- Ignore DmdEnv when spitting out the DmdType
+        -- Ignore DmdEnv when spitting out the DmdType
   put bh (DmdType _ ds dr) = do p <- put bh ds; put_ bh dr; return (castBin p)
   get bh = do ds <- get bh; dr <- get bh; return (DmdType emptyVarEnv ds dr)
 
 instance Binary Demand where
     put_ bh Top = do
-           putByte bh 0
+            putByte bh 0
     put_ bh Abs = do
-           putByte bh 1
+            putByte bh 1
     put_ bh (Call aa) = do
-           putByte bh 2
-           put_ bh aa
+            putByte bh 2
+            put_ bh aa
     put_ bh (Eval ab) = do
-           putByte bh 3
-           put_ bh ab
+            putByte bh 3
+            put_ bh ab
     put_ bh (Defer ac) = do
-           putByte bh 4
-           put_ bh ac
+            putByte bh 4
+            put_ bh ac
     put_ bh (Box ad) = do
-           putByte bh 5
-           put_ bh ad
+            putByte bh 5
+            put_ bh ad
     put_ bh Bot = do
-           putByte bh 6
+            putByte bh 6
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do return Top
-             1 -> do return Abs
-             2 -> do aa <- get bh
-                     return (Call aa)
-             3 -> do ab <- get bh
-                     return (Eval ab)
-             4 -> do ac <- get bh
-                     return (Defer ac)
-             5 -> do ad <- get bh
-                     return (Box ad)
-             _ -> do return Bot
+            h <- getByte bh
+            case h of
+              0 -> do return Top
+              1 -> do return Abs
+              2 -> do aa <- get bh
+                      return (Call aa)
+              3 -> do ab <- get bh
+                      return (Eval ab)
+              4 -> do ac <- get bh
+                      return (Defer ac)
+              5 -> do ad <- get bh
+                      return (Box ad)
+              _ -> do return Bot
 
 instance Binary Demands where
     put_ bh (Poly aa) = do
-           putByte bh 0
-           put_ bh aa
+            putByte bh 0
+            put_ bh aa
     put_ bh (Prod ab) = do
-           putByte bh 1
-           put_ bh ab
+            putByte bh 1
+            put_ bh ab
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do aa <- get bh
-                     return (Poly aa)
-             _ -> do ab <- get bh
-                     return (Prod ab)
+            h <- getByte bh
+            case h of
+              0 -> do aa <- get bh
+                      return (Poly aa)
+              _ -> do ab <- get bh
+                      return (Prod ab)
 
 instance Binary DmdResult where
     put_ bh TopRes = do
-           putByte bh 0
+            putByte bh 0
     put_ bh RetCPR = do
-           putByte bh 1
+            putByte bh 1
     put_ bh BotRes = do
-           putByte bh 2
+            putByte bh 2
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do return TopRes
-             1 -> do return RetCPR     -- Really use RetCPR even if -fcpr-off
-                                       -- The wrapper was generated for CPR in 
-                                       -- the imported module!
-             _ -> do return BotRes
+            h <- getByte bh
+            case h of
+              0 -> do return TopRes
+              1 -> do return RetCPR     -- Really use RetCPR even if -fcpr-off
+                                        -- The wrapper was generated for CPR in 
+                                        -- the imported module!
+              _ -> do return BotRes
 
 instance Binary StrictSig where
     put_ bh (StrictSig aa) = do
-           put_ bh aa
+            put_ bh aa
     get bh = do
-         aa <- get bh
-         return (StrictSig aa)
+          aa <- get bh
+          return (StrictSig aa)
 
 
 -------------------------------------------------------------------------
---             Types from: CostCentre
+--              Types from: CostCentre
 -------------------------------------------------------------------------
 
 instance Binary IsCafCC where
     put_ bh CafCC = do
-           putByte bh 0
+            putByte bh 0
     put_ bh NotCafCC = do
-           putByte bh 1
+            putByte bh 1
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do return CafCC
-             _ -> do return NotCafCC
+            h <- getByte bh
+            case h of
+              0 -> do return CafCC
+              _ -> do return NotCafCC
 
 instance Binary CostCentre where
     put_ bh NoCostCentre = do
-           putByte bh 0
+            putByte bh 0
     put_ bh (NormalCC aa ab ac) = do
-           putByte bh 1
-           put_ bh aa
-           put_ bh ab
-           put_ bh ac
+            putByte bh 1
+            put_ bh aa
+            put_ bh ab
+            put_ bh ac
     put_ bh (AllCafsCC ae) = do
-           putByte bh 2
-           put_ bh ae
+            putByte bh 2
+            put_ bh ae
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do return NoCostCentre
-             1 -> do aa <- get bh
-                     ab <- get bh
-                     ac <- get bh
+            h <- getByte bh
+            case h of
+              0 -> do return NoCostCentre
+              1 -> do aa <- get bh
+                      ab <- get bh
+                      ac <- get bh
                       return (NormalCC aa ab ac)
-             _ -> do ae <- get bh
-                     return (AllCafsCC ae)
+              _ -> do ae <- get bh
+                      return (AllCafsCC ae)
 
 -------------------------------------------------------------------------
---             IfaceTypes and friends
+--              IfaceTypes and friends
 -------------------------------------------------------------------------
 
 instance Binary IfaceBndr where
     put_ bh (IfaceIdBndr aa) = do
-           putByte bh 0
-           put_ bh aa
+            putByte bh 0
+            put_ bh aa
     put_ bh (IfaceTvBndr ab) = do
-           putByte bh 1
-           put_ bh ab
+            putByte bh 1
+            put_ bh ab
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do aa <- get bh
-                     return (IfaceIdBndr aa)
-             _ -> do ab <- get bh
-                     return (IfaceTvBndr ab)
+            h <- getByte bh
+            case h of
+              0 -> do aa <- get bh
+                      return (IfaceIdBndr aa)
+              _ -> do ab <- get bh
+                      return (IfaceTvBndr ab)
 
 instance Binary IfaceLetBndr where
     put_ bh (IfLetBndr a b c) = do
-           put_ bh a
-           put_ bh b
-           put_ bh c
+            put_ bh a
+            put_ bh b
+            put_ bh c
     get bh = do a <- get bh
-               b <- get bh
-               c <- get bh
-               return (IfLetBndr a b c)           
+                b <- get bh
+                c <- get bh
+                return (IfLetBndr a b c)           
 
 instance Binary IfaceType where
     put_ bh (IfaceForAllTy aa ab) = do
-           putByte bh 0
-           put_ bh aa
-           put_ bh ab
+            putByte bh 0
+            put_ bh aa
+            put_ bh ab
     put_ bh (IfaceTyVar ad) = do
-           putByte bh 1
-           put_ bh ad
+            putByte bh 1
+            put_ bh ad
     put_ bh (IfaceAppTy ae af) = do
-           putByte bh 2
-           put_ bh ae
-           put_ bh af
+            putByte bh 2
+            put_ bh ae
+            put_ bh af
     put_ bh (IfaceFunTy ag ah) = do
-           putByte bh 3
-           put_ bh ag
-           put_ bh ah
+            putByte bh 3
+            put_ bh ag
+            put_ bh ah
     
-       -- Simple compression for common cases of TyConApp
+        -- Simple compression for common cases of TyConApp
     put_ bh (IfaceTyConApp (IfaceAnyTc k) []) = do { putByte bh 4; put_ bh k }
     put_ bh (IfaceTyConApp (IfaceTc tc) tys) = do { putByte bh 5; put_ bh tc; put_ bh tys }
-    put_ bh (IfaceTyConApp tc tys)          = do { putByte bh 6; put_ bh tc; put_ bh tys }
+    put_ bh (IfaceTyConApp tc tys)           = do { putByte bh 6; put_ bh tc; put_ bh tys }
 
     put_ bh (IfaceCoConApp cc tys) = do { putByte bh 7; put_ bh cc; put_ bh tys }
 
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do aa <- get bh
-                     ab <- get bh
-                     return (IfaceForAllTy aa ab)
-             1 -> do ad <- get bh
-                     return (IfaceTyVar ad)
-             2 -> do ae <- get bh
-                     af <- get bh
-                     return (IfaceAppTy ae af)
-             3 -> do ag <- get bh
-                     ah <- get bh
-                     return (IfaceFunTy ag ah)
+            h <- getByte bh
+            case h of
+              0 -> do aa <- get bh
+                      ab <- get bh
+                      return (IfaceForAllTy aa ab)
+              1 -> do ad <- get bh
+                      return (IfaceTyVar ad)
+              2 -> do ae <- get bh
+                      af <- get bh
+                      return (IfaceAppTy ae af)
+              3 -> do ag <- get bh
+                      ah <- get bh
+                      return (IfaceFunTy ag ah)
               4 -> do { k <- get bh; return (IfaceTyConApp (IfaceAnyTc k) []) }
-             5 -> do { tc <- get bh; tys <- get bh; return (IfaceTyConApp (IfaceTc tc) tys) }
-             6 -> do { tc <- get bh; tys <- get bh; return (IfaceTyConApp tc tys) }
-             _ -> do { cc <- get bh; tys <- get bh; return (IfaceCoConApp cc tys) }
+              5 -> do { tc <- get bh; tys <- get bh; return (IfaceTyConApp (IfaceTc tc) tys) }
+              6 -> do { tc <- get bh; tys <- get bh; return (IfaceTyConApp tc tys) }
+              _ -> do { cc <- get bh; tys <- get bh; return (IfaceCoConApp cc tys) }
 
 instance Binary IfaceTyCon where
    put_ bh (IfaceTc ext)  = do { putByte bh 1; put_ bh ext }
    put_ bh (IfaceAnyTc k) = do { putByte bh 2; put_ bh k }
 
    get bh = do
-       h <- getByte bh
-       case h of
-         1 -> do { ext <- get bh; return (IfaceTc ext) }
-         _ -> do { k <- get bh; return (IfaceAnyTc k) }
+        h <- getByte bh
+        case h of
+          1 -> do { ext <- get bh; return (IfaceTc ext) }
+          _ -> do { k <- get bh; return (IfaceAnyTc k) }
 
 instance Binary IfaceCoCon where
    put_ bh (IfaceCoAx n)       = do { putByte bh 0; put_ bh n }
@@ -1056,105 +1049,105 @@ instance Binary IfaceCoCon where
    put_ bh (IfaceIPCoAx ip)    = do { putByte bh 7; put_ bh ip }
   
    get bh = do
-       h <- getByte bh
-       case h of
+        h <- getByte bh
+        case h of
           0 -> do { n <- get bh; return (IfaceCoAx n) }
-         1 -> return IfaceReflCo 
-         2 -> return IfaceUnsafeCo
-         3 -> return IfaceSymCo
-         4 -> return IfaceTransCo
-         5 -> return IfaceInstCo
+          1 -> return IfaceReflCo 
+          2 -> return IfaceUnsafeCo
+          3 -> return IfaceSymCo
+          4 -> return IfaceTransCo
+          5 -> return IfaceInstCo
           6 -> do { d <- get bh; return (IfaceNthCo d) }
           _ -> do { ip <- get bh; return (IfaceIPCoAx ip) }
 
 -------------------------------------------------------------------------
---             IfaceExpr and friends
+--              IfaceExpr and friends
 -------------------------------------------------------------------------
 
 instance Binary IfaceExpr where
     put_ bh (IfaceLcl aa) = do
-           putByte bh 0
-           put_ bh aa
+            putByte bh 0
+            put_ bh aa
     put_ bh (IfaceType ab) = do
-           putByte bh 1
-           put_ bh ab
+            putByte bh 1
+            put_ bh ab
     put_ bh (IfaceCo ab) = do
-           putByte bh 2
-           put_ bh ab
+            putByte bh 2
+            put_ bh ab
     put_ bh (IfaceTuple ac ad) = do
-           putByte bh 3
-           put_ bh ac
-           put_ bh ad
+            putByte bh 3
+            put_ bh ac
+            put_ bh ad
     put_ bh (IfaceLam ae af) = do
-           putByte bh 4
-           put_ bh ae
-           put_ bh af
+            putByte bh 4
+            put_ bh ae
+            put_ bh af
     put_ bh (IfaceApp ag ah) = do
-           putByte bh 5
-           put_ bh ag
-           put_ bh ah
+            putByte bh 5
+            put_ bh ag
+            put_ bh ah
     put_ bh (IfaceCase ai aj ak) = do
-           putByte bh 6
-           put_ bh ai
-           put_ bh aj
-           put_ bh ak
+            putByte bh 6
+            put_ bh ai
+            put_ bh aj
+            put_ bh ak
     put_ bh (IfaceLet al am) = do
-           putByte bh 7
-           put_ bh al
-           put_ bh am
+            putByte bh 7
+            put_ bh al
+            put_ bh am
     put_ bh (IfaceTick an ao) = do
-           putByte bh 8
-           put_ bh an
-           put_ bh ao
+            putByte bh 8
+            put_ bh an
+            put_ bh ao
     put_ bh (IfaceLit ap) = do
-           putByte bh 9
-           put_ bh ap
+            putByte bh 9
+            put_ bh ap
     put_ bh (IfaceFCall as at) = do
-           putByte bh 10
-           put_ bh as
-           put_ bh at
+            putByte bh 10
+            put_ bh as
+            put_ bh at
     put_ bh (IfaceExt aa) = do
-           putByte bh 11
-           put_ bh aa
+            putByte bh 11
+            put_ bh aa
     put_ bh (IfaceCast ie ico) = do
             putByte bh 12
             put_ bh ie
             put_ bh ico
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do aa <- get bh
-                     return (IfaceLcl aa)
-             1 -> do ab <- get bh
-                     return (IfaceType ab)
-             2 -> do ab <- get bh
-                     return (IfaceCo ab)
-             3 -> do ac <- get bh
-                     ad <- get bh
-                     return (IfaceTuple ac ad)
-             4 -> do ae <- get bh
-                     af <- get bh
-                     return (IfaceLam ae af)
-             5 -> do ag <- get bh
-                     ah <- get bh
-                     return (IfaceApp ag ah)
-             6 -> do ai <- get bh
-                     aj <- get bh
-                     ak <- get bh
-                     return (IfaceCase ai aj ak)
-             7 -> do al <- get bh
-                     am <- get bh
-                     return (IfaceLet al am)
-             8 -> do an <- get bh
-                     ao <- get bh
+            h <- getByte bh
+            case h of
+              0 -> do aa <- get bh
+                      return (IfaceLcl aa)
+              1 -> do ab <- get bh
+                      return (IfaceType ab)
+              2 -> do ab <- get bh
+                      return (IfaceCo ab)
+              3 -> do ac <- get bh
+                      ad <- get bh
+                      return (IfaceTuple ac ad)
+              4 -> do ae <- get bh
+                      af <- get bh
+                      return (IfaceLam ae af)
+              5 -> do ag <- get bh
+                      ah <- get bh
+                      return (IfaceApp ag ah)
+              6 -> do ai <- get bh
+                      aj <- get bh
+                      ak <- get bh
+                      return (IfaceCase ai aj ak)
+              7 -> do al <- get bh
+                      am <- get bh
+                      return (IfaceLet al am)
+              8 -> do an <- get bh
+                      ao <- get bh
                       return (IfaceTick an ao)
-             9 -> do ap <- get bh
-                     return (IfaceLit ap)
-             10 -> do as <- get bh
-                      at <- get bh
-                      return (IfaceFCall as at)
-             11 -> do aa <- get bh
-                      return (IfaceExt aa)
+              9 -> do ap <- get bh
+                      return (IfaceLit ap)
+              10 -> do as <- get bh
+                       at <- get bh
+                       return (IfaceFCall as at)
+              11 -> do aa <- get bh
+                       return (IfaceExt aa)
               12 -> do ie <- get bh
                        ico <- get bh
                        return (IfaceCast ie ico)
@@ -1162,141 +1155,141 @@ instance Binary IfaceExpr where
 
 instance Binary IfaceConAlt where
     put_ bh IfaceDefault = do
-           putByte bh 0
+            putByte bh 0
     put_ bh (IfaceDataAlt aa) = do
-           putByte bh 1
-           put_ bh aa
+            putByte bh 1
+            put_ bh aa
     put_ bh (IfaceLitAlt ac) = do
-           putByte bh 2
-           put_ bh ac
+            putByte bh 2
+            put_ bh ac
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do return IfaceDefault
-             1 -> do aa <- get bh
-                     return (IfaceDataAlt aa)
-             _ -> do ac <- get bh
-                     return (IfaceLitAlt ac)
+            h <- getByte bh
+            case h of
+              0 -> do return IfaceDefault
+              1 -> do aa <- get bh
+                      return (IfaceDataAlt aa)
+              _ -> do ac <- get bh
+                      return (IfaceLitAlt ac)
 
 instance Binary IfaceBinding where
     put_ bh (IfaceNonRec aa ab) = do
-           putByte bh 0
-           put_ bh aa
-           put_ bh ab
+            putByte bh 0
+            put_ bh aa
+            put_ bh ab
     put_ bh (IfaceRec ac) = do
-           putByte bh 1
-           put_ bh ac
+            putByte bh 1
+            put_ bh ac
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do aa <- get bh
-                     ab <- get bh
-                     return (IfaceNonRec aa ab)
-             _ -> do ac <- get bh
-                     return (IfaceRec ac)
+            h <- getByte bh
+            case h of
+              0 -> do aa <- get bh
+                      ab <- get bh
+                      return (IfaceNonRec aa ab)
+              _ -> do ac <- get bh
+                      return (IfaceRec ac)
 
 instance Binary IfaceIdDetails where
     put_ bh IfVanillaId      = putByte bh 0
     put_ bh (IfRecSelId a b) = do { putByte bh 1; put_ bh a; put_ bh b }
     put_ bh IfDFunId         = putByte bh 2
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> return IfVanillaId
-             1 -> do a <- get bh
-                     b <- get bh
-                     return (IfRecSelId a b)
+            h <- getByte bh
+            case h of
+              0 -> return IfVanillaId
+              1 -> do a <- get bh
+                      b <- get bh
+                      return (IfRecSelId a b)
               _ -> return IfDFunId
 
 instance Binary IfaceIdInfo where
     put_ bh NoInfo = putByte bh 0
     put_ bh (HasInfo i) = do
-           putByte bh 1
-           lazyPut bh i                        -- NB lazyPut
+            putByte bh 1
+            lazyPut bh i                        -- NB lazyPut
 
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> return NoInfo
-             _ -> do info <- lazyGet bh        -- NB lazyGet
-                     return (HasInfo info)
+            h <- getByte bh
+            case h of
+              0 -> return NoInfo
+              _ -> do info <- lazyGet bh        -- NB lazyGet
+                      return (HasInfo info)
 
 instance Binary IfaceInfoItem where
     put_ bh (HsArity aa) = do
-           putByte bh 0
-           put_ bh aa
+            putByte bh 0
+            put_ bh aa
     put_ bh (HsStrictness ab) = do
-           putByte bh 1
-           put_ bh ab
+            putByte bh 1
+            put_ bh ab
     put_ bh (HsUnfold lb ad) = do
-           putByte bh 2
-           put_ bh lb
-           put_ bh ad
+            putByte bh 2
+            put_ bh lb
+            put_ bh ad
     put_ bh (HsInline ad) = do
-           putByte bh 3
-           put_ bh ad
+            putByte bh 3
+            put_ bh ad
     put_ bh HsNoCafRefs = do
-           putByte bh 4
+            putByte bh 4
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do aa <- get bh
-                     return (HsArity aa)
-             1 -> do ab <- get bh
-                     return (HsStrictness ab)
-             2 -> do lb <- get bh
-                     ad <- get bh
+            h <- getByte bh
+            case h of
+              0 -> do aa <- get bh
+                      return (HsArity aa)
+              1 -> do ab <- get bh
+                      return (HsStrictness ab)
+              2 -> do lb <- get bh
+                      ad <- get bh
                       return (HsUnfold lb ad)
-             3 -> do ad <- get bh
-                     return (HsInline ad)
-             _ -> do return HsNoCafRefs
+              3 -> do ad <- get bh
+                      return (HsInline ad)
+              _ -> do return HsNoCafRefs
 
 instance Binary IfaceUnfolding where
     put_ bh (IfCoreUnfold s e) = do
-       putByte bh 0
-       put_ bh s
-       put_ bh e
+        putByte bh 0
+        put_ bh s
+        put_ bh e
     put_ bh (IfInlineRule a b c d) = do
-       putByte bh 1
-       put_ bh a
-       put_ bh b
-       put_ bh c
-       put_ bh d
+        putByte bh 1
+        put_ bh a
+        put_ bh b
+        put_ bh c
+        put_ bh d
     put_ bh (IfLclWrapper a n) = do
-       putByte bh 2
-       put_ bh a
-       put_ bh n
+        putByte bh 2
+        put_ bh a
+        put_ bh n
     put_ bh (IfExtWrapper a n) = do
-       putByte bh 3
-       put_ bh a
-       put_ bh n
+        putByte bh 3
+        put_ bh a
+        put_ bh n
     put_ bh (IfDFunUnfold as) = do
-       putByte bh 4
-       put_ bh as
+        putByte bh 4
+        put_ bh as
     put_ bh (IfCompulsory e) = do
-       putByte bh 5
-       put_ bh e
+        putByte bh 5
+        put_ bh e
     get bh = do
-       h <- getByte bh
-       case h of
-         0 -> do s <- get bh
-                 e <- get bh
-                 return (IfCoreUnfold s e)
-         1 -> do a <- get bh
-                 b <- get bh
-                 c <- get bh
-                 d <- get bh
-                 return (IfInlineRule a b c d)
-         2 -> do a <- get bh
-                 n <- get bh
-                 return (IfLclWrapper a n)
-         3 -> do a <- get bh
-                 n <- get bh
-                 return (IfExtWrapper a n)
-         4 -> do as <- get bh
-                 return (IfDFunUnfold as)
-         _ -> do e <- get bh
-                 return (IfCompulsory e)
+        h <- getByte bh
+        case h of
+          0 -> do s <- get bh
+                  e <- get bh
+                  return (IfCoreUnfold s e)
+          1 -> do a <- get bh
+                  b <- get bh
+                  c <- get bh
+                  d <- get bh
+                  return (IfInlineRule a b c d)
+          2 -> do a <- get bh
+                  n <- get bh
+                  return (IfLclWrapper a n)
+          3 -> do a <- get bh
+                  n <- get bh
+                  return (IfExtWrapper a n)
+          4 -> do as <- get bh
+                  return (IfDFunUnfold as)
+          _ -> do e <- get bh
+                  return (IfCompulsory e)
 
 instance Binary IfaceTickish where
     put_ bh (IfaceHpcTick m ix) = do
@@ -1322,7 +1315,7 @@ instance Binary IfaceTickish where
         _ -> panic ("get IfaceTickish " ++ show h)
 
 -------------------------------------------------------------------------
---             IfaceDecl and friends
+--              IfaceDecl and friends
 -------------------------------------------------------------------------
 
 -- A bit of magic going on here: there's no need to store the OccName
@@ -1333,100 +1326,100 @@ instance Binary IfaceTickish where
 
 instance Binary IfaceDecl where
     put_ bh (IfaceId name ty details idinfo) = do
-           putByte bh 0
-           put_ bh (occNameFS name)
-           put_ bh ty
-           put_ bh details
-           put_ bh idinfo
+            putByte bh 0
+            put_ bh (occNameFS name)
+            put_ bh ty
+            put_ bh details
+            put_ bh idinfo
     put_ _ (IfaceForeign _ _) = 
-       error "Binary.put_(IfaceDecl): IfaceForeign"
+        error "Binary.put_(IfaceDecl): IfaceForeign"
     put_ bh (IfaceData a1 a2 a3 a4 a5 a6 a7) = do
-           putByte bh 2
-           put_ bh (occNameFS a1)
-           put_ bh a2
-           put_ bh a3
-           put_ bh a4
-           put_ bh a5
-           put_ bh a6
-           put_ bh a7
+            putByte bh 2
+            put_ bh (occNameFS a1)
+            put_ bh a2
+            put_ bh a3
+            put_ bh a4
+            put_ bh a5
+            put_ bh a6
+            put_ bh a7
     put_ bh (IfaceSyn a1 a2 a3 a4 a5) = do
-           putByte bh 3
-           put_ bh (occNameFS a1)
-           put_ bh a2
-           put_ bh a3
-           put_ bh a4
-           put_ bh a5
+            putByte bh 3
+            put_ bh (occNameFS a1)
+            put_ bh a2
+            put_ bh a3
+            put_ bh a4
+            put_ bh a5
     put_ bh (IfaceClass a1 a2 a3 a4 a5 a6 a7) = do
-           putByte bh 4
-           put_ bh a1
-           put_ bh (occNameFS a2)
-           put_ bh a3
-           put_ bh a4
-           put_ bh a5
-           put_ bh a6
-           put_ bh a7
+            putByte bh 4
+            put_ bh a1
+            put_ bh (occNameFS a2)
+            put_ bh a3
+            put_ bh a4
+            put_ bh a5
+            put_ bh a6
+            put_ bh a7
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do name    <- get bh
-                     ty      <- get bh
-                     details <- get bh
-                     idinfo  <- get bh
+            h <- getByte bh
+            case h of
+              0 -> do name    <- get bh
+                      ty      <- get bh
+                      details <- get bh
+                      idinfo  <- get bh
                       occ <- return $! mkOccNameFS varName name
-                     return (IfaceId occ ty details idinfo)
-             1 -> error "Binary.get(TyClDecl): ForeignType"
-             2 -> do
-                   a1 <- get bh
-                   a2 <- get bh
-                   a3 <- get bh
-                   a4 <- get bh
-                   a5 <- get bh
-                   a6 <- get bh
-                   a7 <- get bh
+                      return (IfaceId occ ty details idinfo)
+              1 -> error "Binary.get(TyClDecl): ForeignType"
+              2 -> do
+                    a1 <- get bh
+                    a2 <- get bh
+                    a3 <- get bh
+                    a4 <- get bh
+                    a5 <- get bh
+                    a6 <- get bh
+                    a7 <- get bh
                     occ <- return $! mkOccNameFS tcName a1
-                   return (IfaceData occ a2 a3 a4 a5 a6 a7)
-             3 -> do
-                   a1 <- get bh
-                   a2 <- get bh
-                   a3 <- get bh
-                   a4 <- get bh
-                   a5 <- get bh
+                    return (IfaceData occ a2 a3 a4 a5 a6 a7)
+              3 -> do
+                    a1 <- get bh
+                    a2 <- get bh
+                    a3 <- get bh
+                    a4 <- get bh
+                    a5 <- get bh
                     occ <- return $! mkOccNameFS tcName a1
-                   return (IfaceSyn occ a2 a3 a4 a5)
-             _ -> do
-                   a1 <- get bh
-                   a2 <- get bh
-                   a3 <- get bh
-                   a4 <- get bh
-                   a5 <- get bh
-                   a6 <- get bh
-                   a7 <- get bh
+                    return (IfaceSyn occ a2 a3 a4 a5)
+              _ -> do
+                    a1 <- get bh
+                    a2 <- get bh
+                    a3 <- get bh
+                    a4 <- get bh
+                    a5 <- get bh
+                    a6 <- get bh
+                    a7 <- get bh
                     occ <- return $! mkOccNameFS clsName a2
-                   return (IfaceClass a1 occ a3 a4 a5 a6 a7)
+                    return (IfaceClass a1 occ a3 a4 a5 a6 a7)
 
 instance Binary IfaceInst where
     put_ bh (IfaceInst cls tys dfun flag orph) = do
-           put_ bh cls
-           put_ bh tys
-           put_ bh dfun
-           put_ bh flag
-           put_ bh orph
+            put_ bh cls
+            put_ bh tys
+            put_ bh dfun
+            put_ bh flag
+            put_ bh orph
     get bh = do cls  <- get bh
-               tys  <- get bh
-               dfun <- get bh
-               flag <- get bh
-               orph <- get bh
-               return (IfaceInst cls tys dfun flag orph)
+                tys  <- get bh
+                dfun <- get bh
+                flag <- get bh
+                orph <- get bh
+                return (IfaceInst cls tys dfun flag orph)
 
 instance Binary IfaceFamInst where
     put_ bh (IfaceFamInst fam tys tycon) = do
-           put_ bh fam
-           put_ bh tys
-           put_ bh tycon
+            put_ bh fam
+            put_ bh tys
+            put_ bh tycon
     get bh = do fam   <- get bh
-               tys   <- get bh
-               tycon <- get bh
-               return (IfaceFamInst fam tys tycon)
+                tys   <- get bh
+                tycon <- get bh
+                return (IfaceFamInst fam tys tycon)
 
 instance Binary OverlapFlag where
     put_ bh (NoOverlap  b) = putByte bh 0 >> put_ bh b
@@ -1434,52 +1427,52 @@ instance Binary OverlapFlag where
     put_ bh (Incoherent b) = putByte bh 2 >> put_ bh b
     get bh = do h <- getByte bh
                 b <- get bh
-               case h of
-                 0 -> return $ NoOverlap b
-                 1 -> return $ OverlapOk b
-                 2 -> return $ Incoherent b
-                 _ -> panic ("get OverlapFlag " ++ show h)
+                case h of
+                  0 -> return $ NoOverlap b
+                  1 -> return $ OverlapOk b
+                  2 -> return $ Incoherent b
+                  _ -> panic ("get OverlapFlag " ++ show h)
 
 instance Binary IfaceConDecls where
     put_ bh (IfAbstractTyCon d) = do { putByte bh 0; put_ bh d }
     put_ bh IfOpenDataTyCon = putByte bh 1
     put_ bh (IfDataTyCon cs) = do { putByte bh 2
-                                 ; put_ bh cs }
+                                  ; put_ bh cs }
     put_ bh (IfNewTyCon c)  = do { putByte bh 3
-                                 ; put_ bh c }
+                                  ; put_ bh c }
     get bh = do
-           h <- getByte bh
-           case h of
-             0 -> do { d <- get bh; return (IfAbstractTyCon d) }
-             1 -> return IfOpenDataTyCon
-             2 -> do cs <- get bh
-                     return (IfDataTyCon cs)
-             _ -> do aa <- get bh
-                     return (IfNewTyCon aa)
+            h <- getByte bh
+            case h of
+              0 -> do { d <- get bh; return (IfAbstractTyCon d) }
+              1 -> return IfOpenDataTyCon
+              2 -> do cs <- get bh
+                      return (IfDataTyCon cs)
+              _ -> do aa <- get bh
+                      return (IfNewTyCon aa)
 
 instance Binary IfaceConDecl where
     put_ bh (IfCon a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) = do
-           put_ bh a1
-           put_ bh a2
-           put_ bh a3
-           put_ bh a4
-           put_ bh a5
-           put_ bh a6
-           put_ bh a7
-           put_ bh a8
-           put_ bh a9
-           put_ bh a10
+            put_ bh a1
+            put_ bh a2
+            put_ bh a3
+            put_ bh a4
+            put_ bh a5
+            put_ bh a6
+            put_ bh a7
+            put_ bh a8
+            put_ bh a9
+            put_ bh a10
     get bh = do a1 <- get bh
-               a2 <- get bh
-               a3 <- get bh          
-               a4 <- get bh
-               a5 <- get bh
-               a6 <- get bh
-               a7 <- get bh
-               a8 <- get bh
-               a9 <- get bh
-               a10 <- get bh
-               return (IfCon a1 a2 a3 a4 a5 a6 a7 a8 a9 a10)
+                a2 <- get bh
+                a3 <- get bh          
+                a4 <- get bh
+                a5 <- get bh
+                a6 <- get bh
+                a7 <- get bh
+                a8 <- get bh
+                a9 <- get bh
+                a10 <- get bh
+                return (IfCon a1 a2 a3 a4 a5 a6 a7 a8 a9 a10)
 
 instance Binary IfaceAT where
     put_ bh (IfaceAT dec defs) = do
@@ -1497,37 +1490,37 @@ instance Binary IfaceATDefault where
     get bh = liftM3 IfaceATD (get bh) (get bh) (get bh)
 
 instance Binary IfaceClassOp where
-   put_ bh (IfaceClassOp n def ty) = do        
-       put_ bh (occNameFS n)
-       put_ bh def     
-       put_ bh ty
+   put_ bh (IfaceClassOp n def ty) = do 
+        put_ bh (occNameFS n)
+        put_ bh def     
+        put_ bh ty
    get bh = do
-       n <- get bh
-       def <- get bh
-       ty <- get bh
+        n <- get bh
+        def <- get bh
+        ty <- get bh
         occ <- return $! mkOccNameFS varName n
-       return (IfaceClassOp occ def ty)
+        return (IfaceClassOp occ def ty)
 
 instance Binary IfaceRule where
     put_ bh (IfaceRule a1 a2 a3 a4 a5 a6 a7 a8) = do
-           put_ bh a1
-           put_ bh a2
-           put_ bh a3
-           put_ bh a4
-           put_ bh a5
-           put_ bh a6
-           put_ bh a7
-           put_ bh a8
+            put_ bh a1
+            put_ bh a2
+            put_ bh a3
+            put_ bh a4
+            put_ bh a5
+            put_ bh a6
+            put_ bh a7
+            put_ bh a8
     get bh = do
-           a1 <- get bh
-           a2 <- get bh
-           a3 <- get bh
-           a4 <- get bh
-           a5 <- get bh
-           a6 <- get bh
-           a7 <- get bh
-           a8 <- get bh
-           return (IfaceRule a1 a2 a3 a4 a5 a6 a7 a8)
+            a1 <- get bh
+            a2 <- get bh
+            a3 <- get bh
+            a4 <- get bh
+            a5 <- get bh
+            a6 <- get bh
+            a7 <- get bh
+            a8 <- get bh
+            return (IfaceRule a1 a2 a3 a4 a5 a6 a7 a8)
 
 instance Binary IfaceAnnotation where
     put_ bh (IfaceAnnotation a1 a2) = do
@@ -1555,18 +1548,18 @@ instance Binary name => Binary (AnnTarget name) where
 
 instance Binary IfaceVectInfo where
     put_ bh (IfaceVectInfo a1 a2 a3 a4 a5) = do
-           put_ bh a1
-           put_ bh a2
-           put_ bh a3
-           put_ bh a4
-           put_ bh a5
+            put_ bh a1
+            put_ bh a2
+            put_ bh a3
+            put_ bh a4
+            put_ bh a5
     get bh = do
-           a1 <- get bh
-           a2 <- get bh
-           a3 <- get bh
-           a4 <- get bh
-           a5 <- get bh
-           return (IfaceVectInfo a1 a2 a3 a4 a5)
+            a1 <- get bh
+            a2 <- get bh
+            a3 <- get bh
+            a4 <- get bh
+            a5 <- get bh
+            return (IfaceVectInfo a1 a2 a3 a4 a5)
 
 instance Binary IfaceTrustInfo where
     put_ bh iftrust = putByte bh $ trustInfoToNum iftrust