summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBartosz Nitka <niteria@gmail.com>2016-02-15 09:36:17 -0800
committerBartosz Nitka <niteria@gmail.com>2016-02-15 11:03:41 -0800
commit426a25c719f74054758eaaf15daf5760f8d068fb (patch)
treee7313bf6b46f4496a10f88446283cf4389c93506
parent023742e444a415001d86d50a6ec331fe71d50426 (diff)
downloadhaskell-426a25c719f74054758eaaf15daf5760f8d068fb.tar.gz
Make T11361 actually run with reversed uniques
`-dunique-increment` doesn't work inside the file. Test Plan: I've discovered it doesn't work in D1917. Reviewers: simonpj, bgamari, austin Subscribers: thomie, simonmar Differential Revision: https://phabricator.haskell.org/D1918 GHC Trac Issues: #11361
-rw-r--r--testsuite/tests/indexed-types/should_compile/T11361.hs3
-rw-r--r--testsuite/tests/indexed-types/should_compile/all.T3
2 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/indexed-types/should_compile/T11361.hs b/testsuite/tests/indexed-types/should_compile/T11361.hs
index 61b412a343..7da0062652 100644
--- a/testsuite/tests/indexed-types/should_compile/T11361.hs
+++ b/testsuite/tests/indexed-types/should_compile/T11361.hs
@@ -1,8 +1,7 @@
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}
-- this is needed because |FamHelper a x| /< |Fam a x|
-{-# OPTIONS_GHC -dinitial-unique=16777000 -dunique-increment=-1 #-}
- -- This is what made GHC crash before
+ -- This file compiled with -dunique-increment=-1 made GHC crash before
module T11361 where
diff --git a/testsuite/tests/indexed-types/should_compile/all.T b/testsuite/tests/indexed-types/should_compile/all.T
index 9fece9c1c4..e97acbf7b8 100644
--- a/testsuite/tests/indexed-types/should_compile/all.T
+++ b/testsuite/tests/indexed-types/should_compile/all.T
@@ -271,5 +271,6 @@ test('T10318', normal, compile, [''])
test('UnusedTyVarWarnings', normal, compile, ['-Wunused-type-patterns'])
test('UnusedTyVarWarningsNamedWCs', normal, compile, ['-Wunused-type-patterns'])
test('T11408', normal, compile, [''])
-test('T11361', normal, compile, [''])
+test('T11361', normal, compile, ['-dunique-increment=-1'])
+ # -dunique-increment=-1 doesn't work inside the file
test('T11361a', normal, compile_fail, [''])