diff options
| -rw-r--r-- | src/compiler/GF/Compile/Compute/ConcreteLazy.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler/GF/Compile/Compute/ConcreteLazy.hs b/src/compiler/GF/Compile/Compute/ConcreteLazy.hs index c5bdc8a75..4107329fb 100644 --- a/src/compiler/GF/Compile/Compute/ConcreteLazy.hs +++ b/src/compiler/GF/Compile/Compute/ConcreteLazy.hs @@ -195,7 +195,8 @@ computeTermOpt gr = comput True where ---- foldr1 C (map K (str2strings (glueStr v (str a)))) | v <- x'] ,return $ Glue x y ] - (C u v,_) -> comp g $ C u (Glue v y) -- (u ++ v) + y + (C u v,_) -> comp g $ C u (Glue v y) -- (u ++ v) + y + (_,C u v) -> comp g $ C (Glue x u) v -- x ++ (u ++ v) _ -> do mapM_ checkNoArgVars [x,y] |