X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSATMonad.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FSATMonad.lhs;h=3982c8ac4e3e2b38f60cd850b8c84bec3295f0a5;hb=7e602b0a11e567fcb035d1afd34015aebcf9a577;hp=0c33a915d71c4a8d0e95a9d4aa337f9af5880545;hpb=139f0fd30e19f934aa51885a52b8e5d7c24ee460;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/SATMonad.lhs b/ghc/compiler/simplCore/SATMonad.lhs
index 0c33a91..3982c8a 100644
--- a/ghc/compiler/simplCore/SATMonad.lhs
+++ b/ghc/compiler/simplCore/SATMonad.lhs
@@ -14,7 +14,7 @@ module SATMonad where
 
 #include "HsVersions.h"
 
-import Util		( panic )
+import Panic		( panic )
 
 junk_from_SATMonad = panic "SATMonad.junk"
 
@@ -213,7 +213,7 @@ saTransform binder rhs
 	    -- top-level or exported somehow.)
 	    -- A better fix is to use binder directly but with the TopLevel
 	    -- tag (or Exported tag) modified.
-	    fake_binder = mkSysLocal
+	    fake_binder = mkSysLocal SLIT("sat")
 			    (getUnique binder)
 			    (idType binder)
 	    rec_body = mkValLam non_static_args