Repository : ssh://[email protected]/testsuite On branch : master Link : http://ghc.haskell.org/trac/ghc/changeset/2a6dbea4b3ecf399ade083ecfc2bb6a0f69d4a2c/testsuite
>--------------------------------------------------------------- commit 2a6dbea4b3ecf399ade083ecfc2bb6a0f69d4a2c Author: Simon Peyton Jones <[email protected]> Date: Mon Sep 2 11:15:21 2013 +0100 Test Trac #8196 >--------------------------------------------------------------- 2a6dbea4b3ecf399ade083ecfc2bb6a0f69d4a2c tests/simplCore/should_compile/T8196.hs | 8 ++++++++ tests/simplCore/should_compile/all.T | 1 + 2 files changed, 9 insertions(+) diff --git a/tests/simplCore/should_compile/T8196.hs b/tests/simplCore/should_compile/T8196.hs new file mode 100644 index 0000000..1dd4ea9 --- /dev/null +++ b/tests/simplCore/should_compile/T8196.hs @@ -0,0 +1,8 @@ +{-# LANGUAGE PolyKinds #-} +{-# OPTIONS_GHC -dcore-lint -O #-} +module T8196 where + +data T a b = MkT (a b) + deriving Show + +foo = print (MkT (Just True)) diff --git a/tests/simplCore/should_compile/all.T b/tests/simplCore/should_compile/all.T index 2297aec..9431dc3 100644 --- a/tests/simplCore/should_compile/all.T +++ b/tests/simplCore/should_compile/all.T @@ -186,3 +186,4 @@ test('T7995', run_command, ['$MAKE -s --no-print-directory T7995']) +test('T8196', normal, compile, ['']) _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
