diff options
| author | peb <unknown> | 2005-03-18 09:17:10 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-03-18 09:17:10 +0000 |
| commit | dbae321c694ef0878902960f1378dc2abb7f378a (patch) | |
| tree | b2c590a0ac06006101bb2a56028575d6393cb388 /src/GF/Compile/ShellState.hs | |
| parent | 5b9d27ee9feee7e197b57cc59822fb144ec6fa6a (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 4069e01ed..b5975af8d 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/03/02 14:22:53 $ +-- > CVS $Date: 2005/03/18 10:17:10 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.37 $ +-- > CVS $Revision: 1.38 $ -- -- (Description of the module) ----------------------------------------------------------------------------- @@ -166,7 +166,7 @@ updateShellState opts mcnc sh ((_,sgr,gr),rts) = do notInrts f = notElem f $ map fst rts cfs <- mapM (canon2cf opts cgr) concrs --- would not need to update all... - let pinfos = map (Cnv.pInfo cgr) concrs -- peb 18/6 + let pinfos = map (Cnv.pInfo opts cgr) concrs -- peb 18/6 let funs = funRulesOf cgr let cats = allCatsOf cgr |