diff --git a/src/Stackage/Snapshot/Diff.hs b/src/Stackage/Snapshot/Diff.hs index f3335be..567dd4b 100644 --- a/src/Stackage/Snapshot/Diff.hs +++ b/src/Stackage/Snapshot/Diff.hs @@ -38,12 +38,12 @@ instance ToJSON (WithSnapshotNames SnapshotDiff) where toDiffList :: SnapshotDiff -> [(PackageName, VersionChange)] 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 These (Version a) (Version b) -> T.commonPrefixes a b _ -> Nothing -versionedDiffList :: [(PackageName, VersionChange)] -> [(PackageName, VersionChange, Maybe (Text,Text,Text))] +versionedDiffList :: [(PackageName, VersionChange)] -> [(PackageName, VersionChange, Maybe (Text, Text, Text))] versionedDiffList = map withPrefixedVersion where withPrefixedVersion (packageName, versionChange) = (packageName, versionChange, versionPrefix versionChange)