aboutsummaryrefslogtreecommitdiff
path: root/tools/extract-changes.hs
blob: 8c8160c2cd9894a46c8d7b7fec1c5d53e41f52ea (plain)
1
2
3
4
5
6
7
8
9
-- Extract changes from latest version in changelog.
import Text.Pandoc.JSON

main = toJSONFilter extractFirst

extractFirst :: Pandoc -> Pandoc
extractFirst (Pandoc meta (Para{} : BulletList bs : _)) =
  Pandoc meta [BulletList bs]
extractFirst x = x