diff --git a/ethereum-analyzer.cabal b/ethereum-analyzer.cabal
--- a/ethereum-analyzer.cabal
+++ b/ethereum-analyzer.cabal
@@ -1,5 +1,5 @@
 name:                ethereum-analyzer
-version:             3.3.1
+version:             3.3.3
 synopsis:            A Ethereum contract analyzer.
 homepage:            https://github.com/zchn/ethereum-analyzer
 license:             Apache-2.0
@@ -21,7 +21,7 @@
 source-repository this
   type:     git
   location: https://github.com/zchn/ethereum-analyzer
-  tag:      v3.3.1
+  tag:      v3.3.3
   subdir:   ethereum-analyzer
 
 library
diff --git a/src/Ethereum/Analyzer/Solidity/Simple.hs b/src/Ethereum/Analyzer/Solidity/Simple.hs
--- a/src/Ethereum/Analyzer/Solidity/Simple.hs
+++ b/src/Ethereum/Analyzer/Solidity/Simple.hs
@@ -18,11 +18,11 @@
 import Protolude hiding ((<>), show)
 
 import Compiler.Hoopl
-import Data.Text (replace)
 import Ethereum.Analyzer.Common
 import Ethereum.Analyzer.Solidity.AstJson
 import Ckev.In.Text
 import Text.PrettyPrint.Leijen.Text hiding ((<$>))
+import qualified Data.Text as DT
 -- import qualified Text.PrettyPrint.Leijen.Text as PP
 
 decodeContracts :: Text -> Either Text [Contract]
@@ -447,7 +447,7 @@
 s2sLval SolNode { name = Just "NewExpression"
                 , attributes = Just SolNode {_type = Just t}
                 } = do
-  let normalized = "_ea_new_" <> replace t " " "_"
+  let normalized = "_ea_new_" <> DT.replace t " " "_"
   return ([], JustId $ Idfr normalized)
 s2sLval n = unimplementedPanic n {children = Nothing}