{-# 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 :: Text -> Maybe Text -> Maybe Text -> Maybe Text -> Telemetry
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
  }