diff options
| author | aarne <unknown> | 2004-06-24 14:06:09 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-06-24 14:06:09 +0000 |
| commit | 3b39607bbac8e6ab99198ab608f14e1f84c2f60e (patch) | |
| tree | 35b823c38ef0ed7439f1a057d939fbdfa96bc719 /src/GF/Grammar | |
| parent | d3db78ad31fe8b27c7ebb4e05b92d4c3986cb119 (diff) | |
last-minute bug fixes
Diffstat (limited to 'src/GF/Grammar')
| -rw-r--r-- | src/GF/Grammar/Macros.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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) |