{-# OPTIONS_HADDOCK hide #-}

module Blockfrost.Util.UserAgent (
    UserAgent
  , userAgent
  ) where

import Data.ByteString (ByteString)
import qualified Data.ByteString.Char8
import qualified Data.Version
import qualified Paths_blockfrost_api

data UserAgent

userAgent :: ByteString
userAgent :: ByteString
userAgent =
  ByteString
"blockfrost-haskell/"
  ByteString -> ByteString -> ByteString
forall a. Semigroup a => a -> a -> a
<> String -> ByteString
Data.ByteString.Char8.pack
        (Version -> String
Data.Version.showVersion Version
Paths_blockfrost_api.version)