1 2 3 4 5
{-# LANGUAGE RankNTypes, PartialTypeSignatures, NamedWildCards #-} module NestedNamedExtraConstraintsWildcard where foo :: Bool -> (Eq a, _a) => a foo = undefined