diff options
| author | aarne <unknown> | 2004-04-30 11:28:35 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-30 11:28:35 +0000 |
| commit | c9d10ab5ed8b82ba0f74a25ca30103ccf0985e6d (patch) | |
| tree | 610a280c538abc742941b5d31b7d5912d0f7b0bd /src/GF/CF | |
| parent | 36a68bce6ab94a4824698b9c3d7b4d0da4898eea (diff) | |
random gen to fill given term
Diffstat (limited to 'src/GF/CF')
| -rw-r--r-- | src/GF/CF/CFIdent.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/CF/CFIdent.hs b/src/GF/CF/CFIdent.hs index 95d532e2d..28903e5d7 100644 --- a/src/GF/CF/CFIdent.hs +++ b/src/GF/CF/CFIdent.hs @@ -43,7 +43,7 @@ prCFTok t = case t of TL s -> s TI i -> show i TV x -> prt x - TM i _ -> "?" --- + TM i m -> m --- "?" --- m -- to build trees: the Atom contains a GF function, Cn | Meta | Vr | Literal newtype CFFun = CFFun (Atom, Profile) deriving (Eq,Show) @@ -157,6 +157,8 @@ str2cftoks = map tS . words . sstr compatToks :: [CFTok] -> [CFTok] -> Bool compatToks ts us = and [compatTok t u | (t,u) <- zip ts us] +compatTok (TM _ _) _ = True --- hack because metas are renamed +compatTok _ (TM _ _) = True compatTok t u = any (`elem` (alts t)) (alts u) where alts u = case u of TC (c:s) -> [toLower c : s, toUpper c : s] |