From b447cf1a047a6f6e1c4945e809bffa57c88a08af Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 13 Dec 2007 20:19:47 +0000
Subject: new GFCC concrete syntax in place everywhere

---
 src/GF/GFCC/Macros.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/GF/GFCC/Macros.hs')

diff --git a/src/GF/GFCC/Macros.hs b/src/GF/GFCC/Macros.hs
index dd9d594d6..29d1f6947 100644
--- a/src/GF/GFCC/Macros.hs
+++ b/src/GF/GFCC/Macros.hs
@@ -1,8 +1,8 @@
 module GF.GFCC.Macros where
 
-import GF.GFCC.AbsGFCC
+import GF.GFCC.Raw.AbsGFCCRaw (CId (..))
 import GF.GFCC.DataGFCC
-import GF.GFCC.PrintGFCC
+----import GF.GFCC.PrintGFCC
 import Data.Map
 import Data.List
 
@@ -83,9 +83,6 @@ term0 _ = TM
 kks :: String -> Term
 kks = K . KS
 
-prt :: Print a => a -> String
-prt = printTree
-
 -- lookup with default value
 lookMap :: (Show i, Ord i) => a -> i -> Map i a -> a 
 lookMap d c m = maybe d id $ Data.Map.lookup c m
-- 
cgit v1.2.3