diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-29 16:16:19 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-29 16:16:19 +0000 |
| commit | 2505bfc892ed4b2c7f5444be0c8295de121f84b0 (patch) | |
| tree | d9d00d6a547d42e699ab008a0fca5a0180109497 /src-3.0/GF/Grammar | |
| parent | 96bdd18dc3822acf307129bc8348ba7ace563807 (diff) | |
fixing number of interrogatives in English Structural
Diffstat (limited to 'src-3.0/GF/Grammar')
| -rw-r--r-- | src-3.0/GF/Grammar/PrGrammar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Grammar/PrGrammar.hs b/src-3.0/GF/Grammar/PrGrammar.hs index 9867aaef5..1b824da32 100644 --- a/src-3.0/GF/Grammar/PrGrammar.hs +++ b/src-3.0/GF/Grammar/PrGrammar.hs @@ -245,7 +245,7 @@ prRefinement t = case t of prOperSignature :: (QIdent,Type) -> String prOperSignature (f, t) = prQIdent f +++ ":" +++ prt t --- to look up a constant etc in a search tree +-- to look up a constant etc in a search tree --- why here? AR 29/5/2008 lookupIdent :: Ident -> BinTree Ident b -> Err b lookupIdent c t = case lookupTree prt c t of |