From 51759cbbbcd46ecfb8ff58557ce0c65552c83dd3 Mon Sep 17 00:00:00 2001 From: Andrei Dziahel Date: Wed, 20 Dec 2017 01:36:23 +0300 Subject: [PATCH] Diff: style fix --- src/Stackage/Snapshot/Diff.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)