Add '--no-banner' option

2024-09-11 16:05:51 +03:00 · 2019-09-24 20:26:25 +06:00 · 2019-09-24 20:26:25 +06:00 · 0722b96fef
commit 0722b96fef
parent f9739b3f66
142 changed files with 88 additions and 152 deletions
--- a/src/Core/Options.idr
+++ b/src/Core/Options.idr
@ -83,6 +83,7 @@ public export
 record Session where
  constructor MkSessionOpts
  noprelude : Bool
+  nobanner : Bool
  codegen : CG
  logLevel : Nat
  logTimings : Bool
@ -113,7 +114,7 @@ defaultPPrint : PPrinter
 defaultPPrint = MkPPOpts False True False

 defaultSession : Session
-defaultSession = MkSessionOpts False Chez 0 False
+defaultSession = MkSessionOpts False False Chez 0 False

 defaultElab : ElabDirectives
 defaultElab = MkElabDirectives True True
@ -162,4 +163,3 @@ setExtension e = record { extensions $= (e ::) }
 export
 isExtension : LangExt -> Options -> Bool
 isExtension e opts = e `elem` extensions opts
-
--- a/src/Idris/CommandLine.idr
+++ b/src/Idris/CommandLine.idr
@ -49,6 +49,8 @@ data CLOpt
  Version |
   ||| Display help text
  Help |
+   ||| Suppress the banner
+  NoBanner |
   ||| Run Idris 2 in quiet mode
  Quiet |
   ||| Add a package as a dependency
