y_literal :: Parser (AST' Text)
array_literal = checkEmpty <$> brackets (commaSep expr)
  where checkEmpty [] = Empty
        checkEmpty xs = ArrayLiteral xs

pl
array_literal :: Parser (AST' Text)
array_literal = checkEmpty <$> brackets (commaSep expr)
  where checkEmpty [] = Empty
        checkEmpty xs = ArrayLiteral xs
array_literal = checkEmpty <$> brackets (commaSep expr)
  where checkEmpty [] = Empty
        checkEmpty xs = ArrayLiteral xs