From 14510c80fa9d105ab61f0ecfb96ea89f7edf6587 Mon Sep 17 00:00:00 2001
From: Jon French
Date: Mon, 23 Apr 2018 16:04:37 +0100
Subject: start of string pattern matching: currently only literals

---
 src/parse_ast.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/parse_ast.ml')

diff --git a/src/parse_ast.ml b/src/parse_ast.ml
index 635caa9c..f71498be 100644
--- a/src/parse_ast.ml
+++ b/src/parse_ast.ml
@@ -251,6 +251,7 @@ pat_aux =  (* Pattern *)
  | P_tup of (pat) list (* tuple pattern *)
  | P_list of (pat) list (* list pattern *)
  | P_cons of pat * pat (* cons pattern *)
+ | P_string_append of pat * pat (* string append pattern, x ^^ y *)
 
 and pat = 
    P_aux of pat_aux * l
-- 
cgit v1.2.3