From 403e5a3c0d94ec903e0ca8382d951fd419dd4d78 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 27 Apr 2001 15:41:49 +0000
Subject: [PATCH] [project @ 2001-04-27 15:41:49 by sewardj] Avoid pattern
 match failure in getValidLinkable.maybe_old_linkable.

---
 ghc/compiler/compMan/CompManager.lhs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 001a44d..15fabc0 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -610,8 +610,7 @@ getValidLinkable old_linkables objects_allowed new_linkables summary
 		    Just l | not (isObjectLinkable l) || stillThere l 
 				-> old_linkable
 				-- ToDo: emit a warning if not (stillThere l)
-			   | otherwise
-				-> Nothing
+                    other -> Nothing
 
 	   -- make sure that if we had an old disk linkable around, that it's
 	   -- still there on the disk (in case we need to re-link it).
-- 
1.7.10.4