blob: 2d82cfc43db57b56a11b0835938241f086353d91 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 63 6f 6e	ptimizations...;;;.This.file.con
0060	74 61 69 6e 73 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20 63 68 61 72 61 63 74 65 72 73	tains.utf-8.non-ASCII.characters
0080	2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 6e 6f 74 20 62 65 20 6c 6f 61 64 65 64 20 69 6e	,.;;;.and.so.cannot.be.loaded.in
00a0	74 6f 20 45 6d 61 63 73 20 32 32 20 6f 72 20 65 61 72 6c 69 65 72 2e 0a 28 61 6e 64 20 28 62 6f	to.Emacs.22.or.earlier..(and.(bo
00c0	75 6e 64 70 20 27 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 28 3c 20 28 61 72	undp.'emacs-version)......(<.(ar
00e0	65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 65 6d 61	ef.emacs-version.(1-.(length.ema
0100	63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41 29 0a 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6c	cs-version))).?A)......(string-l
0120	65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 32 33 22 29 0a 20 20 20 20 20 28 65	essp.emacs-version."23")......(e
0140	72 72 6f 72 20 22 60 25 73 27 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 20 45 6d 61 63	rror."`%s'.was.compiled.for.Emac
0160	73 20 32 33 20 6f 72 20 6c 61 74 65 72 22 20 23 24 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	s.23.or.later".#$))..;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20	;;;;;;;;;;;;;;;;;;...(byte-code.
01a0	22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 31 30 5c 33 30 30 5c	"\300\301!\210\300\302!\210\300\
01c0	33 30 33 21 5c 32 31 30 5c 33 30 30 5c 33 30 34 21 5c 32 31 30 5c 33 30 30 5c 33 30 35 21 5c 32	303!\210\300\304!\210\300\305!\2
01e0	31 30 5c 33 30 30 5c 33 30 36 21 5c 32 31 30 5c 33 30 30 5c 33 30 37 21 5c 32 31 30 5c 33 30 30	10\300\306!\210\300\307!\210\300
0200	5c 33 31 30 21 5c 32 31 30 5c 33 30 30 5c 33 31 31 21 5c 32 31 30 5c 33 30 30 5c 33 31 32 21 5c	\310!\210\300\311!\210\300\312!\
0220	32 31 30 5c 33 30 30 5c 33 31 33 21 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 68 61 73 6b 65	210\300\313!\207".[require.haske
0240	6c 6c 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 69 6c 65 20 68 61 73 6b 65 6c 6c 2d	ll-mode.haskell-compile.haskell-
0260	70 72 6f 63 65 73 73 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 20 68 61 73 6b 65 6c 6c 2d	process.haskell-session.haskell-
0280	66 6f 6e 74 2d 6c 6f 63 6b 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d	font-lock.haskell-presentation-m
02a0	6f 64 65 20 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67	ode.haskell-utils.haskell-string
02c0	20 61 6e 73 69 2d 63 6f 6c 6f 72 20 63 6c 2d 6c 69 62 20 65 74 61 67 73 5d 20 32 29 0a 28 64 65	.ansi-color.cl-lib.etags].2).(de
02e0	66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 69	fvar.haskell-interactive-mode-hi
0300	73 74 6f 72 79 2d 69 6e 64 65 78 20 30 20 6e 69 6c 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c	story-index.0.nil).(make-variabl
0320	65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74	e-buffer-local.'haskell-interact
0340	69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 29 0a 28 64 65 66 76 61 72 20	ive-mode-history-index).(defvar.
0360	68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79	haskell-interactive-mode-history
0380	20 6e 69 6c 20 6e 69 6c 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d	.nil.nil).(make-variable-buffer-
03a0	6c 6f 63 61 6c 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d	local.'haskell-interactive-mode-
03c0	68 69 73 74 6f 72 79 29 0a 23 40 34 38 20 4d 61 72 6b 20 75 73 65 64 20 66 6f 72 20 74 68 65 20	history).#@48.Mark.used.for.the.
03e0	6f 6c 64 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 70 72 6f 6d 70 74 2e 1f 0a 28 64	old.beginning.of.the.prompt...(d
0400	65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6f	efvar.haskell-interactive-mode-o
0420	6c 64 2d 70 72 6f 6d 70 74 2d 73 74 61 72 74 20 6e 69 6c 20 28 23 24 20 2e 20 39 37 34 29 29 0a	ld-prompt-start.nil.(#$...974)).
0440	28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 68 61 73	(make-variable-buffer-local.'has
0460	6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6f 6c 64 2d 70 72 6f 6d 70 74	kell-interactive-mode-old-prompt
0480	2d 73 74 61 72 74 29 0a 23 40 31 38 30 20 47 65 6e 65 72 61 74 65 20 61 20 72 65 67 65 78 20 66	-start).#@180.Generate.a.regex.f
04a0	6f 72 20 73 65 61 72 63 68 69 6e 67 20 66 6f 72 20 61 6e 79 20 6f 63 63 75 72 65 6e 63 65 20 6f	or.searching.for.any.occurence.o
04c0	66 20 74 68 65 20 70 72 6f 6d 70 74 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20	f.the.promptat.the.beginning.of.
04e0	74 68 65 20 6c 69 6e 65 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20 70 72 65 76 65 6e 74 20 61	the.line...This.should.prevent.a
0500	6e 79 0a 69 6e 74 65 72 66 65 72 65 6e 63 65 20 77 69 74 68 20 70 72 6f 6d 70 74 73 20 74 68 61	ny.interference.with.prompts.tha
0520	74 20 6c 6f 6f 6b 20 6c 69 6b 65 20 68 61 73 6b 65 6c 6c 20 65 78 70 72 65 73 73 69 6f 6e 73 2e	t.look.like.haskell.expressions.
0540	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65	..(defalias.'haskell-interactive
0560	2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 32 08 21 50 5c 32	-prompt-regex.#[0."\301\302.!P\2
0580	30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74 20	07".[haskell-interactive-prompt.
05a0	22 5e 22 20 72 65 67 65 78 70 2d 71 75 6f 74 65 5d 20 33 20 28 23 24 20 2e 20 31 31 36 36 29 5d	"^".regexp-quote].3.(#$...1166)]
05c0	29 0a 23 40 34 34 20 4b 65 79 6d 61 70 20 75 73 65 64 20 69 6e 20 60 68 61 73 6b 65 6c 6c 2d 69	).#@44.Keymap.used.in.`haskell-i
05e0	6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 27 2e 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65	nteractive-mode'...(defvar.haske
0600	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6d 61 70 20 28 62 79 74 65 2d 63 6f	ll-interactive-mode-map.(byte-co
0620	64 65 20 22 5c 33 30 30 20 5c 33 30 31 01 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 31 01	de."\300.\301.\302\303#\210\301.
0640	5c 33 30 34 5c 33 30 35 23 5c 32 31 30 5c 33 30 31 01 5c 33 30 36 5c 33 30 37 23 5c 32 31 30 5c	\304\305#\210\301.\306\307#\210\
0660	33 30 31 01 5c 33 31 30 5c 33 31 31 23 5c 32 31 30 5c 33 30 31 01 5c 33 31 32 5c 33 31 31 23 5c	301.\310\311#\210\301.\312\311#\
0680	32 31 30 5c 33 30 31 01 5c 33 31 33 5c 33 31 34 23 5c 32 31 30 5c 33 30 31 01 5c 33 31 35 5c 33	210\301.\313\314#\210\301.\315\3
06a0	31 36 23 5c 32 31 30 5c 33 30 31 01 5c 33 31 37 5c 33 32 30 23 5c 32 31 30 5c 33 30 31 01 5c 33	16#\210\301.\317\320#\210\301.\3
06c0	32 31 5c 33 32 32 23 5c 32 31 30 5c 33 30 31 01 5c 33 32 33 5c 33 32 34 23 5c 32 31 30 5c 33 30	21\322#\210\301.\323\324#\210\30
06e0	31 01 5c 33 32 35 5c 33 32 36 23 5c 32 31 30 5c 33 30 31 01 5c 33 32 37 5c 33 33 30 23 5c 32 31	1.\325\326#\210\301.\327\330#\21
0700	30 5c 33 30 31 01 5c 33 33 31 5c 33 33 32 23 5c 32 31 30 5c 33 30 31 01 5c 33 33 33 5c 33 32 34	0\301.\331\332#\210\301.\333\324
0720	23 5c 32 31 30 5c 33 30 31 01 5c 33 33 34 5c 33 32 36 23 5c 32 31 30 5c 33 30 31 01 5c 33 33 35	#\210\301.\334\326#\210\301.\335
0740	5c 33 33 36 23 5c 32 31 30 5c 33 30 31 01 5c 33 33 37 5c 33 34 30 23 5c 32 31 30 5c 32 31 31 5c	\336#\210\301.\337\340#\210\211\
0760	32 30 37 22 20 5b 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d	207".[make-sparse-keymap.define-
0780	6b 65 79 20 22 0d 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65	key.".".haskell-interactive-mode
07a0	2d 72 65 74 75 72 6e 20 22 20 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d	-return.".".haskell-interactive-
07c0	6d 6f 64 65 2d 73 70 61 63 65 20 22 5c 6e 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74	mode-space."\n".haskell-interact
07e0	69 76 65 2d 6d 6f 64 65 2d 6e 65 77 6c 69 6e 65 2d 69 6e 64 65 6e 74 20 22 01 22 20 68 61 73 6b	ive-mode-newline-indent.".".hask
0800	65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 62 65 67 69 6e 6e 69 6e 67 20 5b	ell-interactive-mode-beginning.[
0820	68 6f 6d 65 5d 20 22 03 0b 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d	home]."..".haskell-interactive-m
0840	6f 64 65 2d 63 6c 65 61 72 20 22 03 03 22 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 69	ode-clear."..".haskell-process-i
0860	6e 74 65 72 72 75 70 74 20 22 03 06 22 20 6e 65 78 74 2d 65 72 72 6f 72 2d 66 6f 6c 6c 6f 77 2d	nterrupt."..".next-error-follow-
0880	6d 69 6e 6f 72 2d 6d 6f 64 65 20 22 03 1a 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74	minor-mode."..".haskell-interact
08a0	69 76 65 2d 73 77 69 74 63 68 2d 62 61 63 6b 20 5b 31 33 34 32 31 37 38 34 30 5d 20 68 61 73 6b	ive-switch-back.[134217840].hask
08c0	65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 2d 70 72 65	ell-interactive-mode-history-pre
08e0	76 69 6f 75 73 20 5b 31 33 34 32 31 37 38 33 38 5d 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	vious.[134217838].haskell-intera
0900	63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 2d 6e 65 78 74 20 22 03 10 22 20 68 61 73	ctive-mode-history-next."..".has
0920	6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 2d 70 72 65	kell-interactive-mode-prompt-pre
0940	76 69 6f 75 73 20 22 03 0e 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d	vious."..".haskell-interactive-m
0960	6f 64 65 2d 70 72 6f 6d 70 74 2d 6e 65 78 74 20 5b 43 2d 75 70 5d 20 5b 43 2d 64 6f 77 6e 5d 20	ode-prompt-next.[C-up].[C-down].
0980	22 09 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 74 61 62	".".haskell-interactive-mode-tab
09a0	20 5b 43 2d 53 2d 62 61 63 6b 73 70 61 63 65 5d 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63	.[C-S-backspace].haskell-interac
09c0	74 69 76 65 2d 6d 6f 64 65 2d 6b 69 6c 6c 2d 77 68 6f 6c 65 2d 6c 69 6e 65 5d 20 35 29 20 28 23	tive-mode-kill-whole-line].5).(#
09e0	24 20 2e 20 31 34 37 39 29 29 0a 23 40 31 37 36 20 48 6f 6f 6b 20 72 75 6e 20 61 66 74 65 72 20	$...1479)).#@176.Hook.run.after.
0a00	65 6e 74 65 72 69 6e 67 20 49 6e 74 65 72 61 63 74 69 76 65 2d 48 61 73 6b 65 6c 6c 20 6d 6f 64	entering.Interactive-Haskell.mod
0a20	65 2e 0a 4e 6f 20 70 72 6f 62 6c 65 6d 73 20 72 65 73 75 6c 74 20 69 66 20 74 68 69 73 20 76 61	e..No.problems.result.if.this.va
0a40	72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 62 6f 75 6e 64 2e 0a 60 61 64 64 2d 68 6f 6f 6b 27 20	riable.is.not.bound..`add-hook'.
0a60	61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 69 6e 64 73 20 69 74 2e 20 20 28 54 68 69 73 20 69	automatically.binds.it...(This.i
0a80	73 20 74 72 75 65 20 66 6f 72 20 61 6c 6c 20 68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 73 2e 29 1f	s.true.for.all.hook.variables.).
0aa0	0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64	.(defvar.haskell-interactive-mod
0ac0	65 2d 68 6f 6f 6b 20 6e 69 6c 20 28 23 24 20 2e 20 32 35 34 35 29 29 0a 28 62 79 74 65 2d 63 6f	e-hook.nil.(#$...2545)).(byte-co
0ae0	64 65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 34 5c 66 00 5c 33 30 32 5c 33 30 31 5c 33 30 33	de."\300\301!\204\f.\302\301\303
0b00	5c 33 30 34 23 5c 32 31 30 5c 33 30 30 5c 32 30 37 22 20 5b 62 6f 75 6e 64 70 20 68 61 73 6b 65	\304#\210\300\207".[boundp.haske
0b20	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6d 61 70 20 70 75 74 20 64 65 66 69	ll-interactive-mode-map.put.defi
0b40	6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d	nition-name.haskell-interactive-
0b60	6d 6f 64 65 5d 20 34 29 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63	mode].4).(defvar.haskell-interac
0b80	74 69 76 65 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61	tive-mode-map.(make-sparse-keyma
0ba0	70 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 4e 5c 32 30 34 0e 00 5c	p)).(byte-code."\300\301N\204..\
0bc0	33 30 32 5c 33 30 30 5c 33 30 31 5c 33 30 33 5c 33 30 34 21 23 5c 32 31 30 5c 33 30 32 5c 33 30	302\300\301\303\304!#\210\302\30
0be0	35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63	5\306\307#\207".[haskell-interac
0c00	74 69 76 65 2d 6d 6f 64 65 2d 6d 61 70 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61	tive-mode-map.variable-documenta
0c20	74 69 6f 6e 20 70 75 74 20 70 75 72 65 63 6f 70 79 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 60 68	tion.put.purecopy."Keymap.for.`h
0c40	61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 27 2e 22 20 68 61 73 6b 65	askell-interactive-mode'.".haske
0c60	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65	ll-interactive-mode-abbrev-table
0c80	20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63	.definition-name.haskell-interac
0ca0	74 69 76 65 2d 6d 6f 64 65 5d 20 35 29 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 69 6e	tive-mode].5).(defvar.haskell-in
0cc0	74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28 70 72 6f	teractive-mode-abbrev-table.(pro
0ce0	67 6e 20 28 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 27 68 61 73 6b 65 6c 6c	gn.(define-abbrev-table.'haskell
0d00	2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e	-interactive-mode-abbrev-table.n
0d20	69 6c 29 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 61 62 62	il).haskell-interactive-mode-abb
0d40	72 65 76 2d 74 61 62 6c 65 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	rev-table)).(byte-code."\300\301
0d60	4e 5c 32 30 34 0e 00 5c 33 30 32 5c 33 30 30 5c 33 30 31 5c 33 30 33 5c 33 30 34 21 23 5c 32 31	N\204..\302\300\301\303\304!#\21
0d80	30 5c 33 30 32 5c 33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 31 30 5c 33 30 32 5c 33 30 35 5c 33	0\302\305\306\307#\210\302\305\3
0da0	31 30 5c 33 31 31 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76	10\311#\207".[haskell-interactiv
0dc0	65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 76 61 72 69 61 62 6c 65 2d 64 6f 63	e-mode-abbrev-table.variable-doc
0de0	75 6d 65 6e 74 61 74 69 6f 6e 20 70 75 74 20 70 75 72 65 63 6f 70 79 20 22 41 62 62 72 65 76 20	umentation.put.purecopy."Abbrev.
0e00	74 61 62 6c 65 20 66 6f 72 20 60 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d	table.for.`haskell-interactive-m
0e20	6f 64 65 27 2e 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 20	ode'.".haskell-interactive-mode.
0e40	64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 61 72 65 6e 74 20 6e 69 6c 20 63 75 73 74 6f 6d 2d 6d	derived-mode-parent.nil.custom-m
0e60	6f 64 65 2d 67 72 6f 75 70 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 5d 20 35	ode-group.haskell-interactive].5
0e80	29 0a 23 40 31 37 37 20 49 6e 74 65 72 61 63 74 69 76 65 20 6d 6f 64 65 20 66 6f 72 20 48 61 73	).#@177.Interactive.mode.for.Has
0ea0	6b 65 6c 6c 2e 0a 0a 4b 65 79 20 62 69 6e 64 69 6e 67 73 3a 0a 5c 7b 68 61 73 6b 65 6c 6c 2d 69	kell...Key.bindings:.\{haskell-i
0ec0	6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 0a 54 68 69 73 20 6d 6f 64 65 20	nteractive-mode-map}..This.mode.
0ee0	72 75 6e 73 20 74 68 65 20 68 6f 6f 6b 20 60 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69	runs.the.hook.`haskell-interacti
0f00	76 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 27 2c 20 61 73 20 74 68 65 20 66 69 6e 61 6c 20 73 74 65 70	ve-mode-hook',.as.the.final.step
0f20	0a 64 75 72 69 6e 67 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69	.during.initialization...(defali
0f40	61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 20 23 5b 30	as.'haskell-interactive-mode.#[0
0f60	20 22 5c 33 30 36 5c 33 30 30 21 5c 32 31 30 5c 33 30 37 18 5c 33 31 30 20 5c 32 31 30 5c 33 31	."\306\300!\210\307.\310.\210\31
0f80	31 11 5c 33 31 32 12 5c 33 31 33 0b 21 5c 32 31 30 5c 33 31 34 5c 66 21 5c 32 31 30 0d 16 18 5c	1.\312.\313.!\210\314\f!\210...\
0fa0	33 31 35 16 19 5c 33 31 36 16 1a 5c 33 31 37 16 1b 5c 33 32 30 5c 33 32 31 5c 33 32 32 5c 33 31	315..\316..\317..\320\321\322\31
0fc0	35 5c 33 30 37 24 5c 32 31 30 5c 33 32 30 5c 33 32 33 5c 33 32 34 5c 33 31 35 5c 33 30 37 24 5c	5\307$\210\320\323\324\315\307$\
0fe0	32 31 30 5c 33 32 35 20 5c 32 31 30 29 5c 33 32 36 5c 33 32 37 21 5c 32 30 37 22 20 5b 64 65 6c	210\325.\210)\326\327!\207".[del
1000	61 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 73 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61	ay-mode-hooks.major-mode.mode-na
1020	6d 65 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6d 61 70 20	me.haskell-interactive-mode-map.
1040	68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 68 61 73 6b 65 6c	haskell-mode-syntax-table.haskel
1060	6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20	l-interactive-mode-abbrev-table.
1080	6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 74 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c	make-local-variable.t.kill-all-l
10a0	6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69	ocal-variables.haskell-interacti
10c0	76 65 2d 6d 6f 64 65 20 22 49 6e 74 65 72 61 63 74 69 76 65 2d 48 61 73 6b 65 6c 6c 22 20 75 73	ve-mode."Interactive-Haskell".us
10e0	65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c	e-local-map.set-syntax-table.nil
1100	20 30 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6e 65 78 74 2d 65 72 72 6f	.0.haskell-interactive-next-erro
1120	72 2d 66 75 6e 63 74 69 6f 6e 20 61 64 64 2d 68 6f 6f 6b 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61	r-function.add-hook.completion-a
1140	74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	t-point-functions.haskell-intera
1160	63 74 69 76 65 2d 6d 6f 64 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66	ctive-mode-completion-at-point-f
1180	75 6e 63 74 69 6f 6e 20 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 68 61 73 6b 65 6c 6c	unction.kill-buffer-hook.haskell
11a0	2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6b 69 6c 6c 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	-interactive-kill.haskell-intera
11c0	63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 20 72 75 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 73	ctive-mode-prompt.run-mode-hooks
11e0	20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6c	.haskell-interactive-mode-hook.l
1200	6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	ocal-abbrev-table.haskell-intera
1220	63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72	ctive-mode-history.haskell-inter
1240	61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 20 6e 65 78 74 2d 65	active-mode-history-index.next-e
1260	72 72 6f 72 2d 66 75 6e 63 74 69 6f 6e 5d 20 35 20 28 23 24 20 2e 20 33 37 32 30 29 20 6e 69 6c	rror-function].5.(#$...3720).nil
1280	5d 29 0a 23 40 34 34 20 4d 61 72 6b 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 62 65 67 69 6e 6e	]).#@44.Mark.used.for.the.beginn
12a0	69 6e 67 20 6f 66 20 74 68 65 20 70 72 6f 6d 70 74 2e 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b	ing.of.the.prompt...(defvar.hask
12c0	65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 2d 73 74 61 72	ell-interactive-mode-prompt-star
12e0	74 20 6e 69 6c 20 28 23 24 20 2e 20 34 37 34 34 29 29 0a 23 40 31 31 31 20 4d 61 72 6b 20 75 73	t.nil.(#$...4744)).#@111.Mark.us
1300	65 64 20 74 6f 20 66 69 67 75 72 65 20 6f 75 74 20 77 68 65 72 65 20 74 68 65 20 65 6e 64 20 6f	ed.to.figure.out.where.the.end.o
1320	66 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 65 73 75 6c 74 20 6f 75 74 70 75 74 20 69 73 2e 0a	f.the.current.result.output.is..
1340	55 73 65 64 20 74 6f 20 64 69 73 74 69 6e 67 75 69 73 68 20 62 65 74 77 65 6e 20 75 73 65 72 20	Used.to.distinguish.betwen.user.
1360	69 6e 70 75 74 2e 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74	input...(defvar.haskell-interact
1380	69 76 65 2d 6d 6f 64 65 2d 72 65 73 75 6c 74 2d 65 6e 64 20 6e 69 6c 20 28 23 24 20 2e 20 34 38	ive-mode-result-end.nil.(#$...48
13a0	35 37 29 29 0a 23 40 31 35 30 20 52 65 63 6f 72 64 73 20 74 68 65 20 62 75 66 66 65 72 20 74 6f	57)).#@150.Records.the.buffer.to
13c0	20 77 68 69 63 68 20 60 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 73 77 69 74	.which.`haskell-interactive-swit
13e0	63 68 2d 62 61 63 6b 27 20 73 68 6f 75 6c 64 20 6a 75 6d 70 2e 0a 54 68 69 73 20 69 73 20 73 65	ch-back'.should.jump..This.is.se
1400	74 20 62 79 20 60 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 73 77 69 74 63 68	t.by.`haskell-interactive-switch
1420	27 2c 20 61 6e 64 20 73 68 6f 75 6c 64 20 6f 74 68 65 72 77 69 73 65 0a 62 65 20 6e 69 6c 2e 1f	',.and.should.otherwise.be.nil..
1440	0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 65	.(defvar.haskell-interactive-pre
1460	76 69 6f 75 73 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 23 24 20 2e 20 35 30 33 35 29 29 0a 28 62	vious-buffer.nil.(#$...5035)).(b
1480	79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 5c	yte-code."\300\301!\210\302\303\
14a0	33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 25 5c 32 31 30 5c 33 30 32 5c 33 31 30 5c 33 31 31	304\305\306\307%\210\302\310\311
14c0	5c 33 31 32 5c 33 30 36 5c 33 30 37 25 5c 32 31 30 5c 33 30 32 5c 33 31 33 5c 33 31 34 5c 33 31	\312\306\307%\210\302\313\314\31
14e0	35 5c 33 30 36 5c 33 30 37 25 5c 32 31 30 5c 33 30 32 5c 33 31 36 5c 33 31 37 5c 33 32 30 5c 33	5\306\307%\210\302\316\317\320\3
1500	30 36 5c 33 30 37 25 5c 32 31 30 5c 33 30 32 5c 33 32 31 5c 33 32 32 5c 33 32 33 5c 33 30 36 5c	06\307%\210\302\321\322\323\306\
1520	33 30 37 25 5c 32 31 30 5c 33 30 32 5c 33 32 34 5c 33 32 35 5c 33 32 36 5c 33 30 36 5c 33 30 37	307%\210\302\324\325\326\306\307
1540	25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63	%\207".[make-variable-buffer-loc
1560	61 6c 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 65 76 69 6f 75 73 2d	al.haskell-interactive-previous-
1580	62 75 66 66 65 72 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 66 61 63 65 20 68 61 73 6b 65	buffer.custom-declare-face.haske
15a0	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 66 61 63 65 2d 70 72 6f 6d 70 74 20 28 28 74 20 3a	ll-interactive-face-prompt.((t.:
15c0	69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d	inherit.font-lock-function-name-
15e0	66 61 63 65 29 29 20 22 46 61 63 65 20 66 6f 72 20 74 68 65 20 70 72 6f 6d 70 74 2e 22 20 3a 67	face))."Face.for.the.prompt.".:g
1600	72 6f 75 70 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 20 68 61 73 6b 65 6c 6c	roup.haskell-interactive.haskell
1620	2d 69 6e 74 65 72 61 63 74 69 76 65 2d 66 61 63 65 2d 70 72 6f 6d 70 74 32 20 28 28 74 20 3a 69	-interactive-face-prompt2.((t.:i
1640	6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 29 20	nherit.font-lock-keyword-face)).
1660	22 46 61 63 65 20 66 6f 72 20 74 68 65 20 70 72 6f 6d 70 74 32 20 69 6e 20 6d 75 6c 74 69 2d 6c	"Face.for.the.prompt2.in.multi-l
1680	69 6e 65 20 6d 6f 64 65 2e 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 66	ine.mode.".haskell-interactive-f
16a0	61 63 65 2d 63 6f 6d 70 69 6c 65 2d 65 72 72 6f 72 20 28 28 74 20 3a 69 6e 68 65 72 69 74 20 63	ace-compile-error.((t.:inherit.c
16c0	6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 29 29 20 22 46 61 63 65 20 66 6f 72 20 63 6f 6d	ompilation-error))."Face.for.com
16e0	70 69 6c 65 20 65 72 72 6f 72 73 2e 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76	pile.errors.".haskell-interactiv
1700	65 2d 66 61 63 65 2d 63 6f 6d 70 69 6c 65 2d 77 61 72 6e 69 6e 67 20 28 28 74 20 3a 69 6e 68 65	e-face-compile-warning.((t.:inhe
1720	72 69 74 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 29 29 20 22 46 61 63 65 20	rit.compilation-warning))."Face.
1740	66 6f 72 20 63 6f 6d 70 69 6c 65 72 20 77 61 72 6e 69 6e 67 73 2e 22 20 68 61 73 6b 65 6c 6c 2d	for.compiler.warnings.".haskell-
1760	69 6e 74 65 72 61 63 74 69 76 65 2d 66 61 63 65 2d 72 65 73 75 6c 74 20 28 28 74 20 3a 69 6e 68	interactive-face-result.((t.:inh
1780	65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 73 74 72 69 6e 67 2d 66 61 63 65 29 29 20 22 46 61	erit.font-lock-string-face))."Fa
17a0	63 65 20 66 6f 72 20 74 68 65 20 72 65 73 75 6c 74 2e 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65	ce.for.the.result.".haskell-inte
17c0	72 61 63 74 69 76 65 2d 66 61 63 65 2d 67 61 72 62 61 67 65 20 28 28 74 20 3a 69 6e 68 65 72 69	ractive-face-garbage.((t.:inheri
17e0	74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 73 74 72 69 6e 67 2d 66 61 63 65 29 29 20 22 46 61 63 65 20	t.font-lock-string-face))."Face.
1800	66 6f 72 20 74 72 61 69 6c 69 6e 67 20 67 61 72 62 61 67 65 20 61 66 74 65 72 20 61 20 63 6f 6d	for.trailing.garbage.after.a.com
1820	6d 61 6e 64 20 68 61 73 20 63 6f 6d 70 6c 65 74 65 64 2e 22 5d 20 36 29 0a 23 40 32 36 20 4d 61	mand.has.completed."].6).#@26.Ma
1840	6b 65 20 6e 65 77 6c 69 6e 65 20 61 6e 64 20 69 6e 64 65 6e 74 2e 1f 0a 28 64 65 66 61 6c 69 61	ke.newline.and.indent...(defalia
1860	73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6e 65 77 6c	s.'haskell-interactive-mode-newl
1880	69 6e 65 2d 69 6e 64 65 6e 74 20 23 5b 30 20 22 5c 33 30 31 20 5c 32 31 30 08 47 6a 5c 32 31 30	ine-indent.#[0."\301.\210.Gj\210
18a0	5c 33 30 32 20 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d	\302.\207".[haskell-interactive-
18c0	70 72 6f 6d 70 74 20 6e 65 77 6c 69 6e 65 20 69 6e 64 65 6e 74 2d 72 65 6c 61 74 69 76 65 5d 20	prompt.newline.indent-relative].
18e0	31 20 28 23 24 20 2e 20 36 32 30 36 29 20 6e 69 6c 5d 29 0a 23 40 32 37 20 4b 69 6c 6c 20 74 68	1.(#$...6206).nil]).#@27.Kill.th
1900	65 20 77 68 6f 6c 65 20 52 45 50 4c 20 6c 69 6e 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68	e.whole.REPL.line...(defalias.'h
1920	61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6b 69 6c 6c 2d 77 68 6f	askell-interactive-mode-kill-who
1940	6c 65 2d 6c 69 6e 65 20 23 5b 30 20 22 5c 33 30 31 08 5c 33 30 32 20 5c 22 5c 32 30 37 22 20 5b	le-line.#[0."\301.\302.\"\207".[
1960	68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 2d	haskell-interactive-mode-prompt-
1980	73 74 61 72 74 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74	start.kill-region.line-end-posit
19a0	69 6f 6e 5d 20 33 20 28 23 24 20 2e 20 36 33 39 33 29 20 6e 69 6c 5d 29 0a 23 40 37 35 20 53 77	ion].3.(#$...6393).nil]).#@75.Sw
19c0	69 74 63 68 20 62 61 63 6b 20 74 6f 20 74 68 65 20 62 75 66 66 65 72 20 66 72 6f 6d 20 77 68 69	itch.back.to.the.buffer.from.whi
19e0	63 68 20 74 68 69 73 20 69 6e 74 65 72 61 63 74 69 76 65 20 62 75 66 66 65 72 20 77 61 73 20 72	ch.this.interactive.buffer.was.r
1a00	65 61 63 68 65 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65	eached...(defalias.'haskell-inte
1a20	72 61 63 74 69 76 65 2d 73 77 69 74 63 68 2d 62 61 63 6b 20 23 5b 30 20 22 08 5c 32 30 33 08 00	ractive-switch-back.#[0.".\203..
1a40	5c 33 30 31 08 21 5c 32 30 37 5c 33 30 32 5c 33 30 33 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c	\301.!\207\302\303!\207".[haskel
1a60	6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 65 76 69 6f 75 73 2d 62 75 66 66 65 72 20 73 77	l-interactive-previous-buffer.sw
1a80	69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 6d 65 73 73	itch-to-buffer-other-window.mess
1aa0	61 67 65 20 22 4e 6f 20 70 72 65 76 69 6f 75 73 20 62 75 66 66 65 72 2e 22 5d 20 32 20 28 23 24	age."No.previous.buffer."].2.(#$
1ac0	20 2e 20 36 35 39 30 29 20 6e 69 6c 5d 29 0a 23 40 37 30 20 43 6f 70 79 20 74 68 65 20 63 75 72	...6590).nil]).#@70.Copy.the.cur
1ae0	72 65 6e 74 20 6c 69 6e 65 20 74 6f 20 74 68 65 20 70 72 6f 6d 70 74 2c 20 6f 76 65 72 77 72 69	rent.line.to.the.prompt,.overwri
1b00	74 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 6f 6d 70 74 2e 1f 0a 28 64 65 66 61 6c	ting.the.current.prompt...(defal
1b20	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 63 6f 70 79 2d 74 6f	ias.'haskell-interactive-copy-to
1b40	2d 70 72 6f 6d 70 74 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 32 20 5c 33 30 33 20 5c 22 5c 32 31	-prompt.#[0."\301\302.\303.\"\21
1b60	31 47 08 47 59 5c 32 30 33 1f 00 5c 32 31 31 5c 33 30 34 08 47 4f 08 5c 32 33 30 5c 32 30 33 1f	1G.GY\203..\211\304.GO.\230\203.
1b80	00 5c 32 31 31 08 47 5c 33 30 35 4f 5c 32 36 32 01 5c 33 30 36 01 21 5c 32 30 37 22 20 5b 68 61	.\211.G\305O\262.\306.!\207".[ha
1ba0	73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74 20 62 75 66 66 65 72 2d	skell-interactive-prompt.buffer-
1bc0	73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 6c 69 6e 65 2d 62 65 67	substring-no-properties.line-beg
1be0	69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f	inning-position.line-end-positio
1c00	6e 20 30 20 6e 69 6c 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65	n.0.nil.haskell-interactive-mode
1c20	2d 73 65 74 2d 70 72 6f 6d 70 74 5d 20 34 20 28 23 24 20 2e 20 36 38 36 38 29 20 6e 69 6c 5d 29	-set-prompt].4.(#$...6868).nil])
1c40	0a 23 40 33 31 20 48 61 6e 64 6c 65 20 74 68 65 20 73 70 61 63 65 20 6b 65 79 2e 0a 0a 28 66 6e	.#@31.Handle.the.space.key...(fn
1c60	20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74	.N)..(defalias.'haskell-interact
1c80	69 76 65 2d 6d 6f 64 65 2d 73 70 61 63 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 30 21 5c	ive-mode-space.#[257."\301\300!\
1ca0	32 30 33 14 00 08 5c 32 30 33 14 00 5c 33 30 32 5c 33 30 33 21 5c 32 30 33 14 00 5c 33 30 34 5c	203...\203..\302\303!\203..\304\
1cc0	33 30 33 21 5c 32 30 37 5c 33 30 35 20 5c 32 30 33 1d 00 5c 33 30 36 5c 33 30 37 21 5c 32 30 37	303!\207\305.\203..\306\307!\207
1ce0	5c 33 31 30 01 21 5c 32 30 37 22 20 5b 67 6f 64 2d 6c 6f 63 61 6c 2d 6d 6f 64 65 20 62 6f 75 6e	\310.!\207".[god-local-mode.boun
1d00	64 70 20 66 62 6f 75 6e 64 70 20 67 6f 64 2d 6d 6f 64 65 2d 73 65 6c 66 2d 69 6e 73 65 72 74 20	dp.fboundp.god-mode-self-insert.
1d20	63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72	call-interactively.haskell-inter
1d40	61 63 74 69 76 65 2d 61 74 2d 63 6f 6d 70 69 6c 65 2d 6d 65 73 73 61 67 65 20 6e 65 78 74 2d 65	active-at-compile-message.next-e
1d60	72 72 6f 72 2d 6e 6f 2d 73 65 6c 65 63 74 20 30 20 73 65 6c 66 2d 69 6e 73 65 72 74 2d 63 6f 6d	rror-no-select.0.self-insert-com
1d80	6d 61 6e 64 5d 20 33 20 28 23 24 20 2e 20 37 32 33 38 29 20 22 70 22 5d 29 0a 23 40 31 38 32 20	mand].3.(#$...7238)."p"]).#@182.
1da0	49 66 20 61 74 20 70 72 6f 6d 70 74 2c 20 72 65 74 75 72 6e 20 73 74 61 72 74 20 70 6f 73 69 74	If.at.prompt,.return.start.posit
1dc0	69 6f 6e 20 6f 66 20 75 73 65 72 2d 69 6e 70 75 74 2c 20 6f 74 68 65 72 77 69 73 65 20 72 65 74	ion.of.user-input,.otherwise.ret
1de0	75 72 6e 20 6e 69 6c 2e 0a 49 66 20 45 4e 44 2d 4c 49 4e 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c	urn.nil..If.END-LINE.is.non-nil,
1e00	20 74 68 65 6e 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 77 68 65 6e 20 74 68 65 20 65 6e	.then.return.non-nil.when.the.en
1e20	64 20 6f 66 20 6c 69 6e 65 0a 69 73 20 61 74 20 74 68 65 20 70 72 6f 6d 70 74 2e 0a 0a 28 66 6e	d.of.line.is.at.the.prompt...(fn
1e40	20 26 6f 70 74 69 6f 6e 61 6c 20 45 4e 44 2d 4c 49 4e 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	.&optional.END-LINE)..(defalias.
1e60	27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 61 74 2d 70 72 6f 6d 70 74 20 23	'haskell-interactive-at-prompt.#
1e80	5b 32 35 36 20 22 5c 32 31 31 5c 32 30 33 09 00 5c 33 30 31 20 5c 32 30 32 5c 6e 00 60 08 59 5c	[256."\211\203..\301.\202\n.`.Y\
1ea0	32 30 35 10 00 08 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65	205...\207".[haskell-interactive
1ec0	2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 2d 73 74 61 72 74 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69	-mode-prompt-start.line-end-posi
1ee0	74 69 6f 6e 5d 20 33 20 28 23 24 20 2e 20 37 35 38 34 29 5d 29 0a 23 40 31 36 32 20 48 6f 6f 6b	tion].3.(#$...7584)]).#@162.Hook
1f00	20 72 75 6e 20 61 66 74 65 72 20 65 6e 74 65 72 69 6e 67 20 45 72 72 6f 72 20 6d 6f 64 65 2e 0a	.run.after.entering.Error.mode..
1f20	4e 6f 20 70 72 6f 62 6c 65 6d 73 20 72 65 73 75 6c 74 20 69 66 20 74 68 69 73 20 76 61 72 69 61	No.problems.result.if.this.varia
1f40	62 6c 65 20 69 73 20 6e 6f 74 20 62 6f 75 6e 64 2e 0a 60 61 64 64 2d 68 6f 6f 6b 27 20 61 75 74	ble.is.not.bound..`add-hook'.aut
1f60	6f 6d 61 74 69 63 61 6c 6c 79 20 62 69 6e 64 73 20 69 74 2e 20 20 28 54 68 69 73 20 69 73 20 74	omatically.binds.it...(This.is.t
1f80	72 75 65 20 66 6f 72 20 61 6c 6c 20 68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 73 2e 29 1f 0a 28 64	rue.for.all.hook.variables.)..(d
1fa0	65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69	efvar.haskell-error-mode-hook.ni
1fc0	6c 20 28 23 24 20 2e 20 37 39 33 32 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	l.(#$...7932)).(byte-code."\300\
1fe0	33 30 31 21 5c 32 30 34 5c 66 00 5c 33 30 32 5c 33 30 31 5c 33 30 33 5c 33 30 34 23 5c 32 31 30	301!\204\f.\302\301\303\304#\210
2000	5c 33 30 30 5c 32 30 37 22 20 5b 62 6f 75 6e 64 70 20 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d	\300\207".[boundp.haskell-error-
2020	6d 6f 64 65 2d 6d 61 70 20 70 75 74 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 68 61 73	mode-map.put.definition-name.has
2040	6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 5d 20 34 29 0a 28 64 65 66 76 61 72 20 68 61 73 6b	kell-error-mode].4).(defvar.hask
2060	65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d	ell-error-mode-map.(make-sparse-
2080	6b 65 79 6d 61 70 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 4e 5c 32	keymap)).(byte-code."\300\301N\2
20a0	30 34 0e 00 5c 33 30 32 5c 33 30 30 5c 33 30 31 5c 33 30 33 5c 33 30 34 21 23 5c 32 31 30 5c 33	04..\302\300\301\303\304!#\210\3
20c0	30 35 5c 33 30 36 21 5c 32 30 34 1a 00 5c 33 30 32 5c 33 30 36 5c 33 30 37 5c 33 31 30 23 5c 32	05\306!\204..\302\306\307\310#\2
20e0	31 30 5c 33 30 30 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d	10\300\207".[haskell-error-mode-
2100	6d 61 70 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 70 75 74 20 70	map.variable-documentation.put.p
2120	75 72 65 63 6f 70 79 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 60 68 61 73 6b 65 6c 6c 2d 65 72 72	urecopy."Keymap.for.`haskell-err
2140	6f 72 2d 6d 6f 64 65 27 2e 22 20 62 6f 75 6e 64 70 20 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d	or-mode'.".boundp.haskell-error-
2160	6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d	mode-syntax-table.definition-nam
2180	65 20 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 5d 20 35 29 0a 28 64 65 66 76 61 72	e.haskell-error-mode].5).(defvar
21a0	20 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65	.haskell-error-mode-syntax-table
21c0	20 28 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 0a 28 62 79 74 65 2d 63 6f 64 65	.(make-syntax-table)).(byte-code
21e0	20 22 5c 33 30 30 5c 33 30 31 4e 5c 32 30 34 0e 00 5c 33 30 32 5c 33 30 30 5c 33 30 31 5c 33 30	."\300\301N\204..\302\300\301\30
2200	33 5c 33 30 34 21 23 5c 32 31 30 5c 33 30 32 5c 33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37	3\304!#\210\302\305\306\307#\207
2220	22 20 5b 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62	".[haskell-error-mode-syntax-tab
2240	6c 65 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 70 75 74 20 70 75	le.variable-documentation.put.pu
2260	72 65 63 6f 70 79 20 22 53 79 6e 74 61 78 20 74 61 62 6c 65 20 66 6f 72 20 60 68 61 73 6b 65 6c	recopy."Syntax.table.for.`haskel
2280	6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 27 2e 22 20 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f	l-error-mode'.".haskell-error-mo
22a0	64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20	de-abbrev-table.definition-name.
22c0	68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 5d 20 35 29 0a 28 64 65 66 76 61 72 20 68	haskell-error-mode].5).(defvar.h
22e0	61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28	askell-error-mode-abbrev-table.(
2300	70 72 6f 67 6e 20 28 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 27 68 61 73 6b	progn.(define-abbrev-table.'hask
2320	65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e 69 6c 29	ell-error-mode-abbrev-table.nil)
2340	20 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65	.haskell-error-mode-abbrev-table
2360	29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 4e 5c 32 30 34 0e 00 5c 33	)).(byte-code."\300\301N\204..\3
2380	30 32 5c 33 30 30 5c 33 30 31 5c 33 30 33 5c 33 30 34 21 23 5c 32 31 30 5c 33 30 32 5c 33 30 35	02\300\301\303\304!#\210\302\305
23a0	5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f	\306\307#\207".[haskell-error-mo
23c0	64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e	de-abbrev-table.variable-documen
23e0	74 61 74 69 6f 6e 20 70 75 74 20 70 75 72 65 63 6f 70 79 20 22 41 62 62 72 65 76 20 74 61 62 6c	tation.put.purecopy."Abbrev.tabl
2400	65 20 66 6f 72 20 60 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 27 2e 22 20 68 61 73	e.for.`haskell-error-mode'.".has
2420	6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 20 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 61 72	kell-error-mode.derived-mode-par
2440	65 6e 74 20 73 70 65 63 69 61 6c 2d 6d 6f 64 65 5d 20 35 29 0a 23 40 32 34 30 20 4d 61 6a 6f 72	ent.special-mode].5).#@240.Major
2460	20 6d 6f 64 65 20 66 6f 72 20 76 69 65 77 69 6e 67 20 48 61 73 6b 65 6c 6c 20 63 6f 6d 70 69 6c	.mode.for.viewing.Haskell.compil
2480	65 20 65 72 72 6f 72 73 2e 0a 0a 49 6e 20 61 64 64 69 74 69 6f 6e 20 74 6f 20 61 6e 79 20 68 6f	e.errors...In.addition.to.any.ho
24a0	6f 6b 73 20 69 74 73 20 70 61 72 65 6e 74 20 6d 6f 64 65 20 60 73 70 65 63 69 61 6c 2d 6d 6f 64	oks.its.parent.mode.`special-mod
24c0	65 27 20 6d 69 67 68 74 20 68 61 76 65 20 72 75 6e 2c 0a 74 68 69 73 20 6d 6f 64 65 20 72 75 6e	e'.might.have.run,.this.mode.run
24e0	73 20 74 68 65 20 68 6f 6f 6b 20 60 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 68	s.the.hook.`haskell-error-mode-h
2500	6f 6f 6b 27 2c 20 61 73 20 74 68 65 20 66 69 6e 61 6c 20 73 74 65 70 0a 64 75 72 69 6e 67 20 69	ook',.as.the.final.step.during.i
2520	6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 2e 0a 0a 5c 7b 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d	nitialization...\{haskell-error-
2540	6d 6f 64 65 2d 6d 61 70 7d 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 65 72	mode-map}..(defalias.'haskell-er
2560	72 6f 72 2d 6d 6f 64 65 20 23 5b 30 20 22 5c 33 30 36 5c 33 30 30 21 5c 32 31 30 5c 33 30 37 18	ror-mode.#[0."\306\300!\210\307.
2580	5c 33 31 30 20 5c 32 31 30 5c 33 31 31 11 5c 33 31 32 12 5c 33 31 30 5c 33 31 33 4e 5c 32 30 33	\310.\210\311.\312.\310\313N\203
25a0	1b 00 5c 33 31 34 5c 33 31 31 5c 33 31 33 5c 33 31 30 5c 33 31 33 4e 23 5c 32 31 30 5c 33 31 35	..\314\311\313\310\313N#\210\315
25c0	0b 21 5c 32 30 34 27 00 5c 33 31 36 0b 5c 33 31 37 20 5c 22 5c 32 31 30 5c 33 32 30 5c 66 21 5c	.!\204'.\316.\317.\"\210\320\f!\
25e0	32 31 31 5c 32 30 33 35 00 5c 32 31 31 5c 33 32 31 20 3d 5c 32 30 33 3b 00 5c 33 32 32 5c 66 5c	211\2035.\211\321.=\203;.\322\f\
2600	33 32 33 20 5c 22 5c 32 31 30 5c 32 31 30 5c 33 32 34 0d 5c 33 32 35 5c 22 5c 32 30 34 52 00 0d	323.\"\210\210\324.\325\"\204R..
2620	0e 1b 3d 5c 32 30 34 52 00 5c 33 32 36 0d 5c 33 32 35 0e 1b 43 23 5c 32 31 30 5c 33 32 37 0b 21	..=\204R.\326.\325..C#\210\327.!
2640	5c 32 31 30 5c 33 33 30 5c 66 21 5c 32 31 30 0d 16 1b 29 5c 33 33 31 5c 33 33 32 21 5c 32 30 37	\210\330\f!\210...)\331\332!\207
2660	22 20 5b 64 65 6c 61 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 73 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d	".[delay-mode-hooks.major-mode.m
2680	6f 64 65 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 6d 61 70 20	ode-name.haskell-error-mode-map.
26a0	68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20	haskell-error-mode-syntax-table.
26c0	68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20	haskell-error-mode-abbrev-table.
26e0	6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 74 20 73 70 65 63 69 61 6c 2d 6d 6f	make-local-variable.t.special-mo
2700	64 65 20 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 20 22 45 72 72 6f 72 22 20 6d 6f	de.haskell-error-mode."Error".mo
2720	64 65 2d 63 6c 61 73 73 20 70 75 74 20 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 73 65 74 2d 6b	de-class.put.keymap-parent.set-k
2740	65 79 6d 61 70 2d 70 61 72 65 6e 74 20 63 75 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 61 70 20 63	eymap-parent.current-local-map.c
2760	68 61 72 2d 74 61 62 6c 65 2d 70 61 72 65 6e 74 20 73 74 61 6e 64 61 72 64 2d 73 79 6e 74 61 78	har-table-parent.standard-syntax
2780	2d 74 61 62 6c 65 20 73 65 74 2d 63 68 61 72 2d 74 61 62 6c 65 2d 70 61 72 65 6e 74 20 73 79 6e	-table.set-char-table-parent.syn
27a0	74 61 78 2d 74 61 62 6c 65 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 67 65 74 20 3a 70 61 72 65	tax-table.abbrev-table-get.:pare
27c0	6e 74 73 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 70 75 74 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d	nts.abbrev-table-put.use-local-m
27e0	61 70 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 72 75 6e 2d 6d 6f 64 65 2d 68 6f 6f	ap.set-syntax-table.run-mode-hoo
2800	6b 73 20 68 61 73 6b 65 6c 6c 2d 65 72 72 6f 72 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6c 6f 63 61 6c	ks.haskell-error-mode-hook.local
2820	2d 61 62 62 72 65 76 2d 74 61 62 6c 65 5d 20 35 20 28 23 24 20 2e 20 39 33 30 37 29 20 6e 69 6c	-abbrev-table].5.(#$...9307).nil
2840	5d 29 0a 23 40 32 32 20 48 61 6e 64 6c 65 20 5e 48 20 69 6e 20 6f 75 74 70 75 74 2e 1f 0a 28 64	]).#@22.Handle.^H.in.output...(d
2860	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64	efalias.'haskell-interactive-mod
2880	65 2d 68 61 6e 64 6c 65 2d 68 20 23 5b 30 20 22 65 5c 33 30 31 18 5c 32 31 32 5c 33 30 32 5c 33	e-handle-h.#[0."e\301.\212\302\3
28a0	30 33 02 5c 33 30 31 5c 33 30 34 24 5c 32 30 35 34 00 5c 32 31 32 5c 33 30 35 75 5c 32 31 30 60	03.\301\304$\2054.\212\305u\210`
28c0	5c 33 30 36 5c 33 30 37 03 5c 33 30 31 5c 33 30 34 24 5c 32 30 33 21 00 5c 33 30 35 75 5c 32 31	\306\307.\301\304$\203!.\305u\21
28e0	30 5c 32 30 32 24 00 65 62 5c 32 31 30 60 60 02 02 5a 5a 65 5d 02 7c 5c 32 36 36 03 29 5c 32 30	0\202$.eb\210``..ZZe].|\266.)\20
2900	32 04 00 2a 5c 32 30 37 22 20 5b 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 20 73	2..*\207".[inhibit-read-only.t.s
2920	65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 08 22 20 31 20 6e 69 6c 20 73 65 61 72 63 68 2d	earch-backward.".".1.nil.search-
2940	62 61 63 6b 77 61 72 64 2d 72 65 67 65 78 70 20 22 5b 5e 08 5d 22 5d 20 37 20 28 23 24 20 2e 20	backward-regexp."[^.]"].7.(#$...
2960	31 30 33 31 32 29 5d 29 0a 23 40 31 32 33 20 49 66 20 61 20 6d 75 6c 74 69 2d 6c 69 6e 65 20 65	10312)]).#@123.If.a.multi-line.e
2980	78 70 72 65 73 73 69 6f 6e 20 45 58 50 52 20 68 61 73 20 62 65 65 6e 20 65 6e 74 65 72 65 64 2c	xpression.EXPR.has.been.entered,
29a0	20 74 68 65 6e 20 72 65 66 6f 72 6d 61 74 20 69 74 20 74 6f 20 62 65 3a 0a 0a 3a 7b 0a 64 6f 20	.then.reformat.it.to.be:..:{.do.
29c0	74 68 65 0a 20 20 20 6d 75 6c 74 69 2d 6c 69 6e 65 72 0a 20 20 20 65 78 70 72 0a 3a 7d 0a 0a 28	the....multi-liner....expr.:}..(
29e0	66 6e 20 45 58 50 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74	fn.EXPR)..(defalias.'haskell-int
2a00	65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6d 75 6c 74 69 2d 6c 69 6e 65 20 23 5b 32 35 37 20 22	eractive-mode-multi-line.#[257."
2a20	5c 33 30 33 01 5c 33 30 34 5c 33 30 35 18 5c 33 30 36 03 03 03 23 29 5c 32 36 36 5c 32 30 33 5c	\303.\304\305.\306...#)\266\203\
2a40	32 30 34 11 00 5c 32 30 37 5c 33 30 37 5c 33 31 30 5c 33 31 31 09 21 5c 22 5c 33 31 32 02 5c 33	204..\207\307\310\311.!\"\312.\3
2a60	30 33 5c 22 5c 32 31 31 41 5c 32 31 31 3a 5c 32 30 33 32 00 5c 32 31 31 5c 33 31 33 04 5c 33 31	03\"\211A\211:\2032.\211\313.\31
2a80	34 04 40 23 5c 32 34 30 5c 32 31 30 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 1d 00 5c 32 31 30	4.@#\240\210\211A\262.\202..\210
2aa0	5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 33 32 30 04 5c 33 30 33 23 5c 33 32 31 5c 33 30 37 5c 33	\315\316\317\320.\303#\321\307\3
2ac0	32 32 5c 6e 5c 22 5c 32 36 30 05 5c 32 30 37 22 20 5b 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69	22\n\"\260.\207".[inhibit-changi
2ae0	6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76	ng-match-data.haskell-interactiv
2b00	65 2d 70 72 6f 6d 70 74 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f	e-prompt.haskell-interactive-pro
2b20	6d 70 74 32 20 22 5c 6e 22 20 6e 69 6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 66 6f 72	mpt2."\n".nil.t.string-match.for
2b40	6d 61 74 20 22 5e 25 73 22 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 73 70 6c 69 74 2d 73 74 72	mat."^%s".regexp-quote.split-str
2b60	69 6e 67 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 22 20	ing.replace-regexp-in-string."".
2b80	22 3a 73 65 74 20 70 72 6f 6d 70 74 32 20 5c 22 5c 22 5c 6e 22 20 22 3a 7b 5c 6e 22 20 6d 61 70	":set.prompt2.\"\"\n".":{\n".map
2ba0	63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 22 5c 6e 3a 7d 5c 6e 22 20 22 3a 73 65 74 20 70	concat.identity."\n:}\n".":set.p
2bc0	72 6f 6d 70 74 32 20 5c 22 25 73 5c 22 22 5d 20 31 30 20 28 23 24 20 2e 20 31 30 36 30 37 29 5d	rompt2.\"%s\""].10.(#$...10607)]
2be0	29 0a 23 40 34 31 20 49 73 20 4c 49 4e 45 20 61 63 74 75 61 6c 6c 79 20 61 20 3a 74 2f 3a 6b 2f	).#@41.Is.LINE.actually.a.:t/:k/
2c00	3a 69 3f 0a 0a 28 66 6e 20 4c 49 4e 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65	:i?..(fn.LINE)..(defalias.'haske
2c20	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 69 73 2d 71 75 65 72	ll-interactive-mode-line-is-quer
2c40	79 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 35 08 00 5c 33 30 32 5c 32	y.#[257."\300\301.\"\205..\302\2
2c60	30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 3a 5b 69 74 6b 5d 20 22 20 74 5d 20	07".[string-match."^:[itk].".t].
2c80	34 20 28 23 24 20 2e 20 31 31 32 33 39 29 5d 29 0a 23 40 33 30 20 47 6f 20 74 6f 20 74 68 65 20	4.(#$...11239)]).#@30.Go.to.the.
2ca0	73 74 61 72 74 20 6f 66 20 74 68 65 20 6c 69 6e 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68	start.of.the.line...(defalias.'h
2cc0	61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 62 65 67 69 6e 6e 69 6e	askell-interactive-mode-beginnin
2ce0	67 20 23 5b 30 20 22 5c 33 30 31 20 5c 32 30 33 08 00 08 62 5c 32 30 37 5c 33 30 32 5c 33 30 33	g.#[0."\301.\203...b\207\302\303
2d00	21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65	!\207".[haskell-interactive-mode
2d20	2d 70 72 6f 6d 70 74 2d 73 74 61 72 74 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76	-prompt-start.haskell-interactiv
2d40	65 2d 61 74 2d 70 72 6f 6d 70 74 20 6d 6f 76 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69	e-at-prompt.move-beginning-of-li
2d60	6e 65 20 6e 69 6c 5d 20 32 20 28 23 24 20 2e 20 31 31 34 31 34 29 20 6e 69 6c 5d 29 0a 23 40 34	ne.nil].2.(#$...11414).nil]).#@4
2d80	35 20 47 65 74 20 74 68 65 20 69 6e 74 65 72 61 63 74 69 76 65 20 6d 6f 64 65 20 69 6e 70 75 74	5.Get.the.interactive.mode.input
2da0	20 75 70 20 74 6f 20 70 6f 69 6e 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c	.up.to.point...(defalias.'haskel
2dc0	6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 69 6e 70 75 74 2d 70 61 72 74 69 61 6c	l-interactive-mode-input-partial
2de0	20 23 5b 30 20 22 5c 33 30 30 20 5c 32 31 31 5c 32 30 34 5c 6e 00 5c 33 30 31 5c 33 30 32 21 5c	.#[0."\300.\211\204\n.\301\302!\
2e00	32 31 30 5c 33 30 33 01 60 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	210\303.`\"\207".[haskell-intera
2e20	63 74 69 76 65 2d 61 74 2d 70 72 6f 6d 70 74 20 65 72 72 6f 72 20 22 6e 6f 74 20 61 74 20 70 72	ctive-at-prompt.error."not.at.pr
2e40	6f 6d 70 74 22 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72	ompt".buffer-substring-no-proper
2e60	74 69 65 73 5d 20 34 20 28 23 24 20 2e 20 31 31 36 35 30 29 5d 29 0a 23 40 33 33 20 47 65 74 20	ties].4.(#$...11650)]).#@33.Get.
2e80	74 68 65 20 69 6e 74 65 72 61 63 74 69 76 65 20 6d 6f 64 65 20 69 6e 70 75 74 2e 1f 0a 28 64 65	the.interactive.mode.input...(de
2ea0	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65	falias.'haskell-interactive-mode
2ec0	2d 69 6e 70 75 74 20 23 5b 30 20 22 5c 33 30 31 08 64 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65	-input.#[0."\301.d\"\207".[haske
2ee0	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 2d 73 74 61 72 74	ll-interactive-mode-prompt-start
2f00	20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 5d	.buffer-substring-no-properties]
2f20	20 33 20 28 23 24 20 2e 20 31 31 39 30 30 29 5d 29 0a 23 40 31 37 39 20 53 68 6f 77 20 61 20 70	.3.(#$...11900)]).#@179.Show.a.p
2f40	72 6f 6d 70 74 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 52 45 50 4c 20 62 75 66	rompt.at.the.end.of.the.REPL.buf
2f60	66 65 72 2e 0a 49 66 20 53 45 53 53 49 4f 4e 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 75 73 65 20	fer..If.SESSION.is.non-nil,.use.
2f80	74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 0a	the.REPL.buffer.associated.with.
2fa0	53 45 53 53 49 4f 4e 2c 20 6f 74 68 65 72 77 69 73 65 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68	SESSION,.otherwise.operate.on.th
2fc0	65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c	e.current.buffer...(fn.&optional
2fe0	20 53 45 53 53 49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e	.SESSION)..(defalias.'haskell-in
3000	74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 20 23 5b 32 35 36 20 22 72 5c 32	teractive-mode-prompt.#[256."r\2
3020	31 31 5c 32 30 33 0b 00 5c 33 30 33 01 21 5c 32 30 32 5c 66 00 70 71 5c 32 31 30 5c 32 31 32 64	11\203..\303.!\202\f.pq\210\212d
3040	62 5c 32 31 30 5c 33 30 34 08 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 09 5c	b\210\304.\305\306\307\310\311.\
3060	33 31 32 5c 33 31 30 26 09 5c 32 31 31 5c 33 31 33 5c 33 31 34 4f 5c 33 30 34 02 5c 33 31 34 5c	312\310&.\211\313\314O\304.\314\
3080	33 31 35 4f 5c 33 31 36 5c 33 31 30 23 5c 32 36 31 02 5c 32 36 36 02 5c 33 31 37 5c 33 30 32 21	315O\316\310#\261.\266.\317\302!
30a0	5c 32 31 30 5c 33 32 30 20 5c 32 31 31 12 5c 32 31 31 60 5c 33 31 35 5c 32 32 33 5c 32 36 36 02	\210\320.\211.\211`\315\223\266.
30c0	29 5c 33 32 31 5c 33 31 30 21 5c 32 30 35 45 00 5c 33 32 32 20 29 5c 32 30 37 22 20 5b 68 61 73	)\321\310!\205E.\322.)\207".[has
30e0	6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74 20 68 61 73 6b 65 6c 6c 2d	kell-interactive-prompt.haskell-
3100	69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 68 61 73	interactive-prompt-read-only.has
3120	6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 2d 73 74 61	kell-interactive-mode-prompt-sta
3140	72 74 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62	rt.haskell-session-interactive-b
3160	75 66 66 65 72 20 70 72 6f 70 65 72 74 69 7a 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 20	uffer.propertize.font-lock-face.
3180	68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 66 61 63 65 2d 70 72 6f 6d 70 74 20	haskell-interactive-face-prompt.
31a0	70 72 6f 6d 70 74 20 74 20 72 65 61 64 2d 6f 6e 6c 79 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b	prompt.t.read-only.rear-nonstick
31c0	79 20 30 20 31 20 6e 69 6c 20 66 72 6f 6e 74 2d 73 74 69 63 6b 79 20 6d 61 6b 65 2d 6c 6f 63 61	y.0.1.nil.front-sticky.make-loca
31e0	6c 2d 76 61 72 69 61 62 6c 65 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 20 68 61 73 6b 65 6c 6c 2d 69	l-variable.make-marker.haskell-i
3200	6e 74 65 72 61 63 74 69 76 65 2d 61 74 2d 70 72 6f 6d 70 74 20 68 61 73 6b 65 6c 6c 2d 69 6e 74	nteractive-at-prompt.haskell-int
3220	65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 73 63 72 6f 6c 6c 2d 74 6f 2d 62 6f 74 74 6f 6d 5d 20	eractive-mode-scroll-to-bottom].
3240	31 31 20 28 23 24 20 2e 20 31 32 30 38 38 29 5d 29 0a 23 40 36 34 20 49 6e 73 65 72 74 20 74 68	11.(#$...12088)]).#@64.Insert.th
3260	65 20 72 65 73 75 6c 74 20 6f 66 20 61 6e 20 65 76 61 6c 20 61 73 20 70 6c 61 69 6e 20 74 65 78	e.result.of.an.eval.as.plain.tex
3280	74 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 54 45 58 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	t...(fn.SESSION.TEXT)..(defalias
32a0	20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 65 76 61 6c 2d	.'haskell-interactive-mode-eval-
32c0	72 65 73 75 6c 74 20 23 5b 35 31 34 20 22 72 5c 33 30 34 02 21 71 5c 32 31 30 6d 5c 33 30 35 02	result.#[514."r\304.!q\210m\305.
32e0	5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 31 5c 33 31 33 08 5c 33 31	\306\307\310\311\312\311\313.\31
3300	34 5c 33 31 31 5c 33 31 35 5c 33 31 31 26 0d 5c 32 31 32 64 62 5c 32 31 30 02 09 5c 32 33 30 5c	4\311\315\311&.\212db\210..\230\
3320	32 30 33 2a 00 5c 33 30 35 01 5c 33 30 36 5c 33 31 36 5c 33 31 33 5c 6e 25 5c 32 36 32 01 5c 33	203*.\305.\306\316\313\n%\262.\3
3340	31 37 01 21 63 5c 32 31 30 5c 33 32 30 20 5c 32 31 30 5c 33 32 31 5c 33 30 33 21 5c 32 31 30 5c	17.!c\210\320.\210\321\303!\210\
3360	33 32 32 20 5c 32 31 31 13 5c 32 31 31 60 5c 33 32 33 5c 32 32 33 5c 32 36 36 02 29 01 5c 32 30	322.\211.\211`\323\223\266.).\20
3380	35 47 00 5c 33 32 34 20 5c 32 36 36 5c 32 30 32 29 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d	5G.\324.\266\202)\207".[haskell-
33a0	69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 72 65 61 64 2d 6f 6e 6c 79 20 68 61 73 6b 65	interactive-mode-read-only.haske
33c0	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74 32 20 68 61 73 6b 65 6c 6c 2d 69	ll-interactive-prompt2.haskell-i
33e0	6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 68 61 73 6b	nteractive-prompt-read-only.hask
3400	65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 72 65 73 75 6c 74 2d 65 6e 64 20	ell-interactive-mode-result-end.
3420	68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75 66 66	haskell-session-interactive-buff
3440	65 72 20 70 72 6f 70 65 72 74 69 7a 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 20 68 61 73	er.propertize.font-lock-face.has
3460	6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 66 61 63 65 2d 72 65 73 75 6c 74 20 66 72 6f	kell-interactive-face-result.fro
3480	6e 74 2d 73 74 69 63 6b 79 20 74 20 70 72 6f 6d 70 74 20 72 65 61 64 2d 6f 6e 6c 79 20 72 65 61	nt-sticky.t.prompt.read-only.rea
34a0	72 2d 6e 6f 6e 73 74 69 63 6b 79 20 72 65 73 75 6c 74 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72	r-nonsticky.result.haskell-inter
34c0	61 63 74 69 76 65 2d 66 61 63 65 2d 70 72 6f 6d 70 74 32 20 61 6e 73 69 2d 63 6f 6c 6f 72 2d 61	active-face-prompt2.ansi-color-a
34e0	70 70 6c 79 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 61	pply.haskell-interactive-mode-ha
3500	6e 64 6c 65 2d 68 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 6d 61 6b 65 2d	ndle-h.make-local-variable.make-
3520	6d 61 72 6b 65 72 20 6e 69 6c 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d	marker.nil.haskell-interactive-m
3540	6f 64 65 2d 73 63 72 6f 6c 6c 2d 74 6f 2d 62 6f 74 74 6f 6d 5d 20 31 37 20 28 23 24 20 2e 20 31	ode-scroll-to-bottom].17.(#$...1
3560	32 38 38 37 29 5d 29 0a 23 40 31 39 20 53 63 72 6f 6c 6c 20 74 6f 20 62 6f 74 74 6f 6d 2e 1f 0a	2887)]).#@19.Scroll.to.bottom...
3580	28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d	(defalias.'haskell-interactive-m
35a0	6f 64 65 2d 73 63 72 6f 6c 6c 2d 74 6f 2d 62 6f 74 74 6f 6d 20 23 5b 30 20 22 5c 33 30 30 70 21	ode-scroll-to-bottom.#[0."\300p!
35c0	5c 32 31 31 5c 32 30 35 0e 00 64 62 5c 32 31 30 5c 33 30 31 01 60 5c 22 5c 32 30 37 22 20 5b 67	\211\205..db\210\301.`\"\207".[g
35e0	65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 73 65 74 2d 77 69 6e 64 6f 77 2d 70 6f 69 6e	et-buffer-window.set-window-poin
3600	74 5d 20 34 20 28 23 24 20 2e 20 31 33 36 37 37 29 5d 29 0a 23 40 33 38 20 45 63 68 6f 20 61 6e	t].4.(#$...13677)]).#@38.Echo.an
3620	20 65 72 72 6f 72 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 4d 45 53 53 41 47 45 29 1f 0a 28	.error...(fn.SESSION.MESSAGE)..(
3640	64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f	defalias.'haskell-interactive-mo
3660	64 65 2d 63 6f 6d 70 69 6c 65 2d 65 72 72 6f 72 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 33	de-compile-error.#[514."\300..\3
3680	30 31 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f	01#\207".[haskell-interactive-mo
36a0	64 65 2d 63 6f 6d 70 69 6c 65 2d 6d 65 73 73 61 67 65 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72	de-compile-message.haskell-inter
36c0	61 63 74 69 76 65 2d 66 61 63 65 2d 63 6f 6d 70 69 6c 65 2d 65 72 72 6f 72 5d 20 36 20 28 23 24	active-face-compile-error].6.(#$
36e0	20 2e 20 31 33 38 34 39 29 5d 29 0a 23 40 34 30 20 57 61 72 6e 69 6e 67 20 6d 65 73 73 61 67 65	...13849)]).#@40.Warning.message
3700	2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 4d 45 53 53 41 47 45 29 1f 0a 28 64 65 66 61 6c 69	...(fn.SESSION.MESSAGE)..(defali
3720	61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 63 6f 6d	as.'haskell-interactive-mode-com
3740	70 69 6c 65 2d 77 61 72 6e 69 6e 67 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 33 30 31 23 5c	pile-warning.#[514."\300..\301#\
3760	32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 63	207".[haskell-interactive-mode-c
3780	6f 6d 70 69 6c 65 2d 6d 65 73 73 61 67 65 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69	ompile-message.haskell-interacti
37a0	76 65 2d 66 61 63 65 2d 63 6f 6d 70 69 6c 65 2d 77 61 72 6e 69 6e 67 5d 20 36 20 28 23 24 20 2e	ve-face-compile-warning].6.(#$..
37c0	20 31 34 30 36 35 29 5d 29 0a 23 40 35 33 20 45 63 68 6f 20 61 20 63 6f 6d 70 69 6c 65 72 20 77	.14065)]).#@53.Echo.a.compiler.w
37e0	61 72 6e 69 6e 67 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 4d 45 53 53 41 47 45 20 54 59 50	arning...(fn.SESSION.MESSAGE.TYP
3800	45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69	E)..(defalias.'haskell-interacti
3820	76 65 2d 6d 6f 64 65 2d 63 6f 6d 70 69 6c 65 2d 6d 65 73 73 61 67 65 20 23 5b 37 37 31 20 22 72	ve-mode-compile-message.#[771."r
3840	5c 33 30 33 03 21 71 5c 32 31 30 70 10 5c 32 31 32 5c 33 30 34 20 5c 32 31 30 5c 33 30 35 5c 33	\303.!q\210p.\212\304.\210\305\3
3860	30 36 03 5c 22 5c 32 31 31 5c 32 30 33 4b 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 05 5c 22 5c 33	06.\"\211\203K.\307\310\311.\"\3
3880	31 32 50 5c 33 31 33 5c 33 31 34 5c 33 31 35 06 06 5c 33 31 36 5c 33 31 34 5c 33 31 37 09 5c 33	12P\313\314\315..\316\314\317.\3
38a0	32 30 5c 33 31 34 26 0b 63 5c 32 31 30 5c 33 30 37 5c 33 31 30 5c 33 32 31 05 5c 22 5c 33 32 32	20\314&.c\210\307\310\321.\"\322
38c0	50 5c 33 32 33 5c 33 31 34 5c 33 31 35 06 06 5c 33 31 36 5c 33 31 34 5c 33 32 34 5c 6e 5c 33 32	P\323\314\315..\316\314\324\n\32
38e0	35 5c 33 31 30 5c 33 32 31 06 0f 5c 22 47 5c 33 31 37 09 5c 33 32 30 5c 33 31 34 26 0f 63 5c 32	5\310\321..\"G\317.\320\314&.c\2
3900	30 32 5a 00 5c 33 30 37 03 5c 33 32 32 50 5c 33 31 35 04 5c 33 31 36 5c 33 31 34 5c 33 31 37 09	02Z.\307.\322P\315.\316\314\317.
3920	5c 33 32 30 5c 33 31 34 26 09 63 5c 32 36 32 01 2a 5c 32 30 37 22 20 5b 6e 65 78 74 2d 65 72 72	\320\314&.c\262.*\207".[next-err
3940	6f 72 2d 6c 61 73 74 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69	or-last-buffer.haskell-interacti
3960	76 65 2d 6d 6f 64 65 2d 72 65 61 64 2d 6f 6e 6c 79 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	ve-mode-read-only.haskell-intera
3980	63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 64 65 2d 6d 75 6c 74 69 2d 6c 69 6e 65 2d 65 72 72 6f 72	ctive-mode-hide-multi-line-error
39a0	73 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75	s.haskell-session-interactive-bu
39c0	66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 67 6f	ffer.haskell-interactive-mode-go
39e0	74 6f 2d 65 6e 64 2d 70 6f 69 6e 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5c 5c 28 2e	to-end-point.string-match."^\\(.
3a00	2a 5c 5c 29 5c 6e 5c 5c 28 5b 5b 3a 75 6e 69 62 79 74 65 3a 5d 5b 3a 6e 6f 6e 61 73 63 69 69 3a	*\\)\n\\([[:unibyte:][:nonascii:
3a20	5d 5d 2b 5c 5c 29 22 20 70 72 6f 70 65 72 74 69 7a 65 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20	]]+\\)".propertize.match-string.
3a40	31 20 22 20 e2 80 a6 5c 6e 22 20 65 78 70 61 6e 64 61 62 6c 65 20 74 20 66 6f 6e 74 2d 6c 6f 63	1."....\n".expandable.t.font-loc
3a60	6b 2d 66 61 63 65 20 66 72 6f 6e 74 2d 73 74 69 63 6b 79 20 72 65 61 64 2d 6f 6e 6c 79 20 72 65	k-face.front-sticky.read-only.re
3a80	61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 32 20 22 5c 6e 22 20 63 6f 6c 6c 61 70 73 69 62 6c 65 20	ar-nonsticky.2."\n".collapsible.
3aa0	69 6e 76 69 73 69 62 6c 65 20 6d 65 73 73 61 67 65 2d 6c 65 6e 67 74 68 5d 20 32 30 20 28 23 24	invisible.message-length].20.(#$
3ac0	20 2e 20 31 34 32 38 37 29 5d 29 0a 23 40 37 33 20 45 63 68 6f 20 61 20 72 65 61 64 20 6f 6e 6c	...14287)]).#@73.Echo.a.read.onl
3ae0	79 20 70 69 65 63 65 20 6f 66 20 74 65 78 74 20 62 65 66 6f 72 65 20 74 68 65 20 70 72 6f 6d 70	y.piece.of.text.before.the.promp
3b00	74 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 4d 45 53 53 41 47 45 29 1f 0a 28 64 65 66 61 6c	t...(fn.SESSION.MESSAGE)..(defal
3b20	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 69 6e	ias.'haskell-interactive-mode-in
3b40	73 65 72 74 20 23 5b 35 31 34 20 22 72 5c 33 30 30 02 21 71 5c 32 31 30 5c 32 31 32 5c 33 30 31	sert.#[514."r\300.!q\210\212\301
3b60	20 5c 32 31 30 5c 33 30 32 01 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 34 5c 33 30 36 5c 33	.\210\302.\303\304\305\304\306\3
3b80	30 34 26 07 63 2a 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 74	04&.c*\207".[haskell-session-int
3ba0	65 72 61 63 74 69 76 65 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74	eractive-buffer.haskell-interact
3bc0	69 76 65 2d 6d 6f 64 65 2d 67 6f 74 6f 2d 65 6e 64 2d 70 6f 69 6e 74 20 70 72 6f 70 65 72 74 69	ive-mode-goto-end-point.properti
3be0	7a 65 20 66 72 6f 6e 74 2d 73 74 69 63 6b 79 20 74 20 72 65 61 64 2d 6f 6e 6c 79 20 72 65 61 72	ze.front-sticky.t.read-only.rear
3c00	2d 6e 6f 6e 73 74 69 63 6b 79 5d 20 31 30 20 28 23 24 20 2e 20 31 35 30 35 37 29 5d 29 0a 23 40	-nonsticky].10.(#$...15057)]).#@
3c20	35 32 20 47 6f 20 74 6f 20 74 68 65 20 27 65 6e 64 27 20 6f 66 20 74 68 65 20 62 75 66 66 65 72	52.Go.to.the.'end'.of.the.buffer
3c40	20 28 62 65 66 6f 72 65 20 74 68 65 20 70 72 6f 6d 70 74 29 2e 1f 0a 28 64 65 66 61 6c 69 61 73	.(before.the.prompt)...(defalias
3c60	20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 67 6f 74 6f 2d	.'haskell-interactive-mode-goto-
3c80	65 6e 64 2d 70 6f 69 6e 74 20 23 5b 30 20 22 08 62 5c 32 31 30 5c 33 30 31 20 62 5c 32 30 37 22	end-point.#[0.".b\210\301.b\207"
3ca0	20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70	.[haskell-interactive-mode-promp
3cc0	74 2d 73 74 61 72 74 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 5d	t-start.line-beginning-position]
3ce0	20 31 20 28 23 24 20 2e 20 31 35 33 39 35 29 5d 29 0a 23 40 33 39 20 41 64 64 20 49 4e 50 55 54	.1.(#$...15395)]).#@39.Add.INPUT
3d00	20 74 6f 20 74 68 65 20 68 69 73 74 6f 72 79 2e 0a 0a 28 66 6e 20 49 4e 50 55 54 29 1f 0a 28 64	.to.the.history...(fn.INPUT)..(d
3d20	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64	efalias.'haskell-interactive-mod
3d40	65 2d 68 69 73 74 6f 72 79 2d 61 64 64 20 23 5b 32 35 37 20 22 5c 33 30 32 01 5c 33 30 33 5c 33	e-history-add.#[257."\302.\303\3
3d60	30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 08 21 5c 33 31 31 5c 22 5c 33 31 32 5c	04\305\306\307\310..!\311\"\312\
3d80	33 31 33 25 08 5c 22 42 42 10 5c 33 31 34 5c 32 31 31 11 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c	313%.\"BB.\314\211.\207".[haskel
3da0	6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 20 68 61 73 6b 65	l-interactive-mode-history.haske
3dc0	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65	ll-interactive-mode-history-inde
3de0	78 20 23 31 3d 22 22 20 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 6d 61 6b 65 2d 62 79 74 65 2d 63	x.#1="".cl-remove-if.make-byte-c
3e00	6f 64 65 20 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 30 5c 32 30 36 09 00 5c 32 31 31 5c	ode.257."\211\300\230\206..\211\
3e20	33 30 31 5c 32 33 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 23 31 23	301\230\207".vconcat.vector.[#1#
3e40	5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 29 22 20 30 5d 20 31 30 20 28 23 24 20 2e 20 31 35 36	].3."\n\n(fn.I)".0].10.(#$...156
3e60	30 37 29 5d 29 0a 23 40 35 37 20 44 6f 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 66 20 61 74 20 70	07)]).#@57.Do.completion.if.at.p
3e80	72 6f 6d 70 74 20 6f 72 20 65 6c 73 65 20 74 72 79 20 63 6f 6c 6c 61 70 73 65 2f 65 78 70 61 6e	rompt.or.else.try.collapse/expan
3ea0	64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69	d...(defalias.'haskell-interacti
3ec0	76 65 2d 6d 6f 64 65 2d 74 61 62 20 23 5b 30 20 22 5c 33 30 30 20 5c 32 30 33 08 00 5c 33 30 31	ve-mode-tab.#[0."\300.\203..\301
3ee0	20 5c 32 30 37 5c 33 30 32 60 5c 33 30 33 5c 22 5c 32 30 33 1d 00 69 5c 33 30 34 5c 33 30 35 21	.\207\302`\303\"\203..i\304\305!
3f00	5c 32 31 30 5c 33 30 36 20 5c 32 31 30 5c 32 31 31 5c 33 30 37 20 5c 5c 62 5c 32 30 37 5c 33 30	\210\306.\210\211\307.\\b\207\30
3f20	36 20 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 61 74 2d	6.\207".[haskell-interactive-at-
3f40	70 72 6f 6d 70 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 67 65 74 2d 74	prompt.completion-at-point.get-t
3f60	65 78 74 2d 70 72 6f 70 65 72 74 79 20 63 6f 6c 6c 61 70 73 69 62 6c 65 20 73 65 61 72 63 68 2d	ext-property.collapsible.search-
3f80	62 61 63 6b 77 61 72 64 2d 72 65 67 65 78 70 20 22 5e 5b 5e 20 5d 22 20 68 61 73 6b 65 6c 6c 2d	backward-regexp."^[^.]".haskell-
3fa0	69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 74 61 62 2d 65 78 70 61 6e 64 20 6c 69 6e 65	interactive-mode-tab-expand.line
3fc0	2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 5d 20 33 20 28 23 24 20 2e 20 31 35 39	-beginning-position].3.(#$...159
3fe0	37 39 29 20 6e 69 6c 5d 29 0a 23 40 33 33 20 45 78 70 61 6e 64 20 74 68 65 20 72 65 73 74 20 6f	79).nil]).#@33.Expand.the.rest.o
4000	66 20 74 68 65 20 6d 65 73 73 61 67 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65	f.the.message...(defalias.'haske
4020	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 74 61 62 2d 65 78 70 61 6e 64 20 23	ll-interactive-mode-tab-expand.#
4040	5b 30 20 22 5c 33 30 31 60 5c 33 30 32 5c 22 5c 32 30 35 21 00 5c 33 30 33 20 54 5c 33 30 31 01	[0."\301`\302\"\205!.\303.T\301.
4060	5c 33 30 34 5c 22 5c 33 30 31 02 5c 33 30 35 5c 22 54 5c 33 30 36 18 5c 33 30 37 03 5c 32 31 31	\304\"\301.\305\"T\306.\307.\211
4080	03 5c 5c 5c 33 30 34 05 3f 24 29 5c 32 36 36 5c 32 30 33 5c 32 30 37 22 20 5b 69 6e 68 69 62 69	.\\\304.?$)\266\203\207".[inhibi
40a0	74 2d 72 65 61 64 2d 6f 6e 6c 79 20 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 65 78	t-read-only.get-text-property.ex
40c0	70 61 6e 64 61 62 6c 65 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 69 6e 76 69 73	pandable.line-end-position.invis
40e0	69 62 6c 65 20 6d 65 73 73 61 67 65 2d 6c 65 6e 67 74 68 20 74 20 70 75 74 2d 74 65 78 74 2d 70	ible.message-length.t.put-text-p
4100	72 6f 70 65 72 74 79 5d 20 38 20 28 23 24 20 2e 20 31 36 33 36 37 29 5d 29 0a 28 64 65 66 63 6f	roperty].8.(#$...16367)]).(defco
4120	6e 73 74 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 65 72 72	nst.haskell-interactive-mode-err
4140	6f 72 2d 72 65 67 65 78 70 20 22 5e 5c 5c 28 5c 5c 28 3f 3a 5b 41 2d 5a 5d 3a 5c 5c 29 3f 5b 5e	or-regexp."^\\(\\(?:[A-Z]:\\)?[^
4160	20 0d 5c 6e 3a 5d 5b 5e 0d 5c 6e 3a 5d 2a 5c 5c 29 3a 5c 5c 28 5b 30 2d 39 28 29 2d 3a 5d 2b 5c	..\n:][^.\n:]*\\):\\([0-9()-:]+\
4180	5c 29 3a 3f 22 29 0a 23 40 32 38 20 41 6d 20 49 20 6f 6e 20 61 20 63 6f 6d 70 69 6c 65 20 6d 65	\):?").#@28.Am.I.on.a.compile.me
41a0	73 73 61 67 65 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72	ssage?..(defalias.'haskell-inter
41c0	61 63 74 69 76 65 2d 61 74 2d 63 6f 6d 70 69 6c 65 2d 6d 65 73 73 61 67 65 20 23 5b 30 20 22 5c	active-at-compile-message.#[0."\
41e0	33 30 31 20 3f 5c 32 30 35 0f 00 5c 32 31 32 5c 33 30 32 20 62 5c 32 31 30 5c 33 30 33 08 21 29	301.?\205..\212\302.b\210\303.!)
4200	5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d	\207".[haskell-interactive-mode-
4220	65 72 72 6f 72 2d 72 65 67 65 78 70 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65	error-regexp.haskell-interactive
4240	2d 61 74 2d 70 72 6f 6d 70 74 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69	-at-prompt.line-beginning-positi
4260	6f 6e 20 6c 6f 6f 6b 69 6e 67 2d 61 74 5d 20 32 20 28 23 24 20 2e 20 31 36 37 38 30 29 5d 29 0a	on.looking-at].2.(#$...16780)]).
4280	23 40 35 38 20 47 6f 20 62 61 63 6b 77 61 72 64 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73	#@58.Go.backward.to.the.previous
42a0	20 65 72 72 6f 72 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 43 4f 55 4e 54 29 1f 0a 28	.error...(fn.&optional.COUNT)..(
42c0	64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f	defalias.'haskell-interactive-mo
42e0	64 65 2d 65 72 72 6f 72 2d 62 61 63 6b 77 61 72 64 20 23 5b 32 35 36 20 22 5c 33 30 31 08 5c 33	de-error-backward.#[256."\301.\3
4300	30 32 5c 33 30 33 04 24 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69	02\303.$\207".[haskell-interacti
4320	76 65 2d 6d 6f 64 65 2d 65 72 72 6f 72 2d 72 65 67 65 78 70 20 73 65 61 72 63 68 2d 62 61 63 6b	ve-mode-error-regexp.search-back
4340	77 61 72 64 2d 72 65 67 65 78 70 20 6e 69 6c 20 74 5d 20 36 20 28 23 24 20 2e 20 31 37 30 32 39	ward-regexp.nil.t].6.(#$...17029
4360	29 20 6e 69 6c 5d 29 0a 23 40 37 36 20 47 6f 20 66 6f 72 77 61 72 64 20 74 6f 20 74 68 65 20 6e	).nil]).#@76.Go.forward.to.the.n
4380	65 78 74 20 65 72 72 6f 72 2c 20 6f 72 20 72 65 74 75 72 6e 20 74 6f 20 74 68 65 20 52 45 50 4c	ext.error,.or.return.to.the.REPL
43a0	2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 43 4f 55 4e 54 29 1f 0a 28 64 65 66 61 6c 69	...(fn.&optional.COUNT)..(defali
43c0	61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 65 72 72	as.'haskell-interactive-mode-err
43e0	6f 72 2d 66 6f 72 77 61 72 64 20 23 5b 32 35 36 20 22 5c 33 30 31 20 62 5c 32 31 30 5c 33 30 32	or-forward.#[256."\301.b\210\302
4400	08 5c 33 30 33 5c 33 30 34 04 24 5c 32 30 33 13 00 5c 33 30 35 20 62 5c 32 31 30 5c 33 30 34 5c	.\303\304.$\203..\305.b\210\304\
4420	32 30 37 64 62 5c 32 31 30 5c 33 30 33 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65	207db\210\303\207".[haskell-inte
4440	72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 65 72 72 6f 72 2d 72 65 67 65 78 70 20 6c 69 6e 65 2d 65	ractive-mode-error-regexp.line-e
4460	6e 64 2d 70 6f 73 69 74 69 6f 6e 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 2d 72 65 67 65 78	nd-position.search-forward-regex
4480	70 20 6e 69 6c 20 74 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 5d	p.nil.t.line-beginning-position]
44a0	20 36 20 28 23 24 20 2e 20 31 37 32 36 31 29 20 6e 69 6c 5d 29 0a 23 40 31 35 37 20 44 65 6c 65	.6.(#$...17261).nil]).#@157.Dele
44c0	74 65 20 63 6f 6d 70 69 6c 65 20 6d 65 73 73 61 67 65 73 20 69 6e 20 52 45 50 4c 20 62 75 66 66	te.compile.messages.in.REPL.buff
44e0	65 72 2e 0a 49 66 20 46 49 4c 45 2d 4e 41 4d 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 72 65 73	er..If.FILE-NAME.is.non-nil,.res
4500	74 72 69 63 74 20 74 6f 20 72 65 6d 6f 76 69 6e 67 20 6d 65 73 73 61 67 65 73 20 63 6f 6e 63 65	trict.to.removing.messages.conce
4520	72 6e 69 6e 67 0a 46 49 4c 45 2d 4e 41 4d 45 20 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 53 45 53 53 49	rning.FILE-NAME.only...(fn.SESSI
4540	4f 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 46 49 4c 45 2d 4e 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69	ON.&optional.FILE-NAME)..(defali
4560	61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 64 65 6c	as.'haskell-interactive-mode-del
4580	65 74 65 2d 63 6f 6d 70 69 6c 65 2d 6d 65 73 73 61 67 65 73 20 23 5b 35 31 33 20 22 72 5c 33 30	ete-compile-messages.#[513."r\30
45a0	32 02 21 71 5c 32 31 30 5c 32 31 32 65 62 5c 32 31 30 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33	2.!q\210\212eb\210\303\304\305\3
45c0	30 36 5c 33 30 37 24 5c 32 30 33 20 00 5c 33 30 36 18 5c 33 31 30 20 5c 33 31 31 20 54 7c 5c 32	06\307$\203..\306.\310.\311.T|\2
45e0	31 30 29 65 62 5c 32 31 30 5c 33 31 32 09 5c 33 30 35 5c 33 30 36 23 5c 32 30 35 52 00 5c 33 31	10)eb\210\312.\305\306#\205R.\31
4600	33 5c 33 30 37 21 5c 33 31 30 20 5c 33 30 35 79 5c 32 31 30 5c 33 31 34 5c 33 31 35 21 5c 32 30	3\307!\310.\305y\210\314\315!\20
4620	34 2d 00 02 5c 32 30 33 40 00 02 02 5c 32 33 30 5c 32 30 33 4d 00 5c 33 30 36 18 5c 33 31 36 01	4-..\203@...\230\203M.\306.\316.
4640	60 5c 33 30 35 23 5c 32 31 30 29 5c 32 31 31 60 7c 5c 32 31 30 5c 32 36 36 02 5c 32 30 32 20 00	`\305#\210)\211`|\210\266.\202..
4660	2a 5c 32 30 37 22 20 5b 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 68 61 73 6b 65 6c	*\207".[inhibit-read-only.haskel
4680	6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 65 72 72 6f 72 2d 72 65 67 65 78 70 20	l-interactive-mode-error-regexp.
46a0	68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75 66 66	haskell-session-interactive-buff
46c0	65 72 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 2d 72 65 67 65 78 70 20 22 5e 43 6f 6d 70 69	er.search-forward-regexp."^Compi
46e0	6c 61 74 69 6f 6e 20 66 61 69 6c 65 64 2e 24 22 20 6e 69 6c 20 74 20 31 20 6c 69 6e 65 2d 62 65	lation.failed.$".nil.t.1.line-be
4700	67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69	ginning-position.line-end-positi
4720	6f 6e 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6d 61 74 63 68 2d 73 74 72 69 6e	on.re-search-forward.match-strin
4740	67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 5b 20 5d	g-no-properties.looking-at."^[.]
4760	2b 22 20 73 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 5d 20 38 20 28 23 24 20 2e 20	+".set-text-properties].8.(#$...
4780	31 37 35 39 36 29 5d 29 0a 23 40 34 38 20 52 65 73 65 74 20 74 68 65 20 65 72 72 6f 72 20 63 75	17596)]).#@48.Reset.the.error.cu
47a0	72 73 6f 72 20 70 6f 73 69 74 69 6f 6e 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 29 1f 0a 28 64	rsor.position...(fn.SESSION)..(d
47c0	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64	efalias.'haskell-interactive-mod
47e0	65 2d 72 65 73 65 74 2d 65 72 72 6f 72 20 23 5b 32 35 37 20 22 72 5c 33 30 30 01 21 71 5c 32 31	e-reset-error.#[257."r\300.!q\21
4800	30 5c 33 30 31 20 5c 32 31 30 5c 33 30 32 20 5c 33 30 33 02 5c 33 30 34 5c 33 30 35 23 5c 32 31	0\301.\210\302.\303.\304\305#\21
4820	30 5c 33 30 33 02 5c 33 30 36 03 5c 33 30 37 05 5c 33 31 30 5c 22 42 23 5c 32 36 36 02 64 62 29	0\303.\306.\307.\310\"B#\266.db)
4840	5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69	\207".[haskell-session-interacti
4860	76 65 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f	ve-buffer.haskell-interactive-mo
4880	64 65 2d 67 6f 74 6f 2d 65 6e 64 2d 70 6f 69 6e 74 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 20 68	de-goto-end-point.point-marker.h
48a0	61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 20 6e 65 78 74 2d 65 72 72 6f 72 2d 6c 6f	askell-session-set.next-error-lo
48c0	63 75 73 20 6e 69 6c 20 6e 65 78 74 2d 65 72 72 6f 72 2d 72 65 67 69 6f 6e 20 63 6f 70 79 2d 6d	cus.nil.next-error-region.copy-m
48e0	61 72 6b 65 72 20 74 5d 20 39 20 28 23 24 20 2e 20 31 38 33 31 38 29 20 6e 69 6c 5d 29 0a 23 40	arker.t].9.(#$...18318).nil]).#@
4900	34 35 20 47 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 69 6e 74 65 72 61 63 74 69 76 65 20 62	45.Get.the.session.interactive.b
4920	75 66 66 65 72 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65	uffer...(fn.S)..(defalias.'haske
4940	6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75 66 66 65 72 20 23 5b	ll-session-interactive-buffer.#[
4960	32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 31 31 5c 32 30 33 12 00 5c 33 30 32 01 21	257."\300.\301\"\211\203..\302.!
4980	5c 32 30 33 12 00 5c 32 31 31 5c 32 30 32 4c 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 04 21 5c 22	\203..\211\202L.\303\304\305.!\"
49a0	5c 33 30 36 5c 33 30 37 02 21 5c 32 30 33 30 00 5c 33 30 33 5c 33 31 30 5c 33 30 35 06 06 21 03	\306\307.!\2030.\303\310\305..!.
49c0	23 5c 32 36 32 02 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 19 00 5c 33 31 31 02 21 5c 33 31 32	#\262.\211T\262.\202..\311.!\312
49e0	05 02 5c 22 5c 32 31 30 72 5c 32 31 31 71 5c 32 31 30 5c 33 31 33 20 5c 32 31 30 5c 33 31 34 05	..\"\210r\211q\210\313.\210\314.
4a00	21 5c 32 31 30 29 5c 33 31 35 20 5c 32 31 30 5c 32 31 31 5c 32 36 32 01 5c 32 36 36 5c 32 30 32	!\210)\315.\210\211\262.\266\202
4a20	5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 67 65 74 20 69 6e 74 65 72	\207".[haskell-session-get.inter
4a40	61 63 74 69 76 65 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 66 6f 72 6d	active-buffer.buffer-live-p.form
4a60	61 74 20 22 2a 25 73 2a 22 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 30	at."*%s*".haskell-session-name.0
4a80	20 67 65 74 2d 62 75 66 66 65 72 20 22 2a 25 73 20 3c 25 64 3e 2a 22 20 67 65 74 2d 62 75 66 66	.get-buffer."*%s.<%d>*".get-buff
4aa0	65 72 2d 63 72 65 61 74 65 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 2d 69 6e	er-create.haskell-session-set-in
4ac0	74 65 72 61 63 74 69 76 65 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63	teractive-buffer.haskell-interac
4ae0	74 69 76 65 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 61 73 73 69 67 6e	tive-mode.haskell-session-assign
4b00	20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 73 77 69 74 63 68 5d 20 38 20 28	.haskell-interactive-switch].8.(
4b20	23 24 20 2e 20 31 38 36 39 31 29 5d 29 0a 23 40 34 34 20 47 65 74 20 74 68 65 20 69 6e 74 65 72	#$...18691)]).#@44.Get.the.inter
4b40	61 63 74 69 76 65 20 62 75 66 66 65 72 20 6f 66 20 74 68 65 20 73 65 73 73 69 6f 6e 2e 1f 0a 28	active.buffer.of.the.session...(
4b60	64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75	defalias.'haskell-interactive-bu
4b80	66 66 65 72 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 20 21 5c 32 30 37 22 20 5b 68 61 73 6b 65	ffer.#[0."\300\301.!\207".[haske
4ba0	6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75 66 66 65 72 20 68 61	ll-session-interactive-buffer.ha
4bc0	73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 5d 20 32 20 28 23 24 20 2e 20 31 39 32 35 31 29 5d 29 0a	skell-session].2.(#$...19251)]).
4be0	23 40 35 37 20 44 6f 20 6c 69 76 65 20 75 70 64 61 74 65 73 20 66 6f 72 20 43 61 62 61 6c 20 70	#@57.Do.live.updates.for.Cabal.p
4c00	72 6f 63 65 73 73 65 73 2e 0a 0a 28 66 6e 20 53 54 41 54 45 20 42 55 46 46 45 52 29 1f 0a 28 64	rocesses...(fn.STATE.BUFFER)..(d
4c20	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 63 61 62 61 6c 2d 6c	efalias.'haskell-process-cabal-l
4c40	69 76 65 20 23 5b 35 31 34 20 22 5c 33 30 31 5c 33 30 32 03 41 40 21 5c 33 30 33 08 5c 33 30 34	ive.#[514."\301\302.A@!\303.\304
4c60	05 06 07 41 41 41 40 5c 33 30 35 4f 23 5c 22 5c 32 31 30 01 41 41 5c 32 31 31 02 47 43 5c 32 34	...AAA@\305O#\"\210.AA\211.GC\24
4c80	31 5c 32 36 36 02 5c 33 30 35 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73	1\266.\305\207".[haskell-process
4ca0	2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76	-prompt-regex.haskell-interactiv
4cc0	65 2d 6d 6f 64 65 2d 69 6e 73 65 72 74 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65	e-mode-insert.haskell-process-se
4ce0	73 73 69 6f 6e 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22	ssion.replace-regexp-in-string."
4d00	22 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 31 39 34 32 39 29 5d 29 0a 23 40 36 36 20 50 61	".nil].10.(#$...19429)]).#@66.Pa
4d20	72 73 65 20 74 68 65 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 66 72 6f 6d 20 74 68 65 20 65 72 72	rse.the.line.number.from.the.err
4d40	6f 72 20 73 74 72 69 6e 67 20 53 54 52 49 4e 47 2e 0a 0a 28 66 6e 20 53 54 52 49 4e 47 29 1f 0a	or.string.STRING...(fn.STRING)..
4d60	28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 61 72 73 65	(defalias.'haskell-process-parse
4d80	2d 65 72 72 6f 72 20 23 5b 32 35 37 20 22 5c 33 30 31 08 5c 33 30 31 01 3a 5c 32 30 33 55 00 01	-error.#[257."\301.\301.:\203U..
4da0	40 5c 32 36 32 01 5c 33 30 32 01 40 05 5c 22 5c 32 30 33 4e 00 5c 33 30 33 5c 33 30 34 5c 33 30	@\262.\302.@.\"\203N.\303\304\30
4dc0	35 06 06 5c 22 5c 33 30 36 5c 33 30 37 5c 33 30 34 5c 33 31 30 06 09 5c 22 21 5c 33 31 31 5c 33	5..\"\306\307\304\310..\"!\311\3
4de0	30 37 5c 33 30 34 5c 33 31 32 06 0b 5c 22 21 5c 33 31 33 5c 33 30 34 5c 33 31 34 06 5c 66 5c 22	07\304\312..\"!\313\304\314.\f\"
4e00	5c 32 30 35 3a 00 5c 33 30 37 5c 33 30 34 5c 33 31 34 06 0d 5c 22 21 5c 33 31 35 5c 33 30 34 5c	\205:.\307\304\314..\"!\315\304\
4e20	33 31 36 06 0e 5c 22 5c 32 30 35 4a 00 5c 33 30 37 5c 33 30 34 5c 33 31 36 06 0f 5c 22 21 5c 32	316..\"\205J.\307\304\316..\"!\2
4e40	35 37 5c 6e 5c 32 36 32 03 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c	57\n\262..A\262.\202..\266.\211\
4e60	32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d	207".[haskell-compilation-error-
4e80	72 65 67 65 78 70 2d 61 6c 69 73 74 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 3a 66	regexp-alist.nil.string-match.:f
4ea0	69 6c 65 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 3a 6c 69 6e 65 20 73 74 72 69 6e 67 2d	ile.match-string.1.:line.string-
4ec0	74 6f 2d 6e 75 6d 62 65 72 20 32 20 3a 63 6f 6c 20 34 20 3a 6c 69 6e 65 32 20 33 20 3a 63 6f 6c	to-number.2.:col.4.:line2.3.:col
4ee0	32 20 35 5d 20 31 37 20 28 23 24 20 2e 20 31 39 37 34 32 29 5d 29 0a 23 40 31 34 31 20 41 64 64	2.5].17.(#$...19742)]).#@141.Add
4f00	20 74 68 65 20 28 6d 61 74 63 68 65 64 29 20 6d 6f 64 75 6c 65 20 74 6f 20 79 6f 75 72 20 63 61	.the.(matched).module.to.your.ca
4f20	62 61 6c 20 66 69 6c 65 2e 0a 43 61 62 61 6c 20 66 69 6c 65 20 69 73 20 73 65 6c 65 63 74 65 64	bal.file..Cabal.file.is.selected
4f40	20 75 73 69 6e 67 20 53 45 53 53 49 4f 4e 27 73 20 6e 61 6d 65 2c 20 6d 6f 64 75 6c 65 20 6d 61	.using.SESSION's.name,.module.ma
4f60	74 63 68 69 6e 67 20 69 73 20 64 6f 6e 65 20 69 6e 20 4d 53 47 2e 0a 0a 28 66 6e 20 53 45 53 53	tching.is.done.in.MSG...(fn.SESS
4f80	49 4f 4e 20 4d 53 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f	ION.MSG)..(defalias.'haskell-pro
4fa0	63 65 73 73 2d 73 75 67 67 65 73 74 2d 61 64 64 2d 70 61 63 6b 61 67 65 20 23 5b 35 31 34 20 22	cess-suggest-add-package.#[514."
4fc0	5c 33 30 30 5c 33 30 31 02 5c 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 23 5c 33 30 35 5c 33 30	\300\301.\"\302\303\304.#\305\30
4fe0	36 03 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 31 03 5c 22 5c 33 30 37 05 21 5c 33 31 30 50 5c 33	6.\"\210\300\301.\"\307.!\310P\3
5000	31 31 20 5c 32 31 30 5c 33 31 32 5c 32 31 36 5c 33 31 33 5c 33 31 34 5c 33 31 35 05 04 23 21 5c	11.\210\312\216\313\314\315..#!\
5020	32 30 35 41 00 5c 33 31 36 03 03 5c 33 31 37 5c 33 32 30 24 5c 32 31 30 5c 33 31 33 5c 33 31 34	205A.\316..\317\320$\210\313\314
5040	5c 33 32 31 05 5c 22 21 5c 32 30 35 41 00 5c 33 32 32 5c 33 32 33 06 07 21 5c 33 31 34 5c 33 32	\321.\"!\205A.\322\323..!\314\32
5060	34 06 06 5c 22 5c 22 29 5c 32 30 37 22 20 5b 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 72 65	4..\"\")\207".[match-string.1.re
5080	70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 2d 5b 5e 2d 5d 2b 24 22	place-regexp-in-string."-[^-]+$"
50a0	20 22 22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 28 5b 5e 2d 5d 2b 5c 5c 29 24 22 20	."".string-match."\\([^-]+\\)$".
50c0	68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 22 2e 63 61 62 61 6c 22 20 68 61	haskell-session-name.".cabal".ha
50e0	73 6b 65 6c 6c 2d 6d 6f 64 65 2d 74 6f 67 67 6c 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72	skell-mode-toggle-interactive-pr
5100	6f 6d 70 74 2d 73 74 61 74 65 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 37 22 20 5b	ompt-state.#[0."\300\301!\207".[
5120	68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 74 6f 67 67 6c 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d	haskell-mode-toggle-interactive-
5140	70 72 6f 6d 70 74 2d 73 74 61 74 65 20 74 5d 20 32 5d 20 79 2d 6f 72 2d 6e 2d 70 20 66 6f 72 6d	prompt-state.t].2].y-or-n-p.form
5160	61 74 20 22 41 64 64 20 60 25 73 27 20 74 6f 20 25 73 3f 22 20 68 61 73 6b 65 6c 6c 2d 63 61 62	at."Add.`%s'.to.%s?".haskell-cab
5180	61 6c 2d 61 64 64 2d 64 65 70 65 6e 64 65 6e 63 79 20 6e 69 6c 20 74 20 22 45 6e 61 62 6c 65 20	al-add-dependency.nil.t."Enable.
51a0	2d 70 61 63 6b 61 67 65 20 25 73 20 69 6e 20 74 68 65 20 47 48 43 69 20 73 65 73 73 69 6f 6e 3f	-package.%s.in.the.GHCi.session?
51c0	22 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 71 75 65 75 65 2d 77 69 74 68 6f 75 74 2d	".haskell-process-queue-without-
51e0	66 69 6c 74 65 72 73 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 70 72 6f 63 65 73 73 20	filters.haskell-session-process.
5200	22 3a 73 65 74 20 2d 70 61 63 6b 61 67 65 20 25 73 22 5d 20 31 31 20 28 23 24 20 2e 20 32 30 32	":set.-package.%s"].11.(#$...202
5220	32 31 29 5d 29 0a 23 40 32 30 38 20 53 75 67 67 65 73 74 20 72 65 6d 6f 76 69 6e 67 20 6f 72 20	21)]).#@208.Suggest.removing.or.
5240	63 6f 6d 6d 65 6e 74 69 6e 67 20 6f 75 74 20 69 6d 70 6f 72 74 20 73 74 61 74 65 6d 65 6e 74 2e	commenting.out.import.statement.
5260	0a 41 73 6b 73 20 75 73 65 72 20 74 6f 20 68 61 6e 64 6c 65 20 72 65 64 75 6e 64 61 6e 74 20 69	.Asks.user.to.handle.redundant.i
5280	6d 70 6f 72 74 20 73 74 61 74 65 6d 65 6e 74 20 75 73 69 6e 67 20 69 6e 74 65 72 61 63 74 69 76	mport.statement.using.interactiv
52a0	65 0a 53 45 53 53 49 4f 4e 20 69 6e 20 73 70 65 63 69 66 69 65 64 20 46 49 4c 45 20 74 6f 20 72	e.SESSION.in.specified.FILE.to.r
52c0	65 6d 6f 76 65 20 49 4d 50 4f 52 54 20 6f 6e 20 67 69 76 65 6e 20 4c 49 4e 45 2e 0a 0a 28 66 6e	emove.IMPORT.on.given.LINE...(fn
52e0	20 53 45 53 53 49 4f 4e 20 46 49 4c 45 20 49 4d 50 4f 52 54 20 4c 49 4e 45 29 1f 0a 28 64 65 66	.SESSION.FILE.IMPORT.LINE)..(def
5300	61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 75 67 67 65 73 74 2d 72	alias.'haskell-process-suggest-r
5320	65 6d 6f 76 65 2d 69 6d 70 6f 72 74 20 23 5b 31 30 32 38 20 22 5c 33 30 30 5c 33 30 31 20 5c 32	emove-import.#[1028."\300\301.\2
5340	31 30 5c 33 30 32 5c 32 31 36 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 04 5c 32 30 34 12	10\302\216\303\304\305\306.\204.
5360	00 5c 33 30 37 5c 32 30 32 13 00 5c 33 31 30 06 07 23 5c 33 31 31 5c 33 31 32 23 21 5c 33 31 33	.\307\202..\310..#\311\312#!\313
5380	01 5c 33 31 34 5c 22 5c 32 30 33 3d 00 5c 33 31 35 06 06 06 06 5c 22 5c 32 31 30 5c 32 31 32 65	.\314\"\203=.\315....\"\210\212e
53a0	62 5c 32 31 30 02 53 79 5c 32 31 30 5c 33 31 36 20 62 5c 32 31 30 5c 33 31 36 20 5c 33 31 37 20	b\210.Sy\210\316.b\210\316.\317.
53c0	7c 29 5c 32 30 32 68 00 5c 33 31 33 01 5c 33 32 30 5c 22 5c 32 30 33 4b 00 5c 33 32 31 5c 33 32	|)\202h.\313.\320\"\203K.\321\32
53e0	32 05 5c 22 5c 32 30 32 68 00 5c 33 31 33 01 5c 33 32 33 5c 22 5c 32 30 35 68 00 5c 33 31 35 06	2.\"\202h.\313.\323\"\205h.\315.
5400	06 06 06 5c 22 5c 32 31 30 5c 32 31 32 65 62 5c 32 31 30 02 53 79 5c 32 31 30 5c 33 31 36 20 62	...\"\210\212eb\210.Sy\210\316.b
5420	5c 32 31 30 5c 33 32 34 63 29 5c 32 36 32 01 29 5c 32 30 37 22 20 5b 74 20 68 61 73 6b 65 6c 6c	\210\324c)\262.)\207".[t.haskell
5440	2d 6d 6f 64 65 2d 74 6f 67 67 6c 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74 2d	-mode-toggle-interactive-prompt-
5460	73 74 61 74 65 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 37 22 20 5b 68 61 73 6b 65	state.#[0."\300\301!\207".[haske
5480	6c 6c 2d 6d 6f 64 65 2d 74 6f 67 67 6c 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70	ll-mode-toggle-interactive-promp
54a0	74 2d 73 74 61 74 65 20 74 5d 20 32 5d 20 72 65 61 64 2d 65 76 65 6e 74 20 70 72 6f 70 65 72 74	t-state.t].2].read-event.propert
54c0	69 7a 65 20 66 6f 72 6d 61 74 20 22 25 73 54 68 65 20 69 6d 70 6f 72 74 20 6c 69 6e 65 20 60 25	ize.format."%sThe.import.line.`%
54e0	73 27 20 69 73 20 72 65 64 75 6e 64 61 6e 74 2e 20 52 65 6d 6f 76 65 3f 20 28 79 2c 20 6e 2c 20	s'.is.redundant..Remove?.(y,.n,.
5500	63 3a 20 63 6f 6d 6d 65 6e 74 20 6f 75 74 29 20 20 22 20 22 50 6c 65 61 73 65 20 61 6e 73 77 65	c:.comment.out).."."Please.answe
5520	72 20 6e 2c 20 79 20 6f 72 20 63 3a 20 22 20 22 22 20 66 61 63 65 20 6d 69 6e 69 62 75 66 66 65	r.n,.y.or.c:."."".face.minibuffe
5540	72 2d 70 72 6f 6d 70 74 20 65 71 6c 20 31 32 31 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73	r-prompt.eql.121.haskell-process
5560	2d 66 69 6e 64 2d 66 69 6c 65 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69	-find-file.line-beginning-positi
5580	6f 6e 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 31 31 30 20 6d 65 73 73 61 67 65	on.line-end-position.110.message
55a0	20 22 49 67 6e 6f 72 69 6e 67 20 72 65 64 75 6e 64 61 6e 74 20 69 6d 70 6f 72 74 20 25 73 22 20	."Ignoring.redundant.import.%s".
55c0	39 39 20 22 2d 2d 20 22 5d 20 31 31 20 28 23 24 20 2e 20 32 31 30 33 36 29 5d 29 0a 23 40 35 36	99."--."].11.(#$...21036)]).#@56
55e0	20 46 69 6e 64 20 74 68 65 20 67 69 76 65 6e 20 66 69 6c 65 20 69 6e 20 74 68 65 20 70 72 6f 6a	.Find.the.given.file.in.the.proj
5600	65 63 74 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 46 49 4c 45 29 1f 0a 28 64 65 66 61 6c 69	ect...(fn.SESSION.FILE)..(defali
5620	61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 66 69 6e 64 2d 66 69 6c 65 20 23 5b	as.'haskell-process-find-file.#[
5640	35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 21 5c 33 30 33 04 51 21 5c 32 30 33 15 00	514."\300\301\302.!\303.Q!\203..
5660	5c 33 30 32 03 21 5c 33 30 33 03 51 5c 32 30 32 2a 00 5c 33 30 31 5c 33 30 34 04 21 5c 33 30 33	\302.!\303.Q\202*.\301\304.!\303
5680	04 51 21 5c 32 30 33 29 00 5c 33 30 34 03 21 5c 33 30 33 03 51 5c 32 30 32 2a 00 01 21 5c 32 30	.Q!\203).\304.!\303.Q\202*..!\20
56a0	37 22 20 5b 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 68 61 73 6b	7".[find-file.file-exists-p.hask
56c0	65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 63 75 72 72 65 6e 74 2d 64 69 72 20 22 2f 22 20 68 61 73 6b	ell-session-current-dir."/".hask
56e0	65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 63 61 62 61 6c 2d 64 69 72 5d 20 37 20 28 23 24 20 2e 20 32	ell-session-cabal-dir].7.(#$...2
5700	31 39 38 35 29 5d 29 0a 23 40 32 30 31 20 53 75 67 67 65 73 74 20 74 6f 20 61 64 64 20 73 6f 6d	1985)]).#@201.Suggest.to.add.som
5720	65 74 68 69 6e 67 20 74 6f 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 0a 53	ething.to.the.top.of.the.file..S
5740	45 53 53 49 4f 4e 20 69 73 20 75 73 65 64 20 74 6f 20 73 65 61 72 63 68 20 67 69 76 65 6e 20 66	ESSION.is.used.to.search.given.f
5760	69 6c 65 2e 20 20 41 64 64 73 20 50 52 41 47 4d 41 20 61 6e 64 20 45 58 54 45 4e 53 49 4f 4e 0a	ile...Adds.PRAGMA.and.EXTENSION.
5780	77 72 61 70 70 65 64 20 69 6e 20 63 6f 6d 70 69 6c 65 72 20 64 69 72 65 63 74 69 76 65 20 61 74	wrapped.in.compiler.directive.at
57a0	20 74 68 65 20 74 6f 70 20 6f 66 20 46 49 4c 45 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 50	.the.top.of.FILE...(fn.SESSION.P
57c0	52 41 47 4d 41 20 45 58 54 45 4e 53 49 4f 4e 20 46 49 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73	RAGMA.EXTENSION.FILE)..(defalias
57e0	20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 75 67 67 65 73 74 2d 70 72 61 67 6d 61	.'haskell-process-suggest-pragma
5800	20 23 5b 31 30 32 38 20 22 5c 33 30 30 5c 33 30 31 04 04 23 5c 33 30 32 20 5c 32 31 30 5c 33 30	.#[1028."\300\301..#\302.\210\30
5820	33 5c 32 31 36 5c 33 30 34 5c 33 30 30 5c 33 30 35 03 5c 22 21 5c 32 30 35 21 00 5c 33 30 36 05	3\216\304\300\305.\"!\205!.\306.
5840	03 5c 22 5c 32 31 30 5c 32 31 32 65 62 5c 32 31 30 5c 32 31 31 5c 33 30 37 50 63 29 29 5c 32 30	.\"\210\212eb\210\211\307Pc))\20
5860	37 22 20 5b 66 6f 72 6d 61 74 20 22 7b 2d 23 20 25 73 20 25 73 20 23 2d 7d 22 20 68 61 73 6b 65	7".[format."{-#.%s.%s.#-}".haske
5880	6c 6c 2d 6d 6f 64 65 2d 74 6f 67 67 6c 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70	ll-mode-toggle-interactive-promp
58a0	74 2d 73 74 61 74 65 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 37 22 20 5b 68 61 73	t-state.#[0."\300\301!\207".[has
58c0	6b 65 6c 6c 2d 6d 6f 64 65 2d 74 6f 67 67 6c 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f	kell-mode-toggle-interactive-pro
58e0	6d 70 74 2d 73 74 61 74 65 20 74 5d 20 32 5d 20 79 2d 6f 72 2d 6e 2d 70 20 22 41 64 64 20 25 73	mpt-state.t].2].y-or-n-p."Add.%s
5900	20 74 6f 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 20 66 69 6c 65 3f 20 22 20 68 61 73 6b 65	.to.the.top.of.the.file?.".haske
5920	6c 6c 2d 70 72 6f 63 65 73 73 2d 66 69 6e 64 2d 66 69 6c 65 20 22 5c 6e 22 5d 20 39 20 28 23 24	ll-process-find-file."\n"].9.(#$
5940	20 2e 20 32 32 32 38 36 29 5d 29 0a 23 40 34 31 20 49 6e 73 65 72 74 20 61 6e 20 65 72 72 6f 72	...22286)]).#@41.Insert.an.error
5960	20 6d 65 73 73 61 67 65 2e 0a 0a 28 66 6e 20 52 45 53 50 4f 4e 53 45 29 1f 0a 28 64 65 66 61 6c	.message...(fn.RESPONSE)..(defal
5980	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 69 6e	ias.'haskell-interactive-mode-in
59a0	73 65 72 74 2d 65 72 72 6f 72 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 33 30 32 5c	sert-error.#[257."\300\301.\302\
59c0	22 5c 32 36 31 02 5c 32 31 30 5c 33 30 33 20 5c 32 30 37 22 20 5b 22 5c 6e 22 20 68 61 73 6b 65	"\261.\210\303.\207".["\n".haske
59e0	6c 6c 2d 66 6f 6e 74 69 66 79 2d 61 73 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 20	ll-fontify-as-mode.haskell-mode.
5a00	68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 5d	haskell-interactive-mode-prompt]
5a20	20 35 20 28 23 24 20 2e 20 32 32 38 36 35 29 5d 29 0a 23 40 33 32 20 50 6f 70 75 70 20 61 6e 20	.5.(#$...22865)]).#@32.Popup.an.
5a40	65 72 72 6f 72 2e 0a 0a 28 66 6e 20 52 45 53 50 4f 4e 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73	error...(fn.RESPONSE)..(defalias
5a60	20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 6f 70 75 70 2d 65 72 72 6f	.'haskell-interactive-popup-erro
5a80	72 20 23 5b 32 35 37 20 22 08 5c 32 30 33 39 00 5c 33 30 32 5c 33 30 33 21 5c 33 30 34 01 5c 33	r.#[257.".\2039.\302\303!\304.\3
5aa0	30 35 5c 33 30 36 23 5c 32 31 30 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 37 20 5c 32 31 30 5c 33	05\306#\210r\211q\210\307.\210\3
5ac0	30 36 19 5c 33 31 30 20 5c 32 31 30 5c 33 31 31 02 5c 33 31 32 5c 33 31 33 23 63 5c 32 31 30 65	06.\310.\210\311.\312\313#c\210e
5ae0	62 5c 32 31 30 5c 33 31 34 20 5c 32 31 30 5c 33 31 31 5c 33 31 35 5c 33 31 32 5c 33 31 36 23 63	b\210\314.\210\311\315\312\316#c
5b00	5c 32 31 30 5c 32 31 32 64 62 5c 32 31 30 5c 33 31 31 5c 33 31 37 5c 33 31 32 5c 33 31 36 23 63	\210\212db\210\311\317\312\316#c
5b20	2b 5c 32 30 37 5c 33 32 30 01 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	+\207\320.!\207".[haskell-intera
5b40	63 74 69 76 65 2d 70 6f 70 75 70 2d 65 72 72 6f 72 73 20 69 6e 68 69 62 69 74 2d 72 65 61 64 2d	ctive-popup-errors.inhibit-read-
5b60	6f 6e 6c 79 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 48 53 2d 45 72 72 6f	only.get-buffer-create."*HS-Erro
5b80	72 2a 22 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 6e 69 6c 20 74 20 68 61 73 6b 65 6c 6c 2d	r*".pop-to-buffer.nil.t.haskell-
5ba0	65 72 72 6f 72 2d 6d 6f 64 65 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 70 72 6f 70 65 72 74 69	error-mode.erase-buffer.properti
5bc0	7a 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	ze.font-lock-face.haskell-intera
5be0	63 74 69 76 65 2d 66 61 63 65 2d 63 6f 6d 70 69 6c 65 2d 65 72 72 6f 72 20 64 65 6c 65 74 65 2d	ctive-face-compile-error.delete-
5c00	62 6c 61 6e 6b 2d 6c 69 6e 65 73 20 22 2d 2d 20 48 69 74 20 60 71 27 20 74 6f 20 63 6c 6f 73 65	blank-lines."--.Hit.`q'.to.close
5c20	20 74 68 69 73 20 77 69 6e 64 6f 77 2e 5c 6e 5c 6e 22 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d	.this.window.\n\n".font-lock-com
5c40	6d 65 6e 74 2d 66 61 63 65 20 22 5c 6e 2d 2d 20 54 6f 20 64 69 73 61 62 6c 65 20 70 6f 70 75 70	ment-face."\n--.To.disable.popup
5c60	73 2c 20 63 75 73 74 6f 6d 69 7a 65 20 60 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76	s,.customize.`haskell-interactiv
5c80	65 2d 70 6f 70 75 70 2d 65 72 72 6f 72 73 27 2e 5c 6e 5c 6e 22 20 68 61 73 6b 65 6c 6c 2d 69 6e	e-popup-errors'.\n\n".haskell-in
5ca0	74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 69 6e 73 65 72 74 2d 65 72 72 6f 72 5d 20 36 20 28	teractive-mode-insert-error].6.(
5cc0	23 24 20 2e 20 32 33 30 39 35 29 5d 29 0a 23 40 37 33 20 53 65 65 20 60 6e 65 78 74 2d 65 72 72	#$...23095)]).#@73.See.`next-err
5ce0	6f 72 2d 66 75 6e 63 74 69 6f 6e 27 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f	or-function'.for.more.informatio
5d00	6e 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 4e 20 52 45 53 45 54 29 1f 0a 28 64 65 66	n...(fn.&optional.N.RESET)..(def
5d20	61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6e 65 78 74 2d	alias.'haskell-interactive-next-
5d40	65 72 72 6f 72 2d 66 75 6e 63 74 69 6f 6e 20 23 5b 35 31 32 20 22 5c 33 30 31 20 5c 33 30 32 01	error-function.#[512."\301.\302.
5d60	5c 33 30 33 5c 22 5c 33 30 32 02 5c 33 30 34 5c 22 5c 33 30 35 02 5c 32 30 33 37 00 04 5c 32 30	\303\"\302.\304\"\305.\2037..\20
5d80	34 1d 00 05 5c 33 30 36 55 5c 32 30 34 37 00 01 5c 32 30 34 37 00 02 40 62 5c 32 31 30 5c 33 30	4...\306U\2047..\2047..@b\210\30
5da0	37 08 21 5c 32 30 34 2a 00 5c 33 31 30 20 5c 32 31 30 5c 33 31 31 5c 32 36 32 01 5c 33 30 37 08	7.!\204*.\310.\210\311\262.\307.
5dc0	21 5c 32 30 34 37 00 5c 33 31 32 5c 33 31 33 21 5c 32 31 30 5c 32 31 31 5c 32 30 34 61 00 05 5c	!\2047.\312\313!\210\211\204a..\
5de0	33 30 36 56 5c 32 30 33 4f 00 5c 33 31 30 06 06 21 5c 32 30 34 61 00 5c 33 31 32 5c 33 31 34 21	306V\203O.\310..!\204a.\312\314!
5e00	5c 32 31 30 5c 32 30 32 61 00 05 5c 33 30 36 57 5c 32 30 33 61 00 5c 33 31 35 06 06 5b 21 5c 32	\210\202a..\306W\203a.\315..[!\2
5e20	30 34 61 00 5c 33 31 32 5c 33 31 34 21 5c 32 31 30 5c 33 31 36 5c 33 31 37 20 5c 33 32 30 20 5c	04a.\312\314!\210\316\317.\320.\
5e40	22 5c 33 32 31 08 02 5c 22 5c 32 30 35 5c 33 36 34 00 5c 33 32 32 20 5c 33 31 37 20 5c 33 30 35	"\321..\"\205\364.\322.\317.\305
5e60	5c 32 32 33 5c 33 32 33 02 21 5c 33 32 34 01 5c 33 32 35 5c 22 5c 33 32 34 02 5c 33 32 36 5c 22	\223\323.!\324.\325\"\324.\326\"
5e80	5c 33 32 34 03 5c 33 32 37 5c 22 5c 33 32 34 04 5c 33 33 30 5c 22 5c 33 33 31 04 5c 33 33 32 06	\324.\327\"\324.\330\"\331.\332.
5ea0	0d 21 5c 22 5c 33 33 31 05 5c 33 33 33 06 0e 21 5c 22 5c 33 33 34 02 21 5c 32 30 33 5c 32 33 37	.!\"\331.\333..!\"\334.!\203\237
5ec0	00 01 5c 32 30 32 5c 32 34 36 00 5c 33 33 34 01 21 5c 32 30 35 5c 32 34 36 00 5c 32 31 31 5c 33	..\202\246.\334.!\205\246.\211\3
5ee0	33 35 06 0e 5c 33 30 34 06 0b 23 5c 32 31 30 5c 32 31 31 5c 32 30 33 5c 33 35 35 00 5c 33 32 32	35..\304..#\210\211\203\355.\322
5f00	20 5c 33 32 32 20 72 5c 33 33 36 03 21 71 5c 32 31 30 5c 32 31 32 65 62 5c 32 31 30 06 07 53 79	.\322.r\336.!q\210\212eb\210..Sy
5f20	5c 32 31 30 01 5c 33 33 37 06 08 60 5c 33 34 30 23 5c 33 30 35 5c 32 32 33 5c 32 31 30 05 5c 32	\210.\337..`\340#\305\223\210.\2
5f40	30 33 5c 33 33 33 00 5c 32 31 31 60 06 07 5a 5c 33 30 35 5c 32 32 33 5c 32 31 30 2a 5c 33 34 31	03\333.\211`..Z\305\223\210*\341
5f60	06 0b 03 5c 33 34 32 04 21 5c 32 30 35 5c 33 34 37 00 03 23 5c 32 36 36 5c 32 30 32 5c 32 30 32	...\342.!\205\347..#\266\202\202
5f80	5c 33 36 32 00 5c 33 31 32 5c 33 34 33 06 08 5c 22 5c 32 36 36 5c 32 31 31 5c 32 36 32 01 5c 32	\362.\312\343..\"\266\211\262.\2
5fa0	30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 65 72	07".[haskell-interactive-mode-er
5fc0	72 6f 72 2d 72 65 67 65 78 70 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 73	ror-regexp.haskell-interactive-s
5fe0	65 73 73 69 6f 6e 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 67 65 74 20 6e 65 78 74 2d	ession.haskell-session-get.next-
6000	65 72 72 6f 72 2d 72 65 67 69 6f 6e 20 6e 65 78 74 2d 65 72 72 6f 72 2d 6c 6f 63 75 73 20 6e 69	error-region.next-error-locus.ni
6020	6c 20 30 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69	l.0.looking-at.haskell-interacti
6040	76 65 2d 6d 6f 64 65 2d 65 72 72 6f 72 2d 66 6f 72 77 61 72 64 20 74 20 65 72 72 6f 72 20 22 6e	ve-mode-error-forward.t.error."n
6060	6f 20 65 72 72 6f 72 73 20 66 6f 75 6e 64 22 20 22 6e 6f 20 6d 6f 72 65 20 65 72 72 6f 72 73 22	o.errors.found"."no.more.errors"
6080	20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 65 72 72 6f 72 2d	.haskell-interactive-mode-error-
60a0	62 61 63 6b 77 61 72 64 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f	backward.buffer-substring-no-pro
60c0	70 65 72 74 69 65 73 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20	perties.line-beginning-position.
60e0	6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6d	line-end-position.string-match.m
6100	61 6b 65 2d 6d 61 72 6b 65 72 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 61 72 73 65	ake-marker.haskell-process-parse
6120	2d 65 72 72 6f 72 20 70 6c 69 73 74 2d 67 65 74 20 3a 66 69 6c 65 20 3a 6c 69 6e 65 20 3a 63 6f	-error.plist-get.:file.:line.:co
6140	6c 20 3a 63 6f 6c 32 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c	l.:col2.expand-file-name.haskell
6160	2d 73 65 73 73 69 6f 6e 2d 63 61 62 61 6c 2d 64 69 72 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69	-session-cabal-dir.haskell-sessi
6180	6f 6e 2d 63 75 72 72 65 6e 74 2d 64 69 72 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 68 61 73	on-current-dir.file-exists-p.has
61a0	6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 20 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c	kell-session-set.find-file-nosel
61c0	65 63 74 20 2b 20 2d 31 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 67 6f 74 6f 2d 6c 6f 63 75 73 20	ect.+.-1.compilation-goto-locus.
61e0	6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 20 22 64 6f 6e 27 74 20 6b 6e 6f 77 20 77 68 65 72	marker-position."don't.know.wher
6200	65 20 74 6f 20 66 69 6e 64 20 25 53 22 5d 20 32 33 20 28 23 24 20 2e 20 32 33 37 36 33 29 5d 29	e.to.find.%S"].23.(#$...23763)])
6220	0a 23 40 36 36 20 47 65 74 20 74 68 65 20 60 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 27 2c	.#@66.Get.the.`haskell-session',
6240	20 74 68 72 6f 77 20 61 6e 20 65 72 72 6f 72 20 69 66 20 69 74 27 73 20 6e 6f 74 20 61 76 61 69	.throw.an.error.if.it's.not.avai
6260	6c 61 62 6c 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72	lable...(defalias.'haskell-inter
6280	61 63 74 69 76 65 2d 73 65 73 73 69 6f 6e 20 23 5b 30 20 22 5c 33 30 30 20 5c 32 30 36 14 00 5c	active-session.#[0."\300.\206..\
62a0	33 30 31 5c 33 30 32 20 5c 32 30 36 13 00 5c 33 30 33 20 5c 32 30 36 13 00 5c 33 30 34 5c 33 30	301\302.\206..\303.\206..\304\30
62c0	35 21 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6d 61 79 62 65 20	5!!\207".[haskell-session-maybe.
62e0	68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 61 73 73 69 67 6e 20 68 61 73 6b 65 6c 6c 2d 73	haskell-session-assign.haskell-s
6300	65 73 73 69 6f 6e 2d 66 72 6f 6d 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69	ession-from-buffer.haskell-sessi
6320	6f 6e 2d 63 68 6f 6f 73 65 20 65 72 72 6f 72 20 22 4e 6f 20 73 65 73 73 69 6f 6e 20 61 73 73 6f	on-choose.error."No.session.asso
6340	63 69 61 74 65 64 20 77 69 74 68 20 74 68 69 73 20 62 75 66 66 65 72 2e 20 54 72 79 20 4d 2d 78	ciated.with.this.buffer..Try.M-x
6360	20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 63 68 61 6e 67 65 20 6f 72 20 72 65 70 6f 72	.haskell-session-change.or.repor
6380	74 20 74 68 69 73 20 61 73 20 61 20 62 75 67 2e 22 5d 20 33 20 28 23 24 20 2e 20 32 35 31 32 36	t.this.as.a.bug."].3.(#$...25126
63a0	29 5d 29 0a 23 40 32 36 20 47 65 74 20 74 68 65 20 48 61 73 6b 65 6c 6c 20 73 65 73 73 69 6f 6e	)]).#@26.Get.the.Haskell.session
63c0	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76	...(defalias.'haskell-interactiv
63e0	65 2d 70 72 6f 63 65 73 73 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 20 21 5c 32 30 36 5c 6e 00	e-process.#[0."\300\301.!\206\n.
6400	5c 33 30 32 5c 33 30 33 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d	\302\303!\207".[haskell-session-
6420	70 72 6f 63 65 73 73 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 73 65 73 73	process.haskell-interactive-sess
6440	69 6f 6e 20 65 72 72 6f 72 20 22 4e 6f 20 48 61 73 6b 65 6c 6c 20 73 65 73 73 69 6f 6e 2f 70 72	ion.error."No.Haskell.session/pr
6460	6f 63 65 73 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 69 73 5c 6e 20 20 20 20	ocess.associated.with.this\n....
6480	20 20 62 75 66 66 65 72 2e 20 4d 61 79 62 65 20 72 75 6e 20 4d 2d 78 20 68 61 73 6b 65 6c 6c 2d	..buffer..Maybe.run.M-x.haskell-
64a0	70 72 6f 63 65 73 73 2d 72 65 73 74 61 72 74 3f 22 5d 20 32 20 28 23 24 20 2e 20 32 35 35 31 33	process-restart?"].2.(#$...25513
64c0	29 5d 29 0a 23 40 31 34 36 20 50 72 65 73 65 6e 74 20 74 68 65 20 67 69 76 65 6e 20 65 78 70 72	)]).#@146.Present.the.given.expr
64e0	65 73 73 69 6f 6e 20 45 58 50 52 2e 0a 52 65 71 75 69 72 65 73 20 74 68 65 20 60 70 72 65 73 65	ession.EXPR..Requires.the.`prese
6500	6e 74 27 20 70 61 63 6b 61 67 65 20 74 6f 20 62 65 20 69 6e 73 74 61 6c 6c 65 64 2e 0a 57 69 6c	nt'.package.to.be.installed..Wil
6520	6c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 69 6d 70 6f 72 74 20 69 74 20 71 75 61 6c 69 66	l.automatically.import.it.qualif
6540	69 65 64 20 61 73 20 50 72 65 73 65 6e 74 2e 0a 0a 28 66 6e 20 45 58 50 52 29 1f 0a 28 64 65 66	ied.as.Present...(fn.EXPR)..(def
6560	61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d	alias.'haskell-interactive-mode-
6580	64 6f 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 20 5c 33 30 31	do-presentation.#[257."\300.\301
65a0	5c 33 30 32 5c 33 30 33 03 5c 33 30 34 5c 22 5c 22 5c 32 30 34 10 00 5c 33 30 35 01 21 5c 32 31	\302\303.\304\"\"\204..\305.!\21
65c0	30 5c 33 30 33 01 5c 33 30 36 04 5c 33 30 37 51 5c 22 5c 32 31 31 5c 33 31 30 5c 32 33 30 5c 32	0\303.\306.\307Q\"\211\310\230\2
65e0	30 34 28 00 5c 33 31 31 5c 33 31 32 20 02 5c 33 31 33 50 5c 22 5c 32 31 30 5c 32 30 32 48 00 5c	04(.\311\312..\313P\"\210\202H.\
6600	33 31 34 20 5c 33 30 33 03 5c 33 31 35 5c 33 31 36 04 06 08 23 5c 22 5c 32 31 30 5c 33 31 37 01	314.\303.\315\316...#\"\210\317.
6620	5c 33 32 30 43 5c 22 5c 33 31 33 63 5c 32 31 30 5c 33 32 31 02 02 5c 22 5c 32 31 30 5c 33 31 31	\320C\"\313c\210\321..\"\210\311
6640	5c 33 31 32 20 5c 33 31 33 5c 22 5c 32 36 36 03 5c 33 32 32 5c 33 31 32 20 21 5c 32 36 32 01 5c	\312.\313\"\266.\322\312.!\262.\
6660	32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 63 65 73	207".[haskell-interactive-proces
6680	73 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 50 72 65 73 65 6e 74 22 20 68 61 73 6b 65 6c	s.string-match."^Present".haskel
66a0	6c 2d 70 72 6f 63 65 73 73 2d 71 75 65 75 65 2d 73 79 6e 63 2d 72 65 71 75 65 73 74 20 22 3a 74	l-process-queue-sync-request.":t
66c0	20 50 72 65 73 65 6e 74 2e 65 6e 63 6f 64 65 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63	.Present.encode".haskell-interac
66e0	74 69 76 65 2d 6d 6f 64 65 2d 73 65 74 75 70 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 22 6c 65	tive-mode-setup-presentation."le
6700	74 20 69 74 20 3d 20 50 72 65 73 65 6e 74 2e 61 73 44 61 74 61 20 28 22 20 22 29 22 20 22 22 20	t.it.=.Present.asData.(".")"."".
6720	68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 65 76 61 6c 2d 72 65	haskell-interactive-mode-eval-re
6740	73 75 6c 74 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 73 65 73 73 69 6f 6e	sult.haskell-interactive-session
6760	20 22 5c 6e 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70	."\n".haskell-interactive-mode-p
6780	72 65 73 65 6e 74 61 74 69 6f 6e 2d 68 61 73 68 20 66 6f 72 6d 61 74 20 22 6c 65 74 20 25 73 20	resentation-hash.format."let.%s.
67a0	3d 20 50 72 65 73 65 6e 74 2e 61 73 44 61 74 61 20 28 25 73 29 22 20 68 61 73 6b 65 6c 6c 2d 69	=.Present.asData.(%s)".haskell-i
67c0	6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 65 73 65 6e 74 2d 69 64 20 30 20 68 61 73	nteractive-mode-present-id.0.has
67e0	6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 69 6e 73 65 72 74 2d 70 72 65	kell-interactive-mode-insert-pre
6800	73 65 6e 74 61 74 69 6f 6e 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f	sentation.haskell-interactive-mo
6820	64 65 2d 70 72 6f 6d 70 74 5d 20 31 30 20 28 23 24 20 2e 20 32 35 38 30 32 29 5d 29 0a 23 40 37	de-prompt].10.(#$...25802)]).#@7
6840	33 20 47 65 6e 65 72 61 74 65 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 74 68	3.Generate.a.presentation.for.th
6860	65 20 63 75 72 72 65 6e 74 20 65 78 70 72 65 73 73 69 6f 6e 20 61 74 20 49 44 2e 0a 0a 28 66 6e	e.current.expression.at.ID...(fn
6880	20 48 41 53 48 20 49 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e	.HASH.ID)..(defalias.'haskell-in
68a0	74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 65 73 65 6e 74 2d 69 64 20 23 5b 35 31 34 20	teractive-mode-present-id.#[514.
68c0	22 5c 33 30 30 20 5c 33 30 31 01 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 33 01 5c 33 30 34 5c 33	"\300.\301.\302\"\210\303.\304\3
68e0	30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 09 5c 22 5c 33 31 32 23 06 07 23 5c 22	05\306\307\310\311..\"\312#..#\"
6900	5c 33 31 33 5c 33 31 34 02 5c 22 5c 32 30 33 23 00 5c 33 31 35 5c 32 30 32 26 00 5c 33 31 36 01	\313\314.\"\203#.\315\202&.\316.
6920	21 5c 33 30 31 03 5c 33 31 37 5c 22 5c 32 31 30 5c 32 36 32 01 5c 32 30 37 22 20 5b 68 61 73 6b	!\301.\317\"\210\262.\207".[hask
6940	65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 63 65 73 73 20 68 61 73 6b 65 6c 6c 2d	ell-interactive-process.haskell-
6960	70 72 6f 63 65 73 73 2d 71 75 65 75 65 2d 77 69 74 68 6f 75 74 2d 66 69 6c 74 65 72 73 20 22 6c	process-queue-without-filters."l
6980	65 74 20 5f 69 74 20 3d 20 69 74 22 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 71 75 65	et._it.=.it".haskell-process-que
69a0	75 65 2d 73 79 6e 63 2d 72 65 71 75 65 73 74 20 66 6f 72 6d 61 74 20 22 50 72 65 73 65 6e 74 2e	ue-sync-request.format."Present.
69c0	70 75 74 53 74 72 20 28 50 72 65 73 65 6e 74 2e 65 6e 63 6f 64 65 20 28 50 72 65 73 65 6e 74 2e	putStr.(Present.encode.(Present.
69e0	66 72 6f 6d 4a 75 73 74 20 28 50 72 65 73 65 6e 74 2e 70 72 65 73 65 6e 74 20 28 50 72 65 73 65	fromJust.(Present.present.(Prese
6a00	6e 74 2e 66 72 6f 6d 4a 75 73 74 20 28 50 72 65 73 65 6e 74 2e 66 72 6f 6d 4c 69 73 74 20 5b 25	nt.fromJust.(Present.fromList.[%
6a20	73 5d 29 29 20 25 73 29 29 29 22 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 6d	s])).%s)))".mapconcat.identity.m
6a40	61 70 63 61 72 20 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 22 2c 22 20 73 74 72 69 6e	apcar.number-to-string.",".strin
6a60	67 2d 6d 61 74 63 68 20 22 5e 2a 2a 2a 20 22 20 28 28 72 65 70 20 6e 69 6c 29 29 20 72 65 61 64	g-match."^***.".((rep.nil)).read
6a80	20 22 6c 65 74 20 69 74 20 3d 20 5f 69 74 22 5d 20 31 32 20 28 23 24 20 2e 20 32 36 36 39 30 29	."let.it.=._it"].12.(#$...26690)
6aa0	5d 29 0a 23 40 38 38 20 54 68 65 20 63 61 6c 6c 62 61 63 6b 20 74 6f 20 65 76 61 6c 75 61 74 65	]).#@88.The.callback.to.evaluate
6ac0	20 74 68 65 20 73 6c 6f 74 20 61 6e 64 20 70 72 65 73 65 6e 74 20 69 74 20 69 6e 20 70 6c 61 63	.the.slot.and.present.it.in.plac
6ae0	65 20 6f 66 20 74 68 65 20 62 75 74 74 6f 6e 20 42 54 4e 2e 0a 0a 28 66 6e 20 42 54 4e 29 1f 0a	e.of.the.button.BTN...(fn.BTN)..
6b00	28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d	(defalias.'haskell-presentation-
6b20	70 72 65 73 65 6e 74 2d 73 6c 6f 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c	present-slot.#[257."\300.\301\"\
6b40	33 30 30 02 5c 33 30 32 5c 22 5c 33 30 30 03 5c 33 30 33 5c 22 5c 33 30 30 04 5c 33 30 34 5c 22	300.\302\"\300.\303\"\300.\304\"
6b60	60 5c 33 30 35 06 06 5c 33 30 36 5c 33 30 37 23 5c 32 31 30 5c 33 31 30 06 06 21 5c 33 31 31 06	`\305..\306\307#\210\310..!\311.
6b80	07 21 7c 5c 32 31 30 5c 33 31 32 04 5c 33 31 33 06 06 06 08 5c 22 05 05 24 5c 32 31 30 60 01 56	.!|\210\312.\313....\"..$\210`.V
6ba0	5c 32 30 35 37 00 5c 32 31 31 54 62 5c 32 36 32 01 5c 32 30 37 22 20 5b 62 75 74 74 6f 6e 2d 67	\2057.\211Tb\262.\207".[button-g
6bc0	65 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 20 68 61 73 68 20 70 61 72 65 6e 74 2d 72	et.presentation-id.hash.parent-r
6be0	65 70 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 62 75 74 74 6f 6e 2d 70 75 74 20 69 6e 76 69 73	ep.continuation.button-put.invis
6c00	69 62 6c 65 20 74 20 62 75 74 74 6f 6e 2d 73 74 61 72 74 20 62 75 74 74 6f 6e 2d 65 6e 64 20 68	ible.t.button-start.button-end.h
6c20	61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 69 6e 73 65 72 74 2d 70	askell-interactive-mode-insert-p
6c40	72 65 73 65 6e 74 61 74 69 6f 6e 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d	resentation.haskell-interactive-
6c60	6d 6f 64 65 2d 70 72 65 73 65 6e 74 2d 69 64 5d 20 31 31 20 28 23 24 20 2e 20 32 37 33 30 34 29	mode-present-id].11.(#$...27304)
6c80	5d 29 0a 23 40 38 39 20 4d 61 6b 65 20 61 20 73 6c 6f 74 20 61 74 20 70 6f 69 6e 74 2c 20 70 6f	]).#@89.Make.a.slot.at.point,.po
6ca0	69 6e 74 69 6e 67 20 74 6f 20 49 44 2e 0a 0a 28 66 6e 20 48 41 53 48 20 53 4c 4f 54 20 50 41 52	inting.to.ID...(fn.HASH.SLOT.PAR
6cc0	45 4e 54 2d 52 45 50 20 26 6f 70 74 69 6f 6e 61 6c 20 43 4f 4e 54 49 4e 55 41 54 49 4f 4e 29 1f	ENT-REP.&optional.CONTINUATION).
6ce0	0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d	.(defalias.'haskell-interactive-
6d00	6d 6f 64 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 6c 6f 74 20 23 5b 31 30 32 37 20 22 02	mode-presentation-slot.#[1027.".
6d20	40 03 41 40 5c 33 30 30 02 21 5c 33 30 31 5c 32 33 35 5c 32 30 33 1d 00 5c 33 30 32 06 06 5c 33	@.A@\300.!\301\235\203..\302..\3
6d40	30 33 06 08 04 5c 22 06 06 06 06 24 5c 32 30 32 24 00 5c 33 30 34 05 05 05 06 09 24 5c 32 30 37	03...\"....$\202$.\304.....$\207
6d60	22 20 5b 69 6e 74 65 72 6e 20 28 49 6e 74 65 67 65 72 20 43 68 61 72 20 49 6e 74 20 46 6c 6f 61	".[intern.(Integer.Char.Int.Floa
6d80	74 20 44 6f 75 62 6c 65 29 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f	t.Double).haskell-interactive-mo
6da0	64 65 2d 69 6e 73 65 72 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 68 61 73 6b 65 6c 6c 2d 69	de-insert-presentation.haskell-i
6dc0	6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 65 73 65 6e 74 2d 69 64 20 68 61 73 6b 65	nteractive-mode-present-id.haske
6de0	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e	ll-interactive-mode-presentation
6e00	2d 73 6c 6f 74 2d 62 75 74 74 6f 6e 5d 20 31 31 20 28 23 24 20 2e 20 32 37 37 38 34 29 5d 29 0a	-slot-button].11.(#$...27784)]).
6e20	28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d	(defalias.'haskell-interactive-m
6e40	6f 64 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 6c 6f 74 2d 62 75 74 74 6f 6e 20 23 5b 31	ode-presentation-slot-button.#[1
6e60	30 32 38 20 22 60 04 40 05 41 40 5c 33 30 30 02 5c 33 30 31 5c 33 30 32 23 63 5c 32 31 30 5c 33	028."`.@.A@\300.\301\302#c\210\3
6e80	30 33 03 60 5c 33 30 34 5c 33 30 35 24 5c 33 30 36 01 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c	03.`\304\305$\306.\307\310#\210\
6ea0	33 30 36 01 5c 33 31 31 04 23 5c 32 31 30 5c 33 30 36 01 5c 33 31 32 06 09 23 5c 32 31 30 5c 33	306.\311.#\210\306.\312..#\210\3
6ec0	30 36 01 5c 33 31 33 06 08 23 5c 32 31 30 5c 33 30 36 01 5c 33 31 34 06 07 23 5c 32 36 32 01 5c	06.\313..#\210\306.\314..#\262.\
6ee0	32 30 37 22 20 5b 70 72 6f 70 65 72 74 69 7a 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 20	207".[propertize.font-lock-face.
6f00	28 3a 68 65 69 67 68 74 20 30 2e 38 20 3a 75 6e 64 65 72 6c 69 6e 65 20 74 20 3a 69 6e 68 65 72	(:height.0.8.:underline.t.:inher
6f20	69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 29 20 6d 61 6b 65 2d	it.font-lock-comment-face).make-
6f40	74 65 78 74 2d 62 75 74 74 6f 6e 20 3a 74 79 70 65 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e	text-button.:type.haskell-presen
6f60	74 61 74 69 6f 6e 2d 73 6c 6f 74 2d 62 75 74 74 6f 6e 20 62 75 74 74 6f 6e 2d 70 75 74 20 68 69	tation-slot-button.button-put.hi
6f80	64 65 2d 6f 6e 2d 63 6c 69 63 6b 20 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 20 70 61	de-on-click.t.presentation-id.pa
6fa0	72 65 6e 74 2d 72 65 70 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 68 61 73 68 5d 20 31 32 20 22	rent-rep.continuation.hash].12."
6fc0	5c 6e 5c 6e 28 66 6e 20 53 4c 4f 54 20 50 41 52 45 4e 54 2d 52 45 50 20 43 4f 4e 54 49 4e 55 41	\n\n(fn.SLOT.PARENT-REP.CONTINUA
6fe0	54 49 4f 4e 20 48 41 53 48 29 22 5d 29 0a 23 40 31 31 38 20 49 6e 73 65 72 74 20 74 68 65 20 70	TION.HASH)"]).#@118.Insert.the.p
7000	72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 68 6f 6f 6b 69 6e 67 20 75 70 20 62 75 74 74 6f 6e 73 20	resentation,.hooking.up.buttons.
7020	66 6f 72 20 65 61 63 68 20 73 6c 6f 74 2e 0a 0a 28 66 6e 20 48 41 53 48 20 50 52 45 53 45 4e 54	for.each.slot...(fn.HASH.PRESENT
7040	41 54 49 4f 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 50 41 52 45 4e 54 2d 52 45 50 20 43 4f 4e 54 49	ATION.&optional.PARENT-REP.CONTI
7060	4e 55 41 54 49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74	NUATION)..(defalias.'haskell-int
7080	65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 69 6e 73 65 72 74 2d 70 72 65 73 65 6e 74 61 74 69 6f	eractive-mode-insert-presentatio
70a0	6e 20 23 5b 31 30 32 36 20 22 5c 33 30 30 5c 33 30 31 04 5c 22 41 40 5c 33 30 30 5c 33 30 32 05	n.#[1026."\300\301.\"A@\300\302.
70c0	5c 22 41 40 5c 33 30 30 5c 33 30 33 06 06 5c 22 41 40 5c 32 31 31 3f 03 5c 33 30 34 5c 32 33 30	\"A@\300\303..\"A@\211?.\304\230
70e0	5c 32 30 33 24 00 5c 33 30 35 03 5c 33 30 36 5c 33 30 37 23 63 5c 32 30 32 5c 33 35 35 01 03 5c	\203$.\305.\306\307#c\202\355..\
7100	33 31 30 5c 32 33 30 5c 32 30 33 33 00 5c 33 30 35 03 5c 33 30 36 5c 33 30 37 23 63 5c 32 30 32	310\230\2033.\305.\306\307#c\202
7120	5c 33 35 35 01 03 5c 33 31 31 5c 32 33 30 5c 32 30 33 52 00 5c 33 30 35 06 06 5c 33 31 32 5c 32	\355..\311\230\203R.\305..\312\2
7140	33 30 5c 32 30 33 4a 00 5c 33 31 33 5c 33 31 34 5c 33 31 35 06 06 23 5c 32 30 32 4b 00 03 5c 33	30\203J.\313\314\315..#\202K..\3
7160	30 36 5c 33 31 36 23 63 5c 32 30 32 5c 33 35 35 01 03 5c 33 31 37 5c 32 33 30 5c 32 30 33 5c 32	06\316#c\202\355..\317\230\203\2
7180	30 37 00 5c 33 32 30 63 5c 32 31 30 5c 33 32 31 02 5c 33 32 32 01 3a 5c 32 30 33 5c 32 30 30 00	07.\320c\210\321.\322.:\203\200.
71a0	01 40 5c 32 36 32 01 02 5c 32 30 34 6e 00 5c 33 32 33 63 5c 32 31 30 5c 33 32 34 06 0b 02 06 09	.@\262..\204n.\323c\210\324.....
71c0	23 5c 32 31 30 5c 33 32 32 5c 32 36 32 03 01 41 5c 32 36 32 02 5c 32 30 32 5e 00 5c 32 36 36 03	#\210\322\262..A\262.\202^.\266.
71e0	5c 33 32 35 63 5c 32 30 32 5c 33 35 35 01 03 5c 33 32 36 5c 32 33 30 5c 32 30 33 5c 33 36 32 00	\325c\202\355..\326\230\203\362.
7200	01 5c 32 30 34 5c 32 34 33 00 04 5c 32 30 33 5c 32 33 36 00 5c 33 32 37 5c 33 33 30 21 5c 32 31	.\204\243..\203\236.\327\330!\21
7220	30 5c 33 33 31 20 5c 32 30 32 5c 33 35 35 01 5c 33 33 32 63 5c 32 30 32 5c 33 35 35 01 5c 33 33	0\331.\202\355.\332c\202\355.\33
7240	33 05 5c 32 30 34 5c 32 35 33 00 5c 33 33 34 63 5c 32 31 30 69 03 5c 33 32 32 01 3a 5c 32 30 33	3.\204\253.\334c\210i.\322.:\203
7260	5c 33 34 34 00 01 40 5c 32 36 32 01 5c 33 32 34 06 5c 66 02 06 5c 6e 06 07 06 5c 6e 47 53 55 24	\344..@\262.\324.\f..\n...\nGSU$
7280	5c 32 31 30 03 06 06 47 53 55 5c 32 30 34 5c 33 33 31 00 5c 33 33 35 63 5c 32 31 30 02 53 6a 5c	\210...GSU\204\331.\335c\210.Sj\
72a0	32 31 30 5c 33 32 33 63 5c 32 31 30 03 54 5c 32 36 32 04 01 41 5c 32 36 32 02 5c 32 30 32 5c 32	210\323c\210.T\262..A\262.\202\2
72c0	35 36 00 5c 32 36 36 03 05 3f 5c 32 30 35 5c 33 35 35 00 5c 33 33 36 63 5c 32 36 32 01 5c 32 30	56.\266..?\205\355.\336c\262.\20
72e0	32 5c 33 35 35 01 03 5c 33 31 32 5c 32 33 30 5c 32 30 33 31 01 05 5c 33 31 32 5c 32 33 30 5c 32	2\355..\312\230\2031..\312\230\2
7300	30 34 05 01 5c 33 30 35 5c 33 33 37 5c 33 30 36 5c 33 31 36 23 63 5c 32 31 30 01 5c 33 32 32 01	04..\305\337\306\316#c\210.\322.
7320	3a 5c 32 30 33 1f 01 01 40 5c 32 36 32 01 5c 33 32 34 06 5c 6e 02 06 08 23 5c 32 31 30 01 41 5c	:\203...@\262.\324.\n...#\210.A\
7340	32 36 32 02 5c 32 30 32 07 01 5c 32 36 36 02 05 5c 33 31 32 5c 32 33 30 3f 5c 32 30 35 5c 33 35	262.\202..\266..\312\230?\205\35
7360	35 01 5c 33 30 35 5c 33 33 37 5c 33 30 36 5c 33 31 36 23 63 5c 32 30 32 5c 33 35 35 01 03 5c 33	5.\305\337\306\316#c\202\355..\3
7380	34 30 5c 32 33 30 5c 32 30 33 5c 32 31 31 01 05 5c 32 30 33 48 01 5c 32 31 31 5c 32 30 34 48 01	40\230\203\211..\203H.\211\204H.
73a0	05 5c 33 32 36 5c 32 33 30 5c 32 30 34 48 01 5c 33 32 30 63 5c 32 31 30 69 5c 33 30 35 04 5c 33	.\326\230\204H.\320c\210i\305.\3
73c0	30 36 5c 33 34 31 23 63 5c 32 31 30 02 5c 33 32 32 01 3a 5c 32 30 33 72 01 01 40 5c 32 36 32 01	06\341#c\210.\322.:\203r..@\262.
73e0	5c 33 33 35 63 5c 32 31 30 5c 33 34 32 03 5c 5c 6a 5c 32 31 30 5c 33 32 34 06 0b 02 06 09 23 5c	\335c\210\342.\\j\210\324.....#\
7400	32 31 30 01 41 5c 32 36 32 02 5c 32 30 32 52 01 5c 32 36 36 03 05 5c 32 30 35 5c 33 35 35 01 5c	210.A\262.\202R.\266..\205\355.\
7420	32 31 31 3f 5c 32 30 35 5c 33 35 35 01 05 5c 33 32 36 5c 32 33 30 3f 5c 32 30 35 5c 33 35 35 01	211?\205\355..\326\230?\205\355.
7440	5c 33 32 35 63 5c 32 30 32 5c 33 35 35 01 03 5c 33 34 33 5c 32 33 30 5c 32 30 33 5c 33 32 35 01	\325c\202\355..\343\230\203\325.
7460	69 5c 33 30 35 04 5c 33 30 36 5c 33 34 31 23 5c 33 34 34 5c 32 36 31 02 5c 32 31 30 02 5c 33 32	i\305.\306\341#\344\261.\210.\32
7480	32 01 3a 5c 32 30 33 5c 33 30 36 01 01 40 5c 32 36 32 01 5c 33 33 35 63 5c 32 31 30 5c 33 34 32	2.:\203\306..@\262.\335c\210\342
74a0	03 5c 5c 6a 5c 32 31 30 5c 32 31 31 40 01 41 40 01 5c 33 34 35 5c 32 36 31 02 5c 32 31 30 5c 33	.\\j\210\211@.A@.\345\261.\210\3
74c0	32 34 06 0d 02 06 0b 23 5c 32 36 36 03 01 41 5c 32 36 32 02 5c 32 30 32 5c 32 33 33 01 5c 32 36	24.....#\266..A\262.\202\233.\26
74e0	36 02 5c 33 33 35 63 5c 32 31 30 5c 32 31 31 6a 5c 32 31 30 5c 33 34 36 63 5c 32 36 32 01 5c 32	6.\335c\210\211j\210\346c\262.\2
7500	30 32 5c 33 35 35 01 03 5c 33 32 32 3d 5c 32 30 33 5c 33 34 34 01 5c 33 30 35 5c 33 34 37 5c 33	02\355..\322=\203\344.\305\347\3
7520	30 36 5c 33 35 30 23 63 5c 32 30 32 5c 33 35 35 01 5c 33 35 31 5c 32 31 31 63 5c 32 31 30 5c 33	06\350#c\202\355.\351\211c\210\3
7540	35 32 01 21 5c 32 36 32 01 5c 32 30 37 22 20 5b 61 73 73 6f 63 20 72 65 70 20 74 65 78 74 20 73	52.!\262.\207".[assoc.rep.text.s
7560	6c 6f 74 73 20 22 69 6e 74 65 67 65 72 22 20 70 72 6f 70 65 72 74 69 7a 65 20 66 6f 6e 74 2d 6c	lots."integer".propertize.font-l
7580	6f 63 6b 2d 66 61 63 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6e 73 74 61 6e 74 20 22 66 6c 6f	ock-face.font-lock-constant."flo
75a0	61 74 69 6e 67 22 20 22 63 68 61 72 22 20 22 73 74 72 69 6e 67 22 20 72 65 70 6c 61 63 65 2d 72	ating"."char"."string".replace-r
75c0	65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5e 27 5c 5c 28 2e 2b 5c 5c 29 27 24 22 20 22	egexp-in-string."^'\\(.+\\)'$"."
75e0	5c 5c 31 22 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 73 74 72 69 6e 67 2d 66 61 63 65 20 22 74 75 70 6c	\\1".font-lock-string-face."tupl
7600	65 22 20 22 28 22 20 74 20 6e 69 6c 20 22 2c 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63	e"."(".t.nil.",".haskell-interac
7620	74 69 76 65 2d 6d 6f 64 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 6c 6f 74 20 22 29 22 20	tive-mode-presentation-slot.")".
7640	22 6c 69 73 74 22 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 31 20 64 65 6c 65 74 65 2d 69 6e 64	"list".delete-char.-1.delete-ind
7660	65 6e 74 61 74 69 6f 6e 20 22 5b 5d 22 20 30 20 22 5b 22 20 22 5c 6e 22 20 22 5d 22 20 22 5c 22	entation."[]".0."["."\n"."]"."\"
7680	22 20 22 61 6c 67 22 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 74 79 70 65 2d 66 61 63 65 20 32 20 22 72	"."alg".font-lock-type-face.2."r
76a0	65 63 6f 72 64 22 20 22 20 7b 20 22 20 22 20 3d 20 22 20 22 7d 22 20 22 3f 22 20 66 6f 6e 74 2d	ecord".".{.".".=."."}"."?".font-
76c0	6c 6f 63 6b 2d 77 61 72 6e 69 6e 67 20 22 55 6e 61 62 6c 65 20 74 6f 20 70 72 65 73 65 6e 74 21	lock-warning."Unable.to.present!
76e0	20 54 68 69 73 20 76 65 72 79 20 6c 69 6b 65 6c 79 20 6d 65 61 6e 73 20 45 6d 61 63 73 5c 6e 69	.This.very.likely.means.Emacs\ni
7700	73 20 6f 75 74 20 6f 66 20 73 79 6e 63 20 77 69 74 68 20 74 68 65 20 60 70 72 65 73 65 6e 74 27	s.out.of.sync.with.the.`present'
7720	20 70 61 63 6b 61 67 65 2e 20 59 6f 75 20 73 68 6f 75 6c 64 20 6d 61 6b 65 20 73 75 72 65 5c 6e	.package..You.should.make.sure\n
7740	74 68 65 79 27 72 65 20 62 6f 74 68 20 75 70 20 74 6f 20 64 61 74 65 2c 20 6f 72 20 72 65 70 6f	they're.both.up.to.date,.or.repo
7760	72 74 20 61 20 62 75 67 2e 22 20 65 72 72 6f 72 5d 20 31 38 20 28 23 24 20 2e 20 32 38 36 36 30	rt.a.bug.".error].18.(#$...28660
7780	29 5d 29 0a 23 40 32 33 39 20 53 65 74 75 70 20 74 68 65 20 47 48 43 69 20 52 45 50 4c 20 66 6f	)]).#@239.Setup.the.GHCi.REPL.fo
77a0	72 20 75 73 69 6e 67 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 0a 0a 55 73 69 6e 67 20 61 73	r.using.presentations...Using.as
77c0	79 6e 63 68 72 6f 6e 6f 75 73 20 71 75 65 75 65 64 20 63 6f 6d 6d 61 6e 64 73 20 61 73 20 6f 70	ynchronous.queued.commands.as.op
77e0	70 6f 73 65 64 20 74 6f 20 73 79 6e 63 20 61 74 20 74 68 69 73 0a 73 74 61 67 65 2c 20 61 73 20	posed.to.sync.at.this.stage,.as.
7800	73 79 6e 63 20 77 6f 75 6c 64 20 66 72 65 65 7a 65 20 75 70 20 74 68 65 20 55 49 20 61 20 62 69	sync.would.freeze.up.the.UI.a.bi
7820	74 2c 20 61 6e 64 20 77 65 20 61 63 74 75 61 6c 6c 79 0a 64 6f 6e 27 74 20 63 61 72 65 20 77 68	t,.and.we.actually.don't.care.wh
7840	65 6e 20 74 68 65 20 74 68 69 6e 67 20 63 6f 6d 70 6c 65 74 65 73 20 61 73 20 6c 6f 6e 67 20 61	en.the.thing.completes.as.long.a
7860	73 20 69 74 27 73 20 73 6f 6f 6e 69 73 68 2e 0a 0a 28 66 6e 20 50 29 1f 0a 28 64 65 66 61 6c 69	s.it's.soonish...(fn.P)..(defali
7880	61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 73 65 74	as.'haskell-interactive-mode-set
78a0	75 70 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31	up-presentation.#[257."\300.\301
78c0	5c 22 5c 32 31 30 5c 33 30 30 01 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 01 5c 33 30 33 5c 22	\"\210\300.\302\"\210\300.\303\"
78e0	5c 32 31 30 5c 33 30 30 01 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 01 5c 33 30 35 5c 22 5c 32	\210\300.\304\"\210\300.\305\"\2
7900	31 30 5c 33 30 30 01 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63	10\300.\306\"\207".[haskell-proc
7920	65 73 73 2d 71 75 65 75 65 2d 77 69 74 68 6f 75 74 2d 66 69 6c 74 65 72 73 20 22 69 6d 70 6f 72	ess-queue-without-filters."impor
7940	74 20 71 75 61 6c 69 66 69 65 64 20 44 61 74 61 2e 4d 61 79 62 65 20 61 73 20 50 72 65 73 65 6e	t.qualified.Data.Maybe.as.Presen
7960	74 22 20 22 69 6d 70 6f 72 74 20 71 75 61 6c 69 66 69 65 64 20 44 61 74 61 2e 42 79 74 65 53 74	t"."import.qualified.Data.ByteSt
7980	72 69 6e 67 2e 4c 61 7a 79 20 61 73 20 50 72 65 73 65 6e 74 22 20 22 69 6d 70 6f 72 74 20 71 75	ring.Lazy.as.Present"."import.qu
79a0	61 6c 69 66 69 65 64 20 44 61 74 61 2e 41 74 74 6f 4c 69 73 70 20 61 73 20 50 72 65 73 65 6e 74	alified.Data.AttoLisp.as.Present
79c0	22 20 22 69 6d 70 6f 72 74 20 71 75 61 6c 69 66 69 65 64 20 50 72 65 73 65 6e 74 2e 49 44 20 61	"."import.qualified.Present.ID.a
79e0	73 20 50 72 65 73 65 6e 74 22 20 22 69 6d 70 6f 72 74 20 71 75 61 6c 69 66 69 65 64 20 50 72 65	s.Present"."import.qualified.Pre
7a00	73 65 6e 74 20 61 73 20 50 72 65 73 65 6e 74 22 20 22 50 72 65 73 65 6e 74 2e 70 72 65 73 65 6e	sent.as.Present"."Present.presen
7a20	74 20 28 50 72 65 73 65 6e 74 2e 66 72 6f 6d 4a 75 73 74 20 28 50 72 65 73 65 6e 74 2e 66 72 6f	t.(Present.fromJust.(Present.fro
7a40	6d 4c 69 73 74 20 5b 30 5d 29 29 20 28 29 22 5d 20 34 20 28 23 24 20 2e 20 33 30 36 30 32 29 5d	mList.[0])).()"].4.(#$...30602)]
7a60	29 0a 23 40 32 33 20 43 6f 75 6e 74 65 72 20 66 6f 72 20 74 68 65 20 68 61 73 68 2e 1f 0a 28 64	).#@23.Counter.for.the.hash...(d
7a80	65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70	efvar.haskell-interactive-mode-p
7aa0	72 65 73 65 6e 74 61 74 69 6f 6e 2d 68 61 73 68 20 30 20 28 23 24 20 2e 20 33 31 33 33 35 29 29	resentation-hash.0.(#$...31335))
7ac0	0a 23 40 33 31 20 47 65 6e 65 72 61 74 65 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 68 61	.#@31.Generate.a.presentation.ha
7ae0	73 68 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74	sh...(defalias.'haskell-interact
7b00	69 76 65 2d 6d 6f 64 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 68 61 73 68 20 23 5b 30 20 22	ive-mode-presentation-hash.#[0."
7b20	5c 33 30 31 5c 33 30 32 08 54 5c 32 31 31 10 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d	\301\302.T\211.\"\207".[haskell-
7b40	69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 68 61	interactive-mode-presentation-ha
7b60	73 68 20 66 6f 72 6d 61 74 20 22 5f 70 72 65 73 65 6e 74 5f 25 73 22 5d 20 34 20 28 23 24 20 2e	sh.format."_present_%s"].4.(#$..
7b80	20 33 31 34 33 30 29 5d 29 0a 28 64 65 66 69 6e 65 2d 62 75 74 74 6f 6e 2d 74 79 70 65 20 27 68	.31430)]).(define-button-type.'h
7ba0	61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 6c 6f 74 2d 62 75 74 74 6f 6e 20	askell-presentation-slot-button.
7bc0	27 61 63 74 69 6f 6e 20 27 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 70 72	'action.'haskell-presentation-pr
7be0	65 73 65 6e 74 2d 73 6c 6f 74 20 27 66 6f 6c 6c 6f 77 2d 6c 69 6e 6b 20 74 20 27 68 65 6c 70 2d	esent-slot.'follow-link.t.'help-
7c00	65 63 68 6f 20 22 43 6c 69 63 6b 20 74 6f 20 65 78 70 61 6e 64 e2 80 a6 22 29 0a 23 40 34 38 20	echo."Click.to.expand...").#@48.
7c20	54 6f 67 67 6c 65 20 74 68 65 20 68 69 73 74 6f 72 79 20 4e 20 69 74 65 6d 73 20 75 70 20 6f 72	Toggle.the.history.N.items.up.or
7c40	20 64 6f 77 6e 2e 0a 0a 28 66 6e 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65	.down...(fn.N)..(defalias.'haske
7c60	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 2d 74 6f 67 67	ll-interactive-mode-history-togg
7c80	6c 65 20 23 5b 32 35 37 20 22 08 5c 32 30 35 1c 00 5c 33 30 32 09 02 5c 5c 08 47 5c 22 5c 32 31	le.#[257.".\205..\302..\\.G\"\21
7ca0	31 11 5c 33 30 33 55 5c 32 30 34 17 00 5c 33 30 34 5c 33 30 35 09 5c 22 5c 32 31 30 5c 33 30 36	1.\303U\204..\304\305.\"\210\306
7cc0	09 08 38 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d	..8!\207".[haskell-interactive-m
7ce0	6f 64 65 2d 68 69 73 74 6f 72 79 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d	ode-history.haskell-interactive-
7d00	6d 6f 64 65 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 20 6d 6f 64 20 30 20 6d 65 73 73 61 67 65	mode-history-index.mod.0.message
7d20	20 22 48 69 73 74 6f 72 79 20 69 74 65 6d 3a 20 25 64 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65	."History.item:.%d".haskell-inte
7d40	72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 73 65 74 2d 70 72 6f 6d 70 74 5d 20 35 20 28 23 24 20 2e	ractive-mode-set-prompt].5.(#$..
7d60	20 33 31 37 37 36 29 5d 29 0a 23 40 34 39 20 53 65 74 20 28 61 6e 64 20 6f 76 65 72 77 72 69 74	.31776)]).#@49.Set.(and.overwrit
7d80	65 29 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 6f 6d 70 74 2e 0a 0a 28 66 6e 20 50 29 1f 0a	e).the.current.prompt...(fn.P)..
7da0	28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d	(defalias.'haskell-interactive-m
7dc0	6f 64 65 2d 73 65 74 2d 70 72 6f 6d 70 74 20 23 5b 32 35 37 20 22 72 5c 33 30 31 5c 33 30 32 20	ode-set-prompt.#[257."r\301\302.
7de0	21 71 5c 32 31 30 08 62 5c 32 31 30 60 64 7c 5c 32 31 30 5c 32 31 31 63 29 5c 32 30 37 22 20 5b	!q\210.b\210`d|\210\211c)\207".[
7e00	68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 2d	haskell-interactive-mode-prompt-
7e20	73 74 61 72 74 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76	start.haskell-session-interactiv
7e40	65 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 73 65 73	e-buffer.haskell-interactive-ses
7e60	73 69 6f 6e 5d 20 33 20 28 23 24 20 2e 20 33 32 31 31 31 29 5d 29 0a 23 40 35 30 20 43 79 63 6c	sion].3.(#$...32111)]).#@50.Cycl
7e80	65 20 62 61 63 6b 77 61 72 64 73 20 74 68 72 6f 75 67 68 20 69 6e 70 75 74 20 68 69 73 74 6f 72	e.backwards.through.input.histor
7ea0	79 2e 0a 0a 28 66 6e 20 41 52 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c	y...(fn.ARG)..(defalias.'haskell
7ec0	2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 2d 70 72 65 76 69 6f	-interactive-mode-history-previo
7ee0	75 73 20 23 5b 32 35 37 20 22 5c 33 30 31 20 5c 32 30 35 14 00 5c 32 31 31 5c 33 30 32 55 5c 32	us.#[257."\301.\205..\211\302U\2
7f00	30 34 0f 00 5c 33 30 33 01 21 5c 32 30 37 5c 33 30 32 10 5c 33 30 33 5c 33 30 34 21 5c 32 30 37	04..\303.!\207\302.\303\304!\207
7f20	22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74	".[haskell-interactive-mode-hist
7f40	6f 72 79 2d 69 6e 64 65 78 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 61 74	ory-index.haskell-interactive-at
7f60	2d 70 72 6f 6d 70 74 20 30 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f	-prompt.0.haskell-interactive-mo
7f80	64 65 2d 68 69 73 74 6f 72 79 2d 74 6f 67 67 6c 65 20 31 5d 20 33 20 28 23 24 20 2e 20 33 32 33	de-history-toggle.1].3.(#$...323
7fa0	38 30 29 20 22 2a 70 22 5d 29 0a 23 40 34 38 20 43 79 63 6c 65 20 66 6f 72 77 61 72 64 20 74 68	80)."*p"]).#@48.Cycle.forward.th
7fc0	72 6f 75 67 68 20 69 6e 70 75 74 20 68 69 73 74 6f 72 79 2e 0a 0a 28 66 6e 20 41 52 47 29 1f 0a	rough.input.history...(fn.ARG)..
7fe0	28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d	(defalias.'haskell-interactive-m
8000	6f 64 65 2d 68 69 73 74 6f 72 79 2d 6e 65 78 74 20 23 5b 32 35 37 20 22 5c 33 30 31 20 5c 32 30	ode-history-next.#[257."\301.\20
8020	35 15 00 5c 32 31 31 5c 33 30 32 55 5c 32 30 34 10 00 5c 33 30 33 01 5b 21 5c 32 30 37 5c 33 30	5..\211\302U\204..\303.[!\207\30
8040	32 10 5c 33 30 33 5c 33 30 34 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	2.\303\304!\207".[haskell-intera
8060	63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 20 68 61 73 6b 65 6c 6c	ctive-mode-history-index.haskell
8080	2d 69 6e 74 65 72 61 63 74 69 76 65 2d 61 74 2d 70 72 6f 6d 70 74 20 30 20 68 61 73 6b 65 6c 6c	-interactive-at-prompt.0.haskell
80a0	2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 68 69 73 74 6f 72 79 2d 74 6f 67 67 6c 65	-interactive-mode-history-toggle
80c0	20 2d 31 5d 20 33 20 28 23 24 20 2e 20 33 32 36 38 38 29 20 22 2a 70 22 5d 29 0a 23 40 33 30 20	.-1].3.(#$...32688)."*p"]).#@30.
80e0	4a 75 6d 70 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 70 72 6f 6d 70 74 2e 1f 0a 28 64	Jump.to.the.previous.prompt...(d
8100	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64	efalias.'haskell-interactive-mod
8120	65 2d 70 72 6f 6d 70 74 2d 70 72 65 76 69 6f 75 73 20 23 5b 30 20 22 5c 32 31 32 5c 33 30 30 20	e-prompt-previous.#[0."\212\300.
8140	5c 32 31 30 5c 33 30 31 5c 33 30 32 20 5c 33 30 33 5c 33 30 34 23 5c 32 30 35 0f 00 5c 33 30 35	\210\301\302.\303\304#\205..\305
8160	5c 32 32 35 29 5c 32 31 31 5c 32 30 35 16 00 5c 32 31 31 62 5c 32 30 37 22 20 5b 62 65 67 69 6e	\225)\211\205..\211b\207".[begin
8180	6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 2d 72 65 67	ning-of-line.search-backward-reg
81a0	65 78 70 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74 2d 72	exp.haskell-interactive-prompt-r
81c0	65 67 65 78 20 6e 69 6c 20 74 20 30 5d 20 34 20 28 23 24 20 2e 20 33 32 39 39 32 29 20 6e 69 6c	egex.nil.t.0].4.(#$...32992).nil
81e0	5d 29 0a 23 40 32 36 20 4a 75 6d 70 20 74 6f 20 74 68 65 20 6e 65 78 74 20 70 72 6f 6d 70 74 2e	]).#@26.Jump.to.the.next.prompt.
8200	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65	..(defalias.'haskell-interactive
8220	2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 2d 6e 65 78 74 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 20	-mode-prompt-next.#[0."\300\301.
8240	5c 33 30 32 5c 33 30 33 23 5c 32 30 37 22 20 5b 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 2d 72	\302\303#\207".[search-forward-r
8260	65 67 65 78 70 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74	egexp.haskell-interactive-prompt
8280	2d 72 65 67 65 78 20 6e 69 6c 20 74 5d 20 34 20 28 23 24 20 2e 20 33 33 32 35 36 29 20 6e 69 6c	-regex.nil.t].4.(#$...33256).nil
82a0	5d 29 0a 23 40 36 32 20 43 6c 65 61 72 20 74 68 65 20 73 63 72 65 65 6e 20 61 6e 64 20 70 75 74	]).#@62.Clear.the.screen.and.put
82c0	20 61 6e 79 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 69 6e 74 6f 20 74 68 65 20 68 69 73 74	.any.current.input.into.the.hist
82e0	6f 72 79 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63	ory...(defalias.'haskell-interac
8300	74 69 76 65 2d 6d 6f 64 65 2d 63 6c 65 61 72 20 23 5b 30 20 22 5c 33 30 31 20 72 5c 33 30 32 01	tive-mode-clear.#[0."\301.r\302.
8320	21 71 5c 32 31 30 5c 33 30 33 18 5c 33 30 34 65 64 5c 33 30 35 23 5c 32 31 30 29 65 64 7c 5c 32	!q\210\303.\304ed\305#\210)ed|\2
8340	31 30 5c 33 30 36 20 5c 32 31 30 5c 33 30 37 01 21 5c 32 31 30 5c 33 31 30 01 5c 33 31 31 5c 33	10\306.\210\307.!\210\310.\311\3
8360	30 35 23 5c 32 31 30 5c 33 31 30 01 5c 33 31 32 5c 33 30 35 23 5c 32 31 30 29 72 5c 33 31 33 5c	05#\210\310.\312\305#\210)r\313\
8380	33 31 34 21 71 5c 32 31 30 5c 33 30 33 18 65 64 7c 5c 32 31 30 29 5c 33 30 36 20 29 5c 32 30 37	314!q\210\303.ed|\210)\306.)\207
83a0	22 20 5b 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 68 61 73 6b 65 6c 6c 2d 69 6e 74	".[inhibit-read-only.haskell-int
83c0	65 72 61 63 74 69 76 65 2d 73 65 73 73 69 6f 6e 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e	eractive-session.haskell-session
83e0	2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75 66 66 65 72 20 74 20 73 65 74 2d 74 65 78 74 2d 70	-interactive-buffer.t.set-text-p
8400	72 6f 70 65 72 74 69 65 73 20 6e 69 6c 20 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 20 68 61	roperties.nil.remove-overlays.ha
8420	73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d 70 74 20 68 61	skell-interactive-mode-prompt.ha
8440	73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 20 6e 65 78 74 2d 65 72 72 6f 72 2d 72 65 67	skell-session-set.next-error-reg
8460	69 6f 6e 20 6e 65 78 74 2d 65 72 72 6f 72 2d 6c 6f 63 75 73 20 67 65 74 2d 62 75 66 66 65 72 2d	ion.next-error-locus.get-buffer-
8480	63 72 65 61 74 65 20 22 2a 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 6c 6f 67 2a 22 5d 20	create."*haskell-process-log*"].
84a0	35 20 28 23 24 20 2e 20 33 33 34 34 38 29 20 6e 69 6c 5d 29 0a 23 40 31 33 36 20 4f 66 66 65 72	5.(#$...33448).nil]).#@136.Offer
84c0	20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 66 6f 72 20 70 61 72 74 69 61 6c 20 65 78 70 72 65 73 73	.completions.for.partial.express
84e0	69 6f 6e 20 62 65 74 77 65 65 6e 20 70 72 6f 6d 70 74 20 61 6e 64 20 70 6f 69 6e 74 2e 0a 54 68	ion.between.prompt.and.point..Th
8500	69 73 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 69	is.completion.function.is.used.i
8520	6e 20 69 6e 74 65 72 61 63 74 69 76 65 20 52 45 50 4c 20 62 75 66 66 65 72 20 69 74 73 65 6c 66	n.interactive.REPL.buffer.itself
8540	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76	...(defalias.'haskell-interactiv
8560	65 2d 6d 6f 64 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74	e-mode-completion-at-point-funct
8580	69 6f 6e 20 23 5b 30 20 22 5c 33 30 30 20 5c 32 30 35 2f 00 5c 33 30 31 20 5c 33 30 32 20 5c 33	ion.#[0."\300.\205/.\301.\302.\3
85a0	30 33 02 02 5c 22 01 47 01 40 47 5a 5c 33 30 34 5c 33 30 35 04 5c 33 30 36 5c 22 5c 32 30 35 1c	03..\".G.@GZ\304\305.\306\"\205.
85c0	00 5c 33 30 37 5c 33 30 35 05 5c 33 31 30 5c 22 5c 32 30 35 24 00 5c 33 31 31 04 41 23 60 02 5a	.\307\305.\310\"\205$.\311.A#`.Z
85e0	60 02 45 5c 32 36 36 5c 32 30 35 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	`.E\266\205\207".[haskell-intera
8600	63 74 69 76 65 2d 61 74 2d 70 72 6f 6d 70 74 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74	ctive-at-prompt.haskell-interact
8620	69 76 65 2d 70 72 6f 63 65 73 73 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d	ive-process.haskell-interactive-
8640	6d 6f 64 65 2d 69 6e 70 75 74 2d 70 61 72 74 69 61 6c 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65	mode-input-partial.haskell-proce
8660	73 73 2d 67 65 74 2d 72 65 70 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 61 70 70 65 6e 64 20 73	ss-get-repl-completions.append.s
8680	74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 69 6d 70 6f 72 74 22 20 28 22 69 6d 70 6f 72 74	tring-prefix-p."import".("import
86a0	22 29 20 22 6c 65 74 22 20 28 22 6c 65 74 22 29 5d 20 39 20 28 23 24 20 2e 20 33 33 39 37 39 29	")."let".("let")].9.(#$...33979)
86c0	5d 29 0a 23 40 31 33 34 20 4c 6f 6f 6b 20 66 6f 72 20 61 6e 20 3c 69 6e 74 65 72 61 63 74 69 76	]).#@134.Look.for.an.<interactiv
86e0	65 3e 20 63 6f 6d 70 69 6c 65 20 65 72 72 6f 72 2e 0a 49 66 20 74 68 65 72 65 20 69 73 20 6f 6e	e>.compile.error..If.there.is.on
8700	65 2c 20 70 6f 70 20 74 68 61 74 20 75 70 20 69 6e 20 61 20 62 75 66 66 65 72 2c 20 73 69 6d 69	e,.pop.that.up.in.a.buffer,.simi
8720	6c 61 72 20 74 6f 20 60 64 65 62 75 67 2d 6f 6e 2d 65 72 72 6f 72 27 2e 0a 0a 28 66 6e 20 53 54	lar.to.`debug-on-error'...(fn.ST
8740	41 54 45 20 52 45 53 50 4f 4e 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c	ATE.RESPONSE)..(defalias.'haskel
8760	6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 74 72 69 67 67 65 72 2d 63 6f 6d 70 69	l-interactive-mode-trigger-compi
8780	6c 65 2d 65 72 72 6f 72 20 23 5b 35 31 34 20 22 08 5c 32 30 35 62 00 5c 33 30 34 5c 33 30 35 02	le-error.#[514.".\205b.\304\305.
87a0	5c 22 5c 32 30 35 62 00 5c 33 30 34 5c 33 30 36 02 5c 22 3f 5c 32 30 35 62 00 5c 33 30 37 19 5c	\"\205b.\304\306.\"?\205b.\307.\
87c0	6e 60 7c 5c 32 31 30 5c 6e 0b 5c 33 31 30 5c 32 32 33 5c 32 31 30 64 62 5c 32 31 30 29 5c 33 31	n`|\210\n.\310\223\210db\210)\31
87e0	31 02 5c 33 31 32 5c 32 33 34 21 5c 32 30 34 5d 00 5c 33 30 34 5c 33 31 33 02 5c 22 5c 32 30 34	1.\312\234!\204].\304\313.\"\204
8800	38 00 5c 33 30 34 5c 33 31 34 02 5c 22 5c 32 30 33 5d 00 5c 33 31 35 5c 33 31 36 20 21 5c 32 31	8.\304\314.\"\203].\315\316.!\21
8820	30 5c 33 31 37 5c 33 31 36 20 5c 33 32 30 5c 33 32 31 5c 6e 64 5c 22 50 5c 22 5c 33 30 34 5c 33	0\317\316.\320\321\nd\"P\"\304\3
8840	32 32 02 5c 22 5c 32 30 34 55 00 5c 33 32 33 01 21 5c 32 31 30 5c 32 30 32 59 00 5c 33 32 34 02	22.\"\204U.\323.!\210\202Y.\324.
8860	21 5c 32 31 30 5c 32 31 30 5c 32 30 32 61 00 5c 33 32 34 01 21 5c 32 31 30 5c 33 30 37 5c 32 30	!\210\210\202a.\324.!\210\307\20
8880	37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 74 79 70 65 73 2d 66 6f	7".[haskell-interactive-types-fo
88a0	72 2d 73 68 6f 77 2d 61 6d 62 69 67 75 6f 75 73 20 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e	r-show-ambiguous.inhibit-read-on
88c0	6c 79 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 70 72 6f 6d	ly.haskell-interactive-mode-prom
88e0	70 74 2d 73 74 61 72 74 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64	pt-start.haskell-interactive-mod
8900	65 2d 6f 6c 64 2d 70 72 6f 6d 70 74 2d 73 74 61 72 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20	e-old-prompt-start.string-match.
8920	22 5e 5c 6e 3c 69 6e 74 65 72 61 63 74 69 76 65 3e 3a 5b 2d 30 2d 39 5d 2b 3a 5b 2d 30 2d 39 5d	"^\n<interactive>:[-0-9]+:[-0-9]
8940	2b 3a 22 20 22 5e 5c 6e 3c 69 6e 74 65 72 61 63 74 69 76 65 3e 3a 5b 2d 30 2d 39 5d 2b 3a 5b 2d	+:"."^\n<interactive>:[-0-9]+:[-
8960	30 2d 39 5d 2b 3a 5b 5c 6e 20 5d 2b 5b 57 77 5d 61 72 6e 69 6e 67 3a 22 20 74 20 6e 69 6c 20 68	0-9]+:[\n.]+[Ww]arning:".t.nil.h
8980	61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 69 73 2d	askell-interactive-mode-line-is-
89a0	71 75 65 72 79 20 32 20 22 4e 6f 20 69 6e 73 74 61 6e 63 65 20 66 6f 72 20 28 3f 53 68 6f 77 5b	query.2."No.instance.for.(?Show[
89c0	20 5c 6e 5d 22 20 22 41 6d 62 69 67 75 6f 75 73 20 74 79 70 65 20 76 61 72 69 61 62 6c 65 20 22	.\n]"."Ambiguous.type.variable."
89e0	20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65 73 65 74 20 68 61 73 6b 65 6c 6c 2d 69	.haskell-process-reset.haskell-i
8a00	6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 63 65 73 73 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65	nteractive-process.haskell-proce
8a20	73 73 2d 71 75 65 75 65 2d 73 79 6e 63 2d 72 65 71 75 65 73 74 20 22 3a 74 20 22 20 62 75 66 66	ss-queue-sync-request.":t.".buff
8a40	65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 22 3c 69 6e 74	er-substring-no-properties."<int
8a60	65 72 61 63 74 69 76 65 3e 3a 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d	eractive>:".haskell-interactive-
8a80	6d 6f 64 65 2d 69 6e 73 65 72 74 2d 65 72 72 6f 72 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61	mode-insert-error.haskell-intera
8aa0	63 74 69 76 65 2d 70 6f 70 75 70 2d 65 72 72 6f 72 5d 20 38 20 28 23 24 20 2e 20 33 34 35 30 35	ctive-popup-error].8.(#$...34505
8ac0	29 5d 29 0a 23 40 38 38 20 45 63 68 6f 20 61 20 72 65 61 64 20 6f 6e 6c 79 20 70 69 65 63 65 20	)]).#@88.Echo.a.read.only.piece.
8ae0	6f 66 20 74 65 78 74 20 62 65 66 6f 72 65 20 74 68 65 20 70 72 6f 6d 70 74 2e 0a 0a 28 66 6e 20	of.text.before.the.prompt...(fn.
8b00	53 45 53 53 49 4f 4e 20 4d 45 53 53 41 47 45 20 26 6f 70 74 69 6f 6e 61 6c 20 4d 4f 44 45 29 1f	SESSION.MESSAGE.&optional.MODE).
8b20	0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d	.(defalias.'haskell-interactive-
8b40	6d 6f 64 65 2d 65 63 68 6f 20 23 5b 37 37 30 20 22 72 5c 33 30 30 03 21 71 5c 32 31 30 5c 32 31	mode-echo.#[770."r\300.!q\210\21
8b60	32 5c 33 30 31 20 5c 32 31 30 5c 32 31 31 5c 32 30 33 17 00 5c 33 30 32 02 5c 33 30 33 50 02 5c	2\301.\210\211\203..\302.\303P.\
8b80	22 5c 32 30 32 23 00 5c 33 30 34 02 5c 33 30 33 50 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 30	"\202#.\304.\303P\305\306\307\30
8ba0	36 5c 33 31 30 5c 33 30 36 26 07 63 2a 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73	6\310\306&.c*\207".[haskell-sess
8bc0	69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 69	ion-interactive-buffer.haskell-i
8be0	6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 67 6f 74 6f 2d 65 6e 64 2d 70 6f 69 6e 74 20 68	nteractive-mode-goto-end-point.h
8c00	61 73 6b 65 6c 6c 2d 66 6f 6e 74 69 66 79 2d 61 73 2d 6d 6f 64 65 20 22 5c 6e 22 20 70 72 6f 70	askell-fontify-as-mode."\n".prop
8c20	65 72 74 69 7a 65 20 66 72 6f 6e 74 2d 73 74 69 63 6b 79 20 74 20 72 65 61 64 2d 6f 6e 6c 79 20	ertize.front-sticky.t.read-only.
8c40	72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 5d 20 31 31 20 28 23 24 20 2e 20 33 35 35 32 39 29 5d	rear-nonsticky].11.(#$...35529)]
8c60	29 0a 23 40 36 33 20 47 65 74 20 74 68 65 20 73 70 6c 69 63 65 73 20 62 75 66 66 65 72 20 66 6f	).#@63.Get.the.splices.buffer.fo
8c80	72 20 74 68 65 20 63 75 72 72 65 6e 74 20 53 45 53 53 49 4f 4e 2e 0a 0a 28 66 6e 20 53 45 53 53	r.the.current.SESSION...(fn.SESS
8ca0	49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63	ION)..(defalias.'haskell-interac
8cc0	74 69 76 65 2d 6d 6f 64 65 2d 73 70 6c 69 63 65 73 2d 62 75 66 66 65 72 20 23 5b 32 35 37 20 22	tive-mode-splices-buffer.#[257."
8ce0	5c 33 30 30 5c 33 30 31 02 21 21 5c 32 30 37 22 20 5b 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65	\300\301.!!\207".[get-buffer-cre
8d00	61 74 65 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 73 70 6c	ate.haskell-interactive-mode-spl
8d20	69 63 65 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 5d 20 34 20 28 23 24 20 2e 20 33 35 39 34 33 29	ices-buffer-name].4.(#$...35943)
8d40	5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76	]).(defalias.'haskell-interactiv
8d60	65 2d 6d 6f 64 65 2d 73 70 6c 69 63 65 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 23 5b 32 35 37	e-mode-splices-buffer-name.#[257
8d80	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 21 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20	."\300\301\302.!\"\207".[format.
8da0	22 2a 25 73 3a 73 70 6c 69 63 65 73 2a 22 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6e	"*%s:splices*".haskell-session-n
8dc0	61 6d 65 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 53 53 49 4f 4e 29 22 5d 29 0a 23 40 34 37	ame].5."\n\n(fn.SESSION)"]).#@47
8de0	20 45 63 68 6f 20 61 20 63 6f 6d 70 69 6c 65 72 20 73 70 6c 69 63 65 2e 0a 0a 28 66 6e 20 53 45	.Echo.a.compiler.splice...(fn.SE
8e00	53 53 49 4f 4e 20 4d 45 53 53 41 47 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65	SSION.MESSAGE)..(defalias.'haske
8e20	6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 63 6f 6d 70 69 6c 65 2d 73 70 6c 69	ll-interactive-mode-compile-spli
8e40	63 65 20 23 5b 35 31 34 20 22 72 5c 33 30 31 02 21 71 5c 32 31 30 08 5c 33 30 32 3d 5c 32 30 34	ce.#[514."r\301.!q\210.\302=\204
8e60	0f 00 5c 33 30 32 20 5c 32 31 30 5c 33 30 33 01 5c 33 30 34 5c 22 5c 33 30 33 01 40 5c 33 30 35	..\302.\210\303.\304\"\303.@\305
8e80	5c 22 5c 32 31 31 40 5c 33 30 36 5c 33 30 37 03 41 5c 33 30 35 23 03 41 40 5c 33 31 30 03 5c 33	\"\211@\306\307.A\305#.A@\310.\3
8ea0	30 35 5c 32 36 31 03 5c 32 31 30 60 02 5c 33 30 35 5c 32 36 31 02 5c 32 31 30 5c 33 31 31 01 60	05\261.\210`.\305\261.\210\311.`
8ec0	5c 33 31 32 23 5c 32 36 36 02 5c 33 31 33 63 5c 32 31 30 60 01 5c 33 30 35 5c 32 36 31 02 5c 32	\312#\266.\313c\210`.\305\261.\2
8ee0	31 30 5c 33 31 31 01 60 5c 33 31 32 23 5c 32 36 32 01 5c 32 36 36 5c 32 30 35 29 5c 32 30 37 22	10\311.`\312#\262.\266\205)\207"
8f00	20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65	.[major-mode.haskell-interactive
8f20	2d 6d 6f 64 65 2d 73 70 6c 69 63 65 73 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64	-mode-splices-buffer.haskell-mod
8f40	65 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5c 6e 20 20 3d 3d 3d 3d 3d 3d 3e 5c 6e 22 20 22	e.split-string."\n..======>\n"."
8f60	5c 6e 22 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 22 2d 2d 20 22 20 69 6e 64	\n".mapconcat.identity."--.".ind
8f80	65 6e 74 2d 72 69 67 69 64 6c 79 20 2d 34 20 22 2d 2d 20 3d 3e 5c 6e 22 5d 20 31 32 20 28 23 24	ent-rigidly.-4."--.=>\n"].12.(#$
8fa0	20 2e 20 33 36 33 32 31 29 5d 29 0a 23 40 37 33 20 45 63 68 6f 20 61 20 72 65 61 64 20 6f 6e 6c	...36321)]).#@73.Echo.a.read.onl
8fc0	79 20 70 69 65 63 65 20 6f 66 20 74 65 78 74 20 62 65 66 6f 72 65 20 74 68 65 20 70 72 6f 6d 70	y.piece.of.text.before.the.promp
8fe0	74 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 4d 45 53 53 41 47 45 29 1f 0a 28 64 65 66 61 6c	t...(fn.SESSION.MESSAGE)..(defal
9000	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 69 6e	ias.'haskell-interactive-mode-in
9020	73 65 72 74 2d 67 61 72 62 61 67 65 20 23 5b 35 31 34 20 22 72 5c 33 30 30 02 21 71 5c 32 31 30	sert-garbage.#[514."r\300.!q\210
9040	5c 32 31 32 5c 33 30 31 20 5c 32 31 30 5c 33 30 32 01 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33	\212\301.\210\302.\303\304\305\3
9060	30 36 5c 33 30 37 5c 33 30 34 5c 33 31 30 5c 33 30 34 26 09 63 2a 5c 32 30 37 22 20 5b 68 61 73	06\307\304\310\304&.c*\207".[has
9080	6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75 66 66 65 72 20	kell-session-interactive-buffer.
90a0	68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 2d 67 6f 74 6f 2d 65 6e	haskell-interactive-mode-goto-en
90c0	64 2d 70 6f 69 6e 74 20 70 72 6f 70 65 72 74 69 7a 65 20 66 72 6f 6e 74 2d 73 74 69 63 6b 79 20	d-point.propertize.front-sticky.
90e0	74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63	t.font-lock-face.haskell-interac
9100	74 69 76 65 2d 66 61 63 65 2d 67 61 72 62 61 67 65 20 72 65 61 64 2d 6f 6e 6c 79 20 72 65 61 72	tive-face-garbage.read-only.rear
9120	2d 6e 6f 6e 73 74 69 63 6b 79 5d 20 31 32 20 28 23 24 20 2e 20 33 36 37 38 35 29 5d 29 0a 23 40	-nonsticky].12.(#$...36785)]).#@
9140	32 34 33 20 53 65 6e 64 20 4c 49 4e 45 20 74 6f 20 74 68 65 20 47 48 43 69 20 70 72 6f 63 65 73	243.Send.LINE.to.the.GHCi.proces
9160	73 20 61 6e 64 20 65 63 68 6f 20 74 68 65 20 72 65 73 75 6c 74 20 69 6e 20 73 6f 6d 65 20 66 61	s.and.echo.the.result.in.some.fa
9180	73 68 69 6f 6e 2e 0a 52 65 73 75 6c 74 20 77 69 6c 6c 20 62 65 20 70 72 69 6e 74 65 64 20 69 6e	shion..Result.will.be.printed.in
91a0	20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 6f 72 20 70 72 65 73 65 6e 74 65 64 20 75 73 69	.the.minibuffer.or.presented.usi
91c0	6e 67 0a 66 75 6e 63 74 69 6f 6e 20 60 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f	ng.function.`haskell-presentatio
91e0	6e 2d 70 72 65 73 65 6e 74 27 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 76 61 72 69 61 62 6c	n-present',.depending.on.variabl
9200	65 0a 60 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 75 73 65 2d 70 72 65 73 65 6e 74 61 74	e.`haskell-process-use-presentat
9220	69 6f 6e 2d 6d 6f 64 65 27 2e 0a 0a 28 66 6e 20 4c 49 4e 45 29 1f 0a 28 64 65 66 61 6c 69 61 73	ion-mode'...(fn.LINE)..(defalias
9240	20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 68 6f 77 2d 72 65 70 6c 2d 72 65 73 70	.'haskell-process-show-repl-resp
9260	6f 6e 73 65 20 23 5b 32 35 37 20 22 5c 33 30 30 20 5c 33 30 31 01 5c 33 30 32 5c 33 30 33 04 06	onse.#[257."\300.\301.\302\303..
9280	06 42 5c 33 30 34 5c 33 30 35 5c 33 30 36 25 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d	.B\304\305\306%\"\207".[haskell-
92a0	69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 63 65 73 73 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63	interactive-process.haskell-proc
92c0	65 73 73 2d 71 75 65 75 65 2d 63 6f 6d 6d 61 6e 64 20 76 65 63 74 6f 72 20 63 6c 2d 73 74 72 75	ess-queue-command.vector.cl-stru
92e0	63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40	ct-haskell-command.#[257."\300.@
9300	02 41 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d	.A\"\207".[haskell-process-send-
9320	73 74 72 69 6e 67 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 53 54 41 54 45 29 22 5d 20 6e 69 6c 20	string].4."\n\n(fn.STATE)"].nil.
9340	23 5b 35 31 34 20 22 08 5c 32 30 33 5c 66 00 5c 33 30 31 5c 33 30 32 03 40 21 02 5c 22 5c 32 30	#[514.".\203\f.\301\302.@!.\"\20
9360	37 5c 33 30 33 01 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 75 73	7\303.!\207".[haskell-process-us
9380	65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73	e-presentation-mode.haskell-pres
93a0	65 6e 74 61 74 69 6f 6e 2d 70 72 65 73 65 6e 74 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73	entation-present.haskell-process
93c0	2d 73 65 73 73 69 6f 6e 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 6d 65 73 73 61 67 65 2d 6c 69	-session.haskell-mode-message-li
93e0	6e 65 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 53 54 41 54 45 20 52 45 53 50 4f 4e 53 45 29 22 5d	ne].5."\n\n(fn.STATE.RESPONSE)"]
9400	5d 20 31 30 20 28 23 24 20 2e 20 33 37 31 38 38 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 68 61	].10.(#$...37188)]).(provide.'ha
9420	73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 6d 6f 64 65 29 0a	skell-interactive-mode).