parseBoolean :: Parser AST.Prim
parseBoolean = parseTrue <|> parseFalse
  where
    parseTrue = (Lexer.reserved "true") >> return (AST.Boolean True)
    parseFalse = (Lexer.reserved "false") >> return (AST.Boolean False)
parseBoolean :: Parser AST.Prim
parseBoolean = parseTrue <|> parseFalse
  where
    parseTrue = (Lexer.reserved "true") >> return (AST.Boolean True)
    parseFalse = (Lexer.reserved "false") >> return (AST.Boolean False)
parseBoolean = parseTrue <|> parseFalse
  where
    parseTrue = (Lexer.reserved "true") >> return (AST.Boolean True)
    parseFalse = (Lexer.reserved "false") >> return (AST.Boolean False)