diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Grammar/Compute.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs index 5970d96ef..043c2bd7e 100644 --- a/src/GF/Grammar/Compute.hs +++ b/src/GF/Grammar/Compute.hs @@ -235,6 +235,7 @@ computeTermOpt rec gr = comp 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) _ -> do mapM_ checkNoArgVars [x,y] |