Commit f81c9189 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-01-18 10:51:53 by simonmar]

save the state after a ':t'
parent b574408a
-----------------------------------------------------------------------------
-- $Id: InteractiveUI.hs,v 1.26 2001/01/16 17:09:43 sewardj Exp $
-- $Id: InteractiveUI.hs,v 1.27 2001/01/18 10:51:53 simonmar Exp $
--
-- GHC Interactive User Interface
--
......@@ -286,8 +286,9 @@ typeOfExpr :: String -> GHCi ()
typeOfExpr str
= do st <- getGHCiState
dflags <- io (getDynFlags)
(st, maybe_ty) <- io (cmGetExpr (cmstate st) dflags
(new_cmstate, maybe_ty) <- io (cmGetExpr (cmstate st) dflags
(current_module st) str False)
setGHCiState st{cmstate = new_cmstate}
case maybe_ty of
Nothing -> return ()
Just (_, unqual, ty) -> io (printForUser stdout unqual (ppr ty))
......
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