{-# LANGUAGE OverloadedStrings #-}

module OpenTelemetry.Resource.Telemetry.Detector where

import qualified Data.Text as T
import Data.Version (showVersion)
import OpenTelemetry.Resource.Telemetry
import Paths_hs_opentelemetry_sdk


-- | Built-in information about this package
detectTelemetry :: Telemetry
detectTelemetry :: Telemetry
detectTelemetry =
  Telemetry
    { telemetrySdkName :: Text
telemetrySdkName = Text
"hs-opentelemetry-sdk"
    , telemetrySdkLanguage :: Maybe Text
telemetrySdkLanguage = Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"haskell"
    , telemetrySdkVersion :: Maybe Text
telemetrySdkVersion = Text -> Maybe Text
forall a. a -> Maybe a
Just (Text -> Maybe Text) -> Text -> Maybe Text
forall a b. (a -> b) -> a -> b
$ String -> Text
T.pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ Version -> String
showVersion Version
version
    , telemetryAutoVersion :: Maybe Text
telemetryAutoVersion = Maybe Text
forall a. Maybe a
Nothing
    }