      ;; Lambdas indents k spaces inwards
      ((eq 'Lambda (shm-node-cons current))
       (newline)
-      (indent-to (+ shm-node-indent-spaces (shm-node-start-column current))))
+      (indent-to (+ (shm-indent-spaces) (shm-node-start-column current))))
      ;; Indentation for function application.
      ((eq 'App (shm-node-cons parent))
       (let ((column

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


;; Faces

  :group 'shm
  :type 'string)

(defcustom shm-indent-spaces
  (if (boundp 'haskell-indent-spaces)
      haskell-indent-spaces
    2)
  "The number of spaces to indent by default."
  :group 'shm
  :type 'string)
