;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require cl-lib haskell-interactive-mode haskell-collapse haskell-svg] 2) #@44 Handle an inputted expression at the REPL. (defalias 'haskell-interactive-handle-expr #[0 "\303 \304\305\306#\306\230\203db\210\307c\210\310 \207\311 \205S\312\313 !\203C\314 dU\203Cdb\210\313 \315`\"db\210\307c\210d\316\317\"\210\320\"\207\321 ! d\322\223\210\323!\210\324!\207" [haskell-interactive-mode-result-end haskell-interactive-mode-prompt-start haskell-interactive-mode-old-prompt-start haskell-interactive-mode-input replace-regexp-in-string " " "" "\n" haskell-interactive-mode-prompt haskell-interactive-at-prompt haskell-process-evaluating-p haskell-interactive-process line-end-position buffer-substring-no-properties haskell-process-set-sent-stdin t haskell-process-send-string copy-marker nil haskell-interactive-mode-history-add haskell-interactive-mode-do-expr] 6 (#$ . 227)]) #@13 (fn EXPR) (defalias 'haskell-interactive-mode-do-expr #[257 "\300\301\"\203\302\303\301\304#!\207\305!\207" [string-match "^:present " haskell-interactive-mode-do-presentation replace-regexp-in-string "" haskell-interactive-mode-run-expr] 6 (#$ . 1043)]) #@38 Run the given expression. (fn EXPR) (defalias 'haskell-interactive-mode-run-expr #[257 "\300 \301 \302\303\304\305F\306\307\310%\"\207" [haskell-interactive-session haskell-interactive-process haskell-process-queue-command record haskell-command 0 #[257 "db\210\301c\210d\302A@\303AA@!\"\210\304A@\305\"\207" [haskell-interactive-mode-result-end "\n" haskell-process-send-string haskell-interactive-mode-multi-line haskell-process-set-evaluating t] 5 "\n\n(fn STATE)"] #[514 "\301\302AA@\"\205\301AA@\303\"?\2053AAA@\304\305\306O#\307@\"\210AA\211GC\241\266\306\207" [haskell-process-prompt-regex string-prefix-p ":q" ":quit" replace-regexp-in-string "" nil haskell-interactive-mode-eval-result] 9 "\n\n(fn STATE BUFFER)"] #[514 "\300A@\301\"\210\302\"?\205\303\"\207" [haskell-process-set-evaluating nil haskell-interactive-mode-trigger-compile-error haskell-interactive-mode-expr-result] 5 "\n\n(fn STATE RESPONSE)"]] 11 (#$ . 1311)]) #@69 Print the result of evaluating the expression. (fn STATE RESPONSE) (defalias 'haskell-interactive-mode-expr-result #[514 "\301\302\303\"r\211q\210\304\305\"\216c\210\306 \210\307 *\262\203*\310A@!\204*\311@\"\210\210\312@!\207" [haskell-interactive-mode-eval-mode generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] haskell-interactive-mode-handle-h buffer-string haskell-process-sent-stdin-p haskell-interactive-mode-eval-as-mode haskell-interactive-mode-prompt] 6 (#$ . 2285)]) #@95 Insert TEXT font-locked according to `haskell-interactive-mode-eval-mode'. (fn SESSION TEXT) (defalias 'haskell-interactive-mode-eval-as-mode #[514 "r\304!q\210\305 T`|\210db\210\306\307!\n\"c\210 \205\310 *\207" [inhibit-read-only haskell-interactive-mode-prompt-start haskell-interactive-mode-eval-mode haskell-interactive-mode-collapse haskell-session-interactive-buffer t haskell-fontify-as-mode haskell-svg-maybe-render-images haskell-hide-toggle] 5 (#$ . 2842)]) (provide 'haskell-repl)