drop the -trace option

This commit is contained in:
krangelov
2021-12-15 13:08:10 +01:00
parent f793ed4413
commit 937a78c628
3 changed files with 8 additions and 12 deletions

View File

@@ -7,7 +7,6 @@ import qualified Data.ByteString.UTF8 as UTF8(fromString)
import qualified Data.Map as Map
import GF.Infra.SIO(MonadSIO(..),restricted)
import GF.Infra.Option(modifyFlags,optTrace) --,noOptions
import GF.Infra.Dependencies(depGraph)
import GF.Infra.CheckM
import GF.Text.Pretty(render,pp)
@@ -257,7 +256,6 @@ checkComputeTerm os sgr t =
greatestResource sgr
t <- renameSourceTerm sgr mo t
(t,_) <- inferLType sgr [] t
let opts = modifyFlags (\fs->fs{optTrace=isOpt "trace" os})
fmap evalStr (normalForm sgr t)
where
-- ** Try to compute pre{...} tokens in token sequences