@@ -166,9 +166,9 @@ When MESSAGE is non-nil, display a message with the version."
166
166
(let* ((haskell-mode-dir (ignore-errors
167
167
(file-name-directory (or (locate-library " haskell-mode" ) " " ))))
168
168
(_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)))
172
172
(if here
173
173
(insert _version)
174
174
(message " %s " _version))))
@@ -796,21 +796,21 @@ remains unchanged."
796
796
(with-temp-buffer
797
797
(insert-file-contents tmp-file)
798
798
(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
+ ))
814
814
815
815
(defun haskell-mode-stylish-buffer ()
816
816
" Apply stylish-haskell to the current buffer."
0 commit comments