diff options
| author | krasimir <krasimir@chalmers.se> | 2008-05-30 11:15:33 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-05-30 11:15:33 +0000 |
| commit | 8bb0c32a9cf2cbad0375ab5886b7f2be37109477 (patch) | |
| tree | 2290b07d391a1da4e94ee367b445a6b2f64ca2cd /src-3.0/GFC.hs | |
| parent | 1172539a9544ed999c565053b79cf6a30ec14de4 (diff) | |
replace GFCC with PGF in (almost) all places
Diffstat (limited to 'src-3.0/GFC.hs')
| -rw-r--r-- | src-3.0/GFC.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src-3.0/GFC.hs b/src-3.0/GFC.hs index 72381b6ab..1c773630d 100644 --- a/src-3.0/GFC.hs +++ b/src-3.0/GFC.hs @@ -22,16 +22,16 @@ mainGFC opts fs = let cnc = justModuleName (last fs) if flag optStopAfterPhase opts == Compile then return () - else do gfcc <- link opts cnc gr - writeOutputs opts gfcc + else do pgf <- link opts cnc gr + writeOutputs opts pgf -writeOutputs :: Options -> GFCC -> IOE () -writeOutputs opts gfcc = mapM_ (\fmt -> writeOutput opts fmt gfcc) (flag optOutputFormats opts) +writeOutputs :: Options -> PGF -> IOE () +writeOutputs opts pgf = mapM_ (\fmt -> writeOutput opts fmt pgf) (flag optOutputFormats opts) -writeOutput :: Options -> OutputFormat-> GFCC -> IOE () -writeOutput opts fmt gfcc = - do let path = outputFilePath opts fmt (prCId (absname gfcc)) - s = prGFCC fmt gfcc +writeOutput :: Options -> OutputFormat-> PGF -> IOE () +writeOutput opts fmt pgf = + do let path = outputFilePath opts fmt (prCId (absname pgf)) + s = prPGF fmt pgf writeOutputFile path s outputFilePath :: Options -> OutputFormat -> String -> FilePath @@ -40,7 +40,7 @@ outputFilePath opts fmt name0 = addDir name <.> fmtExtension fmt addDir = maybe id (</>) (flag optOutputDir opts) fmtExtension :: OutputFormat -> String -fmtExtension FmtGFCC = "gfcc" +fmtExtension FmtPGF = "pgf" fmtExtension FmtJavaScript = "js" fmtExtension FmtHaskell = "hs" fmtExtension FmtHaskellGADT = "hs" |