From 1829d265662ca8d052df3e5df1aa1137b19e39ce Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Thu, 4 May 2017 14:15:43 -0400 Subject: Implement sequential name lookup properly Previously we would run all the monadic actions and then combine their results. This caused problems if later actions raised errors but earlier lookups suceeded. We only want to run later lookups if the earlier ones fail. Fixes #13622 Reviewers: RyanGlScott, austin, bgamari, simonpj Reviewed By: simonpj Subscribers: simonpj, rwbarton, thomie GHC Trac Issues: #13622 Differential Revision: https://phabricator.haskell.org/D3515 --- testsuite/tests/module/T13622.hs | 5 +++++ testsuite/tests/module/all.T | 1 + 2 files changed, 6 insertions(+) create mode 100644 testsuite/tests/module/T13622.hs (limited to 'testsuite/tests/module') diff --git a/testsuite/tests/module/T13622.hs b/testsuite/tests/module/T13622.hs new file mode 100644 index 0000000000..037283ee57 --- /dev/null +++ b/testsuite/tests/module/T13622.hs @@ -0,0 +1,5 @@ +module Bug (Bits(Bits)) where + +import qualified Data.Bits as Bits + +newtype Bits = Bits Int diff --git a/testsuite/tests/module/all.T b/testsuite/tests/module/all.T index 6d05c77a9e..5404f19e4a 100644 --- a/testsuite/tests/module/all.T +++ b/testsuite/tests/module/all.T @@ -283,4 +283,5 @@ test('T11970A', [], multimod_compile, ['T11970A','-Wunused-imports']) test('T11970B', normal, compile_fail, ['']) test('MultiExport', normal, compile, ['']) test('T13528', normal, compile, ['']) +test('T13622', normal, compile, ['']) -- cgit v1.2.1