diff options
Diffstat (limited to 'src/GF/Canon')
| -rw-r--r-- | src/GF/Canon/Look.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs index 1fef9b586..1ac39c695 100644 --- a/src/GF/Canon/Look.hs +++ b/src/GF/Canon/Look.hs @@ -158,6 +158,9 @@ ccompute cnc = comp [] R rs -> maybe (Bad ("unknown label" +++ prt l +++ "in" +++ prt u')) return $ lookup l [ (x,y) | Ass x y <- rs] + FV rrs -> do + mapM (\r -> compt (P r l)) rrs >>= return . FV + _ -> return $ P u' l FV ts -> liftM FV (mapM compt ts) C E b -> compt b |