module Debian.Debianize.Changelog
( filterEntries
, dropFutureEntries
, findChangelogEntry
, mergeChangelogEntries
) where
import Debian.Changes (ChangeLog(..), ChangeLogEntry(..))
import Debian.Version (DebianVersion)
import Prelude hiding (log)
filterEntries :: (DebianVersion -> Bool) -> ChangeLog -> ChangeLog
filterEntries :: (DebianVersion -> Bool) -> ChangeLog -> ChangeLog
filterEntries DebianVersion -> Bool
p (ChangeLog [ChangeLogEntry]
entries) = [ChangeLogEntry] -> ChangeLog
ChangeLog forall a b. (a -> b) -> a -> b
$ forall a. (a -> Bool) -> [a] -> [a]
filter (DebianVersion -> Bool
p forall b c a. (b -> c) -> (a -> b) -> a -> c
. ChangeLogEntry -> DebianVersion
logVersion) forall a b. (a -> b) -> a -> b
$ [ChangeLogEntry]
entries
dropFutureEntries :: DebianVersion -> ChangeLog -> ChangeLog
dropFutureEntries :: DebianVersion -> ChangeLog -> ChangeLog
dropFutureEntries DebianVersion
ver ChangeLog
log = (DebianVersion -> Bool) -> ChangeLog -> ChangeLog
filterEntries (forall a. Ord a => a -> a -> Bool
<= DebianVersion
ver) ChangeLog
log
findChangelogEntry :: DebianVersion -> ChangeLog -> Maybe ChangeLogEntry
findChangelogEntry :: DebianVersion -> ChangeLog -> Maybe ChangeLogEntry
findChangelogEntry DebianVersion
ver ChangeLog
log =
case (DebianVersion -> Bool) -> ChangeLog -> ChangeLog
filterEntries (forall a. Eq a => a -> a -> Bool
== DebianVersion
ver) ChangeLog
log of
ChangeLog [] -> forall a. Maybe a
Nothing
ChangeLog [ChangeLogEntry
x] -> forall a. a -> Maybe a
Just ChangeLogEntry
x
ChangeLog
_ -> forall a. HasCallStack => [Char] -> a
error forall a b. (a -> b) -> a -> b
$ [Char]
"Multiple version " forall a. [a] -> [a] -> [a]
++ forall a. Show a => a -> [Char]
show DebianVersion
ver forall a. [a] -> [a] -> [a]
++ [Char]
" changelog entries"
mergeChangelogEntries :: ChangeLogEntry -> ChangeLogEntry -> ChangeLogEntry
mergeChangelogEntries :: ChangeLogEntry -> ChangeLogEntry -> ChangeLogEntry
mergeChangelogEntries ChangeLogEntry
old ChangeLogEntry
new =
ChangeLogEntry
old { logComments :: [Char]
logComments = ChangeLogEntry -> [Char]
logComments ChangeLogEntry
old forall a. [a] -> [a] -> [a]
++ ChangeLogEntry -> [Char]
logComments ChangeLogEntry
new
, logDate :: [Char]
logDate = ChangeLogEntry -> [Char]
logDate ChangeLogEntry
new }