@ -116,6 +118,8 @@ options = [MkOpt ["--check", "-c"] [] [CheckOnly]

           MkOpt ["--libdir"] [] [Directory LibDir]
              (Just "Show library directory"),
+           MkOpt ["--no-banner"] [] [NoBanner]
+              (Just "Suppress the banner"),
           MkOpt ["--quiet", "-q"] [] [Quiet]
              (Just "Quiet mode; display fewer messages"),
           MkOpt ["--version", "-v"] [] [Version]
--- a/src/Idris/Main.idr
+++ b/src/Idris/Main.idr
@ -155,7 +155,10 @@ stMain opts
                           setOutput (IDEMode 0 file file)
                           replIDE {c} {u} {m}
                   else do
-                       iputStrLn $ "Welcome to Idris 2. Enjoy yourself!"
+                       when (not $ nobanner session) $
+                         iputStrLn $ "Welcome to Idris 2 version "
+                                     ++ showVersion version
+                                     ++ ".  Enjoy yourself!"
                       repl {c} {u} {m}
                 else
                      -- exit with an error code if there was an error, otherwise
--- a/src/Idris/SetOptions.idr
+++ b/src/Idris/SetOptions.idr
@ -35,6 +35,9 @@ preOptions : {auto c : Ref Ctxt Defs} ->
             {auto o : Ref ROpts REPLOpts} ->
             List CLOpt -> Core Bool
 preOptions [] = pure True
+preOptions (NoBanner :: opts)
+    = do setSession (record { nobanner = True } !getSession)
+         preOptions opts
 preOptions (Quiet :: opts)
    = do setOutput (REPL True)
         preOptions opts
--- a/tests/chez/chez001/expected
+++ b/tests/chez/chez001/expected
@ -1,4 +1,3 @@
 [1, 2, 2, 4, 3, 6, 4, 8, 5, 10]
 1/1: Building Total (Total.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main> Bye for now!
--- a/tests/chez/chez001/run
+++ b/tests/chez/chez001/run
@ -1,3 +1,3 @@
-$1 Total.idr < input
+$1 --no-banner Total.idr < input

 rm -rf build
--- a/tests/chez/chez002/expected
+++ b/tests/chez/chez002/expected
@ -1,4 +1,3 @@
 [(3, (4, 5)), (6, (8, 10)), (5, (12, 13)), (9, (12, 15)), (8, (15, 17)), (12, (16, 20)), (15, (20, 25)), (7, (24, 25)), (10, (24, 26)), (20, (21, 29)), (18, (24, 30)), (16, (30, 34)), (21, (28, 35)), (12, (35, 37)), (15, (36, 39)), (24, (32, 40)), (9, (40, 41)), (27, (36, 45)), (30, (40, 50)), (14, (48, 50)), (24, (45, 51)), (20, (48, 52)), (28, (45, 53)), (33, (44, 55)), (40, (42, 58)), (36, (48, 60)), (11, (60, 61)), (39, (52, 65)), (33, (56, 65)), (25, (60, 65)), (16, (63, 65)), (32, (60, 68)), (42, (56, 70)), (48, (55, 73)), (24, (70, 74)), (45, (60, 75)), (21, (72, 75)), (30, (72, 78)), (48, (64, 80)), (18, (80, 82)), (51, (68, 85)), (40, (75, 85)), (36, (77, 85)), (13, (84, 85)), (60, (63, 87)), (39, (80, 89)), (54, (72, 90)), (35, (84, 91)), (57, (76, 95)), (65, (72, 97)), (60, (80, 100)), (28, (96, 100)), (20, (99, 101)), (48, (90, 102)), (40, (96, 104)), (63, (84, 105)), (56, (90, 106)), (60, (91, 109)), (66, (88, 110)), (36, (105, 111)), (15, (112, 113)), (69, (92, 115)), (80, (84, 116)), (45, (108, 117)), (56, (105, 119)), (72, (96, 120)), (22, (120, 122)), (27, (120, 123)), (75, (100, 125)), (44, (117, 125)), (35, (120, 125)), (78, (104, 130)), (66, (112, 130)), (50, (120, 130)), (32, (126, 130)), (81, (108, 135)), (64, (120, 136)), (88, (105, 137)), (84, (112, 140)), (55, (132, 143)), (100, (105, 145)), (87, (116, 145)), (24, (143, 145)), (17, (144, 145)), (96, (110, 146)), (48, (140, 148)), (51, (140, 149)), (90, (120, 150)), (42, (144, 150)), (72, (135, 153)), (93, (124, 155)), (60, (144, 156)), (85, (132, 157)), (84, (135, 159)), (96, (128, 160)), (36, (160, 164)), (99, (132, 165)), (119, (120, 169)), (65, (156, 169)), (102, (136, 170)), (80, (150, 170)), (72, (154, 170)), (26, (168, 170)), (52, (165, 173)), (120, (126, 174)), (105, (140, 175)), (49, (168, 175)), (78, (160, 178)), (108, (144, 180)), (19, (180, 181)), (70, (168, 182)), (33, (180, 183)), (111, (148, 185)), (104, (153, 185)), (60, (175, 185)), (57, (176, 185)), (88, (165, 187)), (114, (152, 190)), (95, (168, 193)), (130, (144, 194)), (117, (156, 195)), (99, (168, 195)), (75, (180, 195)), (48, (189, 195)), (28, (195, 197)), (120, (160, 200)), (56, (192, 200))]
 1/1: Building Pythag (Pythag.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main> Bye for now!
--- a/tests/chez/chez002/run
+++ b/tests/chez/chez002/run
@ -1,2 +1,2 @@
-$1 Pythag.idr < input
+$1 --no-banner Pythag.idr < input
 rm -rf build
--- a/tests/chez/chez003/expected
+++ b/tests/chez/chez003/expected
@ -3,5 +3,4 @@
 188
 188
 1/1: Building IORef (IORef.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main> Bye for now!
--- a/tests/chez/chez003/run
+++ b/tests/chez/chez003/run
@ -1,2 +1,2 @@
-$1 IORef.idr < input
+$1 --no-banner IORef.idr < input
 rm -rf build
--- a/tests/chez/chez004/expected
+++ b/tests/chez/chez004/expected
@ -6,5 +6,4 @@
 [0, 94, 0, 0, 0, 0, 0, 0, 0, 0, 123, 20, 174, 71, 225, 154, 87, 64, 0, 0, 72, 101, 108, 108, 111, 32, 116, 104, 101, 114, 101, 33, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
 [0, 94, 0, 0, 0, 0, 0, 0, 0, 0, 123, 20, 174, 71, 225, 154, 87, 64, 0, 0, 72, 101, 108, 108, 111, 32, 116, 104, 101, 114, 101, 33, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
 1/1: Building Buffer (Buffer.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main> Bye for now!
--- a/tests/chez/chez004/run
+++ b/tests/chez/chez004/run
@ -1,2 +1,2 @@
-$1 Buffer.idr < input
+$1 --no-banner Buffer.idr < input
 rm -rf build test.buf
--- a/tests/chez/chez005/expected
+++ b/tests/chez/chez005/expected
@ -1,4 +1,3 @@
 (3 ** [2, 4, 6])
 1/1: Building Filter (Filter.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main> Bye for now!
--- a/tests/chez/chez005/run
+++ b/tests/chez/chez005/run
@ -1,3 +1,3 @@
-$1 Filter.idr < input
+$1 --no-banner Filter.idr < input

 rm -rf build
--- a/tests/chez/chez006/expected
+++ b/tests/chez/chez006/expected
@ -10,7 +10,6 @@
 43
 42
 1/1: Building TypeCase (TypeCase.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main> Main.strangeId is total
 Main> Main.strangeId':
 strangeId' _
--- a/tests/chez/chez006/run
+++ b/tests/chez/chez006/run
@ -1,4 +1,4 @@
-$1 TypeCase.idr < input
-$1 TypeCase2.idr --check
+$1 --no-banner TypeCase.idr < input
+$1 --no-banner TypeCase2.idr --check

 rm -rf build
--- a/tests/chez/chez007/expected
+++ b/tests/chez/chez007/expected
@ -2,5 +2,4 @@
 "Function from Nat to Vector of 0 Int"
 "Function on Type"
 1/1: Building TypeCase (TypeCase.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main> Bye for now!
--- a/tests/chez/chez007/run
+++ b/tests/chez/chez007/run
@ -1,3 +1,3 @@
-$1 TypeCase.idr < input
+$1 --no-banner TypeCase.idr < input

 rm -rf build
--- a/tests/chez/chez008/expected
+++ b/tests/chez/chez008/expected
@ -2,5 +2,4 @@
 1
 1
 1/1: Building Nat (Nat.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main> Bye for now!
--- a/tests/chez/chez008/run
+++ b/tests/chez/chez008/run
@ -1,3 +1,3 @@
-$1 Nat.idr < input
+$1 --no-banner Nat.idr < input

 rm -rf build
--- a/tests/idris2/basic001/expected
+++ b/tests/idris2/basic001/expected
@ -1,5 +1,4 @@
 1/1: Building Vect (Vect.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main> Cons (S Z) (Cons (S (S Z)) []) : Vect (S (S Z)) Nat
 Main> (interactive):1:28--1:51:When unifying Vect (S (S Z)) Nat and Vect (S Z) Nat
 Mismatch between:
--- a/tests/idris2/basic001/run
+++ b/tests/idris2/basic001/run
@ -1,3 +1,3 @@
-$1 --no-prelude Vect.idr < input
+$1 --no-banner --no-prelude Vect.idr < input

 rm -rf build
--- a/tests/idris2/basic002/expected
+++ b/tests/idris2/basic002/expected
@ -1,5 +1,4 @@
 1/1: Building Do (Do.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Just (S (S (S Z)))
 Main> Just Z
 Main> Just (S (S (S Z)))
--- a/tests/idris2/basic002/run
+++ b/tests/idris2/basic002/run
@ -1,3 +1,3 @@
-$1 --no-prelude Do.idr < input
+$1 --no-banner --no-prelude Do.idr < input

 rm -rf build
--- a/tests/idris2/basic003/expected
+++ b/tests/idris2/basic003/expected
@ -1,10 +1,8 @@
 1/1: Building Ambig1 (Ambig1.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Bye for now!
 1/1: Building Ambig2 (Ambig2.idr)
 Ambig2.idr:22:21--22:28:While processing right hand side of Main.keepUnique at Ambig2.idr:22:1--24:1:
 Ambiguous elaboration. Possible correct results:
 	Main.Set.toList ?arg
 	Main.Vect.toList ?arg
-Welcome to Idris 2. Enjoy yourself!
 Main> Bye for now!
--- a/tests/idris2/basic003/run
+++ b/tests/idris2/basic003/run
@ -1,4 +1,4 @@
-echo ':q' | $1 --no-prelude Ambig1.idr
-echo ':q' | $1 --no-prelude Ambig2.idr
+echo ':q' | $1 --no-banner --no-prelude Ambig1.idr
+echo ':q' | $1 --no-banner --no-prelude Ambig2.idr

 rm -rf build
--- a/tests/idris2/basic004/expected
+++ b/tests/idris2/basic004/expected
@ -1,6 +1,5 @@
 1/2: Building Stuff (Stuff.idr)
 2/2: Building Wheres (Wheres.idr)
-Welcome to Idris 2. Enjoy yourself!
 Wheres> [3, 2, 1]
 Wheres> 8
 Wheres> 84
--- a/tests/idris2/basic004/run
+++ b/tests/idris2/basic004/run
@ -1,3 +1,3 @@
-$1 --no-prelude Wheres.idr < input
+$1 --no-banner --no-prelude Wheres.idr < input

 rm -rf build
--- a/tests/idris2/basic005/expected
+++ b/tests/idris2/basic005/expected
@ -2,5 +2,4 @@
 NoInfer.idr:1:7--1:9:Unsolved holes:
 Main.{_:1} introduced at NoInfer.idr:1:7--1:9

-Welcome to Idris 2. Enjoy yourself!
 Main> Bye for now!
--- a/tests/idris2/basic005/run
+++ b/tests/idris2/basic005/run
@ -1,3 +1,3 @@
-echo ':q' | $1 --no-prelude NoInfer.idr
+echo ':q' | $1 --no-banner --no-prelude NoInfer.idr

 rm -rf build
--- a/tests/idris2/basic006/expected
+++ b/tests/idris2/basic006/expected
@ -1,6 +1,5 @@
 1/2: Building Stuff (Stuff.idr)
 2/2: Building PMLet (PMLet.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> 99
 Main> 64
 Main> Bye for now!
--- a/tests/idris2/basic006/run
+++ b/tests/idris2/basic006/run
@ -1,3 +1,3 @@
-$1 --no-prelude PMLet.idr < input
+$1 --no-banner --no-prelude PMLet.idr < input

 rm -rf build
--- a/tests/idris2/basic007/expected
+++ b/tests/idris2/basic007/expected
@ -1,6 +1,5 @@
 1/2: Building Stuff (Stuff.idr)
 2/2: Building DoLocal (DoLocal.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Just 1
 Main> Just 0
 Main> Just 94
--- a/tests/idris2/basic007/run
+++ b/tests/idris2/basic007/run
@ -1,3 +1,3 @@
-$1 --no-prelude DoLocal.idr < input
+$1 --no-banner --no-prelude DoLocal.idr < input

 rm -rf build
--- a/tests/idris2/basic008/expected
+++ b/tests/idris2/basic008/expected
@ -1,5 +1,4 @@
 1/1: Building If (If.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> "Zero"
 Main> "Odd"
 Main> "Even"
--- a/tests/idris2/basic008/run
+++ b/tests/idris2/basic008/run
@ -1,3 +1,3 @@
-$1 --no-prelude If.idr < input
+$1 --no-banner --no-prelude If.idr < input

 rm -rf build
--- a/tests/idris2/basic009/expected
+++ b/tests/idris2/basic009/expected
@ -1,6 +1,5 @@
 1/2: Building Stuff (Stuff.idr)
 2/2: Building LetCase (LetCase.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main>    y : Nat
   res : Nat
   x : Nat
--- a/tests/idris2/basic009/run
+++ b/tests/idris2/basic009/run
@ -1,3 +1,3 @@
-$1 --no-prelude LetCase.idr < input
+$1 --no-banner --no-prelude LetCase.idr < input

 rm -rf build
--- a/tests/idris2/basic010/expected
+++ b/tests/idris2/basic010/expected
@ -1,5 +1,4 @@
 1/1: Building Comp (Comp.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main> Main.comp : {0 a : Type} -> {0 c : Type} -> {0 b : Type} -> (b -> c) -> (a -> b) -> a -> c
 Main> Main.comp2 : {0 c : Type} -> {0 b : Type} -> (b -> c) -> {a : Type} -> (a -> b) -> a -> c
 Main> Bye for now!
--- a/tests/idris2/basic010/run
+++ b/tests/idris2/basic010/run
@ -1,3 +1,3 @@
-$1 --no-prelude Comp.idr < input
+$1 --no-banner --no-prelude Comp.idr < input

 rm -rf build
--- a/tests/idris2/basic017/expected
+++ b/tests/idris2/basic017/expected
@ -3,6 +3,5 @@ CaseInf.idr:6:17--6:24:While processing right hand side of Main.test3bad at Case
 Ambiguous elaboration. Possible correct results:
 	Builtin.Pair (Prelude.fromInteger 1) (Prelude.fromInteger 2)
 	Builtin.MkPair (Prelude.fromInteger 1) (Prelude.fromInteger 2)
-Welcome to Idris 2. Enjoy yourself!
 Main> S (S (S Z))
 Main> Bye for now!
--- a/tests/idris2/basic017/run
+++ b/tests/idris2/basic017/run
@ -1,3 +1,3 @@
-$1 CaseInf.idr < input
+$1 --no-banner CaseInf.idr < input

 rm -rf build
--- a/tests/idris2/basic019/expected
+++ b/tests/idris2/basic019/expected
@ -1,5 +1,4 @@
 1/1: Building CaseBlock (CaseBlock.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main.foo : (x : Nat) -> (case x of { Z => Nat -> Nat ; S k => Nat })
 Main> Prelude.elem : Eq a => a -> List a -> Bool
 elem x [] = False
--- a/tests/idris2/basic019/run
+++ b/tests/idris2/basic019/run
@ -1,3 +1,3 @@
-$1 CaseBlock.idr < input
+$1 --no-banner CaseBlock.idr < input

 rm -rf build
--- a/tests/idris2/basic020/expected
+++ b/tests/idris2/basic020/expected
@ -1,5 +1,4 @@
 1/1: Building Mut (Mut.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> MyTrue
 Main> MyFalse
 Main> (True, False)
--- a/tests/idris2/basic020/run
+++ b/tests/idris2/basic020/run
@ -1,3 +1,3 @@
-$1 Mut.idr < input
+$1 --no-banner Mut.idr < input

 rm -rf build
--- a/tests/idris2/basic021/expected
+++ b/tests/idris2/basic021/expected
@ -1,5 +1,4 @@
 1/1: Building CaseDep (CaseDep.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main.foo : Nat -> (x : Bool) -> IntOrChar x -> String
 foo num x i = if x then show num else show i
 Main> Bye for now!
--- a/tests/idris2/basic021/run
+++ b/tests/idris2/basic021/run
@ -1,3 +1,3 @@
-$1 CaseDep.idr < input
+$1 --no-banner CaseDep.idr < input

 rm -rf build
--- a/tests/idris2/basic022/expected
+++ b/tests/idris2/basic022/expected
@ -1,6 +1,5 @@
 1/1: Building Erase (Erase.idr)
 Erase.idr:5:1--6:1:Attempt to match on erased argument False in Main.bad
 Erase.idr:19:1--20:1:Attempt to match on erased argument LeZ in Main.minusBad
-Welcome to Idris 2. Enjoy yourself!
 Main> \m => minus (S (S m)) m prf
 Main> Bye for now!
--- a/tests/idris2/basic022/run
+++ b/tests/idris2/basic022/run
@ -1,3 +1,3 @@
-$1 Erase.idr < input
+$1 --no-banner Erase.idr < input

 rm -rf build
--- a/tests/idris2/basic023/expected
+++ b/tests/idris2/basic023/expected
@ -1,5 +1,4 @@
 1/1: Building Params (Params.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main.Dict : (a -> a -> Bool) -> Type -> Type
 Main> Main.MkDict : (eq : (a -> a -> Bool)) -> List (a, b) -> Dict eq b
 Main> Main.lookup : (a -> a -> Bool) -> a -> List (a, b) -> Maybe b
--- a/tests/idris2/basic023/run
+++ b/tests/idris2/basic023/run
@ -1,3 +1,3 @@
-$1 Params.idr < input
+$1 --no-banner Params.idr < input

 rm -rf build
--- a/tests/idris2/basic024/expected
+++ b/tests/idris2/basic024/expected
@ -1,5 +1,4 @@
 1/1: Building PatLam (PatLam.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> [(2, 3), (4, 5), (6, 7)]
 Main> [S (S (S Z)), S (S (S (S Z))), S (S (S (S (S Z))))]
 Main> Bye for now!
--- a/tests/idris2/basic024/run
+++ b/tests/idris2/basic024/run
@ -1,3 +1,3 @@
-$1 PatLam.idr < input
+$1 --no-banner PatLam.idr < input

 rm -rf build
--- a/tests/idris2/basic025/expected
+++ b/tests/idris2/basic025/expected
@ -1,4 +1,3 @@
-Welcome to Idris 2. Enjoy yourself!
 Main> [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
 Main> [1, 3, 5, 7, 9]
 Main> [10, 9, 8, 7, 6, 5, 4, 3, 2, 1]
--- a/tests/idris2/basic025/run
+++ b/tests/idris2/basic025/run
@ -1,3 +1,3 @@
-$1 < input
+$1 --no-banner < input

 rm -rf build
--- a/tests/idris2/basic028/expected
+++ b/tests/idris2/basic028/expected
@ -1,4 +1,3 @@
-Welcome to Idris 2. Enjoy yourself!
 Main> 1/1: Building Do (Do.idr)
 Main> Just (S (S (S Z)))
 Main> Just Z
--- a/tests/idris2/basic028/run
+++ b/tests/idris2/basic028/run
@ -1,5 +1,5 @@
 unset IDRIS2_PATH

-$1 --no-prelude < input
+$1 --no-banner --no-prelude < input

 rm -rf build
--- a/tests/idris2/coverage001/expected
+++ b/tests/idris2/coverage001/expected
@ -1,5 +1,4 @@
 1/1: Building Vect (Vect.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main.append:
 append (_ :: _) _
 Main> Main.lookup: All cases covered
--- a/tests/idris2/coverage001/run
+++ b/tests/idris2/coverage001/run
@ -1,3 +1,3 @@
-$1 Vect.idr < input
+$1 --no-banner Vect.idr < input

 rm -rf build
--- a/tests/idris2/coverage002/expected
+++ b/tests/idris2/coverage002/expected
@ -1,5 +1,4 @@
 1/1: Building Vect (Vect.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main.append: All cases covered
 Main> Main.funny: All cases covered
 Main> Main.notFunny:
--- a/tests/idris2/coverage002/run
+++ b/tests/idris2/coverage002/run
@ -1,3 +1,3 @@
-$1 Vect.idr < input
+$1 --no-banner Vect.idr < input

 rm -rf build
--- a/tests/idris2/coverage003/expected
+++ b/tests/idris2/coverage003/expected
@ -1,7 +1,6 @@
 1/1: Building Cover (Cover.idr)
 Cover.idr:14:1--14:8:While processing left hand side of Main.badBar at Cover.idr:14:1--15:1:
 Can't match on Z as it has a polymorphic type
-Welcome to Idris 2. Enjoy yourself!
 Main> Main.foo:
 foo (Z, S _)
 foo (S _, _)
--- a/tests/idris2/coverage003/run
+++ b/tests/idris2/coverage003/run
@ -1,3 +1,3 @@
-$1 Cover.idr < input
+$1 --no-banner Cover.idr < input

 rm -rf build
--- a/tests/idris2/coverage004/expected
+++ b/tests/idris2/coverage004/expected
@ -1,7 +1,6 @@
 1/1: Building Cover (Cover.idr)
 Cover.idr:12:1--12:5:While processing left hand side of Main.bad at Cover.idr:12:1--13:1:
 Can't match on Just (fromInteger 0) as it has a polymorphic type
-Welcome to Idris 2. Enjoy yourself!
 Main> Main.okay:
 okay (S _) IsNat
 okay False IsBool
--- a/tests/idris2/coverage004/run
+++ b/tests/idris2/coverage004/run
@ -1,3 +1,3 @@
-$1 Cover.idr < input
+$1 --no-banner Cover.idr < input

 rm -rf build
--- a/tests/idris2/error008/expected
+++ b/tests/idris2/error008/expected
@ -1,3 +1,2 @@
 File error in DoesntExist.idr: File Not Found
-Welcome to Idris 2. Enjoy yourself!
 Main> Bye for now!
--- a/tests/idris2/error008/run
+++ b/tests/idris2/error008/run
@ -1,3 +1,3 @@
-$1 DoesntExist.idr < input
+$1 --no-banner DoesntExist.idr < input

 rm -rf build
--- a/tests/idris2/error009/expected
+++ b/tests/idris2/error009/expected
@ -1,3 +1,2 @@
 Exists.idr:1:1--3:1:DoesntExist not found
-Welcome to Idris 2. Enjoy yourself!
 Main> Bye for now!
--- a/tests/idris2/error009/run
+++ b/tests/idris2/error009/run
@ -1,3 +1,3 @@
-$1 Exists.idr < input
+$1 --no-banner Exists.idr < input

 rm -rf build
--- a/tests/idris2/import001/expected
+++ b/tests/idris2/import001/expected
@ -1,10 +1,8 @@
 1/3: Building Nat (Nat.idr)
 2/3: Building Mult (Mult.idr)
 3/3: Building Test (Test.idr)
-Welcome to Idris 2. Enjoy yourself!
 Test> S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S Z)))))))))))))))))
 Test> Bye for now!
 2/3: Building Mult (Mult.idr)
-Welcome to Idris 2. Enjoy yourself!
 Test> S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S Z)))))))))))))))))
 Test> Bye for now!
