2020-05-30 00:40:29 +03:00
|
|
|
1/1: Building quote (quote.idr)
|
2020-07-28 15:11:42 +03:00
|
|
|
Error: While processing right hand side of bad. When unifying Int and TTImp.
|
|
|
|
Mismatch between: Int and TTImp.
|
|
|
|
|
|
|
|
quote.idr:25:19--25:22
|
2021-02-11 20:24:26 +03:00
|
|
|
21 | bad : Int -> TTImp
|
|
|
|
22 | bad val
|
|
|
|
23 | = `(let xfn : Int -> Int
|
|
|
|
24 | xfn var = var * 2 in
|
2020-07-22 22:16:43 +03:00
|
|
|
25 | xfn ~(val))
|
2021-02-11 20:24:26 +03:00
|
|
|
^^^
|
2020-07-28 15:11:42 +03:00
|
|
|
|
2020-09-16 00:29:48 +03:00
|
|
|
Error: %language ElabReflection not enabled
|
|
|
|
|
|
|
|
quote.idr:33:1--33:21
|
2021-02-11 20:24:26 +03:00
|
|
|
29 |
|
|
|
|
30 | noExtension : Elab ()
|
|
|
|
31 | noExtension = fail "Should not print this message"
|
|
|
|
32 |
|
2020-09-16 00:29:48 +03:00
|
|
|
33 | %runElab noExtension
|
2021-02-11 20:24:26 +03:00
|
|
|
^^^^^^^^^^^^^^^^^^^^
|
2020-09-16 00:29:48 +03:00
|
|
|
|
|
|
|
Error: Error during reflection: Should not print this message
|
|
|
|
|
|
|
|
quote.idr:37:1--37:21
|
2021-02-11 20:24:26 +03:00
|
|
|
33 | %runElab noExtension
|
|
|
|
34 |
|
|
|
|
35 | %language ElabReflection
|
|
|
|
36 |
|
2020-09-16 00:29:48 +03:00
|
|
|
37 | %runElab noExtension
|
2021-02-11 20:24:26 +03:00
|
|
|
^^^^^^^^^^^^^^^^^^^^
|
2020-09-16 00:29:48 +03:00
|
|
|
|
2020-05-30 00:40:29 +03:00
|
|
|
Main> IApp (MkFC "quote.idr" (3, 12) (3, 23)) (IApp (MkFC "quote.idr" (3, 12) (3, 23)) (IVar (MkFC "quote.idr" (3, 12) (3, 23)) (UN "+")) (IApp (MkFC "quote.idr" (6, 13) (6, 14)) (IVar (MkFC "quote.idr" (6, 13) (6, 14)) (UN "fromInteger")) (IPrimVal (MkFC "quote.idr" (6, 13) (6, 14)) (BI 3)))) (IApp (MkFC "quote.idr" (6, 18) (6, 19)) (IVar (MkFC "quote.idr" (6, 18) (6, 19)) (UN "fromInteger")) (IPrimVal (MkFC "quote.idr" (6, 18) (6, 19)) (BI 4)))
|
|
|
|
Main> IApp (MkFC "quote.idr" (3, 12) (3, 23)) (IApp (MkFC "quote.idr" (3, 12) (3, 23)) (IVar (MkFC "quote.idr" (3, 12) (3, 23)) (UN "+")) (IVar (MkFC "(interactive)" (0, 6) (0, 10)) (UN "True"))) (IVar (MkFC "(interactive)" (0, 14) (0, 19)) (UN "False"))
|
2021-04-07 14:21:17 +03:00
|
|
|
Main> ILocal (MkFC "quote.idr" (10, 12) (11, 29)) [IClaim (MkFC "quote.idr" (10, 12) (10, 28)) MW Private [] (MkTy (MkFC "quote.idr" (10, 12) (10, 15)) (MkFC "quote.idr" (10, 12) (10, 15)) (UN "xfn") (IPi (MkFC "quote.idr" (10, 18) (10, 21)) MW ExplicitArg Nothing (IPrimVal (MkFC "quote.idr" (10, 18) (10, 21)) IntType) (IPrimVal (MkFC "quote.idr" (10, 25) (10, 28)) IntType))), IDef (MkFC "quote.idr" (11, 12) (11, 29)) (UN "xfn") [PatClause (MkFC "quote.idr" (11, 12) (11, 29)) (IApp (MkFC "quote.idr" (11, 12) (11, 19)) (IVar (MkFC "quote.idr" (11, 12) (11, 15)) (UN "xfn")) (IBindVar (MkFC "quote.idr" (11, 16) (11, 19)) "var")) (IApp (MkFC "quote.idr" (11, 22) (11, 29)) (IApp (MkFC "quote.idr" (11, 22) (11, 29)) (IVar (MkFC "quote.idr" (11, 22) (11, 29)) (UN "*")) (IVar (MkFC "quote.idr" (11, 22) (11, 25)) (UN "var"))) (IApp (MkFC "quote.idr" (11, 28) (11, 29)) (IVar (MkFC "quote.idr" (11, 28) (11, 29)) (UN "fromInteger")) (IPrimVal (MkFC "quote.idr" (11, 28) (11, 29)) (BI 2))))]] (IApp (MkFC "quote.idr" (12, 12) (12, 22)) (IVar (MkFC "quote.idr" (12, 12) (12, 15)) (UN "xfn")) (IApp (MkFC "(interactive)" (0, 9) (0, 22)) (IApp (MkFC "(interactive)" (0, 9) (0, 22)) (IVar (MkFC "(interactive)" (0, 9) (0, 12)) (UN "the")) (IPrimVal (MkFC "(interactive)" (0, 13) (0, 16)) IntType)) (IApp (MkFC "(interactive)" (0, 17) (0, 22)) (IVar (MkFC "(interactive)" (0, 17) (0, 22)) (UN "fromInteger")) (IPrimVal (MkFC "(interactive)" (0, 17) (0, 22)) (BI 99994)))))
|
|
|
|
Main> ILocal (MkFC "quote.idr" (16, 12) (17, 29)) [IClaim (MkFC "quote.idr" (16, 12) (16, 28)) MW Private [] (MkTy (MkFC "quote.idr" (16, 12) (16, 15)) (MkFC "quote.idr" (16, 12) (16, 15)) (UN "xfn") (IPi (MkFC "quote.idr" (16, 18) (16, 21)) MW ExplicitArg Nothing (IPrimVal (MkFC "quote.idr" (16, 18) (16, 21)) IntType) (IPrimVal (MkFC "quote.idr" (16, 25) (16, 28)) IntType))), IDef (MkFC "quote.idr" (17, 12) (17, 29)) (UN "xfn") [PatClause (MkFC "quote.idr" (17, 12) (17, 29)) (IApp (MkFC "quote.idr" (17, 12) (17, 19)) (IVar (MkFC "quote.idr" (17, 12) (17, 15)) (UN "xfn")) (IBindVar (MkFC "quote.idr" (17, 16) (17, 19)) "var")) (IApp (MkFC "quote.idr" (17, 22) (17, 29)) (IApp (MkFC "quote.idr" (17, 22) (17, 29)) (IVar (MkFC "quote.idr" (17, 22) (17, 29)) (UN "*")) (IVar (MkFC "quote.idr" (17, 22) (17, 25)) (UN "var"))) (IApp (MkFC "quote.idr" (17, 28) (17, 29)) (IVar (MkFC "quote.idr" (17, 28) (17, 29)) (UN "fromInteger")) (IPrimVal (MkFC "quote.idr" (17, 28) (17, 29)) (BI 2))))]] (IApp (MkFC "quote.idr" (18, 12) (18, 43)) (IVar (MkFC "quote.idr" (18, 12) (18, 15)) (UN "xfn")) (IPrimVal EmptyFC (I 99994)))
|
2020-09-05 11:41:31 +03:00
|
|
|
Main> [UN "names", NS (MkNS ["Prelude"]) (UN "+")]
|
2020-05-30 00:40:29 +03:00
|
|
|
Main> Bye for now!
|