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/UseGrammar | |
| parent | d3db78ad31fe8b27c7ebb4e05b92d4c3986cb119 (diff) | |
last-minute bug fixes
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Editing.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/UseGrammar/Editing.hs b/src/GF/UseGrammar/Editing.hs index 6f444efe8..b740d6d08 100644 --- a/src/GF/UseGrammar/Editing.hs +++ b/src/GF/UseGrammar/Editing.hs @@ -5,6 +5,7 @@ import qualified GFC import TypeCheck import LookAbs import AbsCompute +import Macros (errorCat) import Operations import Zipper @@ -35,7 +36,7 @@ actVal :: State -> Val actVal = valNode . nodeTree . actTree actCat :: State -> Cat -actCat = errVal undefined . val2cat . actVal ---- undef +actCat = errVal errorCat . val2cat . actVal ---- undef actAtom :: State -> Atom actAtom = atomTree . actTree |