summaryrefslogtreecommitdiff
path: root/testsuite/tests/patsyn/should_fail/T14507.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/patsyn/should_fail/T14507.hs')
-rw-r--r--testsuite/tests/patsyn/should_fail/T14507.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/testsuite/tests/patsyn/should_fail/T14507.hs b/testsuite/tests/patsyn/should_fail/T14507.hs
index 9599b73c77..6c8326733c 100644
--- a/testsuite/tests/patsyn/should_fail/T14507.hs
+++ b/testsuite/tests/patsyn/should_fail/T14507.hs
@@ -1,6 +1,7 @@
{-# Language PatternSynonyms, ViewPatterns, GADTs, ConstraintKinds, RankNTypes,
PolyKinds, ScopedTypeVariables, DataKinds, TypeOperators,
- TypeApplications, TypeFamilies, TypeFamilyDependencies #-}
+ TypeApplications, TypeFamilies, TypeFamilyDependencies,
+ StandaloneKindSignatures #-}
module T14507 where
@@ -10,7 +11,8 @@ import Data.Kind
foo :: TypeRep a -> (Bool :~~: k, TypeRep a)
foo rep = error "urk"
-type family SING :: k -> Type where
+type SING :: k -> Type
+type family SING where
SING = (TypeRep :: Bool -> Type)
pattern RepN :: forall kk (a::kk). () => Bool~kk => SING a -> TypeRep (a::kk)