Fix spurious uses of message

(message fmt ...) first argument is treated as format and %-signs are
format signs.

Author: gracjan

haskell-mode.el

@@ -1168,7 +1168,7 @@ generated."
   "Echo STR in mini-buffer.
 Given string is shrinken to single line, multiple lines just
 disturbs the programmer."
-  (message (haskell-mode-one-line str (frame-width))))
+  (message "%s" (haskell-mode-one-line str (frame-width))))
 
 (defun haskell-mode-one-line (str width)
   "Try to fit STR as much as possible on one line according to given WIDTH."

haskell.el

@@ -303,8 +303,7 @@ If `haskell-process-load-or-reload-prompt' is nil, accept `default'."
                   (?n))))
             ;; unwind
             (haskell-mode-toggle-interactive-prompt-state t)))
-      (message
-       (format "The Haskell process `%s' is dearly departed." process-name)))))
+      (message "The Haskell process `%s' is dearly departed." process-name))))
 
 (defun haskell-process ()
   "Get the current process from the current session."