[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/haskell-mode 03e2e8577b 1/4: Remove needless quotes from k
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/haskell-mode 03e2e8577b 1/4: Remove needless quotes from keylist of case macro |
Date: |
Sun, 6 Nov 2022 06:58:48 -0500 (EST) |
branch: elpa/haskell-mode
commit 03e2e8577b797b7dafed88b27734b243a6da31b6
Author: Shohei YOSHIDA <syohex@gmail.com>
Commit: Shohei YOSHIDA <syohex@gmail.com>
Remove needless quotes from keylist of case macro
---
haskell-cabal.el | 6 +++---
haskell-commands.el | 6 +++---
haskell-completions.el | 6 +++---
haskell-load.el | 12 ++++++------
haskell-process.el | 6 +++---
inf-haskell.el | 16 ++++++++--------
6 files changed, 26 insertions(+), 26 deletions(-)
diff --git a/haskell-cabal.el b/haskell-cabal.el
index 1ef8091d3e..026d56b95e 100644
--- a/haskell-cabal.el
+++ b/haskell-cabal.el
@@ -702,7 +702,7 @@ Respect the COMMA-STYLE, see
`haskell-cabal-strip-list-and-detect-style' for the possible
styles."
(cl-case comma-style
- ('before
+ (before
(goto-char (point-min))
(while (haskell-cabal-ignore-line-p) (forward-line))
(indent-to 2)
@@ -710,14 +710,14 @@ styles."
(haskell-cabal-each-line
(unless (haskell-cabal-ignore-line-p)
(insert ", "))))
- ('after
+ (after
(goto-char (point-max))
(while (equal 0 (forward-line -1))
(unless (haskell-cabal-ignore-line-p)
(end-of-line)
(insert ",")
(beginning-of-line))))
- ('single
+ (single
(goto-char (point-min))
(while (not (eobp))
(end-of-line)
diff --git a/haskell-commands.el b/haskell-commands.el
index 0cacb376b4..f9ed3da4cf 100644
--- a/haskell-commands.el
+++ b/haskell-commands.el
@@ -653,11 +653,11 @@ happened since function invocation)."
(cl-case res-type
;; neither popup presentation buffer
;; nor insert response in error case
- ('unknown-command
+ (unknown-command
(message "This command requires GHCi 8+ or GHCi-ng. Please read
command description for details."))
- ('option-missing
+ (option-missing
(message "Could not infer type signature. You need to load file
first. Also :set +c is required, see customization
`haskell-interactive-set-+c'. Please read command description for details."))
- ('interactive-error (message "Wrong REPL response: %s" sig))
+ (interactive-error (message "Wrong REPL response: %s" sig))
(otherwise
(if insert-value
;; Only insert type signature and do not present it
diff --git a/haskell-completions.el b/haskell-completions.el
index 8585b14bac..3fd75023fb 100644
--- a/haskell-completions.el
+++ b/haskell-completions.el
@@ -308,11 +308,11 @@ PREFIX should be a list such one returned by
(when (not (eql typ 'haskell-completions-general-prefix))
(let ((candidates
(cl-case typ
- ('haskell-completions-pragma-name-prefix
+ (haskell-completions-pragma-name-prefix
haskell-completions--pragma-names)
- ('haskell-completions-ghc-option-prefix
+ (haskell-completions-ghc-option-prefix
haskell-ghc-supported-options)
- ('haskell-completions-language-extension-prefix
+ (haskell-completions-language-extension-prefix
haskell-ghc-supported-extensions)
(otherwise
(append (when (bound-and-true-p haskell-tags-on-save)
diff --git a/haskell-load.el b/haskell-load.el
index f43fd863c8..d6a9f0f003 100644
--- a/haskell-load.el
+++ b/haskell-load.el
@@ -265,9 +265,9 @@ list of modules where missed IDENT was found."
(get-buffer-create "*haskell-process-log*"))
(switch-to-buffer-other-window (get-buffer "*haskell-process-log*")))
(t (let ((app-name (cl-ecase (haskell-process-type)
- ('ghci haskell-process-path-cabal)
- ('cabal-repl haskell-process-path-cabal)
- ('stack-ghci haskell-process-path-stack))))
+ (ghci haskell-process-path-cabal)
+ (cabal-repl haskell-process-path-cabal)
+ (stack-ghci haskell-process-path-stack))))
(haskell-process-queue-command
process
(make-haskell-command
@@ -566,12 +566,12 @@ When MODULE-BUFFER is non-NIL, paint error overlays."
"Show the '(Compiling|Loading) X' message."
(let ((msg (concat
(cl-ecase type
- ('compiling
+ (compiling
(if haskell-interactive-mode-include-file-name
(format "Compiling: %s (%s)" module-name file-name)
(format "Compiling: %s" module-name)))
- ('loading (format "Loading: %s" module-name))
- ('import-cycle
+ (loading (format "Loading: %s" module-name))
+ (import-cycle
(format "Module has an import cycle: %s" module-name)))
(if th " [TH]" ""))))
(haskell-mode-message-line msg)
diff --git a/haskell-process.el b/haskell-process.el
index aebf6fbc96..8a2ec940e0 100644
--- a/haskell-process.el
+++ b/haskell-process.el
@@ -77,7 +77,7 @@ Do not actually start any process.
HPTYPE is the result of calling `'haskell-process-type`' function."
(let ((session-name (haskell-session-name session)))
(cl-ecase hptype
- ('ghci
+ (ghci
(append (list (format "Starting inferior GHCi process %s ..."
haskell-process-path-ghci)
session-name
@@ -86,7 +86,7 @@ HPTYPE is the result of calling `'haskell-process-type`'
function."
(list
(append (haskell-process-path-to-list
haskell-process-path-ghci)
haskell-process-args-ghci)))))
- ('cabal-repl
+ (cabal-repl
(append (list (format "Starting inferior `cabal repl' process using %s
..."
haskell-process-path-cabal)
session-name
@@ -99,7 +99,7 @@ HPTYPE is the result of calling `'haskell-process-type`'
function."
haskell-process-args-cabal-repl
(let ((target (haskell-session-target session)))
(if target (list target) nil)))))))
- ('stack-ghci
+ (stack-ghci
(append (list (format "Starting inferior stack GHCi process using %s"
haskell-process-path-stack)
session-name
nil)
diff --git a/inf-haskell.el b/inf-haskell.el
index 524eb82f61..6462db99f2 100644
--- a/inf-haskell.el
+++ b/inf-haskell.el
@@ -55,14 +55,14 @@
"Return the command with the arguments to start the repl based on the
directory structure."
(cl-ecase (haskell-process-type)
- ('ghci (cond ((eq system-type 'cygwin) `("ghcii.sh"
,@haskell-process-args-ghci))
- (t (append
- (if (listp haskell-process-path-ghci)
- haskell-process-path-ghci
- (list haskell-process-path-ghci))
- haskell-process-args-ghci))))
- ('cabal-repl `(,haskell-process-path-cabal "repl"
,@haskell-process-args-cabal-repl))
- ('stack-ghci `(,haskell-process-path-stack "ghci"
,@haskell-process-args-stack-ghci))))
+ (ghci (cond ((eq system-type 'cygwin) `("ghcii.sh"
,@haskell-process-args-ghci))
+ (t (append
+ (if (listp haskell-process-path-ghci)
+ haskell-process-path-ghci
+ (list haskell-process-path-ghci))
+ haskell-process-args-ghci))))
+ (cabal-repl `(,haskell-process-path-cabal "repl"
,@haskell-process-args-cabal-repl))
+ (stack-ghci `(,haskell-process-path-stack "ghci"
,@haskell-process-args-stack-ghci))))
(defconst inferior-haskell-info-xref-re
"-- Defined at \\(.+\\):\\([0-9]+\\):\\([0-9]+\\)\\(?:-\\([0-9]+\\)\\)?$")