diff options
| author | peb <unknown> | 2005-04-14 10:42:05 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-04-14 10:42:05 +0000 |
| commit | f070a412a1256b39e60b3a819e18c61922a7fe79 (patch) | |
| tree | b92a78677c55c60e265b221452cd13c94645a37e /src/GF/Compile/ShellState.hs | |
| parent | 03fad6e1b877e78e67b2827ba782e7da1a56565e (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Compile/ShellState.hs')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 580bdeb5f..6e6f00176 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/11 13:53:38 $ +-- > CVS $Date: 2005/04/14 11:42:05 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.41 $ +-- > CVS $Revision: 1.42 $ -- -- (Description of the module) ----------------------------------------------------------------------------- @@ -190,7 +190,7 @@ updateShellState opts mcnc sh ((_,sgr,gr),rts) = do let pinfosOld = map (CnvOld.pInfo opts cgr) concrs -- peb 18/6 (OBSOLETE) let g2s = Cnv.gfc2simple - fin = Cnv.simple2finite + fin = Cnv.removeSingletons . Cnv.simple2finite s2mN = Cnv.simple2mcfg_nondet s2mS = Cnv.simple2mcfg_strict -- ____ kan man ha flera '-conversion=X -conversion=Y'? |