From: Pepe Iborra <mnislaih@gmail.com>
Date: Sat, 8 Dec 2007 18:18:30 +0000 (+0000)
Subject: Prevent the binding of unboxed things by :print
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4d71f5ee6dbbfedb4a55767e4375f4c0aadf70bb

Prevent the binding of unboxed things by :print
---

diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs
index 72688dd..c53a739 100644
--- a/compiler/ghci/Debugger.hs
+++ b/compiler/ghci/Debugger.hs
@@ -73,8 +73,10 @@ pprintClosureCommand session bindThings force str = do
    go cms id = do
        term_    <- GHC.obtainTerm cms force id
        term     <- tidyTermTyVars cms term_
-       term'    <- if not bindThings then return term
-                     else bindSuspensions cms term                       
+       term'    <- if bindThings && 
+                      Just False == isUnliftedTypeKind `fmap` termType term
+                     then bindSuspensions cms term
+                     else return term
      -- Before leaving, we compare the type obtained to see if it's more specific
      --  Then, we extract a substitution,
      --  mapping the old tyvars to the reconstructed types.