diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-08-26 21:39:12 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-08-26 21:39:12 +0100 |
| commit | 8167ff3ccbeb32866ec32e2f0cde15238c5d2fb6 (patch) | |
| tree | d5c7357d6b6aa637e511e0b2beabc5692cd09f22 /testsuite/tests | |
| parent | f7c13b676a4bd69f250e63a34409bcba2df9c366 (diff) | |
| download | haskell-8167ff3ccbeb32866ec32e2f0cde15238c5d2fb6.tar.gz | |
Follow ghc-prim changes
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/ghci/scripts/ghci011.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T3772.stdout | 4 | ||||
| -rw-r--r-- | testsuite/tests/th/T3319.stderr | 2 | ||||
| -rw-r--r-- | testsuite/tests/th/T5362.stderr | 4 | ||||
| -rw-r--r-- | testsuite/tests/th/TH_foreignInterruptible.stderr | 2 |
5 files changed, 7 insertions, 7 deletions
diff --git a/testsuite/tests/ghci/scripts/ghci011.stdout b/testsuite/tests/ghci/scripts/ghci011.stdout index 840bb18a4d..40666e0419 100644 --- a/testsuite/tests/ghci/scripts/ghci011.stdout +++ b/testsuite/tests/ghci/scripts/ghci011.stdout @@ -5,7 +5,7 @@ instance Functor [] -- Defined in GHC.Base instance Ord a => Ord [a] -- Defined in GHC.Classes
instance Read a => Read [a] -- Defined in GHC.Read
instance Show a => Show [a] -- Defined in GHC.Show
-data () = () -- Defined in GHC.Unit
+data () = () -- Defined in GHC.Tuple
instance Bounded () -- Defined in GHC.Enum
instance Enum () -- Defined in GHC.Enum
instance Eq () -- Defined in GHC.Classes
diff --git a/testsuite/tests/simplCore/should_compile/T3772.stdout b/testsuite/tests/simplCore/should_compile/T3772.stdout index 343bfa36a6..eee8ce61a9 100644 --- a/testsuite/tests/simplCore/should_compile/T3772.stdout +++ b/testsuite/tests/simplCore/should_compile/T3772.stdout @@ -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.() } } diff --git a/testsuite/tests/th/T3319.stderr b/testsuite/tests/th/T3319.stderr index 7947ce0ef1..00b123d289 100644 --- a/testsuite/tests/th/T3319.stderr +++ b/testsuite/tests/th/T3319.stderr @@ -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.() diff --git a/testsuite/tests/th/T5362.stderr b/testsuite/tests/th/T5362.stderr index 0c8c9bfbc5..1979cc0757 100644 --- a/testsuite/tests/th/T5362.stderr +++ b/testsuite/tests/th/T5362.stderr @@ -1,4 +1,4 @@ -f_0 :: GHC.Unit.()
+f_0 :: GHC.Tuple.()
f_0 = GHC.Err.undefined g_1
-g_1 :: GHC.Unit.()
+g_1 :: GHC.Tuple.()
g_1 = GHC.Err.undefined
diff --git a/testsuite/tests/th/TH_foreignInterruptible.stderr b/testsuite/tests/th/TH_foreignInterruptible.stderr index b9aab05755..39112c150b 100644 --- a/testsuite/tests/th/TH_foreignInterruptible.stderr +++ b/testsuite/tests/th/TH_foreignInterruptible.stderr @@ -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.() |