From 30eef61f0a400d6b9ec77721620e13b8132a9c2c Mon Sep 17 00:00:00 2001 From: krangelov Date: Fri, 20 Sep 2019 16:15:28 +0200 Subject: more dead code --- src/compiler/GF/Compile/Compute/ConcreteNew.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/compiler/GF/Compile/Compute/ConcreteNew.hs') diff --git a/src/compiler/GF/Compile/Compute/ConcreteNew.hs b/src/compiler/GF/Compile/Compute/ConcreteNew.hs index f9edc931c..a9ae63960 100644 --- a/src/compiler/GF/Compile/Compute/ConcreteNew.hs +++ b/src/compiler/GF/Compile/Compute/ConcreteNew.hs @@ -15,7 +15,7 @@ import GF.Grammar.Lockfield(isLockLabel,lockRecType) --unlockRecord,lockLabel import GF.Compile.Compute.Value hiding (Error) import GF.Compile.Compute.Predef(predef,predefName,delta) import GF.Data.Str(Str,glueStr,str2strings,str,sstr,plusStr,strTok) -import GF.Data.Operations(Err,err,errIn,maybeErr,combinations,mapPairsM) +import GF.Data.Operations(Err,err,errIn,maybeErr,mapPairsM) import GF.Data.Utilities(mapFst,mapSnd) import GF.Infra.Option import Control.Monad(ap,liftM,liftM2) -- ,unless,mplus @@ -318,7 +318,7 @@ strsFromValue t = case t of return [strTok (str2strings def) vars | def <- d0, vars <- [[(str2strings v, map sstr c) | (v,c) <- zip vv c0] | - vv <- combinations v0] + vv <- sequence v0] ] VFV ts -> concat # mapM strsFromValue ts VStrs ts -> concat # mapM strsFromValue ts -- cgit v1.2.3