blob: 1a3bcc1d31a768f458fab243d5f3634e32ad2429 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{-# LANGUAGE GADTs #-}
module T3950 where
-- Id :: (* -> * -> *) -> * -> * -> *
data Id p x y = Id (p x y)
-- Sealed :: (* -> *) -> *
data Sealed p where
Sealed :: p x -> Sealed p
-- w :: (* -> * -> *) -> *
-- Id p :: * -> * -> *
rp :: Bool -> Maybe (w (Id p))
rp _ = Just rp'
where rp' :: Sealed (Id p x)
rp' = undefined
|
