Follow ghc-prim changes
authorIan Lynagh <igloo@earth.li>
Fri, 26 Aug 2011 20:39:12 +0000 (21:39 +0100)
committerIan Lynagh <igloo@earth.li>
Fri, 26 Aug 2011 20:39:12 +0000 (21:39 +0100)
testsuite/tests/ghci/scripts/ghci011.stdout
testsuite/tests/simplCore/should_compile/T3772.stdout
testsuite/tests/th/T3319.stderr
testsuite/tests/th/T5362.stderr
testsuite/tests/th/TH_foreignInterruptible.stderr

index 840bb18..40666e0 100644 (file)
@@ -5,7 +5,7 @@ instance Functor [] -- Defined in GHC.Base
 instance Ord a => Ord [a] -- Defined in GHC.Classes\r
 instance Read a => Read [a] -- Defined in GHC.Read\r
 instance Show a => Show [a] -- Defined in GHC.Show\r
-data () = ()   -- Defined in GHC.Unit\r
+data () = ()   -- Defined in GHC.Tuple\r
 instance Bounded () -- Defined in GHC.Enum\r
 instance Enum () -- Defined in GHC.Enum\r
 instance Eq () -- Defined in GHC.Classes\r
index 343bfa3..eee8ce6 100644 (file)
@@ -9,7 +9,7 @@ xs =
   \ (m :: GHC.Prim.Int#) ->
     case GHC.Prim.<=# m 1 of _ {
       GHC.Types.False -> xs (GHC.Prim.-# m 1);
-      GHC.Types.True -> GHC.Unit.()
+      GHC.Types.True -> GHC.Tuple.()
     }
 end Rec }
 
@@ -20,7 +20,7 @@ T3772.foo =
     case n of _ { GHC.Types.I# n# ->
     case GHC.Prim.<=# n# 0 of _ {
       GHC.Types.False -> xs n#;
-      GHC.Types.True -> GHC.Unit.()
+      GHC.Types.True -> GHC.Tuple.()
     }
     }
 
index 7947ce0..00b123d 100644 (file)
@@ -5,4 +5,4 @@ T3319.hs:1:1: Splicing declarations
             CCall Unsafe "&" (mkName "foo") (AppT (ConT 'Ptr) (ConT '())))]
   ======>
     T3319.hs:8:3-93
-    foreign import ccall unsafe "static &foo" foo :: Ptr GHC.Unit.()
+    foreign import ccall unsafe "static &foo" foo :: Ptr GHC.Tuple.()
index 0c8c9bf..1979cc0 100644 (file)
@@ -1,4 +1,4 @@
-f_0 :: GHC.Unit.()\r
+f_0 :: GHC.Tuple.()\r
 f_0 = GHC.Err.undefined g_1\r
-g_1 :: GHC.Unit.()\r
+g_1 :: GHC.Tuple.()\r
 g_1 = GHC.Err.undefined\r
index b9aab05..39112c1 100644 (file)
@@ -10,4 +10,4 @@ TH_foreignInterruptible.hs:1:1: Splicing declarations
   ======>
     TH_foreignInterruptible.hs:8:3-100
     foreign import ccall interruptible "static &foo" foo
-      :: Ptr GHC.Unit.()
+      :: Ptr GHC.Tuple.()