mirror of
https://github.com/haskell/haskell-language-server.git
synced 2024-09-19 04:37:25 +03:00
37 lines
1.3 KiB
Haskell
Executable File
37 lines
1.3 KiB
Haskell
Executable File
#!/usr/bin/env cabal
|
|
{- cabal:
|
|
build-depends: base, process, text, github, time
|
|
-}
|
|
|
|
{-# LANGUAGE OverloadedStrings, RecordWildCards #-}
|
|
|
|
import Control.Monad
|
|
import Data.List
|
|
import Data.Maybe
|
|
import qualified Data.Text as T
|
|
import Data.Time.Format.ISO8601
|
|
import Data.Time.LocalTime
|
|
import System.Process
|
|
import GitHub
|
|
|
|
main = do
|
|
callCommand "git fetch --tags"
|
|
tags <- filter (isPrefixOf "0.") . lines <$>
|
|
readProcess "git" ["tag", "--list", "--sort=v:refname"] ""
|
|
|
|
lastDateStr <- last . lines <$> readProcess "git" ["show", "-s", "--format=%cI", "-1", last tags] ""
|
|
lastDate <- zonedTimeToUTC <$> iso8601ParseM lastDateStr
|
|
|
|
prs <- github' $ pullRequestsForR "haskell" "haskell-language-server" stateClosed FetchAll
|
|
let prsAfterLastTag = either (error . show)
|
|
(foldMap (\pr -> if inRange pr then [pr] else []))
|
|
prs
|
|
inRange pr
|
|
| Just mergedDate <- simplePullRequestMergedAt pr = mergedDate > lastDate
|
|
| otherwise = False
|
|
|
|
forM_ prsAfterLastTag $ \SimplePullRequest{..} ->
|
|
putStrLn $ T.unpack $ "- " <> simplePullRequestTitle <>
|
|
"\n([#" <> T.pack (show $ unIssueNumber simplePullRequestNumber) <> ")](" <> getUrl simplePullRequestHtmlUrl <> ")" <>
|
|
" by @" <> (untagName (simpleUserLogin simplePullRequestUser))
|