From 7ad0dda9ed46b9ea80972123eac49d8f068efa7a Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Thu, 1 Sep 2005 08:53:18 +0000
Subject: "Committed_by_peb"

---
 src/GF/Compile/ShellState.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/GF/Compile/ShellState.hs')

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
 
-- 
cgit v1.2.3