path: root/testsuite/tests/partial-sigs/should_fail/InstantiatedNamedWildcardsInConstraints.hs

{-# LANGUAGE NamedWildcards #-}
module InstantiatedNamedWildcardsInConstraints where

foo :: (Enum _a, _) => _a -> (String, b)
foo x = (show (succ x), x)