some fixes

This commit is contained in:
aarne
2004-06-24 19:08:30 +00:00
parent 15a95cdbd2
commit 6c2401e657
4 changed files with 11 additions and 5 deletions

View File

@@ -189,7 +189,7 @@ 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
opts = addOptions opts0 (stateOptions gr)
flin = case getOptVal opts markLin of
Just mk
| mk == markOptXML -> lin markXML