From eb145f5fcff6ca207dfbb4c4c90297f55451f97b Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 14 Oct 2007 14:08:41 +0000 Subject: [PATCH] adjusting parameter types in Romance and fixing some compilation bugs --- src/GF/Grammar/Compute.hs | 1 + 1 file changed, 1 insertion(+) 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]