diff options
| author | aarne <unknown> | 2003-11-17 15:17:53 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-11-17 15:17:53 +0000 |
| commit | 70c9f7b365b07044c07837a04223a11dfa3b7140 (patch) | |
| tree | b39c484dd86d6226f716f241da0b4a85a630a6a0 /src/GF/CF/CF.hs | |
| parent | 9d55f72d7a97658faa6ebc890535fa0c6e665a05 (diff) | |
Lexer by need.
Diffstat (limited to 'src/GF/CF/CF.hs')
| -rw-r--r-- | src/GF/CF/CF.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/CF/CF.hs b/src/GF/CF/CF.hs index 0cff68b97..7c0013548 100644 --- a/src/GF/CF/CF.hs +++ b/src/GF/CF/CF.hs @@ -15,8 +15,9 @@ import Char (isUpper, isLower, toUpper, toLower) -- abstract type CF. -- Invariant: each category has all its rules grouped with it -- also: the list is never empty (the category is just missing then) -newtype CF = CF ([(CFCat,[CFRule])], CFPredef) +newtype CF = CF ([CFRuleGroup], CFPredef) type CFRule = (CFFun, (CFCat, [CFItem])) +type CFRuleGroup = (CFCat,[CFRule]) -- CFPredef is a hack for variable symbols and literals; normally = const [] data CFItem = CFTerm RegExp | CFNonterm CFCat deriving (Eq, Ord,Show) |