*** empty log message ***

2004-05-26 18:44:40 +00:00
parent 0f30a5a540
commit ddd70c8b35
9 changed files with 106 additions and 42 deletions
@@ -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])]