From e3e0da73ac68efd2748c321bf0796dc8faa3aba9 Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Wed, 26 May 2004 18:44:40 +0000
Subject: *** empty log message ***

---
 src/GF/CF/CFIdent.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/GF/CF/CFIdent.hs')

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])]
 
-- 
cgit v1.2.3