mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-09-11 16:05:51 +03:00
Add '--no-banner' option
This commit is contained in:
parent
f9739b3f66
commit
0722b96fef
@ -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
|
||||
|
||||
|
@ -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]
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Total.idr < input
|
||||
$1 --no-banner Total.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,2 +1,2 @@
|
||||
$1 Pythag.idr < input
|
||||
$1 --no-banner Pythag.idr < input
|
||||
rm -rf build
|
||||
|
@ -3,5 +3,4 @@
|
||||
188
|
||||
188
|
||||
1/1: Building IORef (IORef.idr)
|
||||
Welcome to Idris 2. Enjoy yourself!
|
||||
Main> Main> Bye for now!
|
||||
|
@ -1,2 +1,2 @@
|
||||
$1 IORef.idr < input
|
||||
$1 --no-banner IORef.idr < input
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,2 +1,2 @@
|
||||
$1 Buffer.idr < input
|
||||
$1 --no-banner Buffer.idr < input
|
||||
rm -rf build test.buf
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Filter.idr < input
|
||||
$1 --no-banner Filter.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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' _
|
||||
|
@ -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
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 TypeCase.idr < input
|
||||
$1 --no-banner TypeCase.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -2,5 +2,4 @@
|
||||
1
|
||||
1
|
||||
1/1: Building Nat (Nat.idr)
|
||||
Welcome to Idris 2. Enjoy yourself!
|
||||
Main> Main> Bye for now!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Nat.idr < input
|
||||
$1 --no-banner Nat.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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:
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 --no-prelude Vect.idr < input
|
||||
$1 --no-banner --no-prelude Vect.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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)))
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 --no-prelude Do.idr < input
|
||||
$1 --no-banner --no-prelude Do.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 --no-prelude Wheres.idr < input
|
||||
$1 --no-banner --no-prelude Wheres.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
echo ':q' | $1 --no-prelude NoInfer.idr
|
||||
echo ':q' | $1 --no-banner --no-prelude NoInfer.idr
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 --no-prelude PMLet.idr < input
|
||||
$1 --no-banner --no-prelude PMLet.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 --no-prelude DoLocal.idr < input
|
||||
$1 --no-banner --no-prelude DoLocal.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -1,5 +1,4 @@
|
||||
1/1: Building If (If.idr)
|
||||
Welcome to Idris 2. Enjoy yourself!
|
||||
Main> "Zero"
|
||||
Main> "Odd"
|
||||
Main> "Even"
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 --no-prelude If.idr < input
|
||||
$1 --no-banner --no-prelude If.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 --no-prelude LetCase.idr < input
|
||||
$1 --no-banner --no-prelude LetCase.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 --no-prelude Comp.idr < input
|
||||
$1 --no-banner --no-prelude Comp.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 CaseInf.idr < input
|
||||
$1 --no-banner CaseInf.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 CaseBlock.idr < input
|
||||
$1 --no-banner CaseBlock.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -1,5 +1,4 @@
|
||||
1/1: Building Mut (Mut.idr)
|
||||
Welcome to Idris 2. Enjoy yourself!
|
||||
Main> MyTrue
|
||||
Main> MyFalse
|
||||
Main> (True, False)
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Mut.idr < input
|
||||
$1 --no-banner Mut.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 CaseDep.idr < input
|
||||
$1 --no-banner CaseDep.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Erase.idr < input
|
||||
$1 --no-banner Erase.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Params.idr < input
|
||||
$1 --no-banner Params.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 PatLam.idr < input
|
||||
$1 --no-banner PatLam.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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]
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 < input
|
||||
$1 --no-banner < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
@ -1,5 +1,5 @@
|
||||
unset IDRIS2_PATH
|
||||
|
||||
$1 --no-prelude < input
|
||||
$1 --no-banner --no-prelude < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Vect.idr < input
|
||||
$1 --no-banner Vect.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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:
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Vect.idr < input
|
||||
$1 --no-banner Vect.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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 _, _)
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Cover.idr < input
|
||||
$1 --no-banner Cover.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Cover.idr < input
|
||||
$1 --no-banner Cover.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -1,3 +1,2 @@
|
||||
File error in DoesntExist.idr: File Not Found
|
||||
Welcome to Idris 2. Enjoy yourself!
|
||||
Main> Bye for now!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 DoesntExist.idr < input
|
||||
$1 --no-banner DoesntExist.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -1,3 +1,2 @@
|
||||
Exists.idr:1:1--3:1:DoesntExist not found
|
||||
Welcome to Idris 2. Enjoy yourself!
|
||||
Main> Bye for now!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Exists.idr < input
|
||||
$1 --no-banner Exists.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -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
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
echo ':q' | $1 --no-prelude Test.idr
|
||||
echo ':q' | $1 --no-banner --no-prelude Test.idr
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -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
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 LocType.idr < input
|
||||
$1 --no-banner LocType.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 IEdit.idr < input
|
||||
$1 --no-banner IEdit.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 IEdit.idr < input
|
||||
$1 --no-banner IEdit.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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)
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 IEdit.idr < input
|
||||
$1 --no-banner IEdit.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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)
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 IEdit.idr < input
|
||||
$1 --no-banner IEdit.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 IEdit.idr < input
|
||||
$1 --no-banner IEdit.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 IEdit.idr < input
|
||||
$1 --no-banner IEdit.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 Door.idr < input
|
||||
$1 --no-banner Door.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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!
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 IEdit.idr < input
|
||||
$1 --no-banner IEdit.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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)
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 IEdit.idr < input
|
||||
$1 --no-banner IEdit.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
@ -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
|
||||
|
@ -1,3 +1,3 @@
|
||||
$1 WithLift.idr < input
|
||||
$1 --no-banner WithLift.idr < input
|
||||
|
||||
rm -rf build
|
||||
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user