Commit 3a3acbf4 authored by sof's avatar sof
Browse files

[project @ 2003-07-16 15:27:36 by sof]

ppFilesFromSummaries.toPpFile: make it clear that file paths are being eq-tested here
parent daa4b9df
......@@ -711,12 +711,16 @@ ppFilesFromSummaries summaries
= [ fn | Just fn <- map toPpFile summaries ]
where
toPpFile sum
| hspp /= ml_hs_file loc = hspp
| otherwise = Nothing
| not (isSameFilePath hspp hs) = hspp
| otherwise = Nothing
where
loc = ms_location sum
hspp = ml_hspp_file loc
hs = ml_hs_file loc
-- better make extra sure 'a' and 'b' are in canonical form
-- before using this equality test.
isSameFilePath a b = a == b
-----------------------------------------------------------------------------
-- getValidLinkables
......
Supports Markdown
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