mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-09-11 16:05:51 +03:00
Print banner before typechecking
Otherwise it hides the errors
This commit is contained in:
parent
f09138d508
commit
ab98b4d3c9
@ -139,6 +139,8 @@ stMain opts
|
||||
u <- newRef UST initUState
|
||||
updateREPLOpts
|
||||
session <- getSession
|
||||
when (not $ nobanner session) $
|
||||
iputStrLn banner
|
||||
case fname of
|
||||
Nothing => logTime "Loading prelude" $
|
||||
when (not $ noprelude session) $
|
||||
@ -166,8 +168,6 @@ stMain opts
|
||||
setOutput (IDEMode 0 file file)
|
||||
replIDE {c} {u} {m}
|
||||
else do
|
||||
when (not $ nobanner session) $
|
||||
iputStrLn banner
|
||||
repl {c} {u} {m}
|
||||
showTimeRecord
|
||||
else
|
||||
|
@ -38,6 +38,19 @@ preOptions [] = pure True
|
||||
preOptions (NoBanner :: opts)
|
||||
= do setSession (record { nobanner = True } !getSession)
|
||||
preOptions opts
|
||||
-- These things are processed later, but imply nobanner too
|
||||
preOptions (OutputFile _ :: opts)
|
||||
= do setSession (record { nobanner = True } !getSession)
|
||||
preOptions opts
|
||||
preOptions (ExecFn _ :: opts)
|
||||
= do setSession (record { nobanner = True } !getSession)
|
||||
preOptions opts
|
||||
preOptions (IdeMode :: opts)
|
||||
= do setSession (record { nobanner = True } !getSession)
|
||||
preOptions opts
|
||||
preOptions (CheckOnly :: opts)
|
||||
= do setSession (record { nobanner = True } !getSession)
|
||||
preOptions opts
|
||||
preOptions (Quiet :: opts)
|
||||
= do setOutput (REPL True)
|
||||
preOptions opts
|
||||
|
@ -1,4 +1,4 @@
|
||||
$1 Cycle1.idr
|
||||
$1 Loop.idr
|
||||
$1 --no-banner Cycle1.idr
|
||||
$1 --no-banner Loop.idr
|
||||
|
||||
rm -rf build
|
||||
|
Loading…
Reference in New Issue
Block a user