         ;; First, skip whitespace if we're on it, moving point to last
         ;; identifier char.  That way, if we're at "map ", we'll see the word
         ;; "map".
-        (when (and (looking-at (rx eol))
+        (when (and (looking-at-p (rx eol))
                    (not (bolp)))
           (backward-char))
         (when (and (not (eobp))


(defun intero-skip-shebangs ()
  "Skip #! and -- shebangs used in Haskell scripts."
  (when (looking-at "#!") (forward-line 1))
  (when (looking-at "-- stack ") (forward-line 1)))

(defun intero--warn (message &rest args)
  "Display a warning message made from (format MESSAGE ARGS...).

  (interactive)
  (let ((buffers (cl-remove-if-not
                  (lambda (buffer)
                    (string-match-p " intero:" (buffer-name buffer)))
                  (buffer-list))))
    (if buffers
        (display-buffer
