mirror of
https://github.com/jgm/pandoc.git
synced 2026-08-24 17:26:32 +00:00
10 lines
252 B
Haskell
10 lines
252 B
Haskell
-- 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
|