haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Implemented snapshot diffing

Browse Source
This commit is contained in:
Konstantin Zudov 2015-10-07 20:35:42 +03:00
parent 5308096be0
commit fabb3979d4
4 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Stackage/Database.hs
View File

@ -2,6 +2,7 @@ module Stackage.Database
( StackageDatabase
, GetStackageDatabase (..)
, SnapName (..)
, SnapshotId ()
, Snapshot (..)
, newestLTS
, newestLTSMajor

34
Stackage/Snapshot/Diff.hs Normal file
View File

@ -0,0 +1,34 @@
{-# LANGUAGE PartialTypeSignatures #-}
module Stackage.Snapshot.Diff
( getSnapshotDiff
, snapshotDiff
, SnapshotDiff
, PackageName
, Version
, VersionChange(..)
) where
import qualified Data.HashMap.Strict as HashMap
import Data.Align
import Control.Arrow
import ClassyPrelude
import Data.These
import Stackage.Database (SnapshotId, PackageListingInfo(..),
GetStackageDatabase, getPackages)
type PackageName = Text
type Version = Text
type SnapshotDiff = HashMap PackageName VersionChange
newtype VersionChange = VersionChange { unVersionChange :: These Version Version }
changed :: VersionChange -> Bool
changed = these (const True) (const True) (/=) . unVersionChange
getSnapshotDiff :: GetStackageDatabase m => SnapshotId -> SnapshotId -> m SnapshotDiff
getSnapshotDiff a b = snapshotDiff <$> getPackages a <*> getPackages b
snapshotDiff :: [PackageListingInfo] -> [PackageListingInfo] -> SnapshotDiff
snapshotDiff as bs = HashMap.filter changed $ alignWith VersionChange (toMap as) (toMap bs)
where
toMap = HashMap.fromList . map (pliName &&& pliVersion)

2
stack.yaml
View File

@ -1 +1,3 @@
resolver: lts-3.8
extra-deps:
- these-0.6.1.0

3
stackage-server.cabal
View File

@ -31,6 +31,7 @@ library
Stackage.Database.Haddock
Stackage.Database.Types
Stackage.Database.Cron
Stackage.Snapshot.Diff
Handler.Home
Handler.Snapshots
@ -93,6 +94,7 @@ library
, blaze-markup >= 0.7 && < 0.8
, byteable >= 0.1 && < 0.2
, bytestring >= 0.10 && < 0.11
, classy-prelude >= 0.12 && < 0.13
, classy-prelude-yesod >= 0.12 && < 0.13
, conduit >= 1.2 && < 1.3
, conduit-extra >= 1.1 && < 1.2
@ -123,6 +125,7 @@ library
, template-haskell >= 2.10 && < 2.11
, temporary-rc >= 1.2 && < 1.3
, text >= 1.2 && < 1.3
, these >= 0.6 && < 0.7
, wai >= 3.0 && < 3.1
, wai-extra >= 3.0 && < 3.1
, wai-logger >= 2.2 && < 2.3