diff options
Diffstat (limited to 'src/GF/Source')
| -rw-r--r-- | src/GF/Source/SourceToGrammar.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/GF/Source/SourceToGrammar.hs b/src/GF/Source/SourceToGrammar.hs index 61912704b..11cec4898 100644 --- a/src/GF/Source/SourceToGrammar.hs +++ b/src/GF/Source/SourceToGrammar.hs @@ -31,7 +31,6 @@ import GF.Grammar.Predef import GF.Infra.Ident import GF.Source.AbsGF import GF.Source.PrintGF -import GF.Compile.RemoveLiT --- for bw compat import GF.Data.Operations import GF.Infra.Option @@ -494,7 +493,6 @@ transExp x = case x of EPatt patt -> liftM G.EPatt (transPatt patt) ELString (LString str) -> return $ G.K (BS.unpack str) -- use the grammar encoding here - ELin id -> liftM G.LiT $ transIdent id EEqs eqs -> liftM G.Eqs $ mapM transEquation eqs @@ -656,8 +654,7 @@ transOldGrammar :: Options -> FilePath -> OldGrammar -> Err G.SourceGrammar transOldGrammar opts name0 x = case x of OldGr includes topdefs -> do --- includes must be collected separately let moddefs = sortTopDefs topdefs - g1 <- transGrammar $ Gr moddefs - removeLiT g1 --- needed for bw compatibility with an obsolete feature + transGrammar $ Gr moddefs where sortTopDefs ds = [mkAbs a, mkCnc ops (c ++ r)] where |