extract-changes.hs


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