GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-04 16:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fixed local flags.

Browse Source
This commit is contained in:
aarne
2003-11-10 10:02:26 +00:00
parent 86662714a0
commit 9eb32352c4
5 changed files with 38 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/API.hs
View File

@@ -162,10 +162,11 @@ optLinearizeTreeVal :: Options -> GFGrammar -> Tree -> String
optLinearizeTreeVal opts gr = err id id . optLinearizeTree opts gr
optLinearizeTree :: Options -> GFGrammar -> Tree -> Err String
optLinearizeTree opts gr t = case getOptVal opts transferFun of
optLinearizeTree opts0 gr t = case getOptVal opts transferFun of
Just m -> useByTransfer flin g (I.identC m) t
_ -> flin t
where
opts = addOptions (stateOptions gr) opts0
flin = case getOptVal opts markLin of
Just mk
| mk == markOptXML -> lin markXML