From 694f6eb984c8f22fe042e210b0671062accba8c7 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Thu, 8 Jun 2006 21:23:29 +0000
Subject: code polishing for the literal category support

---
 src/GF/Formalism/GCFG.hs | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'src/GF/Formalism/GCFG.hs')

diff --git a/src/GF/Formalism/GCFG.hs b/src/GF/Formalism/GCFG.hs
index 9cf47637a..bfe90bac9 100644
--- a/src/GF/Formalism/GCFG.hs
+++ b/src/GF/Formalism/GCFG.hs
@@ -29,10 +29,6 @@ data Abstract cat name = Abs cat [cat] name
 data Concrete lin term = Cnc lin [lin] term 
 			 deriving (Eq, Ord, Show)
 
-abstract2chart :: (Ord n, Ord e) => [Abstract e n] -> SyntaxChart n e
-abstract2chart rules = accumAssoc groupPairs $
-		       [ (e, (n, es)) | Abs e es n <- rules ]
-
 ----------------------------------------------------------------------
 
 instance (Print c, Print n, Print l, Print t) => Print (Rule n c l t) where
-- 
cgit v1.2.3