diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T20200b.hs')
-rw-r--r-- | testsuite/tests/simplCore/should_compile/T20200b.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T20200b.hs b/testsuite/tests/simplCore/should_compile/T20200b.hs new file mode 100644 index 0000000000..8826e66db5 --- /dev/null +++ b/testsuite/tests/simplCore/should_compile/T20200b.hs @@ -0,0 +1,11 @@ +{-# LANGUAGE GADTs #-} +{-# LANGUAGE DataKinds #-} +module T20200b where + +import Data.Kind + +xrecTuple :: Rec [Bool, Char] -> (Bool, Char) +xrecTuple (a :& (b :& _)) = (a, b) + +data Rec :: [Type] -> Type where + (:&) :: r -> !(Rec rs) -> Rec (r ': rs) |