@@ -505,7 +505,8 @@ loop PSCiOptions{..} = do
505 flip evalStateT (PSCiState psciInputFile [] modules foreigns [] psciInputNodeFlags) . runInputT (setComplete completion settings) $ do
505 flip evalStateT (PSCiState psciInputFile [] modules foreigns [] psciInputNodeFlags) . runInputT (setComplete completion settings) $ do
506 outputStrLn prologueMessage
506 outputStrLn prologueMessage
507 traverse_ (mapM_ (runPSCI . handleCommand)) config
507 traverse_ (mapM_ (runPSCI . handleCommand)) config
508+ modules' <- lift $ gets psciLoadedModules
508− unless (consoleIsDefined (map snd modules)) . outputStrLn $ unlines
509+ unless (consoleIsDefined (map snd modules')) . outputStrLn $ unlines
509 [ "PSCi requires the purescript-console module to be installed."
510 [ "PSCi requires the purescript-console module to be installed."
510 , "For help getting started, visit http://wiki.purescript.org/PSCi"
511 , "For help getting started, visit http://wiki.purescript.org/PSCi"