mirror of
https://github.com/pavelchristof/syntax-example.git
synced 2024-08-15 13:10:21 +03:00
Fix formatting.
This commit is contained in:
parent
5317f92f7c
commit
a2906ceea3
2
Main.hs
2
Main.hs
@ -73,7 +73,7 @@ apps = bifoldl1 _App /$/ S.sepBy1 atom S.spaces1
|
||||
expr :: SyntaxChar syn Text => syn AST
|
||||
expr = _Abs /$~ S.char '\\' /*/ S.spaces_
|
||||
/*/ name /*/ S.spaces
|
||||
/*/ S.string "->" /*/ S.spaces
|
||||
/*/ S.string "->" /*/ S.spaces
|
||||
/*/ expr
|
||||
|
||||
/|/ _Let /$~ S.string "let" /*/ S.spaces1
|
||||
|
@ -51,7 +51,7 @@ description:
|
||||
> quoted = S.char '"' */ S.takeTill (=='"') /* S.char '"'
|
||||
>
|
||||
> -- | Encloses a symbol in parentheses.
|
||||
> parens :: SyntaxChar syn seq => syn a - > syn a
|
||||
> parens :: SyntaxChar syn seq => syn a -> syn a
|
||||
> parens m = S.char '(' */ S.spaces_ */ m /* S.spaces_ /* S.char ')'
|
||||
>
|
||||
> -- | A literal.
|
||||
|
Loading…
Reference in New Issue
Block a user