ethereum-analyzer-0.0.1: src/Blockchain/Analyze/Servant/API/Internal.hs

-- | Definition of HTML content type.
module Blockchain.Analyze.Servant.API.Internal
  ( HTML
  ) where

import Network.HTTP.Media ((//), (/:))
import Servant.API (Accept(..))

-- | HTML content type.
data HTML =
  HTML

instance Accept HTML where
  contentType _ = "text" // "html" /: ("charset", "utf-8")