summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghci/scripts/T9181.stdout
blob: d4e869f07309c913291b7101411ace92c24ff6c0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
type GHC.TypeLits.AppendSymbol :: GHC.Types.Symbol
                                  -> GHC.Types.Symbol -> GHC.Types.Symbol
type family GHC.TypeLits.AppendSymbol a b
type GHC.TypeLits.CmpChar :: Char -> Char -> Ordering
type family GHC.TypeLits.CmpChar a b
type GHC.TypeLits.CmpSymbol :: GHC.Types.Symbol
                               -> GHC.Types.Symbol -> Ordering
type family GHC.TypeLits.CmpSymbol a b
type GHC.TypeLits.ConsSymbol :: Char
                                -> GHC.Types.Symbol -> GHC.Types.Symbol
type family GHC.TypeLits.ConsSymbol a b
type GHC.TypeLits.ErrorMessage :: *
data GHC.TypeLits.ErrorMessage
  = GHC.TypeLits.Text GHC.Types.Symbol
  | forall t. GHC.TypeLits.ShowType t
  | GHC.TypeLits.ErrorMessage
    GHC.TypeLits.:<>:
    GHC.TypeLits.ErrorMessage
  | GHC.TypeLits.ErrorMessage
    GHC.TypeLits.:$$:
    GHC.TypeLits.ErrorMessage
type GHC.TypeLits.KnownChar :: Char -> Constraint
class GHC.TypeLits.KnownChar n where
  GHC.TypeLits.charSing :: GHC.TypeLits.SChar n
  {-# MINIMAL charSing #-}
type GHC.TypeLits.KnownSymbol :: GHC.Types.Symbol -> Constraint
class GHC.TypeLits.KnownSymbol n where
  GHC.TypeLits.symbolSing :: GHC.TypeLits.SSymbol n
  {-# MINIMAL symbolSing #-}
type GHC.TypeLits.SomeChar :: *
data GHC.TypeLits.SomeChar
  = forall (n :: Char).
    GHC.TypeLits.KnownChar n =>
    GHC.TypeLits.SomeChar (Data.Proxy.Proxy n)
type GHC.TypeLits.SomeSymbol :: *
data GHC.TypeLits.SomeSymbol
  = forall (n :: GHC.Types.Symbol).
    GHC.TypeLits.KnownSymbol n =>
    GHC.TypeLits.SomeSymbol (Data.Proxy.Proxy n)
type GHC.TypeLits.TypeError :: forall b.
                               GHC.TypeLits.ErrorMessage -> b
type family GHC.TypeLits.TypeError a where
type GHC.TypeLits.UnconsSymbol :: GHC.Types.Symbol
                                  -> Maybe (Char, GHC.Types.Symbol)
type family GHC.TypeLits.UnconsSymbol a
GHC.TypeLits.charVal :: GHC.TypeLits.KnownChar n => proxy n -> Char
GHC.TypeLits.charVal' ::
  GHC.TypeLits.KnownChar n => GHC.Prim.Proxy# n -> Char
GHC.TypeLits.natVal ::
  GHC.TypeNats.KnownNat n => proxy n -> Integer
GHC.TypeLits.natVal' ::
  GHC.TypeNats.KnownNat n => GHC.Prim.Proxy# n -> Integer
GHC.TypeLits.sameChar ::
  (GHC.TypeLits.KnownChar a, GHC.TypeLits.KnownChar b) =>
  proxy1 a -> proxy2 b -> Maybe (a Data.Type.Equality.:~: b)
GHC.TypeLits.sameSymbol ::
  (GHC.TypeLits.KnownSymbol a, GHC.TypeLits.KnownSymbol b) =>
  proxy1 a -> proxy2 b -> Maybe (a Data.Type.Equality.:~: b)
GHC.TypeLits.someCharVal :: Char -> GHC.TypeLits.SomeChar
GHC.TypeLits.someNatVal :: Integer -> Maybe GHC.TypeNats.SomeNat
GHC.TypeLits.someSymbolVal :: String -> GHC.TypeLits.SomeSymbol
GHC.TypeLits.symbolVal ::
  GHC.TypeLits.KnownSymbol n => proxy n -> String
GHC.TypeLits.symbolVal' ::
  GHC.TypeLits.KnownSymbol n => GHC.Prim.Proxy# n -> String
type (GHC.TypeNats.*) :: GHC.Num.Natural.Natural
                         -> GHC.Num.Natural.Natural -> GHC.Num.Natural.Natural
type family (GHC.TypeNats.*) a b
type (GHC.TypeNats.+) :: GHC.Num.Natural.Natural
                         -> GHC.Num.Natural.Natural -> GHC.Num.Natural.Natural
type family (GHC.TypeNats.+) a b
type (GHC.TypeNats.-) :: GHC.Num.Natural.Natural
                         -> GHC.Num.Natural.Natural -> GHC.Num.Natural.Natural
type family (GHC.TypeNats.-) a b
type (GHC.TypeNats.<=) :: GHC.Num.Natural.Natural
                          -> GHC.Num.Natural.Natural -> Constraint
type (GHC.TypeNats.<=) x y =
  (x GHC.TypeNats.<=? y) ~ 'True :: Constraint
type (GHC.TypeNats.<=?) :: GHC.Num.Natural.Natural
                           -> GHC.Num.Natural.Natural -> Bool
type family (GHC.TypeNats.<=?) a b
type GHC.TypeNats.CmpNat :: GHC.Num.Natural.Natural
                            -> GHC.Num.Natural.Natural -> Ordering
type family GHC.TypeNats.CmpNat a b
type GHC.TypeNats.Div :: GHC.Num.Natural.Natural
                         -> GHC.Num.Natural.Natural -> GHC.Num.Natural.Natural
type family GHC.TypeNats.Div a b
type GHC.TypeNats.KnownNat :: GHC.TypeNats.Nat -> Constraint
class GHC.TypeNats.KnownNat n where
  GHC.TypeNats.natSing :: GHC.TypeNats.SNat n
  {-# MINIMAL natSing #-}
type GHC.TypeNats.Log2 :: GHC.Num.Natural.Natural
                          -> GHC.Num.Natural.Natural
type family GHC.TypeNats.Log2 a
type GHC.TypeNats.Mod :: GHC.Num.Natural.Natural
                         -> GHC.Num.Natural.Natural -> GHC.Num.Natural.Natural
type family GHC.TypeNats.Mod a b
type GHC.TypeNats.Nat :: *
type GHC.TypeNats.Nat = GHC.Num.Natural.Natural
type GHC.Num.Natural.Natural :: *
data GHC.Num.Natural.Natural
  = GHC.Num.Natural.NS GHC.Prim.Word#
  | GHC.Num.Natural.NB GHC.Prim.ByteArray#
type GHC.TypeNats.SomeNat :: *
data GHC.TypeNats.SomeNat
  = forall (n :: GHC.TypeNats.Nat).
    GHC.TypeNats.KnownNat n =>
    GHC.TypeNats.SomeNat (Data.Proxy.Proxy n)
type GHC.Types.Symbol :: *
data GHC.Types.Symbol
type (GHC.TypeNats.^) :: GHC.Num.Natural.Natural
                         -> GHC.Num.Natural.Natural -> GHC.Num.Natural.Natural
type family (GHC.TypeNats.^) a b
GHC.TypeNats.sameNat ::
  (GHC.TypeNats.KnownNat a, GHC.TypeNats.KnownNat b) =>
  proxy1 a -> proxy2 b -> Maybe (a Data.Type.Equality.:~: b)