module NewTypeBug where newtype T a = T a deriving Show