experiments with unlexer

1 files changed, 5 insertions, 1 deletions

diff --git a/src/GF/API.hs b/src/GF/API.hs
index 2d23da0f6..5a55f5b1f 100644
--- a/src/GF/API.hs
+++ b/src/GF/API.hs
@@ -26,6 +26,7 @@ import CMacros
 import Transfer
 import qualified Generate as Gen
 
+import Text (untokWithXML)
 import Option
 import Custom
 import ShellState
@@ -208,7 +209,10 @@ optLinearizeTree opts0 gr t = case getOptVal opts transferFun of
     | otherwise = return . unlines . map untok . optIntOrOne . linTree2strings mk g c
   g = grammar gr
   c = cncId gr
-  untok = customOrDefault opts useUntokenizer customUntokenizer gr
+  untok = if False ---- oElem (markLin markOptXML) opts 
+            then untokWithXML unt
+            else unt  
+  unt = customOrDefault opts useUntokenizer customUntokenizer gr
   optIntOrOne = take $ optIntOrN opts flagNumber 1
 
 {- ----