From 66fcbcea0b05807d1a3063f266384c0b36798154 Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Sun, 18 Dec 2022 13:46:14 +0000 Subject: syntax: rename "_" -> "*". --- src/Obs/Parser.idr | 2 +- src/Obs/Syntax.idr | 2 +- src/Obs/Term.idr | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src') 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) $ -- cgit v1.2.3