Created
March 30, 2015 20:49
-
-
Save sritchie/20990360d0ebe95a8d4e to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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