replace GFCC with PGF in (almost) all places

1 files changed, 8 insertions, 8 deletions

diff --git a/src-3.0/GF/Compile/OptimizeGFCC.hs b/src-3.0/GF/Compile/OptimizeGFCC.hs
index 16cdf9ac3..c73d5bbcb 100644
--- a/src-3.0/GF/Compile/OptimizeGFCC.hs
+++ b/src-3.0/GF/Compile/OptimizeGFCC.hs
@@ -12,12 +12,12 @@ import qualified Data.Map as Map
 -- back-end optimization: 
 -- suffix analysis followed by common subexpression elimination
 
-optGFCC :: GFCC -> GFCC
-optGFCC = cseOptimize . suffixOptimize
+optPGF :: PGF -> PGF
+optPGF = cseOptimize . suffixOptimize
 
-suffixOptimize :: GFCC -> GFCC
-suffixOptimize gfcc = gfcc {
-  concretes = Map.map opt (concretes gfcc)
+suffixOptimize :: PGF -> PGF
+suffixOptimize pgf = pgf {
+  concretes = Map.map opt (concretes pgf)
   }
  where 
   opt cnc = cnc {
@@ -26,9 +26,9 @@ suffixOptimize gfcc = gfcc {
     printnames = Map.map optTerm (printnames cnc)
   }
 
-cseOptimize :: GFCC -> GFCC
-cseOptimize gfcc = gfcc {
-  concretes = Map.map subex (concretes gfcc)
+cseOptimize :: PGF -> PGF
+cseOptimize pgf = pgf {
+  concretes = Map.map subex (concretes pgf)
   }
 
 -- analyse word form lists into prefix + suffixes