diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-18 13:46:14 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-18 13:46:14 +0000 |
| commit | 66fcbcea0b05807d1a3063f266384c0b36798154 (patch) | |
| tree | 83a9247b3bd1767db9ce16e21a9590c0996b9d1f | |
| parent | 00bab44d15ca4e1f0d77cfc8351056d22b83e225 (diff) | |
syntax: rename "_" -> "*".
| -rw-r--r-- | src/Obs/Parser.idr | 2 | ||||
| -rw-r--r-- | src/Obs/Syntax.idr | 2 | ||||
| -rw-r--r-- | src/Obs/Term.idr | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/src/Obs/Parser.idr b/src/Obs/Parser.idr index fbd1252..67446bf 100644 --- a/src/Obs/Parser.idr +++ b/src/Obs/Parser.idr @@ -102,7 +102,7 @@ obsTokenMap = toTokenMap [(newline, OTNewline), (spaces, OTIgnore)] ++ Nothing => Tok OTIdent s) ] ++ toTokenMap [ (digits, OTNat) - , (exact "_", OTPoint) + , (exact "*", OTPoint) , (exact "(", OTPOpen) , (exact ")", OTPClose) , (exact "=", OTEqual) diff --git a/src/Obs/Syntax.idr b/src/Obs/Syntax.idr index 07c625b..6b95910 100644 --- a/src/Obs/Syntax.idr +++ b/src/Obs/Syntax.idr @@ -36,7 +36,7 @@ Pretty Syntax where prettyPrec d (Var x str) = pretty str prettyPrec d (Sort x s) = prettyPrec d s prettyPrec d (Top x) = pretty "()" - prettyPrec d (Point x) = pretty "_" + prettyPrec d (Point x) = pretty "*" prettyPrec d (Bottom x) = pretty "Void" prettyPrec d (Absurd x a t) = parenthesise (d > Open) $ diff --git a/src/Obs/Term.idr b/src/Obs/Term.idr index 62a22bc..05b9a7f 100644 --- a/src/Obs/Term.idr +++ b/src/Obs/Term.idr @@ -53,7 +53,7 @@ Pretty (Term n) where prettyPrec d (Var x i) = pretty "$\{show i}" prettyPrec d (Sort x s) = prettyPrec d s prettyPrec d (Top x) = pretty "()" - prettyPrec d (Point x) = pretty "_" + prettyPrec d (Point x) = pretty "*" prettyPrec d (Bottom x) = pretty "Void" prettyPrec d (Absurd x a t) = parenthesise (d > Open) $ |