Fix extract-changes.hs to use new changelog.md format.

1 files changed, 6 insertions, 3 deletions

diff --git a/tools/extract-changes.hs b/tools/extract-changes.hs
index 0a7f2a8cf..d0ef35888 100755
--- a/tools/extract-changes.hs
+++ b/tools/extract-changes.hs
@@ -7,6 +7,9 @@ import Text.Pandoc.JSON
 main = toJSONFilter extractFirst
 
 extractFirst :: Pandoc -> Pandoc
-extractFirst (Pandoc meta (Para{} : BulletList bs : _)) =
-  Pandoc meta [BulletList bs]
-extractFirst x = x
+extractFirst (Pandoc meta bs) =
+  let bs' = dropWhile (not . isSubhead) bs
+   in Pandoc meta (takeWhile (not . isSubhead) (drop 1 bs'))
+
+isSubhead (Header 2 _ _) = True
+isSubhead _ = False