Replace interactive-p with called-interactively-p

If support for Emacs versions prior to 23.1 is to be dropped (haskell#156) than
interactive-p (obsolete as of 23.2) can be removed.

Author: akamch

haskell-doc.el

@@ -1418,7 +1418,7 @@ See variable docstring."
 
     (run-hooks 'haskell-doc-mode-hook))
 
-  (and (interactive-p)
+  (and (called-interactively-p 'any)
        (message "haskell-doc-mode is %s"
 		(if haskell-doc-mode "enabled" "disabled")))
   haskell-doc-mode)

inf-haskell.el

@@ -537,7 +537,7 @@ The returned info is cached for reuse by `haskell-doc-mode'."
                         (delq (assoc sym haskell-doc-user-defined-ids)
                               haskell-doc-user-defined-ids)))))
 
-        (if (interactive-p) (message "%s" type))
+        (if (called-interactively-p 'any) (message "%s" type))
         (when insert-value
           (beginning-of-line)
           (insert type "\n"))
@@ -553,7 +553,7 @@ The returned info is cached for reuse by `haskell-doc-mode'."
                           "Show kind of: ")
                         nil nil type))))
   (let ((result (inferior-haskell-get-result (concat ":kind " type))))
-    (if (interactive-p) (message "%s" result))
+    (if (called-interactively-p 'any) (message "%s" result))
     result))
 
 ;;;###autoload
@@ -566,7 +566,7 @@ The returned info is cached for reuse by `haskell-doc-mode'."
                           "Show info of: ")
                         nil nil sym))))
   (let ((result (inferior-haskell-get-result (concat ":info " sym))))
-    (if (interactive-p) (message "%s" result))
+    (if (called-interactively-p 'any) (message "%s" result))
     result))
 
 ;;;###autoload