diff options
| author | peb <unknown> | 2005-09-01 08:53:18 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-09-01 08:53:18 +0000 |
| commit | 7ad0dda9ed46b9ea80972123eac49d8f068efa7a (patch) | |
| tree | f68cb8d0c8305db5126c675c3136d7eceb4dfdc6 /src/GF/Compile/ShellState.hs | |
| parent | f323d48fbbabee7213b5a61ba160f7fd438a684c (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Compile/ShellState.hs')
| -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 |