Skip to content

Commit f41ae73

Browse files
committed
Fix indentation in haskell-mode.el
1 parent cf981f4 commit f41ae73

File tree

1 file changed

+18
-18
lines changed

1 file changed

+18
-18
lines changed

haskell-mode.el

Lines changed: 18 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -166,9 +166,9 @@ When MESSAGE is non-nil, display a message with the version."
166166
(let* ((haskell-mode-dir (ignore-errors
167167
(file-name-directory (or (locate-library "haskell-mode") ""))))
168168
(_version (format "haskell-mode version %s (%s @ %s)"
169-
haskell-version
170-
haskell-git-version
171-
haskell-mode-dir)))
169+
haskell-version
170+
haskell-git-version
171+
haskell-mode-dir)))
172172
(if here
173173
(insert _version)
174174
(message "%s" _version))))
@@ -796,21 +796,21 @@ remains unchanged."
796796
(with-temp-buffer
797797
(insert-file-contents tmp-file)
798798
(buffer-substring-no-properties (point-min) (point-max)))))
799-
(if (string= "" stderr-output)
800-
(if (string= "" stdout-output)
801-
(funcall errout
802-
"Error: %s produced no output, leaving buffer alone" cmd)
803-
(save-restriction
804-
(widen)
805-
;; command successful, insert file with replacement to preserve
806-
;; markers.
807-
(insert-file-contents tmp-file nil nil nil t)))
808-
;; non-null stderr, command must have failed
809-
(funcall errout "%s failed: %s" cmd stderr-output)
810-
)
811-
(delete-file tmp-file)
812-
(delete-file err-file)
813-
))
799+
(if (string= "" stderr-output)
800+
(if (string= "" stdout-output)
801+
(funcall errout
802+
"Error: %s produced no output, leaving buffer alone" cmd)
803+
(save-restriction
804+
(widen)
805+
;; command successful, insert file with replacement to preserve
806+
;; markers.
807+
(insert-file-contents tmp-file nil nil nil t)))
808+
;; non-null stderr, command must have failed
809+
(funcall errout "%s failed: %s" cmd stderr-output)
810+
)
811+
(delete-file tmp-file)
812+
(delete-file err-file)
813+
))
814814

815815
(defun haskell-mode-stylish-buffer ()
816816
"Apply stylish-haskell to the current buffer."

0 commit comments

Comments
 (0)