   (backward-word 1)
   (forward-char -1))
 
--
-;; Requirements
-
--
-;; Globals
-
--
-;; Mode
-
 (define-derived-mode shm-edit-string-mode
   text-mode "String"
   "Major mode for editing string content from a Haskell string.")

                           (+ (line-beginning-position)
                              (1- (string-to-number (match-string 4 line)))))
                    (match-string 5 line))))))


;; Requirements

(defun shm/kill-region (beg end)
  "Kill the region, and save it in the clipboard."

  (when structured-haskell-mode
    (shm/reparse)))


(defun shm-decl-ast (&optional reparse)
  "Return the AST representing the current declaration at point.
