Commit 0ffb4bed authored by mnislaih's avatar mnislaih
Browse files

Warning police

parent e4069ec8
...@@ -21,18 +21,13 @@ import IdInfo ...@@ -21,18 +21,13 @@ import IdInfo
import Name import Name
import Var hiding ( varName ) import Var hiding ( varName )
import VarSet import VarSet
import VarEnv
import Name import Name
import UniqSupply import UniqSupply
import Type
import TcType import TcType
import TcGadt
import GHC import GHC
import GhciMonad
import InteractiveEval import InteractiveEval
import Outputable import Outputable
import Pretty ( Mode(..), showDocWith ) import Pretty ( Mode(..), showDocWith )
import FastString
import SrcLoc import SrcLoc
import Control.Exception import Control.Exception
...@@ -146,10 +141,8 @@ bindSuspensions cms@(Session ref) t = do ...@@ -146,10 +141,8 @@ bindSuspensions cms@(Session ref) t = do
showTerm cms@(Session ref) = cPprTerm cPpr showTerm cms@(Session ref) = cPprTerm cPpr
where where
cPpr = \p-> cPprShowable : cPprTermBase p cPpr = \p-> cPprShowable : cPprTermBase p
cPprShowable prec t@Term{ty=ty, dc=dc, val=val} = do cPprShowable prec t@Term{ty=ty, dc=dc, val=val} =
let hasType = isEmptyVarSet (tyVarsOfType ty) -- redundant if not (isFullyEvaluatedTerm t)
isEvaled = isFullyEvaluatedTerm t
if not isEvaled -- || not hasType
then return Nothing then return Nothing
else do else do
hsc_env <- readIORef ref hsc_env <- readIORef ref
......
...@@ -11,6 +11,9 @@ module RtClosureInspect( ...@@ -11,6 +11,9 @@ module RtClosureInspect(
cvObtainTerm, -- :: HscEnv -> Int -> Bool -> Maybe Type -> HValue -> IO Term cvObtainTerm, -- :: HscEnv -> Int -> Bool -> Maybe Type -> HValue -> IO Term
Term(..), Term(..),
isTerm,
isSuspension,
isPrim,
pprTerm, pprTerm,
cPprTerm, cPprTerm,
cPprTermBase, cPprTermBase,
...@@ -27,7 +30,12 @@ module RtClosureInspect( ...@@ -27,7 +30,12 @@ module RtClosureInspect(
-- unsafeDeepSeq, -- unsafeDeepSeq,
cvReconstructType, cvReconstructType,
computeRTTIsubst, computeRTTIsubst,
sigmaType sigmaType,
Closure(..),
getClosureData,
ClosureType(..),
isConstr,
isIndirection
) where ) where
#include "HsVersions.h" #include "HsVersions.h"
...@@ -39,7 +47,7 @@ import Linker ...@@ -39,7 +47,7 @@ import Linker
import DataCon import DataCon
import Type import Type
import TcRnMonad ( TcM, initTc, initTcPrintErrors, ioToTcRn, import TcRnMonad ( TcM, initTc, ioToTcRn,
tryTcErrs) tryTcErrs)
import TcType import TcType
import TcMType import TcMType
...@@ -69,7 +77,6 @@ import Control.Monad ...@@ -69,7 +77,6 @@ import Control.Monad
import Data.Maybe import Data.Maybe
import Data.Array.Base import Data.Array.Base
import Data.List ( partition ) import Data.List ( partition )
import qualified Data.Sequence as Seq
import Foreign import Foreign
import System.IO.Unsafe import System.IO.Unsafe
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment