Rebuilding resource libraries.

Rebuilding resource libraries. Working with resource interfaces.
2003-10-21 15:15:47 +00:00
parent d0c7566791
commit 31e0deb017
15 changed files with 2072 additions and 24 deletions
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -112,6 +112,9 @@ ccompute cnc = comp []
          if noVar v' 
             then matchPatt cs v' >>= compt
             else return $ S u' v'
+        FV ccs -> do
+          v' <- compt v
+          mapM (\c -> compt (S c v')) ccs >>= return . FV

        _      -> liftM (S u') $ compt v