@@ -340,9 +340,7 @@ readModuleTypes moduleName = let moduleFile = externPursFile moduleName in
341handleBrowse :: P.ModuleName -> PSCI ()
341handleBrowse :: P.ModuleName -> PSCI ()
342handleBrowse moduleName = do
342handleBrowse moduleName = do
343− st <- PSCI $ lift get
344 psciIO $ (readModuleTypes . N.runModuleName) moduleName >>= putStrLn
343 psciIO $ (readModuleTypes . N.runModuleName) moduleName >>= putStrLn
345− PSCI $ lift $ put st
346 return ()
344 return ()