From 49b7e2ebeb18c92e1598a422919c75e2f8974c09 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Arthur=20Fayzrakhmanov=20=28=D0=90=D1=80=D1=82=D1=83=D1=80?=
 =?UTF-8?q?=20=D0=A4=D0=B0=D0=B9=D0=B7=D1=80=D0=B0=D1=85=D0=BC=D0=B0=D0=BD?=
 =?UTF-8?q?=D0=BE=D0=B2=29?= <heraldhoi@gmail.com>
Date: Wed, 16 Mar 2016 01:10:29 +0500
Subject: [PATCH] Return removed names for backward compatibility

Define removed functions as aliases and mark them as obsolete.
---
 haskell-cabal.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/haskell-cabal.el b/haskell-cabal.el
index 7a2e2425e..13d3d89df 100644
--- a/haskell-cabal.el
+++ b/haskell-cabal.el
@@ -159,6 +159,14 @@ it from list if one of the following conditions are hold:
   (setq indent-tabs-mode nil)
   )
 
+(make-obsolete #'haskell-cabal-get-setting
+               #'haskell-cabal--get-field
+               "March 14, 2016")
+(defalias #'haskell-cabal-get-setting #'haskell-cabal--get-field
+  "Try to read value of field with NAME from current buffer.
+Obsolete function.  Defined for backward compatibility.  Use
+`haskell-cabal--get-field' instead.")
+
 (defun haskell-cabal--get-field (name)
   "Try to read value of field with NAME from current buffer."
   (save-excursion
@@ -183,6 +191,15 @@ it from list if one of the following conditions are hold:
               (setq val (replace-match "" t t val))))
           val)))))
 
+
+(make-obsolete #'haskell-cabal-guess-setting
+               #'haskell-cabal-get-field
+               "March 14, 2016")
+(defalias #'haskell-cabal-guess-setting #'haskell-cabal-get-field
+  "Read the value of field with NAME from project's cabal file.
+Obsolete function.  Defined for backward compatibility.  Use
+`haskell-cabal-get-field' instead.")
+
 ;;;###autoload
 (defun haskell-cabal-get-field (name)
   "Read the value of field with NAME from project's cabal file.