2018-06-05 22:26:42 +03:00
|
|
|
data Bar a b c where
|
2018-06-06 02:01:56 +03:00
|
|
|
Baz :: a -> b -> c -> Bar a b c
|
2018-06-07 00:42:25 +03:00
|
|
|
|
|
|
|
data Bar f a where
|
|
|
|
Baz :: { jolo :: Maybe String, runJolo :: f a } -> Bar f a
|
2018-06-07 01:41:57 +03:00
|
|
|
|
|
|
|
data Bar a :: [*] -> [*] where
|