1 2 3 4 5 6
{-# LANGUAGE DataKinds, GADTs #-} module T6025a (Other (..)) where data Other a where OTrue :: Other True OFalse :: Other False