Move haskell-interactive-prompt-state stuff to utils package

Author: geraldus

haskell-debug.el

@@ -23,6 +23,7 @@
 (require 'haskell-process)
 (require 'haskell-interactive-mode)
 (require 'haskell-font-lock)
+(require 'haskell-utils)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Configuration

haskell-doc.el

@@ -305,6 +305,7 @@
 (require 'haskell-mode)
 (require 'haskell-process)
 (require 'haskell)
+(require 'haskell-utils)
 (require 'inf-haskell)
 (require 'imenu)
 (require 'eldoc)

haskell-hoogle.el

@@ -28,6 +28,7 @@
 
 (require 'ansi-color)
 (require 'haskell-mode)
+(require 'haskell-utils)
 
 
 (defcustom haskell-hoogle-command

haskell-interactive-mode.el

@@ -36,6 +36,7 @@
 (require 'haskell-session)
 (require 'haskell-font-lock)
 (require 'haskell-presentation-mode)
+(require 'haskell-utils)
 
 (require 'ansi-color)
 (require 'cl-lib)

haskell-load.el

@@ -26,6 +26,7 @@
 (require 'haskell-modules)
 (require 'haskell-commands)
 (require 'haskell-session)
+(require 'haskell-utils)
 
 (defun haskell-process-look-config-changes (session)
   "Check whether a cabal configuration file has changed.

haskell-mode.el

@@ -663,10 +663,6 @@ May return a qualified name."
 
 (defvar eldoc-print-current-symbol-info-function)
 
-(defvar haskell-mode-interactive-prompt-state nil
-  "Special variable indicating a state of user input waiting.")
-
-
 ;; The main mode functions
 ;;;###autoload
 (define-derived-mode haskell-mode prog-mode "Haskell"
@@ -1073,12 +1069,6 @@ successful, nil otherwise."
     (goto-char (point-min))
     (end-of-line)))
 
-(defun haskell-mode-toggle-interactive-prompt-state (&optional disabled)
-  "Set `haskell-mode-interactive-prompt-state' to t.
-If given DISABLED argument sets variable value to nil, otherwise to t."
-  (setq haskell-mode-interactive-prompt-state (not disabled)))
-
-
 ;; Provide ourselves:
 
 (provide 'haskell-mode)

haskell-utils.el

@@ -48,6 +48,9 @@
   "Non-nil means some commands were triggered during async function execution.")
 (make-variable-buffer-local 'haskell-utils-async-post-command-flag)
 
+(defvar haskell-mode-interactive-prompt-state nil
+  "Special variable indicating a state of user input waiting.")
+
 (defun haskell-utils-read-directory-name (prompt default)
   "Read directory name and normalize to true absolute path.
 Refer to `read-directory-name' for the meaning of PROMPT and
@@ -181,5 +184,11 @@ expression bounds."
                end-c
                value)))))
 
+
+(defun haskell-mode-toggle-interactive-prompt-state (&optional disabled)
+  "Set `haskell-mode-interactive-prompt-state' to t.
+If given DISABLED argument sets variable value to nil, otherwise to t."
+  (setq haskell-mode-interactive-prompt-state (not disabled)))
+
 (provide 'haskell-utils)
 ;;; haskell-utils.el ends here

tests/haskell-doc-tests.el

@@ -31,6 +31,7 @@
 (require 'haskell-mode)
 (require 'haskell-doc)
 (require 'haskell-test-utils)
+(require 'haskell-utils)
 
 
 (ert-deftest interactive-prompt-state ()