diff --git a/Main.hs b/Main.hs index 7af8b72..96047de 100644 --- a/Main.hs +++ b/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 diff --git a/syntax-example.cabal b/syntax-example.cabal index a1600d4..18229e8 100644 --- a/syntax-example.cabal +++ b/syntax-example.cabal @@ -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.