           (indent-rigidly start
                           end
                           (+ (shm-indent-spaces)
-                             (shm-node-start-column node)))
+                             (shm-node-indent-column node)))
           (delete-region start
                          (save-excursion
                            (goto-char start)

  (save-excursion (goto-char (shm-node-start n))
                  (current-column)))

(defun shm-node-end-column (n)
  "Get the end column of N."
  (save-excursion (goto-char (shm-node-end n))

                             ? ))
        (shm/init)))
     ((eq 'Lambda (shm-node-cons parent))
      (cond
       ((eq shm-lambda-indent-style 'leftmost-parent)
        (let ((leftmost-parent (cdr (shm-find-furthest-parent-on-line parent-pair))))
          (newline)
          (indent-to (+ (shm-indent-spaces)
                        (shm-node-indent-column leftmost-parent)))))
       (t (newline)
          (indent-to (+ (shm-indent-spaces)
                        (shm-node-start-column parent))))))
     ;; Guards | foo = …
     ((string= "GuardedRhs" (shm-node-type-name current))
      (newline)
