1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00
semantic/test/fixtures/haskell/corpus/gadt-declarations.B.hs
2018-06-06 17:03:27 -07:00

16 lines
460 B
Haskell

data Bar a b c where
Baz :: a -> b -> c -> Bar a b c
data Bar f a where
Baz :: { jolo :: Maybe String, runJolo :: f a } -> Bar f a
data Bar a :: [*] -> [*] where
data Number' a where
Integer' :: !Prelude.Integer -> Number Prelude.Integer
Ratio' :: !Prelude.Rational -> Number Prelude.Rational
Decimal' :: !Scientific -> Number Scientific
data Union (r :: [ * -> * ]) (v :: *) where
Union :: {-# UNPACK #-} !Integer -> t v -> Union r v