forked from GitHub/gf-core
resource.txt updates ; lock field and lookup book fixes
This commit is contained in:
@@ -82,7 +82,7 @@ mkCncGroups opts0 ((res,path),files) = do
|
||||
return
|
||||
(\cat s ->
|
||||
errVal ([],"No parse") $
|
||||
optParseArgErrMsg (options [newMParser, firstCat cat, beVerbose]) gr s >>=
|
||||
optParseArgErrMsg (options [newFParser, firstCat cat, beVerbose]) gr s >>=
|
||||
(\ (ts,e) -> return (map tree2exp ts, e)) ,
|
||||
isKnownWord gr)
|
||||
putStrLn "Building parser"
|
||||
|
||||
@@ -204,7 +204,9 @@ renameTerm env vars = ren vars where
|
||||
| elem r vs -> return trm -- var proj first
|
||||
| otherwise -> case renid (Q r (label2ident l)) of -- qualif second
|
||||
Ok t -> return t
|
||||
_ -> liftM (flip P l) $ renid t -- const proj last
|
||||
_ -> case liftM (flip P l) $ renid t of
|
||||
Ok t -> return t -- const proj last
|
||||
_ -> prtBad "unknown qualified constant" trm
|
||||
|
||||
_ -> composOp (ren vs) trm
|
||||
|
||||
|
||||
Reference in New Issue
Block a user