From a7469a694bb4fc781407996fe2ad07811dc517cf Mon Sep 17 00:00:00 2001 From: hallgren Date: Fri, 20 Sep 2013 16:36:24 +0000 Subject: [PATCH] Comment out identifier refreshing code only used by the removed refresh pass --- src/compiler/GF/Infra/Ident.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/compiler/GF/Infra/Ident.hs b/src/compiler/GF/Infra/Ident.hs index 102ceedd3..4792852dd 100644 --- a/src/compiler/GF/Infra/Ident.hs +++ b/src/compiler/GF/Infra/Ident.hs @@ -19,16 +19,15 @@ module GF.Infra.Ident (-- * Identifiers varStr, varX, isWildIdent, varIndex, -- * Raw Identifiers RawIdent, rawIdentS, rawIdentC, ident2raw, prefixRawIdent, - isPrefixOf, showRawIdent, rawId2bs, - -- * refreshing identifiers + isPrefixOf, showRawIdent, rawId2bs{-, + -- * Refreshing identifiers IdState, initIdStateN, initIdState, - lookVar, refVar, refVarPlus + lookVar, refVar, refVarPlus-} ) where -import GF.Data.Operations import qualified Data.ByteString.Char8 as BS import Data.Char(isDigit) -import Text.PrettyPrint +import Text.PrettyPrint(Doc,text) -- | the constructors labelled /INTERNAL/ are @@ -124,7 +123,8 @@ varIndex :: Ident -> Int varIndex (IV _ n) = n varIndex _ = -1 --- other than IV should not count --- refreshing identifiers +{- +-- * Refreshing identifiers type IdState = ([(Ident,Ident)],Int) @@ -153,7 +153,7 @@ refVar x = do refVarPlus :: Ident -> STM IdState Ident ----refVarPlus IW = refVar (identC "h") refVarPlus x = refVar x - +-} {- ------------------------------