diff options
Diffstat (limited to 'testsuite/tests/patsyn/should_fail/T14507.hs')
-rw-r--r-- | testsuite/tests/patsyn/should_fail/T14507.hs | 6 |
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) |