[make IOErrorCont a data type rather than a synonym
John Meacham <john@repetae.net>**20060313132108] hunk ./E/E.hs 334
-tCont = ltTuple [ELit $ LitCons tc_JumpPoint [] eStar, ELit $ LitCons tc_IOError [] eStar]
+tCont = ELit (LitCons tc_IOErrorCont [] eStar)
hunk ./Name/Names.hs 75
---tc_IOCont = toName TypeConstructor ("Jhc.JumpPoint","IOCont")
+tc_IOErrorCont = toName TypeConstructor ("Jhc.IO","IOErrorCont")
hunk ./lib/base/Jhc/IO.hs 5
+    IOErrorCont(),
hunk ./lib/base/Jhc/IO.hs 26
-type IOErrorCont = (JumpPoint,Hole IOError)
+data IOErrorCont = IOErrorCont JumpPoint (Hole IOError)
hunk ./lib/base/Jhc/IO.hs 78
-getJumpPoint :: IO (JumpPoint,Hole IOError)
-getJumpPoint = IO $ \ jh w -> JustIO w jh
+getJumpPoint :: IO IOErrorCont
+getJumpPoint = IO $ \ ioe w -> JustIO w ioe
hunk ./lib/base/Jhc/IO.hs 83
-    (jp,he) <- getJumpPoint
+    IOErrorCont jp he <- getJumpPoint
hunk ./lib/base/Jhc/IO.hs 93
-        False -> IO $ \_ w -> x (jp,hole) w
+        False -> IO $ \_ w -> x (IOErrorCont jp hole) w