diff options
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index a8afb8a01..a484b50e8 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/04/21 16:46:01 $ --- > CVS $Author: bringert $ --- > CVS $Revision: 1.45 $ +-- > CVS $Date: 2005/09/01 09:53:18 $ +-- > CVS $Author: peb $ +-- > CVS $Revision: 1.46 $ -- -- (Description of the module) ----------------------------------------------------------------------------- @@ -189,7 +189,7 @@ updateShellState opts mcnc sh ((_,sgr,gr),rts) = do let pinfosOld = map (CnvOld.pInfo opts cgr) concrs -- peb 18/6 (OBSOLETE) - let fromGFC = Cnv.gfc2mcfg2cfg opts + let fromGFC = snd . snd . Cnv.convertGFC opts (mcfgs, cfgs) = unzip $ map (curry fromGFC cgr) concrs pInfos = zipWith Prs.buildPInfo mcfgs cfgs |