Support wild cards in TH splices
[ghc.git] / testsuite / tests / partial-sigs / should_fail / ExtraConstraintsWildcardInPatternSplice.hs
1 {-# LANGUAGE TemplateHaskell #-}
2 {-# LANGUAGE ScopedTypeVariables #-}
3 module ExtraConstraintsWildcardInPatternSplice where
4
5 foo $( [p| (x :: _) |] ) = x