diff options
author | Bartosz Nitka <niteria@gmail.com> | 2016-02-15 09:36:17 -0800 |
---|---|---|
committer | Bartosz Nitka <niteria@gmail.com> | 2016-02-15 11:03:41 -0800 |
commit | 426a25c719f74054758eaaf15daf5760f8d068fb (patch) | |
tree | e7313bf6b46f4496a10f88446283cf4389c93506 | |
parent | 023742e444a415001d86d50a6ec331fe71d50426 (diff) | |
download | haskell-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.hs | 3 | ||||
-rw-r--r-- | testsuite/tests/indexed-types/should_compile/all.T | 3 |
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, ['']) |