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:/fossas/fossa-cli/pull/1473)) 
+- `fossa report`: Remove subscription type check in preflight checks ([#1474](https:/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