diff options
| author | aarne <unknown> | 2005-11-11 22:24:33 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-11-11 22:24:33 +0000 |
| commit | 00b435c839b12539a78e9d5040f94d2284d37c0b (patch) | |
| tree | 1a74f03ecc42f53e034998fb29b0ab12256ae6e8 /src/GF/Compile/GrammarToCanon.hs | |
| parent | c52e57411b79b543f626651783a5cf2306c916f7 (diff) | |
compilation of functors
Diffstat (limited to 'src/GF/Compile/GrammarToCanon.hs')
| -rw-r--r-- | src/GF/Compile/GrammarToCanon.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index 255cfb53f..d5b52d062 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/06/22 08:52:02 $ +-- > CVS $Date: 2005/11/11 23:24:33 $ -- > CVS $Author: aarne $ --- > CVS $Revision: 1.22 $ +-- > CVS $Revision: 1.23 $ -- -- Code generator from optimized GF source code to GFC. ----------------------------------------------------------------------------- @@ -31,6 +31,7 @@ import GF.Canon.MkGFC import qualified GF.Canon.PrintGFC as P import Control.Monad +import Data.List (nub) -- compilation of optimized grammars to canonical GF. AR 5/10/2001 -- 12/5/2003 @@ -82,7 +83,7 @@ redModInfo (c,info) = do os' <- mapM (\o -> case o of OQualif q _ i -> liftM (OSimple q) (redIdent i) _ -> prtBad "cannot translate unqualified open in" c) $ opens m - return (e',os') + return (e',nub os') om = oSimple . openedModule --- normalizing away qualif redInfo :: Ident -> (Ident,Info) -> Err [(Ident,C.Info)] |