From 61191e224d375f6d2c1c9b07648e4b70e66d00e2 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 28 Aug 2002 09:24:15 +0000
Subject: [PATCH] [project @ 2002-08-28 09:24:15 by simonmar] Fix braino in
 previous commit

MERGE TO STABLE
---
 ghc/compiler/compMan/CompManager.lhs |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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'))
-- 
1.7.10.4