diff --git a/src/Lexer.hs b/src/Lexer.hs index 273a0fe..436ebfe 100644 --- a/src/Lexer.hs +++ b/src/Lexer.hs @@ -136,12 +136,12 @@ delimitedAsTuple openP closeP = <*> located (Token <$> anyUntil closeP) <*> located closeP -delimited :: Parser a -> Parser b -> Token -> Token -> Parser [LocatedToken] +delimited :: Parser open -> Parser close -> Token -> Token -> Parser [LocatedToken] delimited openP closeP openTok closeTok = asList <$> delimitedAsTuple (openTok <$ openP) (closeTok <$ closeP) where asList (a, tok, b) = [a, tok, b] -delimitedNoTrailing :: Parser a -> Parser b -> Token -> Parser [LocatedToken] +delimitedNoTrailing :: Parser open -> Parser close -> Token -> Parser [LocatedToken] delimitedNoTrailing openP closeP openTok = asList <$> delimitedAsTuple (openTok <$ openP) (void closeP) where asList (a, tok, _) = [a, tok]