diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2023-01-02 16:50:48 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2023-01-02 16:50:48 +0000 |
| commit | c4bbe4ab5fa5953d468ac1509b37e03aace3085e (patch) | |
| tree | 2a2d409ae1d1c20d5ea18ffa1ac27d4626fa090b /src/Obs/Parser.idr | |
| parent | 74f0dc953839179aae071dda1ddb924295bc6061 (diff) | |
Add more program structure to raw syntax.
Diffstat (limited to 'src/Obs/Parser.idr')
| -rw-r--r-- | src/Obs/Parser.idr | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |