From 6e9258558a9bcb8c9df4bee0382b5136c95f516a Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 24 Sep 2003 14:26:35 +0000
Subject: Improvements in hte editor.

---
 src/GF/CF/CFIdent.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/GF/CF')

diff --git a/src/GF/CF/CFIdent.hs b/src/GF/CF/CFIdent.hs
index d9c451adb..ab86b8bd4 100644
--- a/src/GF/CF/CFIdent.hs
+++ b/src/GF/CF/CFIdent.hs
@@ -107,6 +107,10 @@ idents2CFCat m c = ident2CFCat (CIQ m c) (identC "s")
 catVarCF :: CFCat
 catVarCF = ident2CFCat (mkCIdent "_" "#Var") (identC "_") ----
 
+cat2CFCat :: (Ident,Ident) -> CFCat
+cat2CFCat = uncurry idents2CFCat
+
+
 {- ----
 uCFCat :: CFCat
 uCFCat = cat2CFCat uCat
@@ -116,9 +120,8 @@ moduleOfCFCat :: CFCat -> Ident
 moduleOfCFCat (CFCat (CIQ m _, _)) = m
 
 -- the opposite direction
-cfCat2Cat :: CFCat -> CIdent   
-cfCat2Cat (CFCat (s,_)) = s
-
+cfCat2Cat :: CFCat -> (Ident,Ident)
+cfCat2Cat (CFCat (CIQ m c,_)) = (m,c)
 
 -- to construct CF tokens
 
-- 
cgit v1.2.3