[removed use of RecordWildCards, which is buggy in ghc 6.8.
David Roundy <droundy@darcs.net>**20090909104653
 Ignore-this: a25acfe97b9d49f3d671e7de713398c42d480084
] hunk ./src/Ho/Binary.hs 1
-{-# OPTIONS_GHC -XRecordWildCards #-}
hunk ./src/Ho/Binary.hs 93
-recordHlFile Library { .. } = do
+recordHlFile l = do
hunk ./src/Ho/Binary.hs 96
-            (cff_jhdr, compress $ encode libHoHeader { hohVersion = current_version }),
-            (cff_libr, compress $ encode libHoLib),
-            (cff_ldef, compress $ encode libTcMap),
-            (cff_lcor, compress $ encode libBuildMap)]
-    let tfp = libFileName ++ ".tmp"
+            (cff_jhdr, compress $ encode (libHoHeader l) { hohVersion = current_version }),
+            (cff_libr, compress $ encode $ libHoLib l),
+            (cff_ldef, compress $ encode $ libTcMap l),
+            (cff_lcor, compress $ encode $ libBuildMap l)]
+    let tfp = libFileName l ++ ".tmp"
hunk ./src/Ho/Binary.hs 102
-    rename tfp libFileName
+    rename tfp $ libFileName l
hunk ./src/Ho/Build.hs 1
-{-# LANGUAGE RecordWildCards #-}
hunk ./src/Ho/Build.hs 325
-        g [((mg,Right lib@(Library { .. })),ds)] = do
-                let Just hob = Map.lookup mg libBuildMap
-                    Just hot = Map.lookup mg libTcMap
+        g [((mg,Right lib),ds)] = do
+                let Just hob = Map.lookup mg $ libBuildMap lib
+                    Just hot = Map.lookup mg $ libTcMap lib
hunk ./src/Ho/Build.hs 531
-                            SourceParsed { sourceInfo = SI { .. }, .. } -> return (sourceHash,sourceModule, error "SourceParsed in AnnotateSource")
-                            SourceRaw { sourceInfo = SI { .. }, .. } -> do
-                                (mod,lbs') <- parseHsSource sourceFP sourceLBS
+                            SourceParsed { sourceInfo = si, sourceModule = sm } ->
+                                return (sourceHash si, sm, error "SourceParsed in AnnotateSource")
+                            SourceRaw { sourceInfo = si, sourceLBS = lbs } -> do
+                                (mod,lbs') <- parseHsSource (sourceFP si) lbs
hunk ./src/Ho/Build.hs 539
-                                                "Module: " ++ show sourceModName, 
-                                                "Deps: " ++ show (sort sourceDeps), 
+                                                "Module: " ++ show (sourceModName si),
+                                                "Deps: " ++ show (sort $ sourceDeps si),
hunk ./src/Ho/Build.hs 545
-                                return (sourceHash,mod,lbs')
+                                return (sourceHash si,mod,lbs')
hunk ./src/Ho/Build.hs 820
-        Library { .. } <- readHlFile fn
-        doHoh libHoHeader
-        showList "MetaInfo" (sort [text (unpackPS k) <> char ':' <+> show v | (k,v) <- hoMetaInfo libHoLib])
-        showList "ModuleMap" (map pprint . sortUnder fst $ Map.toList $ hoModuleMap libHoLib)
-        showList "ModuleDeps" (map pprint . sortUnder fst $ Map.toList $ hoModuleDeps libHoLib)
-        showList "ModuleReexports" (map pprint . sortUnder fst $ Map.toList $ hoReexports libHoLib)
+        l <- readHlFile fn
+        doHoh $ libHoHeader l
+        showList "MetaInfo" (sort [text (unpackPS k) <> char ':' <+> show v |
+                                   (k,v) <- hoMetaInfo (libHoLib l)])
+        showList "ModuleMap" (map pprint . sortUnder fst $ Map.toList $ hoModuleMap $ libHoLib l)
+        showList "ModuleDeps" (map pprint . sortUnder fst $ Map.toList $ hoModuleDeps $ libHoLib l)
+        showList "ModuleReexports" (map pprint . sortUnder fst $ Map.toList $ hoReexports $ libHoLib l)