diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-07-26 10:41:28 +0100 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-07-26 10:41:28 +0100 |
| commit | 9487305393307d5eb34069c5821c11bb98b5ec90 (patch) | |
| tree | 8f74599d5348eda8f552e1d6c2ccb475142a19af /compiler/main/Packages.lhs | |
| parent | 7f5c10864e7c26b90c7ff4ed09d00c8a09aa4349 (diff) | |
| download | haskell-9487305393307d5eb34069c5821c11bb98b5ec90.tar.gz | |
Fix build on OS X due to macro-like string in comment
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Diffstat (limited to 'compiler/main/Packages.lhs')
| -rw-r--r-- | compiler/main/Packages.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/Packages.lhs b/compiler/main/Packages.lhs index a6ecb1622b..c240956e4d 100644 --- a/compiler/main/Packages.lhs +++ b/compiler/main/Packages.lhs @@ -864,8 +864,8 @@ mkModuleMap pkg_db ipid_map = foldr extend_modmap emptyUFM pkgids pkgids = map packageConfigId (eltsUFM pkg_db) extend_modmap pkgid modmap = addListToUFM_C (plusUFM_C merge) modmap es - where -- ASSERT(m == m' && pkg == pkg' && e == e' - -- && (e || not (v || v'))) + where -- Invariant: m == m' && pkg == pkg' && e == e' + -- && (e || not (v || v')) -- Some notes about the assert. Merging only ever occurs when -- we find a reexport. The interesting condition: -- e || not (v || v') |