From f7b978f0632bcc3db1f5d5ec7337520d0ec667c8 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 31 Jan 2014 08:52:32 +0000 Subject: [PATCH] fix in the bracketedLinearize in Haskell --- src/runtime/haskell/PGF/Linearize.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/runtime/haskell/PGF/Linearize.hs b/src/runtime/haskell/PGF/Linearize.hs index 6ec339bd5..ea560165d 100644 --- a/src/runtime/haskell/PGF/Linearize.hs +++ b/src/runtime/haskell/PGF/Linearize.hs @@ -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 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 cnc = lookMap (error "no lang") lang (concretes pgf) --- head [] = error "cannot linearize" - head [] = Leaf "" - -- so that linearize = flattenBracketedString . bracketedLinearize + head [] = [] head (bs:bss) = bs firstLin cnc arg@(ct@(cat,n_fid),fid,fun,es,(xs,lin)) =