diff --git a/ethereum-analyzer-webui.cabal b/ethereum-analyzer-webui.cabal
--- a/ethereum-analyzer-webui.cabal
+++ b/ethereum-analyzer-webui.cabal
@@ -1,5 +1,5 @@
 name:                ethereum-analyzer-webui
-version:             1.2.0
+version:             1.3.0
 synopsis:            A web frontend for ethereum-analyzer
 homepage:            https://github.com/ethereumK/ethereum-analyzer
 license:             Apache-2.0
@@ -21,7 +21,7 @@
 source-repository this
   type:     git
   location: https://github.com/zchn/ethereum-analyzer
-  tag:      v1.2.0
+  tag:      v1.3.0
   subdir:   ethereum-analyzer-webui
 
 library
diff --git a/src/Ethereum/Analyzer/Web/API/Internal.hs b/src/Ethereum/Analyzer/Web/API/Internal.hs
--- a/src/Ethereum/Analyzer/Web/API/Internal.hs
+++ b/src/Ethereum/Analyzer/Web/API/Internal.hs
@@ -1,4 +1,6 @@
 -- | Definition of HTML content type.
+{-# LANGUAGE EmptyDataDecls #-}
+
 module Ethereum.Analyzer.Web.API.Internal
   ( HTML
   ) where
@@ -7,8 +9,7 @@
 import Servant.API (Accept(..))
 
 -- | HTML content type.
-data HTML =
-  HTML
+data HTML
 
 instance Accept HTML where
   contentType _ = "text" // "html" /: ("charset", "utf-8")
diff --git a/src/Ethereum/Analyzer/Web/Server/Handlers.hs b/src/Ethereum/Analyzer/Web/Server/Handlers.hs
--- a/src/Ethereum/Analyzer/Web/Server/Handlers.hs
+++ b/src/Ethereum/Analyzer/Web/Server/Handlers.hs
@@ -9,6 +9,7 @@
 
 import Protolude
 
+import Ethereum.Analyzer.Disasm
 import Ethereum.Analyzer.Util
 import Ethereum.Analyzer.Web.API
        (API, RootPage(..), User(..), Users(..), DotCfgResp(..))
@@ -50,9 +51,9 @@
   pure (Users [User 1 "Isaac" "Newton", User 2 "Albert" "Einstein"])
 
 dotcfg :: Maybe Text -> Handler Doc DotCfgResp
-dotcfg (Just t) = pure (DotCfgResp (decompileToDotText t) "")
+dotcfg (Just t) = pure (DotCfgResp (disasmToDotText $ EvmHexString t) "")
 dotcfg _ = pure (DotCfgResp "" "")
 
 dotcfg2 :: Maybe Text -> Handler Doc DotCfgResp
-dotcfg2 (Just t) = pure (uncurry DotCfgResp $ decompileToDotText2 t)
+dotcfg2 (Just t) = pure (uncurry DotCfgResp $ disasmToDotText2 $ EvmHexString t)
 dotcfg2 _ = pure (DotCfgResp "" "")