add telemetry

src/App/Fossa/SBOM.hs

@@ -19,6 +19,7 @@ import Control.Effect.Diagnostics (
   Has,
  )
 import Control.Effect.Lift (Lift, sendIO)
+import Control.Effect.Telemetry (Telemetry)
 import Data.Aeson qualified as Aeson
 import Data.ByteString.Lazy qualified as BL
 import Effect.Exec (Exec)
@@ -40,6 +41,7 @@ dispatch ::
   , Has Logger sig m
   , Has ReadFS sig m
   , Has Exec sig m
+  , Has Telemetry sig m
   ) =>
   SBOMScanConfig ->
   m ()

src/App/Fossa/SBOM/Analyze.hs

@@ -10,8 +10,10 @@ import Control.Carrier.Debug (Debug)
 import Control.Carrier.Diagnostics qualified as Diag
 import Control.Carrier.FossaApiClient (runFossaApiClient)
 import Control.Carrier.StickyLogger (StickyLogger, logSticky, runStickyLogger)
+import Control.Carrier.Telemetry.Types (CountableCliFeature (SBOMAnalyzeUsage))
 import Control.Effect.FossaApiClient (FossaApiClient, PackageRevision (PackageRevision), getOrganization, getSignedUploadUrl, queueSBOMBuild, uploadArchive)
 import Control.Effect.Lift
+import Control.Effect.Telemetry (Telemetry, trackUsage)
 import Data.Foldable (traverse_)
 import Data.String.Conversion
 import Data.Text (Text)
@@ -25,12 +27,14 @@ analyze ::
   , Has (Lift IO) sig m
   , Has Logger sig m
   , Has Debug sig m
+  , Has Telemetry sig m
   ) =>
   SBOMAnalyzeConfig ->
   m ()
 analyze config = do
   let emptyMetadata = ProjectMetadata Nothing Nothing Nothing Nothing Nothing Nothing [] Nothing
   let apiOpts = sbomApiOpts config
+  trackUsage SBOMAnalyzeUsage
   runFossaApiClient apiOpts . preflightChecks $ AnalyzeChecks (sbomRevision config) emptyMetadata
   runFossaApiClient apiOpts . runStickyLogger (severity config) $ analyzeInternal config
 

src/Control/Carrier/Telemetry/Types.hs

@@ -55,6 +55,7 @@ data CountableCliFeature
   = ExperimentalGradleSingleConfigurationUsage
   | ExperimentalKeywordSearchUsage
   | CustomLicenseSearchUsage
+  | SBOMAnalyzeUsage
   deriving (Show, Eq, Ord, Generic)
 
 instance ToJSONKey CountableCliFeature where