diff options
Diffstat (limited to 'src/GF/Grammar/Compute.hs')
| -rw-r--r-- | src/GF/Grammar/Compute.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs index 1fda827eb..24f475f03 100644 --- a/src/GF/Grammar/Compute.hs +++ b/src/GF/Grammar/Compute.hs @@ -125,6 +125,8 @@ computeTermOpt rec gr = comp where _ -> returnC $ P t' l + PI t l i -> comp g $ P t l ----- + S t@(T _ cc) v -> do v' <- comp g v case v' of @@ -258,7 +260,6 @@ computeTermOpt rec gr = comp where -- if there are no variables, don't even go inside cs' <- if (null g) then return cs else mapPairsM (comp g) cs return $ T i cs' - --- this means some extra work; should implement TSh directly TSh i cs -> comp g $ T i [(p,v) | (ps,v) <- cs, p <- ps] |