msyds/gyehoek-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-05-07 10:03:37 -06:00
parent 9add4ed242
commit c716948932
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/Gyehoek/Sexp.hs
View File

@@ -37,9 +37,9 @@ let_ name rhs e = list (el (sym "let") >>> el bindings >>> el e)
data DotList a = MkDotList (NonEmpty a) a data DotList a = MkDotList (NonEmpty a) a
deriving (Show, Generic) deriving (Show, Generic)
dotlist :: Grammar Position _ _ -> _ dotlist :: (forall t. Grammar Position (Sexp :- t) (a :- t)) -> _
dotlist x = list $ rest $ coproduct dotlist x = list $ rest $ coproduct
[ x >>> iso _ _ [ x >>> _
] ]
lambda lambda