;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\207" [require ob org-macs comint add-to-list org-babel-tangle-lang-exts ("haskell" . "hs")] 3)
(defvar org-babel-default-header-args:haskell '((:padlines . "no")))
(defvar org-babel-haskell-lhs2tex-command "lhs2tex")
(defvar org-babel-haskell-eoe "\"org-babel-haskell-eoe\"")
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable org-babel-haskell-compiler funcall function #[0 "\300\207" ["ghc"] 1 ""] "Command used to compile a Haskell source code file into an executable.\nMay be either a command in the path, like \"ghc\" or an absolute\npath name, like \"/usr/local/bin/ghc\".  The command can include\na parameter, such as \"ghc -v\"." :group org-babel :package-version (Org "9.4") :type string] 10)
#@36 Haskell-specific header arguments.
(defconst org-babel-header-args:haskell '((compile . :any)) (#$ . 897))
#@87 This function should only be called by `org-babel-execute:haskell'.

(fn BODY PARAMS)
(defalias 'org-babel-haskell-execute #[514 "\302\303\304\"\305\302\306\"!\307\236A\211\203\310
P\202\311\312\236A\313\314<\203(\202*C\310#\315\316\236A\206:\317\320\321\322#\320\"\313\314<\203G\202IC\310#\323\324\322\"\325\326\"\216r\211q\210\nc\210)r\211q\210\327\320\211\320\330%\210*\210\331\332\333	\n\305!&\311\"\210\331P\311\"\211\205=
\334
!\320\335
\203\230\336\202\231\337\311\335\340\311##\266\202\262
\341\342\236A\343
\235?\205\"
\344
\235\204\364\345
\235\204\364\346
\235\204\364\347
\235\204\364\350
\235\204\364\351
\235\204\364\352
\235\204\356\353
\235\204\356\354
\235\204\356\355
\235\203\373\356
\235\204\373\315\322\"\202\"
\302\357!\323\324\322\"\325\360\"\216r\211q\210c\210)r\211q\210\327\320\211\320\330%\210*\210\361
!\262
\262
\362\363
\236A\364\236A\"\362\365\236A\366\236A\"#\207" [org-babel-exeext org-babel-haskell-compiler org-babel-temp-file "Haskell-src-" ".hs" org-babel-process-file-name "Haskell-bin-" :cmdline " " "" :flags mapconcat identity org-babel-read :libs org-entry-get nil "libs" t generate-new-buffer " *temp file*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] write-region 0 org-babel-eval format "%s -o %s %s %s %s" org-remove-indentation replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "[ 	\n
]+\\'" org-babel-reassemble-table :result-params "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" "Haskell-" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] org-babel-import-elisp-from-file org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 21 (#$ . 1010)])
#@20 

(fn BODY PARAMS)
(defalias 'org-babel-interpret-haskell #[514 "\306\307!\210\310\311\312\"\210\313
\236A\314\236A\315\316!#\317\"\320B\321
!\204,\322\323\"\210\324 \325\326\"\216r
q\210\212\327\330C\325\331\"\nB\332\333\334p!!b\210`d

{\262

|\266\332\335
\203b\336\202c\337\330\335\340\330##\266\202c\210\341\332\342\"\210c\210\341\332\342\"\210\fb\210\212\343\344!\332\342#\205\217\343
\332\342#)\204\234\345\334p!!\210\202|\333\334p!!b\210\211c\210\203\306\346\335\347\350\344	\206\265\330!#\242\"\203\306
\211\242\351\225\332O\240\210\352\242
\")\266\202,\262
\353\354\355\353\356\"!\235A\"\357\360\267\202\364\361\362\355!\347#\202\365
@\202\365\332\363	\236A\364
\235?\205L
\365
\235\204C
\366
\235\204C
\367
\235\204C
\370
\235\204C
\371
\235\204C
\372
\235\204C
\373
\235\204=
\374
\235\204=
\375
\235\204=
\376
\235\203G
\377
\235\204G

\202L
\201@!\262
\262
\201A\201B\n\236A\201B\236A\"\201A\201C\236A\201C\f\236A\"#)\207" [comint-preoutput-filter-functions comint-input-filter comint-output-filter-functions org-babel-haskell-eoe comint-last-input-end comint-prompt-regexp require inf-haskell add-hook inferior-haskell-hook #[0 "\302\301!\210\303P\211\207" [haskell-prompt-regexp comint-prompt-regexp make-local-variable "\\|^λ?> "] 2] :session :result-type org-babel-expand-body:generic org-babel-variable-assignments:haskell org-babel-haskell-initiate-session ansi-color-filter-apply org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] "" #[257 "\300\211\242P\240\207" [V0] 4 "\n\n(fn TEXT)"] nil process-mark get-buffer-process replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "[ 	\n
]+\\'" comint-send-input t re-search-forward regexp-quote accept-process-output string-match "\n" "[
\n]+" 0 split-string mapcar org-strip-quotes reverse org-trim org-babel-reassemble-table #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 229 value 239)) mapconcat identity :result-params "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-script-escape org-babel-pick-name :colname-names :rowname-names] 18 (#$ . 2796)])
#@52 Execute a block of Haskell code.

(fn BODY PARAMS)
(defalias 'org-babel-execute:haskell #[514 "\300
\236A\301\230\211\204\302\"\207\303\"\207" [:compile "yes" org-babel-interpret-haskell org-babel-haskell-execute] 6 (#$ . 5144)])
#@171 Initiate a haskell session.
If there is not a current inferior-process-buffer in SESSION
then create one.  Return the initialized session.

(fn &optional SESSION PARAMS)
(defalias 'org-babel-haskell-initiate-session #[512 "\300\301!\210\302\303!\206\304 \305\306\"\216\307 \210\310\311!\210p)\262
\207" [require inf-haskell get-buffer "*haskell*" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] run-haskell sleep-for 0.25] 6 (#$ . 5387)])
#@51 Load BODY into SESSION.

(fn SESSION BODY PARAMS)
(defalias 'org-babel-load-session:haskell #[771 "\300 \301\302\"\216\303\"\304\305!\306P\307\310\311\"r\211q\210\301\312\"\216c\210\313!\210\314 \210\315 \210*\210
\266\202)\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] org-babel-prep-session:haskell org-babel-temp-file "haskell-load-" ".hs" generate-new-buffer " *temp*" t #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] write-file haskell-mode inferior-haskell-load-file] 10 (#$ . 5882)])
#@83 Prepare SESSION according to the header arguments in PARAMS.

(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:haskell #[514 "\301 \302\303\"\216\304!\305
!\204\306\307\"\210\310 \302\311\"\216r
q\210\212\312\313\314\315!\"\210,\210p\262
)\207" [comint-input-filter current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] org-babel-haskell-initiate-session org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] mapc #[257 "\211c\210\300\301\302\"\207" [comint-send-input nil t] 4 "\n\n(fn LINE)"] org-babel-variable-assignments:haskell] 9 (#$ . 6460)])
#@81 Return list of haskell statements assigning the block's variables.

(fn PARAMS)
(defalias 'org-babel-variable-assignments:haskell #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302A!#\207" [format "let %s = %s" org-babel-haskell-var-to-haskell] 6 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 7211)])
#@166 Convert an elisp value VAR into a haskell variable.
The elisp VAR is converted to a string of haskell source code
specifying a variable of the same value.

(fn VAR)
(defalias 'org-babel-haskell-var-to-haskell #[257 "\211<\203\300\301\302\303#\304Q\207\305\306\"\207" ["[" mapconcat org-babel-haskell-var-to-haskell ", " "]" format "%S"] 6 (#$ . 7528)])
#@416 Export to a .lhs file with all haskell code blocks escaped.
When called with a prefix argument the resulting
.lhs file will be exported to a .tex file.  This function will
create two new files, base-name.lhs and base-name.tex where
base-name is the name of the current Org file.

Note that all standard Babel literate programming
constructs (header arguments, no-web syntax etc...) are ignored.

(fn &optional ARG)
(defalias 'org-babel-haskell-export-to-lhs #[256 "\303 \304\305 !\306\307!\211\310P
\311P\312P\311P\313\314!\315\314!\260	\316\317\320\321\"\322\323\"\216r\211q\210\nc\210eb\210\324\325\316\321#\203\202\326 \322\327\"\216\330\331!G\262)\210\332\326 \322\333\"\216\334\204c\335\336\330\337!\"\203i\330\340!\202n\341\330\340!!\342Q)\262
\321\211#\210\343\344\224\344\225#\210\2026)r\211q\210\345\316\211\n\316\344%\210*\210\212\346\347!\210\350!\210\316\351\352\"\210)\353\316!\210\354!\210\350!\210eb\210\337y\210\355c\210\324\356\316\321#\203\333\332\326 \322\357\"\216\341\330\344!!)\262
\321\211#\210\202\274\303 \262\n\360 \210\353\316!\210)\354!\210\317\320\321\"\322\361\"\216r\211q\210\nc\210)r\211q\210\345\316\211\316\344%\210*\210\n\204
\350!\207\362\363\"\210\364!\210\350!\207" [org-babel-haskell-lhs2tex-command org-src-preserve-indentation org-export-copy-to-kill-ring buffer-string file-name-sans-extension buffer-file-name org-babel-temp-file "haskell-" ".org" ".tex" ".lhs" " " org-babel-process-file-name " > " nil generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "^\\([ 	]*\\)#\\+begin_src[ 	]haskell*\\(.*\\)[
\n]\\([^]*?\\)[
\n][ 	]*#\\+end_src.*" match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] match-string 1 replace-match #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "#+begin_export latex\n\\begin{code}\n" string-match "-i" 2 3 org-remove-indentation "\n\\end{code}\n#+end_export\n" indent-code-rigidly 0 write-region require ox-latex find-file org-export-to-file latex kill-buffer delete-file "%include polycode.fmt\n" "^[ 	]+\\\\begin{code}[^]+\\\\end{code}" #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] save-buffer #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] message "running %s" shell-command] 19 (#$ . 7892) "P"])
(provide 'ob-haskell)