diff options
Diffstat (limited to 'src/compiler/GF/Compile/Compute')
| -rw-r--r-- | src/compiler/GF/Compile/Compute/AppPredefined.hs | 7 | ||||
| -rw-r--r-- | src/compiler/GF/Compile/Compute/Concrete.hs | 4 | ||||
| -rw-r--r-- | src/compiler/GF/Compile/Compute/ConcreteLazy.hs | 7 |
3 files changed, 10 insertions, 8 deletions
diff --git a/src/compiler/GF/Compile/Compute/AppPredefined.hs b/src/compiler/GF/Compile/Compute/AppPredefined.hs index 6b125e001..2a1998283 100644 --- a/src/compiler/GF/Compile/Compute/AppPredefined.hs +++ b/src/compiler/GF/Compile/Compute/AppPredefined.hs @@ -12,10 +12,10 @@ -- Predefined function type signatures and definitions. ----------------------------------------------------------------------------- -module GF.Compile.Compute.AppPredefined ( - isInPredefined, typPredefined, arrityPredefined, predefModInfo, appPredefined +module GF.Compile.Compute.AppPredefined ({- + isInPredefined, typPredefined, arrityPredefined, predefModInfo, appPredefined-} ) where - +{- import GF.Compile.TypeCheck.Primitives import GF.Infra.Option import GF.Data.Operations @@ -140,3 +140,4 @@ mapStr ty f t = case (ty,t) of mapField (mty,te) = case mty of Just ty -> (mty,mapStr ty f te) _ -> (mty,te) +-}
\ No newline at end of file diff --git a/src/compiler/GF/Compile/Compute/Concrete.hs b/src/compiler/GF/Compile/Compute/Concrete.hs index f5a940022..f411f2ca0 100644 --- a/src/compiler/GF/Compile/Compute/Concrete.hs +++ b/src/compiler/GF/Compile/Compute/Concrete.hs @@ -1,3 +1,3 @@ -module GF.Compile.Compute.Concrete(module M) where -import GF.Compile.Compute.ConcreteLazy as M -- New +module GF.Compile.Compute.Concrete{-(module M)-} where +--import GF.Compile.Compute.ConcreteLazy as M -- New --import GF.Compile.Compute.ConcreteStrict as M -- Old, inefficient diff --git a/src/compiler/GF/Compile/Compute/ConcreteLazy.hs b/src/compiler/GF/Compile/Compute/ConcreteLazy.hs index 67d21768b..abfa93578 100644 --- a/src/compiler/GF/Compile/Compute/ConcreteLazy.hs +++ b/src/compiler/GF/Compile/Compute/ConcreteLazy.hs @@ -12,10 +12,10 @@ -- Computation of source terms. Used in compilation and in @cc@ command. ----------------------------------------------------------------------------- -module GF.Compile.Compute.ConcreteLazy (computeConcrete, computeTerm,checkPredefError) where - -import GF.Data.Operations +module GF.Compile.Compute.ConcreteLazy ({-computeConcrete, computeTerm,checkPredefError-}) where +{- import GF.Grammar.Grammar +import GF.Data.Operations import GF.Infra.Ident --import GF.Infra.Option import GF.Data.Str @@ -528,3 +528,4 @@ checkPredefError sgr t = case t of predef_error s = App (Q (cPredef,cError)) (K s) -} +-} |
