-- | Definition of HTML content type.
{-# LANGUAGE EmptyDataDecls #-}

module Ethereum.Analyzer.Web.API.Internal
  ( HTML
  ) where

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

-- | HTML content type.
data HTML

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