Remove subscription check on fossa report preflight check (#1474)

* Remove subscription check on fossa report preflight check

Changelog.md

@@ -1,8 +1,9 @@
 # FOSSA CLI Changelog
 
-## Unreleased
+## 3.9.36
 
 - fossa-deps: Fixed an issue where Rocky Linux deps were not supported in the fossa-deps file ([#1473](https://github.com/fossas/fossa-cli/pull/1473))  
+- `fossa report`: Remove subscription type check in preflight checks ([#1474](https://github.com/fossas/fossa-cli/pull/1474))  
 
 ## 3.9.35
 

src/App/Fossa/PreflightChecks.hs

@@ -24,7 +24,7 @@ import Data.Text.IO qualified as TIO
 import Diag.Diagnostic (ToDiagnostic (..))
 import Effect.Logger (renderIt)
 import Errata (Errata (..))
-import Fossa.API.Types (ApiOpts, CustomBuildUploadPermissions (..), Organization (..), ProjectPermissionStatus (..), ReleaseGroupPermissionStatus (..), Subscription (..), TokenType (..), TokenTypeResponse (..))
+import Fossa.API.Types (ApiOpts, CustomBuildUploadPermissions (..), Organization (..), ProjectPermissionStatus (..), ReleaseGroupPermissionStatus (..), TokenType (..), TokenTypeResponse (..))
 import Path (
   File,
   Path,
@@ -78,7 +78,6 @@ preflightChecks cmd = context "preflight-checks" $ do
           ReportChecks -> do
             tokenType <- getTokenType
             fullAccessTokenCheck tokenType
-            premiumSubscriptionCheck org
           _ -> pure ()
   pure org
 
@@ -128,14 +127,6 @@ fullAccessTokenCheck TokenTypeResponse{..} = case tokenType of
       $ fatal TokenTypeErr
   _ -> pure ()
 
-premiumSubscriptionCheck :: Has Diagnostics sig m => Organization -> m ()
-premiumSubscriptionCheck Organization{..} = case orgSubscription of
-  Free ->
-    errHelp ("To proceed, please upgrade your subscription" :: Text)
-      . errCtx ("You currently have a free subscription" :: Text)
-      $ fatal SubscriptionTypeErr
-  _ -> pure ()
-
 preflightCheckFileName :: Path Rel File
 preflightCheckFileName = $(mkRelFile "preflight-check.txt")
 
@@ -151,12 +142,6 @@ instance ToDiagnostic TokenTypeErr where
   renderDiagnostic TokenTypeErr =
     Errata (Just "Invalid API token type") [] $ Just "The action you are trying to perform requires a `Full Access` API token"
 
-data SubscriptionTypeErr = SubscriptionTypeErr
-instance ToDiagnostic SubscriptionTypeErr where
-  renderDiagnostic :: SubscriptionTypeErr -> Errata
-  renderDiagnostic SubscriptionTypeErr =
-    Errata (Just "Invalid subscription type") [] $ Just "The action you are trying to perform requires a premium subscription"
-
 projectPermissionErrHeader :: Text
 projectPermissionErrHeader = "Invalid project permission"
 

test/App/Fossa/PreflightChecksSpec.hs

@@ -53,10 +53,6 @@ spec = do
       expectOrganizationWithPremiumSubscription
       expectPushToken
       expectFatal' $ ignoreDebug $ preflightChecks ReportChecks
-    it' "should fail premium subscription check for report command" $ do
-      expectOrganizationWithPreflightChecks
-      expectFullAccessToken
-      expectFatal' $ ignoreDebug $ preflightChecks ReportChecks
     it' "should pass all custom upload permission checks for analyze command" $ do
       expectOrganizationWithPreflightChecks
       (GetCustomBuildPermissons Fixtures.projectRevision Fixtures.projectMetadata) `returnsOnce` Fixtures.validCustomUploadPermissions