msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

it's also a comonad. lol.

Browse Source
This commit is contained in:
crumbtoo
2024-01-26 17:53:05 -07:00
parent 8d0f324c63
commit e00e4d3418
3 changed files with 30 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Rlp/Parse.y
View File

@@ -13,6 +13,9 @@ import Lens.Micro.Platform
import Data.List.Extra
import Data.Fix
import Data.Functor.Const
import Data.Functor.Apply
import Data.Functor.Bind
import Control.Comonad
import Data.Functor
import Data.Text qualified as T
import Data.Void
@@ -125,14 +128,14 @@ Params : {- epsilon -} { [] }
Pat1 :: { Pat' RlpcPs }
: Var { undefined }
| Lit { LitP <$> $1 }
| Lit { LitP <<= $1 }
Expr :: { RlpExpr' RlpcPs }
: Expr1 varsym Expr { undefined }
| Expr1 { $1 }
Expr1 :: { RlpExpr' RlpcPs }
: '(' Expr ')' { fmap ParE' $2 }
: '(' Expr ')' { $1 .> $2 <. $3 }
| Lit { fmap LitE' $1 }
| Var { fmap VarE' $1 }