From 79e6a91b3d5eff3edc3b81ee2bcb37656c8add50 Mon Sep 17 00:00:00 2001
From: Gracjan Polak <gracjan@scrive.com>
Date: Thu, 26 Feb 2015 21:08:04 +0100
Subject: [PATCH] Upgrade to outline-(show|hide)-levels.

---
 haskell-compat.el | 6 ++++++
 haskell-mode.el   | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/haskell-compat.el b/haskell-compat.el
index 96dfa2190..60b7b0b99 100644
--- a/haskell-compat.el
+++ b/haskell-compat.el
@@ -53,6 +53,12 @@ A process is considered alive if its status is `run', `open',
 (unless (fboundp 'outline-show-subtree)
   (defalias 'outline-show-subtree 'show-subtree))
 
+(unless (fboundp 'outline-hide-sublevels)
+  (defalias 'outline-hide-sublevels 'hide-sublevels))
+
+(unless (fboundp 'outline-show-subtree)
+  (defalias 'outline-show-subtree 'show-subtree))
+
 (provide 'haskell-compat)
 
 ;;; haskell-compat.el ends here
diff --git a/haskell-mode.el b/haskell-mode.el
index 42fc30ae1..b8e273b32 100644
--- a/haskell-mode.el
+++ b/haskell-mode.el
@@ -171,9 +171,9 @@ When MESSAGE is non-nil, display a message with the version."
   (interactive)
   (with-current-buffer (find-file-read-only (expand-file-name "NEWS" haskell-mode-pkg-base-dir))
     (goto-char (point-min))
-    (hide-sublevels 1)
+    (outline-hide-sublevels 1)
     (outline-next-visible-heading 1)
-    (show-subtree)))
+    (outline-show-subtree)))
 
 ;; Are we looking at a literate script?
 (defvar haskell-literate nil