--- a/tests/idris2/import001/run
+++ b/tests/idris2/import001/run
@ -1,6 +1,6 @@
-$1 --no-prelude Test.idr < input
+$1 --no-banner --no-prelude Test.idr < input
 sleep 1
 touch Mult.idr
-$1 --no-prelude Test.idr < input
+$1 --no-banner --no-prelude Test.idr < input

 rm -rf build
--- a/tests/idris2/import002/expected
+++ b/tests/idris2/import002/expected
@ -4,5 +4,4 @@
 Test.idr:5:9--5:13:While processing type of Test.thing at Test.idr:5:1--6:1:
 Name Nat.Nat is inaccessible since Nat is not explicitly imported
 Test.idr:6:1--8:1:No type declaration for Test.thing
-Welcome to Idris 2. Enjoy yourself!
 Test> Bye for now!
--- a/tests/idris2/import002/run
+++ b/tests/idris2/import002/run
@ -1,3 +1,3 @@
-echo ':q' | $1 --no-prelude Test.idr
+echo ':q' | $1 --no-banner --no-prelude Test.idr

 rm -rf build
--- a/tests/idris2/import003/expected
+++ b/tests/idris2/import003/expected
@ -1,9 +1,7 @@
 1/2: Building A (A.idr)
 2/2: Building B (B.idr)
