[project @ 2001-11-01 13:20:42 by simonpj]

wibble

[project @ 2001-11-01 13:20:42 by simonpj]
wibble
2ca9a768 · simonpj · 51666a19 · 2ca9a768
Commit 2ca9a768 authored Nov 01, 2001 by simonpj
--- a/ghc/compiler/specialise/SpecConstr.lhs
+++ b/ghc/compiler/specialise/SpecConstr.lhs
@@ -492,7 +492,6 @@ spec_one :: ScEnv

 spec_one env fn rhs (pats, rule_number)
  = getUniqueUs 		`thenUs` \ spec_uniq ->
-    getUniqueUs 		`thenUs` \ hack_uniq ->
    let 
 	fn_name      = idName fn
 	fn_loc       = nameSrcLoc fn_name