Add changelog entry

flora-pm · tchoutri · May 18, 2024 · May 17, 2024 · May 17, 2024 · May 17, 2024
commit 90cf6289d30984cba10dcb9094c893e7577d5214
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -6,6 +6,7 @@
 * Signal deprecations and revision dates in version listing page ([#548](https://github.com/flora-pm/flora-server/pull/548))
 * Introduce [changelog-d](https://codeberg.org/fgaz/changelog-d) in the release process.
 * Remove the last @apply from tailwind ([#550](https://github.com/flora-pm/flora-server/pulls/550))
+* Use GHC 9.6.5 and Souffle Datalog 2.2 for development ([#552](https://github.com/flora-pm/flora-server/pull/552))
 
 ## 1.0.17 -- 2024-03-26
 

diff --git a/src/core/Flora/Model/Job.hs b/src/core/Flora/Model/Job.hs
 $(deriveJSON defaultOptions{fieldLabelModifier = camelTo2 '_'} ''Job)

 instance ToJSON LogEvent where
  toJSON = \case
    LogJobStart job -> toJSON ("start" :: Text, job)
    LogJobSuccess job time -> toJSON ("success" :: Text, job, time)
    LogJobFailed job exception failuremode finishTime ->
diff --git a/src/core/Flora/Import/Package/Bulk.hs b/src/core/Flora/Import/Package/Bulk.hs
  -> Eff es ()
 importFromIndex user (repositoryName, repositoryURL) index = do
  entries <- Tar.read . GZip.decompress <$> liftIO (BL.readFile index)
  let Right repositoryPackages = buildPackageListFromArchive entries
  mPackageIndex <- Query.getPackageIndexByName repositoryName
  time <- case mPackageIndex of
    Nothing -> pure $ posixSecondsToUTCTime 0
diff --git a/src/web/FloraWeb/API/Routes/Packages/Types.hs b/src/web/FloraWeb/API/Routes/Packages/Types.hs
      components = fmap display releaseComponents
   in PackageDTO{..}

 $(deriveJSON defaultOptions{fieldLabelModifier = camelTo2 '_'} ''PackageDTO)

 instance KnownNat i => ToSchema (PackageDTO i) where
  declareNamedSchema proxy =
diff --git a/src/web/FloraWeb/Common/Tracing.hs b/src/web/FloraWeb/Common/Tracing.hs
  | Just (ioeGetErrorType -> et) <- fromException exception
  , et == ResourceVanished || et == InvalidArgument =
      False
  | Just ConnectionClosedByPeer <- fromException exception = False
  | otherwise = True

 formatMessage :: Maybe Request -> SomeException -> String
diff --git a/src/web/FloraWeb/Components/PaginationNav.hs b/src/web/FloraWeb/Components/PaginationNav.hs
              }

 mkURL :: SearchAction -> Positive Word -> Text
 mkURL ListAllPackages pageNumber =
  "/" <> toUrlPiece (Links.packageIndexLink pageNumber)
 mkURL (ListAllPackagesInNamespace namespace) pageNumber =
  "/" <> toUrlPiece (Links.namespaceLink namespace pageNumber)
	$(deriveJSON defaultOptions{fieldLabelModifier = camelTo2 '_'} ''Job)

	instance ToJSON LogEvent where
	toJSON = \case
Check warning on line 99 in src/core/Flora/Model/Job.hs GitHub Actions / Backend_tests (9.6.5, ubuntu-latest) `Pattern match(es) are non-exhaustive`
	LogJobStart job -> toJSON ("start" :: Text, job)
	LogJobSuccess job time -> toJSON ("success" :: Text, job, time)
	LogJobFailed job exception failuremode finishTime ->
	-> Eff es ()
	importFromIndex user (repositoryName, repositoryURL) index = do
	entries <- Tar.read . GZip.decompress <$> liftIO (BL.readFile index)
	let Right repositoryPackages = buildPackageListFromArchive entries
Check warning on line 79 in src/core/Flora/Import/Package/Bulk.hs GitHub Actions / Backend_tests (9.6.5, ubuntu-latest) `Pattern match(es) are non-exhaustive`
	mPackageIndex <- Query.getPackageIndexByName repositoryName
	time <- case mPackageIndex of
	Nothing -> pure $ posixSecondsToUTCTime 0
	components = fmap display releaseComponents
	in PackageDTO{..}

	$(deriveJSON defaultOptions{fieldLabelModifier = camelTo2 '_'} ''PackageDTO)
Check warning on line 73 in src/web/FloraWeb/API/Routes/Packages/Types.hs GitHub Actions / Backend_tests (9.6.5, ubuntu-latest) `The record update defaultOptions`

	instance KnownNat i => ToSchema (PackageDTO i) where
	declareNamedSchema proxy =
	\| Just (ioeGetErrorType -> et) <- fromException exception
	, et == ResourceVanished \|\| et == InvalidArgument =
	False
	\| Just ConnectionClosedByPeer <- fromException exception = False
Check warning on line 55 in src/web/FloraWeb/Common/Tracing.hs GitHub Actions / Backend_tests (9.6.5, ubuntu-latest) `Pattern match is redundant`
	\| otherwise = True

	formatMessage :: Maybe Request -> SomeException -> String
	}

	mkURL :: SearchAction -> Positive Word -> Text
	mkURL ListAllPackages pageNumber =
Check warning on line 46 in src/web/FloraWeb/Components/PaginationNav.hs GitHub Actions / Backend_tests (9.6.5, ubuntu-latest) `Pattern match(es) are non-exhaustive`
	"/" <> toUrlPiece (Links.packageIndexLink pageNumber)
	mkURL (ListAllPackagesInNamespace namespace) pageNumber =
	"/" <> toUrlPiece (Links.namespaceLink namespace pageNumber)