From 8bb0c32a9cf2cbad0375ab5886b7f2be37109477 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 30 May 2008 11:15:33 +0000
Subject: replace GFCC with PGF in (almost) all places

---
 src-3.0/GF/Compile/GFCCtoHaskell.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src-3.0/GF/Compile/GFCCtoHaskell.hs')

diff --git a/src-3.0/GF/Compile/GFCCtoHaskell.hs b/src-3.0/GF/Compile/GFCCtoHaskell.hs
index 9a5fb7ca2..94210b65e 100644
--- a/src-3.0/GF/Compile/GFCCtoHaskell.hs
+++ b/src-3.0/GF/Compile/GFCCtoHaskell.hs
@@ -27,12 +27,12 @@ import Data.List --(isPrefixOf, find, intersperse)
 import qualified Data.Map as Map
 
 -- | the main function
-grammar2haskell :: GFCC -> String
+grammar2haskell :: PGF -> String
 grammar2haskell gr = encodeUTF8 $ foldr (++++) [] $  
   haskPreamble ++ [datatypes gr', gfinstances gr']
     where gr' = hSkeleton gr
 
-grammar2haskellGADT :: GFCC -> String
+grammar2haskellGADT :: PGF -> String
 grammar2haskellGADT gr = encodeUTF8 $ foldr (++++) [] $  
   ["{-# OPTIONS_GHC -fglasgow-exts #-}"] ++ 
   haskPreamble ++ [datatypesGADT gr', gfinstances gr']
@@ -173,7 +173,7 @@ fInstance m (cat,rules) =
 
 
 --type HSkeleton = [(OIdent, [(OIdent, [OIdent])])]
-hSkeleton :: GFCC -> (String,HSkeleton)
+hSkeleton :: PGF -> (String,HSkeleton)
 hSkeleton gr = 
   (prCId (absname gr), 
    [(prCId c, [(prCId f, map prCId cs) | (f, (cs,_)) <- fs]) | 
-- 
cgit v1.2.3