Commit 55de3961 authored by Edward Z. Yang's avatar Edward Z. Yang
Browse files

Fix accidentally inverted 'hiding' test.



Also fix a wibble in GHC's output in this case.
Signed-off-by: default avatarEdward Z. Yang <ezyang@cs.stanford.edu>
parent 1d1caa5a
......@@ -443,7 +443,7 @@ convertInclude ((uid, ModuleShape provs reqs), pid, incl@(IncludeRenaming prov_r
let hides_set = Set.fromList hides
in let r = [ (k,v)
| (k,v) <- Map.toList provs
, k `Set.member` hides_set ]
, not (k `Set.member` hides_set) ]
-- GHC doesn't understand hiding, so expand it out!
in return (r, ModuleRenaming (map ((\x -> (x,x)).fst) r))
ModuleRenaming rns -> do
......
......@@ -731,7 +731,7 @@ tests config = do
cabal "configure" []
r <- shouldFail $ cabal' "build" []
assertOutputContains "Foobar" r
assertOutputContains "Failed to load" r
assertOutputContains "Could not find" r
return ()
tc "Backpack/Reexport1" . whenGhcVersion (>= mkVersion [8,1]) $ do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment