{-# 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 = 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
}