From 3b39607bbac8e6ab99198ab608f14e1f84c2f60e Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 24 Jun 2004 14:06:09 +0000
Subject: last-minute bug fixes

---
 src/GF/Grammar/Macros.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/GF/Grammar')

diff --git a/src/GF/Grammar/Macros.hs b/src/GF/Grammar/Macros.hs
index 5b82b5d1c..b2786e4c4 100644
--- a/src/GF/Grammar/Macros.hs
+++ b/src/GF/Grammar/Macros.hs
@@ -79,6 +79,10 @@ type MCat = (Ident,Ident)
 sortMCat :: String -> MCat
 sortMCat s = (zIdent "_", zIdent s)
 
+--- hack for Editing.actCat in empty state
+errorCat :: MCat
+errorCat = (zIdent "?", zIdent "?")
+
 getMCat :: Term -> Err MCat
 getMCat t = case t of
   Q  m c -> return (m,c)
-- 
cgit v1.2.3