From 233d6910e4716f078876541bfbd4ce6163ffd0c8 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 23 Apr 2004 13:45:07 +0000
Subject: ditt o datt

---
 src/GF/Compile/PrOld.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/PrOld.hs b/src/GF/Compile/PrOld.hs
index acce0ab67..4462fb95d 100644
--- a/src/GF/Compile/PrOld.hs
+++ b/src/GF/Compile/PrOld.hs
@@ -56,6 +56,8 @@ stripTerm t = case t of
                   TComp ty -> TComp $ stripTerm ty
                   TWild ty -> TWild $ stripTerm ty
                   _ -> ti
+  R [] -> EInt 8      --- GF 1.2 parser doesn't accept empty records 
+  RecType [] -> Cn "Int" ---
   _ -> composSafeOp stripTerm t
 
 stripPattern p = case p of
-- 
cgit v1.2.3