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/UseGrammar/Tokenize.hs | |
| parent | 36a68bce6ab94a4824698b9c3d7b4d0da4898eea (diff) | |
random gen to fill given term
Diffstat (limited to 'src/GF/UseGrammar/Tokenize.hs')
| -rw-r--r-- | src/GF/UseGrammar/Tokenize.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/UseGrammar/Tokenize.hs b/src/GF/UseGrammar/Tokenize.hs index b264075ba..22d70a9b1 100644 --- a/src/GF/UseGrammar/Tokenize.hs +++ b/src/GF/UseGrammar/Tokenize.hs @@ -29,7 +29,7 @@ mkCFTok s = case s of mkCFTokVar :: String -> CFTok mkCFTokVar s = case s of - '?':_:_ -> tM s + '?':_:_ -> tM s --- "?" --- compat with prCF 'x':'_':_ -> tV s 'x':[] -> tV s '$':xs@(_:_) -> if last s == '$' then tV (init xs) else tS s |