1 files changed, 0 insertions, 15 deletions
diff --git a/tools/extract-changes.hs b/tools/extract-changes.hs
deleted file mode 100755
index d0ef35888..000000000
--- a/tools/extract-changes.hs
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/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 bs) =
-  let bs' = dropWhile (not . isSubhead) bs
-   in Pandoc meta (takeWhile (not . isSubhead) (drop 1 bs'))
-
-isSubhead (Header 2 _ _) = True
-isSubhead _ = False