From a9d4fecd33eef3ee94591be41af21a3a7da90d7e Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Tue, 15 Apr 2025 08:40:30 +0200
Subject: [PATCH] added export for EPatt

---
 src/compiler/api/GF/Grammar/JSON.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/compiler/api/GF/Grammar/JSON.hs b/src/compiler/api/GF/Grammar/JSON.hs
index 45a41d46d..0a373e5b1 100644
--- a/src/compiler/api/GF/Grammar/JSON.hs
+++ b/src/compiler/api/GF/Grammar/JSON.hs
@@ -139,6 +139,8 @@ term2json (Reset ctl t) =
   in makeObj [("reset",jctl), ("term",term2json t)]
 term2json (Alts def alts) = makeObj [("def",term2json def), ("alts",showJSON (map (\(t1,t2) -> (term2json t1, term2json t2)) alts))]
 term2json (Strs ts) = makeObj [("strs",showJSON (map term2json ts))]
+term2json (EPatt _ _ p) = makeObj [("epatt",patt2json p)]
+
 
 json2term o  = Vr      <$> o!:"vr"
     <|>  curry Q       <$> o!:"mod" <*> o!:"cn"