Add another tuple pattern case
@@ -280,6 +280,7 @@ Function Declarations With Tuples
f (1, 2) = 1
f (Just 1, Just 2) = Just 1
+f (Just a, Nothing) = Nothing
---
@@ -305,4 +306,14 @@ f (Just 1, Just 2) = Just 1
(function_body
(general_constructor
(constructor_identifier)
- (integer)))))
+ (integer))))
+ (function_declaration
+ (function_head
+ (variable_identifier)
+ (tuple_pattern
+ (general_constructor
+ (constructor_identifier)
+ (variable_identifier))
+ (constructor_identifier)))
+ (function_body
+ (constructor_identifier))))