-Welcome to Idris 2. Enjoy yourself!
 B> 1 hole: A.defA
 B> Bye for now!
 2/2: Building C (C.idr)
-Welcome to Idris 2. Enjoy yourself!
 C> 1 hole: C.newHole
 C> Bye for now!
--- a/tests/idris2/import003/run
+++ b/tests/idris2/import003/run
@ -1,4 +1,4 @@
-$1 B.idr < input
-$1 C.idr < input
+$1 --no-banner B.idr < input
+$1 --no-banner C.idr < input

 rm -rf build
--- a/tests/idris2/interactive001/expected
+++ b/tests/idris2/interactive001/expected
@ -1,5 +1,4 @@
 1/1: Building LocType (LocType.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> Main.Vect : Nat -> Type -> Type
 Main> xs : Vect k a
 Main> Bye for now!
--- a/tests/idris2/interactive001/run
+++ b/tests/idris2/interactive001/run
@ -1,3 +1,3 @@
-$1 LocType.idr < input
+$1 --no-banner LocType.idr < input

 rm -rf build
--- a/tests/idris2/interactive002/expected
+++ b/tests/idris2/interactive002/expected
@ -1,5 +1,4 @@
 1/1: Building IEdit (IEdit.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> append {n = Z} [] ys = ?foo_1
 append {n = (S k)} (x :: xs) ys = ?foo_2

--- a/tests/idris2/interactive002/run
+++ b/tests/idris2/interactive002/run
@ -1,3 +1,3 @@
-$1 IEdit.idr < input
+$1 --no-banner IEdit.idr < input

 rm -rf build
--- a/tests/idris2/interactive003/expected
+++ b/tests/idris2/interactive003/expected
@ -1,5 +1,4 @@
 1/1: Building IEdit (IEdit.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main>            [] => ?bar_1
           (x :: zs) => ?bar_2

@ -8,7 +7,6 @@ Main>   map f (MkFoo x) = ?baz_1

 Main> Bye for now!
 1/1: Building IEdit2 (IEdit2.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main>            (x :: []) => ?bar_5
           (x :: (y :: zs)) => ?bar_6

--- a/tests/idris2/interactive003/run
+++ b/tests/idris2/interactive003/run
@ -1,4 +1,4 @@
-$1 IEdit.idr < input
-$1 IEdit2.idr < input2
+$1 --no-banner IEdit.idr < input
+$1 --no-banner IEdit2.idr < input2

 rm -rf build
--- a/tests/idris2/interactive004/expected
+++ b/tests/idris2/interactive004/expected
@ -1,5 +1,4 @@
 1/1: Building IEdit (IEdit.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> f (x, y)
 Main> f (fst x) (snd x)
 Main> ys
--- a/tests/idris2/interactive004/run
+++ b/tests/idris2/interactive004/run
@ -1,3 +1,3 @@
-$1 IEdit.idr < input
+$1 --no-banner IEdit.idr < input

 rm -rf build
--- a/tests/idris2/interactive005/expected
+++ b/tests/idris2/interactive005/expected
@ -1,5 +1,4 @@
 1/1: Building IEdit (IEdit.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> my_cong x x Refl = Refl
 Main> curry f x y = f (x, y)
 Main> uncurry f x = f (fst x) (snd x)
--- a/tests/idris2/interactive005/run
+++ b/tests/idris2/interactive005/run
@ -1,3 +1,3 @@
-$1 IEdit.idr < input
+$1 --no-banner IEdit.idr < input

 rm -rf build
--- a/tests/idris2/interactive006/expected
+++ b/tests/idris2/interactive006/expected
@ -1,5 +1,4 @@
 1/1: Building IEdit (IEdit.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> empties : (m : Nat) -> Vect m (Vect Z a)
 empties m
 Main> transposeHelper : Vect k (Vect m a) -> Vect m a -> Vect m (Vect k a) -> Vect m (Vect (S k) a)
--- a/tests/idris2/interactive006/run
+++ b/tests/idris2/interactive006/run
@ -1,3 +1,3 @@
-$1 IEdit.idr < input
+$1 --no-banner IEdit.idr < input

 rm -rf build
--- a/tests/idris2/interactive007/expected
+++ b/tests/idris2/interactive007/expected
@ -1,5 +1,4 @@
 1/1: Building IEdit (IEdit.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> transposeHelper [] [] = []
 transposeHelper (x :: xs) (y :: ys) = (x :: y) :: transposeHelper xs ys
 Main> Bye for now!
--- a/tests/idris2/interactive007/run
+++ b/tests/idris2/interactive007/run
@ -1,3 +1,3 @@
-$1 IEdit.idr < input
+$1 --no-banner IEdit.idr < input

 rm -rf build
--- a/tests/idris2/interactive008/expected
+++ b/tests/idris2/interactive008/expected
@ -1,5 +1,4 @@
 1/1: Building IEdit (IEdit.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> \f => \g => \x => g (f x)
 Main> (\x => \zs => x :: zs)
 Main> f : a -> b -> c
--- a/tests/idris2/interactive008/run
+++ b/tests/idris2/interactive008/run
@ -1,3 +1,3 @@
-$1 IEdit.idr < input
+$1 --no-banner IEdit.idr < input

 rm -rf build
--- a/tests/idris2/interactive009/expected
+++ b/tests/idris2/interactive009/expected
@ -1,5 +1,4 @@
 1/1: Building Door (Door.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main>               (y @@ res) => ?now_4

 Main>               (True @@ d) => ?now_4
--- a/tests/idris2/interactive009/run
+++ b/tests/idris2/interactive009/run
@ -1,3 +1,3 @@
-$1 Door.idr < input
+$1 --no-banner Door.idr < input

 rm -rf build
--- a/tests/idris2/interactive010/expected
+++ b/tests/idris2/interactive010/expected
@ -1,5 +1,4 @@
 1/1: Building IEdit (IEdit.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main>     zipHere [] ys = []
    zipHere (x :: xs) (y :: ys) = (x, y) :: zipHere xs ys
 Main> Bye for now!
--- a/tests/idris2/interactive010/run
+++ b/tests/idris2/interactive010/run
@ -1,3 +1,3 @@
-$1 IEdit.idr < input
+$1 --no-banner IEdit.idr < input

 rm -rf build
--- a/tests/idris2/interactive011/expected
+++ b/tests/idris2/interactive011/expected
@ -1,5 +1,4 @@
 1/1: Building IEdit (IEdit.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> natElim p x f Z = x
 natElim p x f (S k) = f k (natElim p x f k)
 Main> f k (natElim2 p x f k)
--- a/tests/idris2/interactive011/run
+++ b/tests/idris2/interactive011/run
@ -1,3 +1,3 @@
-$1 IEdit.idr < input
+$1 --no-banner IEdit.idr < input

 rm -rf build
--- a/tests/idris2/interactive012/expected
+++ b/tests/idris2/interactive012/expected
@ -1,5 +1,4 @@
 1/1: Building WithLift (WithLift.idr)
-Welcome to Idris 2. Enjoy yourself!
 Main> succNotZero : (S k) = Z -> Void
 succNotZero
 Main> recNotEqLift : (k = j -> Void) -> (S k) = (S j) -> Void
--- a/tests/idris2/interactive012/run
+++ b/tests/idris2/interactive012/run
@ -1,3 +1,3 @@
-$1 WithLift.idr < input
+$1 --no-banner WithLift.idr < input

 rm -rf build
--- a/Show More
+++ b/Show More