From 7d1c01138998497e70008b03c3b09b508850cb32 Mon Sep 17 00:00:00 2001 From: hallgren Date: Fri, 29 Nov 2013 16:26:49 +0000 Subject: Commment code and options relating to the old partial evaluator This means that the -old-comp and -new-comp flags are not recognized anymore. The only functional difference is that printnames were still normalized with the old partial evaluator. Now that is done with the new partial evaluator. --- src/compiler/GF/Compile/Compute/AppPredefined.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/compiler/GF/Compile/Compute/AppPredefined.hs') 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 -- cgit v1.2.3