Add list parenthesized pattern test case
@@ -340,6 +340,7 @@ Function Declarations With Lists
f :: [Int] -> Int
f [] = 0
f [a] = a
+f (a:bs) = a
---
@@ -359,6 +360,15 @@ f [a] = a
(function_head
(variable_identifier)
(list_pattern (variable_identifier)))
+ (function_body
+ (variable_identifier)))
+ (function_declaration
+ (function_head
+ (variable_identifier)
+ (parenthesized_pattern
+ (variable_identifier)
+ (constructor_symbol)
+ (variable_identifier)))
(function_body
(variable_identifier))))
