diff options
| author | aarne <unknown> | 2004-06-24 15:13:40 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-06-24 15:13:40 +0000 |
| commit | 22e3bdce0251ce840a440a2c04c8c229d4c74947 (patch) | |
| tree | 75ddad662faa86883cc1dc82738704a277450225 /src | |
| parent | 0a6ded780f00ca715c0ea4d82744b2d3368ac942 (diff) | |
fixed unlexer
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/API.hs | 2 | ||||
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/API.hs b/src/GF/API.hs index 62318c743..0a1f2ee1a 100644 --- a/src/GF/API.hs +++ b/src/GF/API.hs @@ -205,7 +205,7 @@ optLinearizeTree opts0 gr t = case getOptVal opts transferFun of allLinTables g c | oElem showAll opts = liftM (unlines . map untok . prLinTable False) . allLinTables g c - | otherwise = return . unlines . optIntOrOne . linTree2strings mk g c + | otherwise = return . unlines . map untok . optIntOrOne . linTree2strings mk g c g = grammar gr c = cncId gr untok = customOrDefault opts useUntokenizer customUntokenizer gr diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 7ab28b34e..3fb386c79 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -303,6 +303,7 @@ customUntokenizer = ,(strCI "codelit", const $ formatAsCodeLit) ,(strCI "concat", const $ concat . words) ,(strCI "glue", const $ performBinds) + ,(strCI "reverse", const $ reverse) ,(strCI "bind", const $ performBinds) -- backward compat -- add your own untokenizers here ] |