       (cond
        ((eq shm-lambda-indent-style 'leftmost-parent)
         (let ((leftmost-parent (cdr (shm-find-furthest-parent-on-line parent-pair))))
-          (newline)
+          (shm-newline)
           (indent-to (+ (shm-indent-spaces)
                         (shm-node-indent-column leftmost-parent)))))
-       (t (newline)
+       (t (shm-newline)
           (indent-to (+ (shm-indent-spaces)
                         (shm-node-start-column parent))))))
      ;; Guards | foo = …
      ((or (string= "GuardedRhs" (shm-node-type-name current))
           (string= "GuardedAlt" (shm-node-type-name current)))
-      (newline)
+      (shm-newline)
       (indent-to (shm-node-start-column current))
       (insert "| "))
      ;; Indent after or at the = (an rhs).

                 (point))))
    (let ((column (shm-node-start-column (shm-current-node))))
      (insert "\\")
      (newline)
      (indent-to column)
      (insert "\\")))
   ((and (looking-at "[^])}\"]") ;; This is a cheap solution. It

               (string= "Rhs" (shm-node-type-name current))
               (string= "GuardedAlt" (shm-node-type-name parent))
               (string= "GuardedRhs" (shm-node-type-name parent))))
      (shm-newline)
      (indent-to (+ (shm-indent-spaces)
                    (shm-node-start-column (cdr (shm-node-parent parent-pair))))))
     ;; When in a field update.
     ((and parent
           (string= "FieldUpdate" (shm-node-type-name parent)))
      (shm-newline)
      (indent-to (+ (shm-node-start-column parent)
                    (shm-indent-spaces))))
     ;; When in an alt list
     ((and parent
           (string= "GuardedAlts" (shm-node-type-name current)))
      (shm-newline)
      (indent-to (+ (shm-node-start-column parent)
                    (shm-indent-spaces))))
     ;; When in a case alt.
     ((and parent
           (string= "GuardedAlts" (shm-node-type-name parent)))
      (shm-newline)
      (let ((alt (cdr (shm-node-parent parent-pair))))
        (indent-to (+ (shm-node-start-column alt)
                      (shm-indent-spaces)))))
