@@ -199,7 +199,7 @@ completion = completeWord Nothing " \t\n\r" findCompletions
199-- | Compilation options.
199-- | Compilation options.
201options :: P.Options
201options :: P.Options
202−options = P.Options False True False True Nothing True Nothing [] [] False
202+options = P.Options False False False False Nothing False Nothing [] [] False
205-- PSCI monad
205-- PSCI monad
@@ -276,7 +276,7 @@ handleDeclaration :: P.Expr -> PSCI ()
276handleDeclaration value = do
276handleDeclaration value = do
277 st <- PSCI $ lift get
277 st <- PSCI $ lift get
278 let m = createTemporaryModule True st value
278 let m = createTemporaryModule True st value
279− e <- psciIO . runMake $ P.make modulesDir options (psciLoadedModules st ++ [("$PSCI.purs", m)]) []
279+ e <- psciIO . runMake $ P.make modulesDir options (psciLoadedModules st ++ [("$PSCI.purs", m)]) []
280 case e of
280 case e of
281 Left err -> PSCI $ outputStrLn err
281 Left err -> PSCI $ outputStrLn err
282 Right _ -> do
282 Right _ -> do
@@ -295,7 +295,7 @@ handleTypeOf :: P.Expr -> PSCI ()
295handleTypeOf value = do
295handleTypeOf value = do
296 st <- PSCI $ lift get
296 st <- PSCI $ lift get
297 let m = createTemporaryModule False st value
297 let m = createTemporaryModule False st value
298− e <- psciIO . runMake $ P.make modulesDir options (psciLoadedModules st ++ [("$PSCI.purs", m)]) []
298+ e <- psciIO . runMake $ P.make modulesDir options (psciLoadedModules st ++ [("$PSCI.purs", m)]) []
299 case e of
299 case e of
300 Left err -> PSCI $ outputStrLn err
300 Left err -> PSCI $ outputStrLn err
301 Right env' ->
301 Right env' ->
@@ -311,7 +311,7 @@ handleKindOf typ = do
311 st <- PSCI $ lift get
311 st <- PSCI $ lift get
312 let m = createTemporaryModuleForKind st typ
312 let m = createTemporaryModuleForKind st typ
313 mName = P.ModuleName [P.ProperName "$PSCI"]
313 mName = P.ModuleName [P.ProperName "$PSCI"]
314− e <- psciIO . runMake $ P.make modulesDir options (psciLoadedModules st ++ [("$PSCI.purs", m)]) []
314+ e <- psciIO . runMake $ P.make modulesDir options (psciLoadedModules st ++ [("$PSCI.purs", m)]) []
315 case e of
315 case e of
316 Left err -> PSCI $ outputStrLn err
316 Left err -> PSCI $ outputStrLn err
317 Right env' ->
317 Right env' ->
@@ -374,12 +374,12 @@ handleCommand _ = PSCI $ outputStrLn "Unknown command"
374singleLineFlag :: Cmd.Term Bool
374singleLineFlag :: Cmd.Term Bool
375singleLineFlag = Cmd.value $ Cmd.flag $ (Cmd.optInfo ["single-line-mode"])
375singleLineFlag = Cmd.value $ Cmd.flag $ (Cmd.optInfo ["single-line-mode"])
376 { Cmd.optName = "Single-line mode"
376 { Cmd.optName = "Single-line mode"
377− , Cmd.optDoc = "Run in single-line mode"
377+ , Cmd.optDoc = "Run in single-line mode"
380inputFiles :: Cmd.Term [FilePath]
380inputFiles :: Cmd.Term [FilePath]
381inputFiles = Cmd.value $ Cmd.posAny [] $ Cmd.posInfo { Cmd.posName = "file(s)"
381inputFiles = Cmd.value $ Cmd.posAny [] $ Cmd.posInfo { Cmd.posName = "file(s)"
382− , Cmd.posDoc = "Optional .purs files to load on start"
382+ , Cmd.posDoc = "Optional .purs files to load on start"
385loadUserConfig :: IO (Maybe [Command])
385loadUserConfig :: IO (Maybe [Command])
@@ -435,3 +435,4 @@ termInfo = Cmd.defTI
436main :: IO ()
436main :: IO ()
437main = Cmd.run (term, termInfo)
437main = Cmd.run (term, termInfo)