Commit e0413f00 authored by ian@well-typed.com's avatar ian@well-typed.com

Add a couple of tests for #7627

parent e43b7eb4
:set -XUnboxedTuples
:i ()
:i (##)
:t ()
:t (##)
:t ( )
:t (# #)
:i (,)
:i (#,#)
:t (,)
:t (#,#)
:t ( , )
:t (# , #)
data () = () -- Defined in ‛GHC.Tuple’
instance Bounded () -- Defined in ‛GHC.Enum’
instance Enum () -- Defined in ‛GHC.Enum’
instance Eq () -- Defined in ‛GHC.Classes’
instance Ord () -- Defined in ‛GHC.Classes’
instance Read () -- Defined in ‛GHC.Read’
instance Show () -- Defined in ‛GHC.Show’
data (##) = (##) -- Defined in ‛GHC.Prim’
() :: ()
(##) :: (# #)
( ) :: ()
(# #) :: (# #)
data (,) a b = (,) a b -- Defined in ‛GHC.Tuple’
instance (Bounded a, Bounded b) => Bounded (a, b)
-- Defined in ‛GHC.Enum’
instance (Eq a, Eq b) => Eq (a, b) -- Defined in ‛GHC.Classes’
instance Functor ((,) a) -- Defined in ‛GHC.Base’
instance (Ord a, Ord b) => Ord (a, b) -- Defined in ‛GHC.Classes’
instance (Read a, Read b) => Read (a, b) -- Defined in ‛GHC.Read’
instance (Show a, Show b) => Show (a, b) -- Defined in ‛GHC.Show’
data (#,#) a b = (#,#) a b -- Defined in ‛GHC.Prim’
(,) :: a -> b -> (a, b)
(#,#) :: a -> b -> (# a, b #)
( , ) :: a -> b -> (a, b)
(# , #) :: a -> b -> (# a, b #)
:set -XUnboxedTuples
:i ( )
:i (# #)
:i ( , )
:i (# , #)
<interactive>:1:2:
parse error (possibly incorrect indentation or mismatched brackets)
<interactive>:1:3:
parse error (possibly incorrect indentation or mismatched brackets)
<interactive>:1:2:
parse error (possibly incorrect indentation or mismatched brackets)
<interactive>:1:3:
parse error (possibly incorrect indentation or mismatched brackets)
......@@ -142,4 +142,6 @@ test('ghci058',
['ghci058.script'])
test('T7587', normal, ghci_script, ['T7587.script'])
test('T7688', normal, ghci_script, ['T7688.script'])
test('T7627', normal, ghci_script, ['T7627.script'])
test('T7627b', normal, ghci_script, ['T7627b.script'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment