blob: 0a7f2a8cf3ed1112718362a05b033a98e9a9cd02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/env stack
-- stack --stack-yaml=stack.yaml runghc --package pandoc-types
-- 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
|