From 876b4ef2093cb9c104db33c7db1200b941b6d079 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 2 Mar 2006 14:08:18 +0000 Subject: [PATCH] minor cleanup; remove one use of fromJust --- ghc/compiler/rename/RnBinds.lhs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs index 7ee82b5..13035e7 100644 --- a/ghc/compiler/rename/RnBinds.lhs +++ b/ghc/compiler/rename/RnBinds.lhs @@ -44,7 +44,7 @@ import BasicTypes ( RecFlag(..) ) import Digraph ( SCC(..), stronglyConnComp ) import Bag import Outputable -import Maybes ( orElse, fromJust, isJust ) +import Maybes ( orElse, isJust ) import Util ( filterOut ) import Monad ( foldM ) \end{code} @@ -315,9 +315,8 @@ depAnalBinds binds_w_dus keyd_nodes = bagToList binds_w_dus `zip` [0::Int ..] - edges = [ (node, key, [fromJust mb_key | n <- nameSetToList uses, - let mb_key = lookupNameEnv key_map n, - isJust mb_key ]) + edges = [ (node, key, [key | n <- nameSetToList uses, + Just key <- [lookupNameEnv key_map n] ]) | (node@(_,_,uses), key) <- keyd_nodes ] key_map :: NameEnv Int -- Which binding it comes from -- 1.7.10.4