From 25c86905867537f75e9fe2f19759d8747d465590 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 13 Nov 2003 08:17:28 +0000
Subject: Field lock in MkResource.

Field lock in MkResource.
Terrible bug fixed in Check Grammar.
---
 src/GF/Source/GrammarToSource.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Source')

diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs
index d38701eb6..3c785b322 100644
--- a/src/GF/Source/GrammarToSource.hs
+++ b/src/GF/Source/GrammarToSource.hs
@@ -118,6 +118,7 @@ trt trm = case trm of
     Prod x a b | isWildIdent x -> P.EProd (P.DExp (trt a)) (trt b)
     Prod x a b -> P.EProd (P.DDec [trb x] (trt a)) (trt b)
 
+    R [] -> P.ETuple [] --- to get correct parsing when read back
     R r -> P.ERecord $ map trAssign r
     RecType r -> P.ERecord $ map trLabelling r
     ExtR x y -> P.EExtend (trt x) (trt y)
-- 
cgit v1.2.3