[add support for ghc 6.12
John Meacham <john@repetae.net>**20100301003819
 Ignore-this: 528368518e97e273dc5859742c2ab9c7
] hunk ./configure.ac 1
-AC_INIT([jhc],[0.7.3])
+AC_INIT([jhc],[0.7.4])
hunk ./src/E/Eta.hs 123
-    f (rec,ts) = do
+    f (rg,ts) = do
hunk ./src/E/Eta.hs 125
-        if fs then f (rec,ts') else return ts'
+        if fs then f (rg,ts') else return ts'
hunk ./src/E/Inline.hs 135
-programSubProgram prog rec ds = progCombinators_s ds prog {  progType = SubProgram rec, progEntry = fromList (map combIdent ds) }
+programSubProgram prog rg ds = progCombinators_s ds prog {  progType = SubProgram rg, progEntry = fromList (map combIdent ds) }
hunk ./src/E/PrimOpt.hs 1
+{-# LANGUAGE RecursiveDo #-}
hunk ./src/FrontEnd/Exports.hs 1
-
+{-# LANGUAGE RecursiveDo #-}
hunk ./src/Ho/Binary.hs 1
+{-# LANGUAGE ImpredicativeTypes #-}
hunk ./src/Ho/Build.hs 1
+{-# LANGUAGE RecursiveDo #-}
hunk ./src/Main.hs 298
-        wdump FD.Progress $ let SubProgram rec = progType mprog in  progressIOSteps pr_r (if rec then "*" else ".")
+        wdump FD.Progress $ let SubProgram isRec = progType mprog in  progressIOSteps pr_r (if isRec then "*" else ".")
hunk ./src/Main.hs 364
-        liftIO $ wdump FD.Progress $ let SubProgram rec = progType mprog in  progressIOSteps pr_r (if wws > 0 then "w" else if rec then "*" else ".")
+        liftIO $ wdump FD.Progress $ let SubProgram isRec = progType mprog in  progressIOSteps pr_r (if wws > 0 then "w" else if isRec then "*" else ".")
hunk ./src/Util/Graph.hs 3
+{-# LANGUAGE RecursiveDo #-}
hunk ./src/Util/Inst.hs 1
+{-# OPTIONS_GHC -cpp #-}
+{-# LANGUAGE CPP #-}
hunk ./src/Util/Inst.hs 29
+#if __GLASGOW_HASKELL__ <= 610
hunk ./src/Util/Inst.hs 32
+#endif