From: simonmar <unknown>
Date: Wed, 28 Aug 2002 09:24:15 +0000 (+0000)
Subject: [project @ 2002-08-28 09:24:15 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1749
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=61191e224d375f6d2c1c9b07648e4b70e66d00e2;p=ghc-hetmet.git

[project @ 2002-08-28 09:24:15 by simonmar]
Fix braino in previous commit

MERGE TO STABLE
---

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index bc76eab..860f801 100644
--- 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'))