From c96162ba8b228e0e2db0202c4ee155103537488a Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Sun, 15 Aug 2004 21:02:10 +0000
Subject: experiments with unlexer

---
 src/GF/API.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/GF/API.hs')

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
 
 {- ----
-- 
cgit v1.2.3