{-# 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
detectTelemetry :: Telemetry
detectTelemetry :: Telemetry
detectTelemetry =
Telemetry
{ telemetrySdkName :: Text
telemetrySdkName = Text
"hs-opentelemetry-sdk"
, telemetrySdkLanguage :: Maybe Text
telemetrySdkLanguage = forall a. a -> Maybe a
Just Text
"haskell"
, telemetrySdkVersion :: Maybe Text
telemetrySdkVersion = forall a. a -> Maybe a
Just forall a b. (a -> b) -> a -> b
$ String -> Text
T.pack forall a b. (a -> b) -> a -> b
$ Version -> String
showVersion Version
version
, telemetryAutoVersion :: Maybe Text
telemetryAutoVersion = forall a. Maybe a
Nothing
}