agrafix

(defconst hs-imports-imports-start-regexp
  (rx (group (and bol "import "))))


(defconst hs-imports-language-start-regexp
  (rx (group (and bol "{-# LANGUAGE "))))

(defun hs-imports--search-beg-point (start what &optional end)
  "Search the first import line until reach the END point."
  (save-excursion