1 2 3 4 5 6 7
{-# LANGUAGE GADTs #-} -- Newtype in GADT syntax module ShouldFail where newtype Bug a where Bug :: a -> Maybe a