X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDesugar.lhs;h=60dec3047aff4ae68c625d8d218adeeade856c0b;hb=3bb324543f4cc92cf6e543919efa74a9ac90b8c6;hp=073e87390f3c009fd98e4f9de4716bf96fffbbd3;hpb=0656c72a8f4fda30c348bdf40449d105e4ce00ce;p=ghc-hetmet.git

diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs
index 073e873..60dec30 100644
--- a/compiler/deSugar/Desugar.lhs
+++ b/compiler/deSugar/Desugar.lhs
@@ -137,7 +137,7 @@ deSugar hsc_env
 
 	; endPass dflags CoreDesugar ds_binds ds_rules_for_imps
 
-        ; used_names <- mkUsedNames tcg_env
+        ; let used_names = mkUsedNames tcg_env
 	; deps <- mkDependencies tcg_env
 
         ; let mod_guts = ModGuts {