From 3a3acbf43d8b4dd25ebbd22ca159481d224486bb Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 16 Jul 2003 15:27:36 +0000
Subject: [PATCH] [project @ 2003-07-16 15:27:36 by sof]
 ppFilesFromSummaries.toPpFile: make it clear that file
 paths are being eq-tested here

---
 ghc/compiler/compMan/CompManager.lhs |   10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 84ff5ae..b0e13b9 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -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
-- 
1.7.10.4