diff options
Diffstat (limited to 'testsuite/tests/patsyn/should_fail/T14507.hs')
| -rw-r--r-- | testsuite/tests/patsyn/should_fail/T14507.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/patsyn/should_fail/T14507.hs b/testsuite/tests/patsyn/should_fail/T14507.hs index b36425ced6..9599b73c77 100644 --- a/testsuite/tests/patsyn/should_fail/T14507.hs +++ b/testsuite/tests/patsyn/should_fail/T14507.hs @@ -13,7 +13,7 @@ foo rep = error "urk" type family SING :: k -> Type where SING = (TypeRep :: Bool -> Type) -pattern RepN :: forall (a::kk). () => Bool~kk => SING a -> TypeRep (a::kk) +pattern RepN :: forall kk (a::kk). () => Bool~kk => SING a -> TypeRep (a::kk) pattern RepN tr <- (foo -> ( HRefl :: Bool:~~:kk , tr :: TypeRep (a::Bool))) |