[project @ 2002-08-28 09:24:15 by simonmar]

[ghc-hetmet.git] / ghc / compiler / compMan / CompManager.lhs

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index bc76eab..860f801 100644 (file)
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -1185,8 +1185,9 @@ downsweep roots old_summaries
        checkDuplicates summaries = mapM_ check summaries
          where check summ = 
                  case dups of
-                       [] -> return ()
-                       files -> multiRootsErr modl files
+                       []     -> return ()
+                       [_one] -> return ()
+                       many   -> multiRootsErr modl many
                   where modl = ms_mod summ
                         dups = 
                           [ fromJust (ml_hs_file (ms_location summ'))