blob: 3c2ddd80e6977cabf0d387d414a05782bab64ce2 (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 23 40 37 37 20 4e 6f 6e 2d 6e 69	;;;;;;;;;;;;;;;;;;...#@77.Non-ni
01a0	6c 20 6d 65 61 6e 73 20 73 6f 6d 65 20 63 6f 6d 6d 61 6e 64 73 20 77 65 72 65 20 74 72 69 67 67	l.means.some.commands.were.trigg
01c0	65 72 65 64 20 64 75 72 69 6e 67 20 61 73 79 6e 63 20 66 75 6e 63 74 69 6f 6e 20 65 78 65 63 75	ered.during.async.function.execu
01e0	74 69 6f 6e 2e 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 61 73 79	tion...(defvar.haskell-utils-asy
0200	6e 63 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 66 6c 61 67 20 6e 69 6c 20 28 23 24 20 2e 20 34	nc-post-command-flag.nil.(#$...4
0220	31 30 29 29 0a 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	10)).(make-variable-buffer-local
0240	20 27 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 61 73 79 6e 63 2d 70 6f 73 74 2d 63 6f 6d 6d 61	.'haskell-utils-async-post-comma
0260	6e 64 2d 66 6c 61 67 29 0a 23 40 36 30 20 53 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 20 69	nd-flag).#@60.Special.variable.i
0280	6e 64 69 63 61 74 69 6e 67 20 61 20 73 74 61 74 65 20 6f 66 20 75 73 65 72 20 69 6e 70 75 74 20	ndicating.a.state.of.user.input.
02a0	77 61 69 74 69 6e 67 2e 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 69	waiting...(defvar.haskell-mode-i
02c0	6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74 2d 73 74 61 74 65 20 6e 69 6c 20 28 23 24 20	nteractive-prompt-state.nil.(#$.
02e0	2e 20 36 32 32 29 29 0a 23 40 32 31 39 20 52 65 61 64 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d	..622)).#@219.Read.directory.nam
0300	65 20 61 6e 64 20 6e 6f 72 6d 61 6c 69 7a 65 20 74 6f 20 74 72 75 65 20 61 62 73 6f 6c 75 74 65	e.and.normalize.to.true.absolute
0320	20 70 61 74 68 2e 0a 52 65 66 65 72 20 74 6f 20 60 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d	.path..Refer.to.`read-directory-
0340	6e 61 6d 65 27 20 66 6f 72 20 74 68 65 20 6d 65 61 6e 69 6e 67 20 6f 66 20 50 52 4f 4d 50 54 20	name'.for.the.meaning.of.PROMPT.
0360	61 6e 64 0a 44 45 46 41 55 4c 54 2e 20 20 49 66 20 60 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73	and.DEFAULT...If.`haskell-proces
0380	73 2d 6c 6f 61 64 2d 6f 72 2d 72 65 6c 6f 61 64 2d 70 72 6f 6d 70 74 27 20 69 73 20 6e 69 6c 2c	s-load-or-reload-prompt'.is.nil,
03a0	0a 61 63 63 65 70 74 20 60 64 65 66 61 75 6c 74 27 2e 0a 0a 28 66 6e 20 50 52 4f 4d 50 54 20 44	.accept.`default'...(fn.PROMPT.D
03c0	45 46 41 55 4c 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 75 74 69 6c	EFAULT)..(defalias.'haskell-util
03e0	73 2d 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 23 5b 35 31 34 20 22 5c 33 30	s-read-directory-name.#[514."\30
0400	30 5c 33 30 31 03 03 5c 32 31 31 23 21 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 23 5c 33 30 35 50	0\301..\211#!\302\303\304.#\305P
0420	5c 32 30 37 22 20 5b 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 20 72 65 61 64 2d 64 69 72 65 63 74	\207".[file-truename.read-direct
0440	6f 72 79 2d 6e 61 6d 65 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e	ory-name.replace-regexp-in-strin
0460	67 20 22 2f 24 22 20 22 22 20 22 2f 22 5d 20 37 20 28 23 24 20 2e 20 37 35 30 29 5d 29 0a 23 40	g."/$".""."/"].7.(#$...750)]).#@
0480	32 38 37 20 52 65 74 75 72 6e 20 69 6d 70 6f 72 74 65 64 20 6d 6f 64 75 6c 65 20 6e 61 6d 65 20	287.Return.imported.module.name.
04a0	69 66 20 6f 6e 20 69 6d 70 6f 72 74 20 73 74 61 74 65 6d 65 6e 74 20 6f 72 20 6e 69 6c 20 6f 74	if.on.import.statement.or.nil.ot
04c0	68 65 72 77 69 73 65 2e 0a 54 68 69 73 20 63 75 72 72 65 6e 74 6c 79 20 61 73 73 75 6d 65 73 20	herwise..This.currently.assumes.
04e0	74 68 61 74 20 74 68 65 20 22 69 6d 70 6f 72 74 22 20 6b 65 79 77 6f 72 64 20 61 6e 64 20 74 68	that.the."import".keyword.and.th
0500	65 20 6d 6f 64 75 6c 65 0a 6e 61 6d 65 20 61 72 65 20 6f 6e 20 74 68 65 20 73 61 6d 65 20 6c 69	e.module.name.are.on.the.same.li
0520	6e 65 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 75 70 70 6f 72 74 73 20 74 68 65 20	ne...This.function.supports.the.
0540	53 61 66 65 48 61 73 6b 65 6c 6c 20 61 6e 64 20 50 61 63 6b 61 67 65 49 6d 70 6f 72 74 73 20 73	SafeHaskell.and.PackageImports.s
0560	79 6e 74 61 78 20 65 78 74 65 6e 73 69 6f 6e 73 2e 0a 0a 4e 6f 74 65 3a 20 64 6f 65 73 6e 27 74	yntax.extensions...Note:.doesn't
0580	20 64 65 74 65 63 74 20 69 66 20 69 6e 20 7b 2d 2d 7d 2d 73 74 79 6c 65 20 63 6f 6d 6d 65 6e 74	.detect.if.in.{--}-style.comment
05a0	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 70 61 72 73	...(defalias.'haskell-utils-pars
05c0	65 2d 69 6d 70 6f 72 74 2d 73 74 61 74 65 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 20 23 5b 30 20	e-import-statement-at-point.#[0.
05e0	22 5c 32 31 32 5c 33 30 30 20 62 5c 32 31 30 5c 33 30 31 5c 33 30 32 21 5c 32 30 35 0e 00 5c 33	"\212\300.b\210\301\302!\205..\3
0600	30 33 5c 33 30 34 21 29 5c 32 30 37 22 20 5b 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f	03\304!)\207".[line-beginning-po
0620	73 69 74 69 6f 6e 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 09 20 5d 2a 69 6d 70 6f 72 74 5b 09	sition.looking-at."[..]*import[.
0640	20 5d 2b 5c 5c 28 3f 3a 73 61 66 65 5b 09 20 5d 2b 5c 5c 29 3f 5c 5c 28 3f 3a 71 75 61 6c 69 66	.]+\\(?:safe[..]+\\)?\\(?:qualif
0660	69 65 64 5b 09 20 5d 2b 5c 5c 29 3f 5c 5c 28 3f 3a 5c 22 5b 5e 5c 22 5d 2a 5c 22 5b 09 20 5d 2b	ied[..]+\\)?\\(?:\"[^\"]*\"[..]+
0680	5c 5c 29 3f 5c 5c 28 5b 5b 3a 64 69 67 69 74 3a 5d 5b 3a 75 70 70 65 72 3a 5d 5b 3a 6c 6f 77 65	\\)?\\([[:digit:][:upper:][:lowe
06a0	72 3a 5d 5f 2e 5d 2b 5c 5c 29 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70	r:]_.]+\\)".match-string-no-prop
06c0	65 72 74 69 65 73 20 31 5d 20 32 20 28 23 24 20 2e 20 31 31 35 36 29 5d 29 0a 23 40 31 38 32 20	erties.1].2.(#$...1156)]).#@182.
06e0	41 20 73 70 65 63 69 61 6c 20 68 6f 6f 6b 20 77 68 69 63 68 20 63 6f 6c 6c 65 63 74 73 20 74 72	A.special.hook.which.collects.tr
0700	69 67 67 65 72 65 64 20 63 6f 6d 6d 61 6e 64 73 20 64 75 72 69 6e 67 20 61 73 79 6e 63 20 65 78	iggered.commands.during.async.ex
0720	65 63 75 74 69 6f 6e 2e 0a 54 68 69 73 20 68 6f 6f 6b 20 70 75 73 68 65 73 20 76 61 6c 75 65 20	ecution..This.hook.pushes.value.
0740	6f 66 20 76 61 72 69 61 62 6c 65 20 60 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 27 20 74 6f 20 66 6c	of.variable.`this-command'.to.fl
0760	61 67 20 76 61 72 69 61 62 6c 65 0a 60 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 61 73 79 6e 63	ag.variable.`haskell-utils-async
0780	2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 66 6c 61 67 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	-post-command-flag'...(defalias.
07a0	27 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 61 73 79 6e 63 2d 75 70 64 61 74 65 2d 70 6f 73 74	'haskell-utils-async-update-post
07c0	2d 63 6f 6d 6d 61 6e 64 2d 66 6c 61 67 20 23 5b 30 20 22 08 5c 32 31 31 09 42 5c 32 31 31 5c 32	-command-flag.#[0.".\211.B\211\2
07e0	31 31 11 5c 32 30 37 22 20 5b 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 68 61 73 6b 65 6c 6c 2d 75	11.\207".[this-command.haskell-u
0800	74 69 6c 73 2d 61 73 79 6e 63 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 66 6c 61 67 5d 20 34 20	tils-async-post-command-flag].4.
0820	28 23 24 20 2e 20 31 37 36 30 29 5d 29 0a 23 40 32 39 38 20 57 61 74 63 68 20 66 6f 72 20 74 72	(#$...1760)]).#@298.Watch.for.tr
0840	69 67 67 65 72 65 64 20 63 6f 6d 6d 61 6e 64 73 20 64 75 72 69 6e 67 20 61 73 79 6e 63 20 6f 70	iggered.commands.during.async.op
0860	65 72 61 74 69 6f 6e 20 65 78 65 63 75 74 69 6f 6e 2e 0a 52 65 73 65 74 73 20 66 6c 61 67 20 76	eration.execution..Resets.flag.v
0880	61 72 69 61 62 6c 65 0a 60 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 61 73 79 6e 63 2d 75 70 64	ariable.`haskell-utils-async-upd
08a0	61 74 65 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 66 6c 61 67 27 20 74 6f 20 4e 49 4c 2e 20 20	ate-post-command-flag'.to.NIL...
08c0	42 79 20 63 68 61 6e 67 65 73 20 69 74 20 69 73 0a 61 73 73 75 6d 65 64 20 74 68 61 74 20 6e 6f	By.changes.it.is.assumed.that.no
08e0	74 68 69 6e 67 20 68 61 70 70 65 6e 65 64 2c 20 65 2e 67 2e 20 6e 6f 74 68 69 6e 67 20 77 61 73	thing.happened,.e.g..nothing.was
0900	20 69 6e 73 65 72 74 65 64 20 69 6e 0a 62 75 66 66 65 72 2c 20 70 6f 69 6e 74 20 77 61 73 20 6e	.inserted.in.buffer,.point.was.n
0920	6f 74 20 6d 6f 76 65 64 2c 20 65 74 63 2e 20 20 54 6f 20 63 6f 6c 6c 65 63 74 20 64 61 74 61 20	ot.moved,.etc...To.collect.data.
0940	60 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 27 20 69 73 20 75 73 65 64 2e 1f 0a 28 64	`post-command-hook'.is.used...(d
0960	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 61 73 79 6e 63 2d 77 61 74	efalias.'haskell-utils-async-wat
0980	63 68 2d 63 68 61 6e 67 65 73 20 23 5b 30 20 22 5c 33 30 31 10 5c 33 30 32 5c 33 30 33 5c 33 30	ch-changes.#[0."\301.\302\303\30
09a0	34 5c 33 30 31 5c 33 30 35 24 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 61	4\301\305$\207".[haskell-utils-a
09c0	73 79 6e 63 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 66 6c 61 67 20 6e 69 6c 20 61 64 64 2d 68	sync-post-command-flag.nil.add-h
09e0	6f 6f 6b 20 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 68 61 73 6b 65 6c 6c 2d 75 74	ook.post-command-hook.haskell-ut
0a00	69 6c 73 2d 61 73 79 6e 63 2d 75 70 64 61 74 65 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 66 6c	ils-async-update-post-command-fl
0a20	61 67 20 74 5d 20 35 20 28 23 24 20 2e 20 32 31 30 30 29 5d 29 0a 23 40 33 33 35 20 43 6c 65 61	ag.t].5.(#$...2100)]).#@335.Clea
0a40	6e 20 75 70 20 61 66 74 65 72 20 61 73 79 6e 63 20 6f 70 65 72 61 74 69 6f 6e 20 66 69 6e 69 73	n.up.after.async.operation.finis
0a60	68 65 64 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 63 61 72 65 20 61 62	hed..This.function.takes.care.ab
0a80	6f 75 74 20 63 6c 65 61 6e 69 6e 67 20 75 70 20 74 68 69 6e 67 73 20 6d 61 64 65 20 62 79 0a 60	out.cleaning.up.things.made.by.`
0aa0	68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 61 73 79 6e 63 2d 77 61 74 63 68 2d 63 68 61 6e 67 65	haskell-utils-async-watch-change
0ac0	73 27 2e 20 20 54 68 65 20 42 55 46 46 45 52 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 62 75	s'...The.BUFFER.argument.is.a.bu
0ae0	66 66 65 72 20 77 68 65 72 65 0a 60 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 27 20 73	ffer.where.`post-command-hook'.s
0b00	68 6f 75 6c 64 20 62 65 20 64 69 73 61 62 6c 65 64 2e 20 20 54 68 69 73 20 69 73 20 6e 65 63 63	hould.be.disabled...This.is.necc
0b20	65 73 73 61 72 79 2c 20 62 65 63 61 75 73 65 0a 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 74	essary,.because.it.is.possible.t
0b40	68 61 74 20 75 73 65 72 20 77 69 6c 6c 20 63 68 61 6e 67 65 20 62 75 66 66 65 72 20 64 75 72 69	hat.user.will.change.buffer.duri
0b60	6e 67 20 61 73 79 6e 63 20 66 75 6e 63 74 69 6f 6e 0a 65 78 65 63 75 73 69 6f 6e 2e 0a 0a 28 66	ng.async.function.execusion...(f
0b80	6e 20 42 55 46 46 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 75 74	n.BUFFER)..(defalias.'haskell-ut
0ba0	69 6c 73 2d 61 73 79 6e 63 2d 73 74 6f 70 2d 77 61 74 63 68 69 6e 67 2d 63 68 61 6e 67 65 73 20	ils-async-stop-watching-changes.
0bc0	23 5b 32 35 37 20 22 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 31 10 5c 33 30 32 5c 33 30 33 5c 33	#[257."r\211q\210\301.\302\303\3
0be0	30 34 5c 33 30 35 23 29 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 61 73 79	04\305#)\207".[haskell-utils-asy
0c00	6e 63 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 66 6c 61 67 20 6e 69 6c 20 72 65 6d 6f 76 65 2d	nc-post-command-flag.nil.remove-
0c20	68 6f 6f 6b 20 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 68 61 73 6b 65 6c 6c 2d 75	hook.post-command-hook.haskell-u
0c40	74 69 6c 73 2d 61 73 79 6e 63 2d 75 70 64 61 74 65 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 66	tils-async-update-post-command-f
0c60	6c 61 67 20 74 5d 20 35 20 28 23 24 20 2e 20 32 36 32 30 29 5d 29 0a 23 40 31 39 37 20 52 65 6d	lag.t].5.(#$...2620)]).#@197.Rem
0c80	6f 76 65 20 6e 65 77 6c 69 6e 65 73 20 61 6e 64 20 65 78 74 72 61 20 77 68 69 74 65 73 70 61 63	ove.newlines.and.extra.whitespac
0ca0	65 20 66 72 6f 6d 20 73 74 72 69 6e 67 20 53 54 52 2e 0a 49 66 20 6c 69 6e 65 20 73 74 61 72 74	e.from.string.STR..If.line.start
0cc0	73 20 77 69 74 68 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 77 68 69 74 65 73 70 61 63 65 73	s.with.a.sequence.of.whitespaces
0ce0	2c 20 73 75 62 73 74 69 74 75 74 65 73 20 74 68 69 73 0a 73 65 71 75 65 6e 63 65 20 77 69 74 68	,.substitutes.this.sequence.with
0d00	20 61 20 73 69 6e 67 6c 65 20 77 68 69 74 65 73 70 61 63 65 2e 20 20 52 65 6d 6f 76 65 73 20 61	.a.single.whitespace...Removes.a
0d20	6c 6c 20 6e 65 77 6c 69 6e 65 0a 63 68 61 72 61 63 74 65 72 73 2e 0a 0a 28 66 6e 20 53 54 52 29	ll.newline.characters...(fn.STR)
0d40	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 72 65 64 75 63	..(defalias.'haskell-utils-reduc
0d60	65 2d 73 74 72 69 6e 67 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 23 5c 33	e-string.#[257."\300\301\302.#\3
0d80	30 30 5c 33 30 33 5c 33 30 34 03 23 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65 2d 72 65 67 65 78	00\303\304.#\207".[replace-regex
0da0	70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5e 20 2b 22 20 22 20 22 20 22 0d 3f 5c 6e 22 20 22 22 5d	p-in-string."^.+".".".".?\n".""]
0dc0	20 36 20 28 23 24 20 2e 20 33 31 39 37 29 5d 29 0a 23 40 35 32 35 20 50 61 72 73 65 20 72 65 73	.6.(#$...3197)]).#@525.Parse.res
0de0	70 6f 6e 73 65 20 52 45 50 4c 27 73 20 52 45 53 50 4f 4e 53 45 20 66 6f 72 20 65 72 72 6f 72 73	ponse.REPL's.RESPONSE.for.errors
0e00	2e 0a 52 65 74 75 72 6e 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73	..Returns.one.of.the.following.s
0e20	79 6d 62 6f 6c 73 3a 0a 0a 2b 20 75 6e 6b 6e 6f 77 6e 2d 63 6f 6d 6d 61 6e 64 0a 2b 20 6f 70 74	ymbols:..+.unknown-command.+.opt
0e40	69 6f 6e 2d 6d 69 73 73 69 6e 67 0a 2b 20 69 6e 74 65 72 61 63 74 69 76 65 2d 65 72 72 6f 72 0a	ion-missing.+.interactive-error.
0e60	2b 20 6e 6f 2d 65 72 72 6f 72 0a 0a 2a 57 61 72 6e 69 6e 67 2a 3a 20 74 68 69 73 20 66 75 6e 63	+.no-error..*Warning*:.this.func
0e80	69 74 6f 6e 20 63 6f 76 65 72 73 20 6f 6e 6c 79 20 74 68 72 65 65 20 6b 69 6e 64 20 6f 66 20 72	iton.covers.only.three.kind.of.r
0ea0	65 73 70 6f 6e 73 65 73 3a 0a 0a 2a 20 22 75 6e 6b 6e 6f 77 6e 20 63 6f 6d 6d 61 6e 64 20 e2 80	esponses:..*."unknown.command...
0ec0	a6 22 0a 20 20 52 45 50 4c 20 6d 69 73 73 69 6e 67 20 72 65 71 75 65 73 74 65 64 20 63 6f 6d 6d	."...REPL.missing.requested.comm
0ee0	61 6e 64 0a 2a 20 22 3c 69 6e 74 65 72 61 63 74 69 76 65 3e 3a 33 3a 35 3a 20 e2 80 a6 22 0a 20	and.*."<interactive>:3:5:...."..
0f00	20 69 6e 74 65 72 61 63 74 69 76 65 20 52 45 50 4c 20 65 72 72 6f 72 0a 2a 20 22 43 6f 75 6c 64	.interactive.REPL.error.*."Could
0f20	6e 27 74 20 67 75 65 73 73 20 74 68 61 74 20 6d 6f 64 75 6c 65 20 6e 61 6d 65 2e 20 44 6f 65 73	n't.guess.that.module.name..Does
0f40	20 69 74 20 65 78 69 73 74 3f 22 0a 20 20 28 3a 74 79 70 65 2d 61 74 20 61 6e 64 20 6d 61 79 62	.it.exist?"...(:type-at.and.mayb
0f60	65 20 73 6f 6d 65 20 6f 74 68 65 72 20 63 6f 6d 6d 61 6e 64 73 20 65 72 72 6f 72 29 0a 2a 20 2a	e.some.other.commands.error).*.*
0f80	61 6c 6c 20 6f 74 68 65 72 20 72 65 70 6f 73 6e 73 65 73 2a 20 61 72 65 20 74 72 65 61 74 65 64	all.other.reposnses*.are.treated
0fa0	20 61 73 20 73 75 63 63 65 73 73 20 72 65 70 6f 73 6e 65 73 65 73 20 61 6e 64 0a 20 20 27 6e 6f	.as.success.reposneses.and...'no
0fc0	2d 65 72 72 6f 72 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 0a 28 66 6e 20 52 45 53 50 4f 4e 53	-error.is.returned...(fn.RESPONS
0fe0	45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 2d 72 65 70	E)..(defalias.'haskell-utils-rep
1000	6c 2d 72 65 73 70 6f 6e 73 65 2d 65 72 72 6f 72 2d 73 74 61 74 75 73 20 23 5b 32 35 37 20 22 5c	l-response-error-status.#[257."\
1020	32 31 31 5c 32 30 33 50 00 5c 33 30 31 01 5c 33 30 32 5c 33 30 33 23 40 5c 32 31 31 5c 32 30 34	211\203P.\301.\302\303#@\211\204
1040	12 00 5c 33 30 34 5c 32 30 32 4f 00 5c 33 30 35 01 5c 33 30 36 5c 33 30 33 18 5c 33 30 37 03 03	..\304\202O.\305.\306\303.\307..
1060	03 23 29 5c 32 36 36 5c 32 30 33 5c 32 30 33 26 00 5c 33 31 30 5c 32 30 32 4f 00 5c 33 31 31 01	.#)\266\203\203&.\310\202O.\311.
1080	5c 33 30 36 5c 33 30 33 18 5c 33 30 37 03 03 03 23 29 5c 32 36 36 5c 32 30 33 5c 32 30 33 3a 00	\306\303.\307...#)\266\203\203:.
10a0	5c 33 31 32 5c 32 30 32 4f 00 5c 33 31 33 01 5c 33 30 36 5c 33 30 33 18 5c 33 30 37 03 03 03 23	\312\202O.\313.\306\303.\307...#
10c0	29 5c 32 36 36 5c 32 30 33 5c 32 30 33 4e 00 5c 33 31 34 5c 32 30 32 4f 00 5c 33 30 34 5c 32 30	)\266\203\203N.\314\202O.\304\20
10e0	37 5c 33 30 34 5c 32 30 37 22 20 5b 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74	7\304\207".[inhibit-changing-mat
1100	63 68 2d 64 61 74 61 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5c 6e 22 20 74 20 6e 6f 2d 65	ch-data.split-string."\n".t.no-e
1120	72 72 6f 72 20 22 5e 75 6e 6b 6e 6f 77 6e 20 63 6f 6d 6d 61 6e 64 22 20 6e 69 6c 20 73 74 72 69	rror."^unknown.command".nil.stri
1140	6e 67 2d 6d 61 74 63 68 20 75 6e 6b 6e 6f 77 6e 2d 63 6f 6d 6d 61 6e 64 20 22 5e 43 6f 75 6c 64	ng-match.unknown-command."^Could
1160	6e 27 74 20 67 75 65 73 73 20 74 68 61 74 20 6d 6f 64 75 6c 65 20 6e 61 6d 65 2e 20 44 6f 65 73	n't.guess.that.module.name..Does
1180	20 69 74 20 65 78 69 73 74 3f 22 20 6f 70 74 69 6f 6e 2d 6d 69 73 73 69 6e 67 20 22 5e 3c 69 6e	.it.exist?".option-missing."^<in
11a0	74 65 72 61 63 74 69 76 65 3e 3a 22 20 69 6e 74 65 72 61 63 74 69 76 65 2d 65 72 72 6f 72 5d 20	teractive>:".interactive-error].
11c0	39 20 28 23 24 20 2e 20 33 35 34 33 29 5d 29 0a 23 40 31 35 31 20 50 72 65 70 61 72 65 20 3a 74	9.(#$...3543)]).#@151.Prepare.:t
11e0	79 70 65 2d 61 74 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 62 65 20 73 65 6e 64 20 74 6f 20 68 61 73	ype-at.command.to.be.send.to.has
1200	6b 65 6c 6c 20 70 72 6f 63 65 73 73 2e 0a 50 4f 53 20 69 73 20 61 20 63 6f 6e 73 20 63 65 6c 6c	kell.process..POS.is.a.cons.cell
1220	20 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 69 6e 20 61 6e 64 20 6d 61 78 20 70 6f 73 69 74 69 6f 6e	.containing.min.and.max.position
1240	73 2c 20 69 2e 65 2e 20 74 61 72 67 65 74 0a 65 78 70 72 65 73 73 69 6f 6e 20 62 6f 75 6e 64 73	s,.i.e..target.expression.bounds
1260	2e 0a 0a 28 66 6e 20 50 4f 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d	...(fn.POS)..(defalias.'haskell-
1280	75 74 69 6c 73 2d 63 6f 6d 70 6f 73 65 2d 74 79 70 65 2d 61 74 2d 63 6f 6d 6d 61 6e 64 20 23 5b	utils-compose-type-at-command.#[
12a0	32 35 37 20 22 5c 32 31 32 5c 32 31 31 40 01 41 5c 33 30 30 5c 32 31 31 5c 32 31 31 5c 32 31 31	257."\212\211@.A\300\211\211\211
12c0	5c 32 31 31 06 06 62 5c 32 31 30 5c 33 30 31 20 5c 32 36 32 05 69 54 5c 32 36 32 04 05 62 5c 32	\211..b\210\301.\262.iT\262..b\2
12e0	31 30 5c 33 30 31 20 5c 32 36 32 03 69 54 5c 32 36 32 02 5c 33 30 32 06 07 06 07 5c 22 5c 32 36	10\301.\262.iT\262.\302....\"\26
1300	32 01 5c 33 30 33 01 5c 33 30 34 5c 33 30 35 23 5c 32 31 31 41 5c 32 30 33 40 00 5c 32 31 31 40	2.\303.\304\305#\211A\203@.\211@
1320	3b 5c 32 30 33 40 00 5c 33 30 36 5c 33 30 37 02 40 5c 22 5c 32 36 32 02 5c 32 31 30 5c 33 31 30	;\203@.\306\307.@\"\262.\210\310
1340	5c 33 31 31 5c 33 31 32 5c 33 30 36 5c 33 31 33 5c 33 31 34 20 06 5c 6e 06 5c 6e 06 5c 6e 06 5c	\311\312\306\313\314..\n.\n.\n.\
1360	6e 06 5c 6e 26 07 23 5c 32 36 36 5c 32 30 37 29 5c 32 30 37 22 20 5b 6e 69 6c 20 6c 69 6e 65 2d	n.\n&.#\266\207)\207".[nil.line-
1380	6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e	number-at-pos.buffer-substring-n
13a0	6f 2d 70 72 6f 70 65 72 74 69 65 73 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5c 6e 22 20 74	o-properties.split-string."\n".t
13c0	20 66 6f 72 6d 61 74 20 22 5b 20 25 73 20 e2 80 a6 20 5d 22 20 72 65 70 6c 61 63 65 2d 72 65 67	.format."[.%s.....]".replace-reg
13e0	65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 6e 24 22 20 22 22 20 22 3a 74 79 70 65 2d 61 74	exp-in-string."\n$"."".":type-at
1400	20 25 73 20 25 64 20 25 64 20 25 64 20 25 64 20 25 73 22 20 62 75 66 66 65 72 2d 66 69 6c 65 2d	.%s.%d.%d.%d.%d.%s".buffer-file-
1420	6e 61 6d 65 5d 20 31 39 20 28 23 24 20 2e 20 34 35 36 36 29 5d 29 0a 23 40 31 34 37 20 53 65 74	name].19.(#$...4566)]).#@147.Set
1440	20 60 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70	.`haskell-mode-interactive-promp
1460	74 2d 73 74 61 74 65 27 20 74 6f 20 74 2e 0a 49 66 20 67 69 76 65 6e 20 44 49 53 41 42 4c 45 44	t-state'.to.t..If.given.DISABLED
1480	20 61 72 67 75 6d 65 6e 74 20 73 65 74 73 20 76 61 72 69 61 62 6c 65 20 76 61 6c 75 65 20 74 6f	.argument.sets.variable.value.to
14a0	20 6e 69 6c 2c 20 6f 74 68 65 72 77 69 73 65 20 74 6f 20 74 2e 0a 0a 28 66 6e 20 26 6f 70 74 69	.nil,.otherwise.to.t...(fn.&opti
14c0	6f 6e 61 6c 20 44 49 53 41 42 4c 45 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65	onal.DISABLED)..(defalias.'haske
14e0	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
1500	74 2d 73 74 61 74 65 20 23 5b 32 35 36 20 22 5c 32 31 31 3f 5c 32 31 31 10 5c 32 30 37 22 20 5b	t-state.#[256."\211?\211.\207".[
1520	68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 6d 70 74 2d	haskell-mode-interactive-prompt-
1540	73 74 61 74 65 5d 20 33 20 28 23 24 20 2e 20 35 31 38 31 29 5d 29 0a 28 70 72 6f 76 69 64 65 20	state].3.(#$...5181)]).(provide.
1560	27 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 29 0a	'haskell-utils).