From be140ab496034f3b585d70859b652d4452ec3e03 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 11 Dec 2016 22:19:17 +0100
Subject: Moved extract-changes.hs and github-upload.sh to tools/.

---
 tools/extract-changes.hs | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 tools/extract-changes.hs

(limited to 'tools/extract-changes.hs')

diff --git a/tools/extract-changes.hs b/tools/extract-changes.hs
new file mode 100644
index 000000000..8c8160c2c
--- /dev/null
+++ b/tools/extract-changes.hs
@@ -0,0 +1,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
-- 
cgit v1.2.3