ethereum-analyzer-webui 1.2.0 → 1.3.0

raw patch · 3 files changed

+8/−6 lines, 3 files

Files

• ethereum-analyzer-webui.cabal +2/−2
• src/Ethereum/Analyzer/Web/API/Internal.hs +3/−2
• src/Ethereum/Analyzer/Web/Server/Handlers.hs +3/−2

@@ -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

@@ -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")

@@ -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 "" "")