Skip to content

Instantly share code, notes, and snippets.

@sritchie sritchie/error.scm
Created Mar 30, 2015

Embed
What would you like to do?
Result: #1=((name . #4="course") (current-response-cursor . 0) (current-response . #5="") (command-queue [cl-struct-haskell-command (#1#) #2=(lambda (state) (if (eq system-type (quote windows-nt)) (haskell-process-send-string (car state) (format ":!powershell -Command \"& { cd %s ; hasktags -e -x (ls -fi *.hs *.lhs *.hsc -exclude \\\"#*#\\\" -name -r) ; exit }\"" (haskell-session-cabal-dir (haskell-process-session (car state))))) (haskell-process-send-string (car state) (format ":!cd %s && %s | %s" (haskell-session-cabal-dir (haskell-process-session (car state))) "find . -name '*.hs' -print0 -or -name '*.lhs' -print0 -or -name '*.hsc' -print0" "xargs -0 hasktags -e -x")))) nil #3=(lambda (state response) (if (cdr state) (progn (let ((tags-file-name (haskell-session-tags-filename (haskell-process-session (car state))))) (find-tag (cdr state))))) (haskell-mode-message-line "Tags generated."))] [cl-struct-haskell-command (#1#) #2# nil #3#] [cl-struct-haskell-command (#6=((name . #4#) (next-error-region #<marker at 346 in *course*> . #<marker (moves after insertion) at 346 in *course*>) (next-error-locus) (interactive-buffer . #<buffer *course*>) (current-dir . "/Users/sritchie/code/haskell/course/") (target . "") (cabal-checksum . "6b98f5fe887cf741a9a9382f63a93853") (cabal-dir . "/Users/sritchie/code/haskell/course/") (process . #1#)) #1# "1" 0) #7=(lambda (state) (goto-char (point-max)) (insert "\n") (setq haskell-interactive-mode-result-end (point-max)) (haskell-process-send-string (cadr state) (haskell-interactive-mode-multi-line (car (cdr (cdr state))))) (haskell-process-set-evaluating (cadr state) t)) #8=(lambda (state buffer) (if (and (string-prefix-p ":q" (car (cdr (cdr state)))) (string-prefix-p (car (cdr (cdr state))) ":quit")) nil (let* ((cursor (car (cdr (cdr (cdr state))))) (next (replace-regexp-in-string haskell-process-prompt-regex #5# (substring buffer cursor)))) (haskell-interactive-mode-eval-result (car state) next) (let* ((v (cdr (cdr state)))) (setcdr v (list (length buffer)))) nil))) #9=(lambda (state response) (haskell-process-set-evaluating (cadr state) nil) (if (haskell-interactive-mode-trigger-compile-error state response) nil (haskell-interactive-mode-expr-result state response)))] [cl-struct-haskell-command (nil . #1#) (lambda #10=(s) (haskell-process-send-string #11=(cdr s) ":type face")) nil setcar] [cl-struct-haskell-command (#6# #1# "1" 0) #7# #8# #9#] [cl-struct-haskell-command (nil . #1#) (lambda #10# (haskell-process-send-string #11# ":type face")) nil setcar] [cl-struct-haskell-command (#1#) #2# nil #3#] [cl-struct-haskell-command (#6# #1# "1" 0) #7# #8# #9#] [cl-struct-haskell-command (nil . #1#) (lambda #10# (haskell-process-send-string #11# ":type printFile")) nil setcar] [cl-struct-haskell-command (nil . #1#) (lambda #10# (haskell-process-send-string #11# ":type printFile")) nil setcar] [cl-struct-haskell-command (nil . #1#) (lambda #10# (haskell-process-send-string #11# ":type printFile")) nil setcar] [cl-struct-haskell-command (nil . #1#) (lambda #10# (haskell-process-send-string #11# ":type printFile")) nil setcar]) (inferior-process . #<process course>) (is-restarting) (current-command . [cl-struct-haskell-command (#1#) (lambda (state) (haskell-process-send-string (car state) (if (string-match "^[A-Za-z_]" (cdr state)) (format ":info %s" (cdr state)) (format ":info (%s)" (cdr state))))) nil (lambda (state response) (if (or (string-match "^Top level" response) (string-match "^<interactive>" response)) nil (haskell-mode-message-line response)))]) (suggested-imported) (sent-stdin) (evaluating) (session . #6#))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.