Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove whitespace [Gun.io WhitespaceBot]

  • Loading branch information...
commit ff67f41eef9bd8327a48b31ab401051508ffa4b8 1 parent 98bc21b
Gun.io Whitespace Robot authored
View
10 HACKING.markdown
@@ -5,7 +5,7 @@ works or should work.
- [GHC API Haddock documentation][ghc-api]
- [Hoogle][] for everything else
-
+
[ghc-api]: http://www.haskell.org/ghc/docs/latest/html/libraries/ghc/index.html
[Hoogle]: http://www.haskell.org/hoogle/
@@ -14,7 +14,7 @@ works or should work.
## GHC Session State
* **Static Flags**: We cannot change these throughout a session.
-
+
* **Dynamic Flags**: May be set on a per-file basis and a per-project
basis. They contain all sorts of stuff including search paths and
more. The tricky bit here is resetting the old DynFlags when
@@ -28,7 +28,7 @@ works or should work.
* **Interactive Context**: The context (set of visible modules and
debugger state) of the byte code interpreter.
-
+
## Scion Session State
What we really need is some kind of abstraction of the GHC session
@@ -62,7 +62,7 @@ of setting up the information that makes up the GHC session state.
The first case is obvious. The second case may be triggered both
when switching components within the same Cabal project, or when
re-opening a project that we have been working on previously.
-
+
### Configuring a Cabal project
In addition to the Cabal file to configure, we also need
@@ -75,7 +75,7 @@ In addition to the Cabal file to configure, we also need
so anyone using Scion only needs to edit the global file once.
* Command line flags to the `configure` command.
-
+
In the future we could provide a mechanism to put this information in
a special file, so the user does not have to provide this information
over and over again.
View
6 LICENSE
@@ -7,14 +7,14 @@ modification, are permitted provided that the following conditions are met:
- Redistributions of source code must retain the above copyright notice,
this list of conditions and the following disclaimer.
-
+
- Redistributions in binary form must reproduce the above copyright notice,
this list of conditions and the following disclaimer in the documentation
and/or other materials provided with the distribution.
-
+
- Neither name of the author nor the names of its contributors may be
used to endorse or promote products derived from this software without
-specific prior written permission.
+specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) AND THE CONTRIBUTORS "AS
IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
View
20 README.markdown
@@ -24,7 +24,7 @@ To install the library and server use:
$ cd dir/to/scion
$ cabal install
-
+
This will install the executable `scion_server` in the `bin` directory
of `cabal-install`, typically `$HOME/.cabal/bin`.
@@ -115,7 +115,7 @@ something like the following to your `.emacs`:
Once you have a running and connected Scion server, you can use the
commands provided by scion-mode:
-
+
* `C-c C-x C-l` (`scion-load`) load the current file with Scion. If
the file is within a Cabal project this will prompt to use the
settings from one of the components in the package description
@@ -141,15 +141,15 @@ The following commands offer completion for a few things.
* `C-c i l` (`haskell-insert-language`) asks for a `LANGUAGE` pragma
and adds it to the top of the file.
-
+
* `C-c i p` (`haskell-insert-pragma`) inserts a pragma at the
current cursor position. (At the moment this doesn't try to make
sense of the selected pragma, however.)
-
+
* `C-c i m` (`haskell-insert-module-name`) inserts the name of an
external module (external), i.e., a module _not_ from the current
package.
-
+
* `C-c i f` (`haskell-insert-flag`) insert (GHC) command line flag
at point. (Really only makes sense within an `OPTIONS_GHC` pragma.)
@@ -172,7 +172,7 @@ The following should work most of the cases.
Calling this command on `+` will print `Int -> Int -> Int` instead
of `Num a => a -> a -> a`.
-
+
# Manually Connecting to Scion
If you set the variable `scion-auto-connect` to `'ask` (the default is
@@ -184,7 +184,7 @@ You can start the server manually on the command line and then use
M-x scion-connect
to connect to that server. However, most of the time it will be more
-convenient to start the server from within Emacs:
+convenient to start the server from within Emacs:
M-x scion
@@ -216,7 +216,7 @@ different Vim versions). If Vim should start the Scion server itself
" recommended: vim spawns a scion instance itself:
let g:scion_connection_setting = [ 'scion', "<path/to/scion-server>"]
-
+
Note that there may be problems using "~" in the path, so better
specify the absolute path.
@@ -275,10 +275,10 @@ You should see something like this, which is the (instantiated) type
of the identifier at the point:
{'Just': 'print :: [Char] -> IO ()'}
-
+
Have a look at `vim_runtime_path/ftplugin/haskell.vim` to see a list of all
commands which are implemented yet.
-
+
`BackgroundTypecheckFileScion` should be called automatically after
buf write. If you don't like this set `g:dont_check_on_buf_write` or
overwrite `g:haskell_qf_hook` to change open/close quickfix and jump to
View
8 docs/Architecture.markdown
@@ -6,15 +6,15 @@ caches some of their state). This solves the following problems:
- *Static Flags*. Some of GHC's command line flags can only be set
on start-up. This is important mainly for flags that control the
kind of compilation (profiled, threaded).
-
+
- *Other write-once state*. GHC only reads the package database once
on startup. If new packages have been installed since startup
they will not be visible. Changing the database by force while a
session is running is likely to cause problems.
-
+
- *Caches*. There are a few caches in GHC that cannot be flushed.
These include the name cache, and the package DB cache.
-
+
- *Multiple Compiler Versions*. It is not possible to link to two
different versions of GHC from within the same program. If we
want to make sure a program compiles with multiple versions of GHC
@@ -30,7 +30,7 @@ this, we:
- cache some information on the library side, and
- avoid sending too much data between library and worker.
-
+
Non-Haskell front-ends use a scion-server that takes the place of the
library.
View
118 emacs/scion.el
@@ -40,7 +40,7 @@
;;;---------------------------------------------------------------------------
;;;; Customize groups
-;;
+;;
;;;;; scion
(defgroup scion nil
@@ -172,7 +172,7 @@ current state will be saved and later restored."
,(mapcar (lambda (slot)
(etypecase slot
(symbol `(,slot (,(reader slot) ,struct-var)))
- (cons `(,(first slot) (,(reader (second slot))
+ (cons `(,(first slot) (,(reader (second slot))
,struct-var)))))
slots)
. ,body)))))
@@ -193,16 +193,16 @@ You might prefer `ido-completing-read' to the default, but that
leads to problems on some versions of Emacs which are so severe
that Emacs needs to be restarted. (You have been warned!)")
-(defun scion-completing-read (prompt collection
+(defun scion-completing-read (prompt collection
&optional predicate require-match
initial-input hist def inherit-input-method)
(if (eq scion-completing-read-function 'ido-completing-read)
;; ido-completing-read does not support the last argument. What
;; a mess.
- (funcall scion-completing-read-function
+ (funcall scion-completing-read-function
prompt collection predicate require-match initial-input
hist def)
- (funcall scion-completing-read-function
+ (funcall scion-completing-read-function
prompt collection predicate require-match initial-input
hist def inherit-input-method)))
@@ -235,7 +235,7 @@ that Emacs needs to be restarted. (You have been warned!)")
(defun scion-tree-insert-list (list prefix)
"Insert a list of trees."
- (loop for (elt . rest) on list
+ (loop for (elt . rest) on list
do (cond (rest
(insert prefix " |")
(scion-tree-insert elt (concat prefix " |"))
@@ -396,7 +396,7 @@ some info about the current session is shown."
(comint-mode)
(setq scion-connect-buffer (current-buffer))
(message "Connecting... (Abort with `M-x scion-abort-connect`.)")
- (add-hook 'comint-output-filter-functions
+ (add-hook 'comint-output-filter-functions
'scion-check-server-ready nil t)
(let ((process-environment (append env process-environment)))
(comint-exec (current-buffer) "scion-emacs" program nil program-args))
@@ -412,7 +412,7 @@ some info about the current session is shown."
(when (re-search-forward regexp nil t)
(read (match-string 1)) ))))
(when port
- (remove-hook 'comint-output-filter-functions
+ (remove-hook 'comint-output-filter-functions
'scion-check-server-ready t)
(setq scion-connect-buffer nil)
(sleep-for 0.1) ;; give the server some time to get connected
@@ -522,7 +522,7 @@ line of the file."
;; (emacs-mule-unix t "emacs-mule-unix")
;; (euc-jp-unix t "euc-jp-unix")
)
- "A list of valid coding systems.
+ "A list of valid coding systems.
Each element is of the form: (NAME MULTIBYTEP CL-NAME)")
(defun scion-find-coding-system (name)
@@ -536,11 +536,11 @@ or NIL."
probe)))
(defvar scion-net-coding-system
- (find-if 'scion-find-coding-system
+ (find-if 'scion-find-coding-system
'(iso-latin-1-unix iso-8859-1-unix binary))
"*Coding system used for network connections.
See also `scion-net-valid-coding-systems'.")
-
+
(defun scion-check-coding-system (coding-system)
"Signal an error if CODING-SYSTEM isn't a valid coding system."
(interactive)
@@ -552,7 +552,7 @@ See also `scion-net-valid-coding-systems'.")
(assert default-enable-multibyte-characters))
t))
-(defcustom scion-repl-history-file-coding-system
+(defcustom scion-repl-history-file-coding-system
(cond ((scion-find-coding-system 'utf-8-unix) 'utf-8-unix)
(t scion-net-coding-system))
"*The coding system for the history file."
@@ -599,7 +599,7 @@ EVAL'd by Lisp."
(setq scion-sessions nil)
(when (eq process scion-default-connection)
(setq scion-default-connection nil))
- (cond (debug
+ (cond (debug
(set-process-sentinel process 'ignore)
(set-process-filter process 'ignore)
(delete-process process))
@@ -623,7 +623,7 @@ EVAL'd by Lisp."
(goto-char (point-max))
(insert string))
(scion-process-available-input process))
- ('error
+ ('error
(message "Error in process filter: %s" ex)
nil)))
@@ -649,8 +649,8 @@ EVAL'd by Lisp."
(defun scion-run-when-idle (function &rest args)
"Call FUNCTION as soon as Emacs is idle."
- (apply #'run-at-time
- (if (featurep 'xemacs) itimer-short-interval 0)
+ (apply #'run-at-time
+ (if (featurep 'xemacs) itimer-short-interval 0)
nil function args))
(defun scion-net-read-or-lose (process)
@@ -687,7 +687,7 @@ This is more compatible with the CL reader."
(with-temp-buffer
(let (print-escape-nonascii
print-escape-newlines
- print-length
+ print-length
print-level)
(prin1 sexp (current-buffer))
(buffer-string))))
@@ -715,7 +715,7 @@ This is more compatible with the CL reader."
;;; One connection is "current" at any given time. This is:
;;; `scion-dispatching-connection' if dynamically bound, or
;;; `scion-buffer-connection' if this is set buffer-local, or
-;;; `scion-default-connection' otherwise.
+;;; `scion-default-connection' otherwise.
;;;
;;; When you're invoking commands in your source files you'll be using
;;; `scion-default-connection'. This connection can be interactively
@@ -795,7 +795,7 @@ Signal an error if there's no connection."
(let* ((c0 (car scion-net-processes))
(c (cond ((eq scion-auto-select-connection 'always) c0)
((and (eq scion-auto-select-connection 'ask)
- (y-or-n-p
+ (y-or-n-p
(format "No default connection selected. %s %s? "
"Switch to" (scion-connection-name c0))))
c0))))
@@ -837,10 +837,10 @@ If PROCESS is not specified, `scion-connection' is used.
(not (null scion-net-processes)))
(defun scion-compute-connection-state (conn)
- (cond ((null conn) :disconnected)
+ (cond ((null conn) :disconnected)
;((scion-stale-connection-p conn) :stale)
;((scion-debugged-connection-p conn) :debugged)
- ((and (scion-use-sigint-for-interrupt conn)
+ ((and (scion-use-sigint-for-interrupt conn)
(scion-busy-p conn)) :busy)
((eq scion-buffer-connection conn) :local)
(t :connected)))
@@ -946,7 +946,7 @@ Bound in the connection's process-buffer.")
(defun scion-check-version (version conn)
(or (equal version scion-protocol-version)
(equal scion-protocol-version 'ignore)
- (y-or-n-p
+ (y-or-n-p
(format "Versions differ: %s (scion client) vs. %s (scion server). Continue? "
scion-protocol-version version))
(scion-net-close conn)
@@ -955,7 +955,7 @@ Bound in the connection's process-buffer.")
(defun scion-generate-connection-name (lisp-name)
(loop for i from 1
for name = lisp-name then (format "%s<%d>" lisp-name i)
- while (find name scion-net-processes
+ while (find name scion-net-processes
:key #'scion-connection-name :test #'equal)
finally (return name)))
@@ -987,12 +987,12 @@ Bound in the connection's process-buffer.")
Can return nil if there's no process object for the connection."
nil
;; (let ((proc (scion-inferior-process connection)))
-;; (if (and proc
+;; (if (and proc
;; (memq (process-status proc) '(run stop)))
;; proc))
)
-;; Non-macro version to keep the file byte-compilable.
+;; Non-macro version to keep the file byte-compilable.
;; (defun scion-set-inferior-process (connection process)
;; (setf (scion-inferior-process connection) process))
@@ -1045,7 +1045,7 @@ fixnum a specific session."))
(defun scion-current-package ()
nil)
-(defvar scion-accept-process-output-supports-floats
+(defvar scion-accept-process-output-supports-floats
(ignore-errors (accept-process-output nil 0.0) t))
(defun scion-accept-process-output (&optional process timeout)
@@ -1053,7 +1053,7 @@ fixnum a specific session."))
(cond (scion-accept-process-output-supports-floats
(accept-process-output process timeout))
(t
- (accept-process-output process
+ (accept-process-output process
(if timeout (truncate timeout))
;; Emacs 21 uses microsecs; Emacs 22 millisecs
(if timeout (truncate (* timeout 1000000)))))))
@@ -1071,7 +1071,7 @@ fixnum a specific session."))
;;; you need to, but the others are usually more convenient.
(defmacro* scion-rex ((&rest saved-vars)
- (sexp &optional
+ (sexp &optional
(session 'scion-current-session))
&rest continuations)
"(scion-rex (VAR ...) (SEXP &optional SESSION) CLAUSES ...)
@@ -1099,7 +1099,7 @@ deal with that."
collect (etypecase var
(symbol (list var var))
(cons var)))
- (scion-dispatch-event
+ (scion-dispatch-event
(list :emacs-rex ,sexp nil ,session
(lambda (,result)
(destructure-case ,result
@@ -1108,11 +1108,11 @@ deal with that."
(defun scion-eval (sexp &optional package)
"Evaluate EXPR on the Scion server and return the result."
(when (null package) (setq package (scion-current-package)))
- (let* ((tag (gensym (format "scion-result-%d-"
+ (let* ((tag (gensym (format "scion-result-%d-"
(1+ (scion-continuation-counter)))))
(scion-stack-eval-tags (cons tag scion-stack-eval-tags)))
(apply
- #'funcall
+ #'funcall
(catch tag
(scion-rex (tag sexp)
(sexp package)
@@ -1128,7 +1128,7 @@ deal with that."
(let ((debug-on-quit t)
(inhibit-quit nil)
(conn (scion-connection)))
- (while t
+ (while t
(unless (eq (process-status conn) 'open)
(error "Server connection closed unexpectedly"))
(scion-accept-process-output nil 0.01)))))))
@@ -1340,12 +1340,12 @@ function was called."
(scion-popup-buffer-mode 1)
(setq scion-popup-buffer-saved-fingerprint
(scion-current-emacs-snapshot-fingerprint))
- (multiple-value-setq (scion-buffer-package
+ (multiple-value-setq (scion-buffer-package
scion-buffer-connection
scion-popup-buffer-saved-emacs-snapshot)
buffer-vars))
-(define-minor-mode scion-popup-buffer-mode
+(define-minor-mode scion-popup-buffer-mode
"Mode for displaying read only stuff"
nil
(" Scion-Tmp" scion-modeline-string)
@@ -1383,7 +1383,7 @@ last activated the buffer."
(defun scion-popup-buffer-restore-snapshot ()
(let ((snapshot scion-popup-buffer-saved-emacs-snapshot))
- (assert snapshot)
+ (assert snapshot)
(scion-set-emacs-snapshot snapshot)))
@@ -1491,7 +1491,7 @@ last activated the buffer."
:group 'scion-mode-faces)
(defun scion-face-inheritance-possible-p ()
- "Return true if the :inherit face attribute is supported."
+ "Return true if the :inherit face attribute is supported."
(assq :inherit custom-face-attributes))
(defface scion-highlight-face
@@ -1580,7 +1580,7 @@ PREDICATE is executed in the buffer to test."
(buffer-list)))
(defun scion-flash-region (start end &optional timeout)
- (let ((overlay (make-overlay start end)))
+ (let ((overlay (make-overlay start end)))
(overlay-put overlay 'face 'secondary-selection)
(run-with-timer (or timeout 0.2) nil 'delete-overlay overlay)))
@@ -1648,7 +1648,7 @@ TODO: Fix up locations if buffer has been modified in between."
(forward-line (- end-line start-line))
(move-to-column end-col)
(let ((end (point)))
- (cond
+ (cond
((< end start)
(list end start))
((= start end) ; span would be invisible
@@ -1724,7 +1724,7 @@ The overlay has several properties:
(scion-next-note-in-buffer-aux t))
(defun scion-next-note-in-buffer-aux (&optional backwards)
- (flet ((my-next-overlay-change (p) (if backwards
+ (flet ((my-next-overlay-change (p) (if backwards
(previous-overlay-change p)
(next-overlay-change p)))
(my-eobp () (if backwards (bobp) (eobp))))
@@ -1884,7 +1884,7 @@ If NO-POPUP is non-NIL, only show the buffer if it is already visible."
(defvar scion-compiler-notes-mode-map)
-(define-derived-mode scion-compiler-notes-mode fundamental-mode
+(define-derived-mode scion-compiler-notes-mode fundamental-mode
"Compiler-Notes"
"\\<scion-compiler-notes-mode-map>\
\\{scion-compiler-notes-mode-map}
@@ -1905,7 +1905,7 @@ If NO-POPUP is non-NIL, only show the buffer if it is already visible."
(destructuring-bind (mouse-2 (w pos &rest _) &rest __) event
(save-excursion
(goto-char pos)
- (let ((fn (get-text-property (point)
+ (let ((fn (get-text-property (point)
'scion-compiler-notes-default-action)))
(if fn (funcall fn) (scion-compiler-notes-show-details))))))
@@ -2053,7 +2053,7 @@ signals an error if multiple files are present."
nil)))
(defun scion-open-cabal-project (root-dir rel-dist-dir extra-args)
- "Load project metadata from a Cabal description.
+ "Load project metadata from a Cabal description.
This does not load the project but merely loads the metadata.
@@ -2085,7 +2085,7 @@ EXTRA-ARGS is a string of command line flags."
(read-from-minibuffer "Configure Flags: " ""))))
(defun scion-configure-cabal-project (root-dir rel-dist-dir extra-args)
- "Configure/Reconfigure a Cabal project.
+ "Configure/Reconfigure a Cabal project.
This does not load the project but merely loads the metadata and
pre-processes files.
@@ -2120,7 +2120,7 @@ Sets the GHC flags for the library from the current Cabal project and loads it."
(defun scion-count-notes (notes)
(let ((warns 0)
(errs 0))
- (loop for n in notes
+ (loop for n in notes
when (eq (scion-note.severity n) :warning) do (incf warns)
when (eq (scion-note.severity n) :error) do (incf errs))
(list warns errs)))
@@ -2155,7 +2155,7 @@ Sets the GHC flags for the library from the current Cabal project and loads it."
(scion-list-sessions scion-sessions)
;; (scion-list-compiler-notes (scion-compiler-notes) t)
))
-
+
;; ((:ok warns)
;; (setq scion-last-compilation-result
;; (list 42 (mapc #'scion-canonicalise-note-location
@@ -2234,7 +2234,7 @@ Sets the GHC flags for the library from the current Cabal project and loads it."
When called interactively tries to complete to modules of all
installed packages (However, not of the current project.)"
- (interactive
+ (interactive
(let ((mods (scion-exposed-modules)))
(list (scion-completing-read "Module: " mods))))
(insert mod))
@@ -2288,7 +2288,7 @@ installed packages (However, not of the current project.)"
;;;---------------------------------------------------------------------------
;;;; Flycheck (background type checking)
-(make-variable-buffer-local
+(make-variable-buffer-local
(defvar scion-flycheck-timer nil
"The timer for starting background compilation"))
@@ -2346,7 +2346,7 @@ forces it to be off. NIL toggles the current state."
(interactive "P")
(if (not scion-mode)
(message "Background typechecking only supported inside scion-mode.")
- (let ((new-state
+ (let ((new-state
(cond
((null arg) (not scion-flycheck-on-save-state))
((consp arg) nil)
@@ -2356,7 +2356,7 @@ forces it to be off. NIL toggles the current state."
(if new-state
(add-hook 'after-save-hook 'scion-after-save-hook nil t)
(remove-hook 'after-save-hook 'scion-after-save-hook t))
-
+
(setq scion-flycheck-on-save-state new-state)
(message (format "Typecheck-on-save has been turned %s"
(if new-state "ON" "OFF")))))))
@@ -2372,7 +2372,7 @@ forces it to be off. NIL toggles the current state."
(not scion-flycheck-is-running))
(setq scion-flycheck-last-change-time nil)
(scion-flycheck-start-check)))
-
+
(defun scion-kill-buffer-hook ()
(when scion-flycheck-timer
(cancel-timer scion-flycheck-timer)
@@ -2403,7 +2403,7 @@ forces it to be off. NIL toggles the current state."
(setq scion-flycheck-is-running nil)
(destructuring-bind (ok notes) result
(if ok
- (scion-report-compilation-result
+ (scion-report-compilation-result
(list :succeeded t :notes notes :duration 0.42)
(current-buffer))
(scion-report-status "[?]")))
@@ -2463,9 +2463,9 @@ If SESSION is nil, clears all buffer session."
(let ((filename (buffer-file-name))
(line (line-number-at-pos))
(col (current-column)))
- (message
- (let ((rslt (scion-eval `(thing-at-point :file ,filename
- :line ,line
+ (message
+ (let ((rslt (scion-eval `(thing-at-point :file ,filename
+ :line ,line
:column ,col))))
(funcall (lambda (r) (format "%s" (cadr r))) rslt)))))
@@ -2492,7 +2492,7 @@ If the file is within a Cabal project, prompts the user which
component to load, or whether only the current file should be
loaded."
(interactive (list (scion-select-component)))
- (cond
+ (cond
((null comp)
(error "Invalid component"))
@@ -2566,7 +2566,7 @@ loaded."
(car options)
;; TODO: abstract this kludge into `scion-completing-read`
(let* ((disp->comp (scion-makehash #'equal))
- (opts (loop for c in options
+ (opts (loop for c in options
do (puthash (scion-format-component c) c disp->comp)
collect (scion-format-component c))))
(gethash (scion-completing-read "Load Component: "
@@ -2609,12 +2609,12 @@ LIBRARY or (EXECUTABLE <name>)."
(defun scion-ident-at-point ()
;; TODO: recognise proper haskell symbols
(let ((s (thing-at-point 'symbol)))
- (if s
+ (if s
(substring-no-properties s)
nil)))
(defun scion-goto-definition (name)
- (interactive
+ (interactive
(let ((names (scion-defined-names))
(dflt (scion-ident-at-point)))
(if (find dflt names :test #'string=)
@@ -2627,7 +2627,7 @@ LIBRARY or (EXECUTABLE <name>)."
(dummy-note (list :kind "warning" :location loc :message "definition")))
(scion-goto-source-location dummy-note)))))
-;; Local Variables:
+;; Local Variables:
;; outline-regexp: ";;;;+"
;; End:
;; indent-tabs-mode: nil
View
4 tests/projects/hello/LICENSE
@@ -6,11 +6,11 @@ modification, are permitted provided that the following conditions are met:
- Redistributions of source code must retain the above copyright notice,
this list of conditions and the following disclaimer.
-
+
- Redistributions in binary form must reproduce the above copyright notice,
this list of conditions and the following disclaimer in the documentation
and/or other materials provided with the distribution.
-
+
THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND THE CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
View
6 vim_runtime_path/autoload/haskellcomplete.vim
@@ -73,7 +73,7 @@ fun! haskellcomplete#ScionResultToErrorList(action, func, result)
call add(qflist, {'text': msgline})
endfor
endfor
-
+
call call(a:func, [qflist])
if exists('g:haskell_qf_hook')
exec g:haskell_qf_hook
@@ -282,7 +282,7 @@ class ScionServerConnectionStdinOut(ScionServerConnection):
# throw away non "scion:" line and try again
if scion_log_stdout:
scion_stdout.append(s)
- scion_stdout = scion_stdout[-200:]
+ scion_stdout = scion_stdout[-200:]
# should this be printed? It doesn't hurt much but might be useful when
# trouble shooting..
print "ignoring line", s
@@ -352,7 +352,7 @@ def evalscion(str):
# str see EvalScion
def evalscionAssign(str):
global lastScionResult
- """assigns scion result to g:scion_result, result should either be
+ """assigns scion result to g:scion_result, result should either be
{ "result" : ..., "error" : [String] }"""
vim.command("silent! unlet g:scion_result")
lastScionResult = evalscion(str)
View
2  vim_runtime_path/autoload/json.vim
@@ -29,7 +29,7 @@ fun! json#Encode(thing)
return a:thing
elseif type(a:thing) == type([])
return '['.join(map(a:thing, "json#Encode(v:val)"),",").']'
- return
+ return
elseif string(a:thing) == string(json#NULL())
return "null"
elseif string(a:thing) == string(json#True())
View
4 vim_runtime_path/ftplugin/haskell.vim
@@ -31,7 +31,7 @@ fun! s:FlagCompletion(A,L,P)
let beforeC= a:L[:a:P-1]
let word = matchstr(beforeC, '\zs\S*$')
let list = haskellcomplete#List("supported-flags")
- "allow glob patterns:
+ "allow glob patterns:
call filter(list, 'v:val =~ '.string('^'.substitute(word,'*','.*','g')))
return list
endf
@@ -113,7 +113,7 @@ command! -nargs=1 -complete=customlist,s:FlagCompletion -buffer AddCommandLineFl
" ===== loading a cabal project: ============================
-" assuming pwd is current cabal directory containing the .cabal file
+" assuming pwd is current cabal directory containing the .cabal file
" optional argument specifies the cabal build (dist) directory
command! -buffer -nargs=* -complete=file OpenCabalProjectScion
\ echo haskellcomplete#OpenCabalProject('open-cabal-project',<f-args>)
Please sign in to comment.
Something went wrong with that request. Please try again.