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

Diff: style fix

Browse Source
This commit is contained in:
Andrei Dziahel 2017-12-20 01:36:23 +03:00
parent cfb9ed248f
commit 51759cbbbc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Stackage/Snapshot/Diff.hs
View File

@ -38,12 +38,12 @@ instance ToJSON (WithSnapshotNames SnapshotDiff) where
toDiffList :: SnapshotDiff -> [(PackageName, VersionChange)] toDiffList :: SnapshotDiff -> [(PackageName, VersionChange)]
toDiffList = sortOn (toCaseFold . unPackageName . fst) . HashMap.toList . unSnapshotDiff toDiffList = sortOn (toCaseFold . unPackageName . fst) . HashMap.toList . unSnapshotDiff
versionPrefix :: VersionChange -> Maybe (Text,Text,Text) versionPrefix :: VersionChange -> Maybe (Text, Text, Text)
versionPrefix vc = case unVersionChange vc of versionPrefix vc = case unVersionChange vc of
These (Version a) (Version b) -> T.commonPrefixes a b These (Version a) (Version b) -> T.commonPrefixes a b
_ -> Nothing _ -> Nothing
versionedDiffList :: [(PackageName, VersionChange)] -> [(PackageName, VersionChange, Maybe (Text,Text,Text))] versionedDiffList :: [(PackageName, VersionChange)] -> [(PackageName, VersionChange, Maybe (Text, Text, Text))]
versionedDiffList = map withPrefixedVersion versionedDiffList = map withPrefixedVersion
where where
withPrefixedVersion (packageName, versionChange) = (packageName, versionChange, versionPrefix versionChange) withPrefixedVersion (packageName, versionChange) = (packageName, versionChange, versionPrefix versionChange)