diff options
| author | peb <unknown> | 2004-05-26 18:44:40 +0000 |
|---|---|---|
| committer | peb <unknown> | 2004-05-26 18:44:40 +0000 |
| commit | e3e0da73ac68efd2748c321bf0796dc8faa3aba9 (patch) | |
| tree | 4919d5d3c7d18bcbe01b25f84fc79f55c6e575c1 /src/GF/CF/CFIdent.hs | |
| parent | 2945d9bcb8fea2ddf07c60ff45f5fcd600378b14 (diff) | |
*** empty log message ***
Diffstat (limited to 'src/GF/CF/CFIdent.hs')
| -rw-r--r-- | src/GF/CF/CFIdent.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/CF/CFIdent.hs b/src/GF/CF/CFIdent.hs index 28903e5d7..8e45902cb 100644 --- a/src/GF/CF/CFIdent.hs +++ b/src/GF/CF/CFIdent.hs @@ -46,7 +46,8 @@ prCFTok t = case t of 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) +newtype CFFun = CFFun (Atom, Profile) deriving (Eq,Ord,Show) +-- - - - - - - - - - - - - - - - - - - - - ^^^ added by peb, 21/5-04 type Profile = [([[Int]],[Int])] |