GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-06 03:55:26 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix in the bracketedLinearize in Haskell

Browse Source
This commit is contained in:
kr.angelov committed 2014-01-31 08:52:32 +00:00
1 parent f0ddf0fe72
commit e6ab8c4aa4
1 file changed
+2 -4
Download Patch File Download Diff File Expand all files Collapse all files
src/runtime/haskell/PGF/Linearize.hs
+2 -4
View File
@@ -39,13 +39,11 @@ linearizeAllLang pgf t = [(lang,linearize pgf lang t) | lang <- Map.keys (concre
-- | Linearizes given expression as a bracketed string in the language -- | Linearizes given expression as a bracketed string in the language
bracketedLinearize :: PGF -> Language -> Tree -> [BracketedString] bracketedLinearize :: PGF -> Language -> Tree -> [BracketedString]
bracketedLinearize pgf lang = concat . map (snd . untokn Nothing . firstLin cnc) . linTree pgf cnc bracketedLinearize pgf lang = head . map (snd . untokn Nothing . firstLin cnc) . linTree pgf cnc
where where
cnc = lookMap (error "no lang") lang (concretes pgf) cnc = lookMap (error "no lang") lang (concretes pgf)
-- head [] = error "cannot linearize" head [] = []
head [] = Leaf ""
-- so that linearize = flattenBracketedString . bracketedLinearize
head (bs:bss) = bs head (bs:bss) = bs
firstLin cnc arg@(ct@(cat,n_fid),fid,fun,es,(xs,lin)) = firstLin cnc arg@(ct@(cat,n_fid),fid,fun,es,(xs,lin)) =