1 2 3 4 5 6 7
{-# OPTIONS_GHC -Wno-gadt-mono-local-binds #-} module T10997 where import T10997a foo :: Exp a -> String foo Tru = "True"