@@ -317,15 +317,12 @@ handleDeclaration value = do
317317handleLet :: (P.Expr -> P.Expr) -> PSCI ()
318318handleLet l = do
319319 st <- PSCI $ lift get
320− PSCI $ lift $ modify (updateLets l)
321− st' <- PSCI $ lift get
320+ let st' = updateLets l st
322321 let m = createTemporaryModule False st' (P.ObjectLiteral [])
323322 e <- psciIO . runMake $ P.make modulesDir options (psciLoadedModules st' ++ [(Left P.RebuildAlways, m)]) []
324323 case e of
325− Left err -> do
326− PSCI $ outputStrLn err
327− PSCI $ lift (put st)
328− Right _ -> return ()
324+ Left err -> PSCI $ outputStrLn err
325+ Right _ -> PSCI $ lift (put st')
329326
330327-- |
331328-- Show actual loaded modules in psci.