From 25e8bcade5f62dcd25b1f070ab9e680a7240c8c7 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 18 Oct 2001 16:27:42 +0000
Subject: [PATCH 1/1] [project @ 2001-10-18 16:27:42 by simonpj] Tidy up
 maybeGlobaliseId

---
 ghc/compiler/codeGen/CodeGen.lhs |   16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index 62d10f3..94eb0b3 100644
--- a/ghc/compiler/codeGen/CodeGen.lhs
+++ b/ghc/compiler/codeGen/CodeGen.lhs
@@ -233,17 +233,11 @@ mkSRT lbl ids these
 -- which refers to this name).
 maybeGlobaliseId :: Id -> FCode Id
 maybeGlobaliseId id
-  = moduleName `thenFC` \ mod ->
-    let
-    	name = idName id
-
-	-- globalise the name for -split-objs, if necessary
-	real_name | opt_EnsureSplittableC = globaliseName name mod
-	          | otherwise             = name
-
-	id' = setIdName id real_name
-    in 
-    returnFC id'
+  | opt_EnsureSplittableC 
+  = moduleName				 `thenFC` \ mod ->
+    returnFC (setIdName id (globaliseName (idName id) mod))
+  | otherwise		-- Globalise the name for -split-objs
+  = returnFC id
 
 maybeSplitCode
   | opt_EnsureSplittableC = CSplitMarker 
-- 
1.7.10.4