From c4bbe4ab5fa5953d468ac1509b37e03aace3085e Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Mon, 2 Jan 2023 16:50:48 +0000 Subject: Add more program structure to raw syntax. --- src/Obs/Parser.idr | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Obs/Parser.idr') diff --git a/src/Obs/Parser.idr b/src/Obs/Parser.idr index f92a0e2..8eea42c 100644 --- a/src/Obs/Parser.idr +++ b/src/Obs/Parser.idr @@ -266,8 +266,8 @@ termForms = headForms : List (ObsTokenKind, (n ** (Vect (S n) (WithBounds Syntax) -> Syntax))) headForms = - [ (OTFst, (0 ** uncurry 1 Fst)) - , (OTSnd, (0 ** uncurry 1 Snd)) + [ (OTFst, (0 ** uncurry 1 First)) + , (OTSnd, (0 ** uncurry 1 Second)) , (OTAbsurd, (0 ** uncurry 1 Absurd)) , (OTRefl, (0 ** uncurry 1 Refl)) , (OTTransp, (4 ** (uncurry 5 Transp))) -- cgit v1.2.3