@@ -199,7 +199,7 @@ completion = completeWord Nothing " \t\n\r" findCompletions
199199-- | Compilation options.
200200--
201201options :: 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
203203
204204-- |
205205-- PSCI monad
@@ -276,7 +276,7 @@ handleDeclaration :: P.Expr -> PSCI ()
276276handleDeclaration value = do
277277 st <- PSCI $ lift get
278278 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)]) []
280280 case e of
281281 Left err -> PSCI $ outputStrLn err
282282 Right _ -> do
@@ -295,7 +295,7 @@ handleTypeOf :: P.Expr -> PSCI ()
295295handleTypeOf value = do
296296 st <- PSCI $ lift get
297297 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)]) []
299299 case e of
300300 Left err -> PSCI $ outputStrLn err
301301 Right env' ->
@@ -311,7 +311,7 @@ handleKindOf typ = do
311311 st <- PSCI $ lift get
312312 let m = createTemporaryModuleForKind st typ
313313 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)]) []
315315 case e of
316316 Left err -> PSCI $ outputStrLn err
317317 Right env' ->
@@ -374,12 +374,12 @@ handleCommand _ = PSCI $ outputStrLn "Unknown command"
374374singleLineFlag :: Cmd.Term Bool
375375singleLineFlag = Cmd.value $ Cmd.flag $ (Cmd.optInfo ["single-line-mode"])
376376 { Cmd.optName = "Single-line mode"
377− , Cmd.optDoc = "Run in single-line mode"
377+ , Cmd.optDoc = "Run in single-line mode"
378378 }
379379
380380inputFiles :: Cmd.Term [FilePath]
381381inputFiles = 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"
383383 }
384384
385385loadUserConfig :: IO (Maybe [Command])
@@ -435,3 +435,4 @@ termInfo = Cmd.defTI
435435
436436main :: IO ()
437437main = Cmd.run (term, termInfo)
438+