@@ -547,7 +547,6 @@ handleCommand (LoadForeign filePath) = whenFileExists filePath $ \absPath -> do
547 Left err -> PSCI $ outputStrLn $ P.prettyPrintMultipleErrors False err
547 Left err -> PSCI $ outputStrLn $ P.prettyPrintMultipleErrors False err
548 Right foreigns -> PSCI . lift $ modify (updateForeignFiles foreigns)
548 Right foreigns -> PSCI . lift $ modify (updateForeignFiles foreigns)
549handleCommand ResetState = do
549handleCommand ResetState = do
550− files <- psciImportedFilenames <$> PSCI (lift get)
551 PSCI . lift . modify $ \st ->
550 PSCI . lift . modify $ \st ->
552 st { psciImportedModules = []
551 st { psciImportedModules = []
553 , psciLetBindings = []
552 , psciLetBindings = []