diff options
| author | hallgren <hallgren@chalmers.se> | 2013-09-20 16:36:24 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2013-09-20 16:36:24 +0000 |
| commit | 9cbd28e9cec5d6270f2a03fa4fbeefb60169e217 (patch) | |
| tree | 1cf104e45927ae58cd97e282d12efabe27568216 /src | |
| parent | 9e148280c5afbb06802a258d3c47108195785eea (diff) | |
Comment out identifier refreshing code only used by the removed refresh pass
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Infra/Ident.hs | 14 |
1 files 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 - +-} {- ------------------------------ |