From 6a79b6fe2d3b55f1ea32aab961ecb10da4dc302d Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 9 May 2005 14:44:59 +0000
Subject: empty in pre

---
 src/GF/Grammar/Macros.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/GF/Grammar/Macros.hs')

diff --git a/src/GF/Grammar/Macros.hs b/src/GF/Grammar/Macros.hs
index db05f95a0..89866c6bd 100644
--- a/src/GF/Grammar/Macros.hs
+++ b/src/GF/Grammar/Macros.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/28 16:42:49 $ 
+-- > CVS $Date: 2005/05/09 15:45:00 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.20 $
+-- > CVS $Revision: 1.21 $
 --
 -- Macros for constructing and analysing source code terms.
 --
@@ -565,6 +565,7 @@ markLinFields f t = case t of
 strsFromTerm :: Term -> Err [Str]
 strsFromTerm t = case unComputed t of
   K s   -> return [str s]
+  Empty -> return [str []]
   C s t -> do
     s' <- strsFromTerm s
     t' <- strsFromTerm t
-- 
cgit v1.2.3