[nongnu] elpa/haskell-tng-mode e245a93 296/385: allow opt-out of local history

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit e245a9392bc91ccf9e523fd46659315b4455d709
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>

    allow opt-out of local history
---
 haskell-tng-compile.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/haskell-tng-compile.el b/haskell-tng-compile.el
index 9e6f7e0..bce8e1c 100644
--- a/haskell-tng-compile.el
+++ b/haskell-tng-compile.el
@@ -21,6 +21,11 @@
 ;; TODO support long running (ghcid) compile buffers
 ;; TODO generic flycheck integration 
https://emacs.stackexchange.com/questions/51894
 
+(defcustom haskell-tng-compile-always-ask nil
+  "`haskell-tng-compile' will remember the last command for the buffer unless 
set."
+  :type 'booleanp
+  :group 'haskell-tng)
+
 (defvar haskell-tng-compilation-error-regexp-alist
   (let ((file '(: (group (+ (not (any "{" "}" "(" ")" "[" "]" "\n"))) ".hs")))
         (num '(: (group (+ digit))))
@@ -97,7 +102,9 @@ will cause the subsequent call to prompt."
                         ;;      mutating / reordering the global history here.
                         '(haskell-tng--compile-history . 1))))))
     (setq haskell-tng--compile-command
-          (unless (equal command haskell-tng--compile-alt) command))
+          (unless (or
+                   haskell-tng-compile-always-ask
+                   (equal command haskell-tng--compile-alt)) command))
 
     (let ((default-directory
             (or