blob: 70767fe3cfaf22ecfb5cfc16a17a0da501067351 (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 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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 30 37 22 20 5b 72 65 71 75 69 72 65 20 63 6c 2d 6c 69 62 20 68 61 73 6b 65 6c	303!\207".[require.cl-lib.haskel
01e0	6c 2d 63 61 62 61 6c 20 68 61 73 6b 65 6c 6c 2d 63 75 73 74 6f 6d 69 7a 65 5d 20 32 29 0a 28 64	l-cabal.haskell-customize].2).(d
0200	65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 20 6e 69 6c 20 6e 69 6c 29 0a 28	efvar.haskell-session.nil.nil).(
0220	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 6b	make-variable-buffer-local.'hask
0240	65 6c 6c 2d 73 65 73 73 69 6f 6e 29 0a 23 40 34 34 20 41 6c 6c 20 48 61 73 6b 65 6c 6c 20 73 65	ell-session).#@44.All.Haskell.se
0260	73 73 69 6f 6e 73 20 69 6e 20 74 68 65 20 45 6d 61 63 73 20 73 65 73 73 69 6f 6e 2e 1f 0a 28 64	ssions.in.the.Emacs.session...(d
0280	65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 73 20 6e 69 6c 20 28 23 24 20 2e	efvar.haskell-sessions.nil.(#$..
02a0	20 35 39 34 29 29 0a 23 40 35 31 20 47 65 74 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72	.594)).#@51.Get.the.filename.for
02c0	20 74 68 65 20 54 41 47 53 20 66 69 6c 65 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 29 1f 0a 28	.the.TAGS.file...(fn.SESSION)..(
02e0	64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 74 61 67 73 2d 66	defalias.'haskell-session-tags-f
0300	69 6c 65 6e 61 6d 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 50 5c 32 30 37 22 20	ilename.#[257."\300.!\301P\207".
0320	5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 63 61 62 61 6c 2d 64 69 72 20 22 2f 54 41 47	[haskell-session-cabal-dir."/TAG
0340	53 22 5d 20 33 20 28 23 24 20 2e 20 36 38 34 29 5d 29 0a 23 40 36 33 20 4d 61 79 62 65 20 67 65	S"].3.(#$...684)]).#@63.Maybe.ge
0360	74 20 74 68 65 20 48 61 73 6b 65 6c 6c 20 73 65 73 73 69 6f 6e 2c 20 72 65 74 75 72 6e 20 6e 69	t.the.Haskell.session,.return.ni
0380	6c 20 69 66 20 74 68 65 72 65 20 69 73 6e 27 74 20 6f 6e 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73	l.if.there.isn't.one...(defalias
03a0	20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6d 61 79 62 65 20 23 5b 30 20 22 5c 33 30	.'haskell-session-maybe.#[0."\30
03c0	31 5c 33 30 30 21 5c 32 30 33 08 00 08 5c 32 30 37 5c 33 30 32 5c 32 31 31 10 5c 32 30 37 22 20	1\300!\203...\207\302\211.\207".
03e0	5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 20 64 65 66 61 75 6c 74 2d 62 6f 75 6e 64 70 20	[haskell-session.default-boundp.
0400	6e 69 6c 5d 20 32 20 28 23 24 20 2e 20 38 35 36 29 5d 29 0a 23 40 33 38 20 47 65 74 20 74 68 65	nil].2.(#$...856)]).#@38.Get.the
0420	20 73 65 73 73 69 6f 6e 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 62 75 66 66 65 72 2e 1f 0a 28	.session.based.on.the.buffer...(
0440	64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 66 72 6f 6d 2d 62	defalias.'haskell-session-from-b
0460	75 66 66 65 72 20 23 5b 30 20 22 5c 33 30 31 20 5c 32 30 35 10 00 08 3a 5c 32 30 35 10 00 5c 33	uffer.#[0."\301.\205...:\205..\3
0480	30 32 5c 33 30 33 08 5c 33 30 34 5c 33 30 35 24 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73	02\303.\304\305$\207".[haskell-s
04a0	65 73 73 69 6f 6e 73 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 6c 2d 72 65 64 75	essions.buffer-file-name.cl-redu
04c0	63 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 31 31 5c 32 30 33 34 00 5c	ce.#[514."\300.\301\"\211\2034.\
04e0	33 30 32 01 5c 33 30 33 5c 33 30 34 20 21 5c 22 5c 32 30 33 30 00 02 5c 32 30 33 2c 00 5c 33 30	302.\303\304.!\"\2030..\203,.\30
0500	30 02 5c 33 30 31 5c 22 47 5c 33 30 30 04 5c 33 30 31 5c 22 47 56 5c 32 30 33 28 00 01 5c 32 30	0.\301\"G\300.\301\"GV\203(..\20
0520	32 35 00 02 5c 32 30 32 35 00 01 5c 32 30 32 35 00 02 5c 32 30 32 35 00 02 5c 32 30 37 22 20 5b	25..\2025..\2025..\2025..\207".[
0540	68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 67 65 74 20 63 61 62 61 6c 2d 64 69 72 20 73 74	haskell-session-get.cabal-dir.st
0560	72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72	ring-prefix-p.file-name-director
0580	79 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 41	y.buffer-file-name].7."\n\n(fn.A
05a0	43 43 20 41 29 22 5d 20 3a 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 20 6e 69 6c 5d 20 35 20 28 23	CC.A)"].:initial-value.nil].5.(#
05c0	24 20 2e 20 31 30 34 39 29 5d 29 0a 23 40 36 31 20 47 65 6e 65 72 61 74 65 20 61 20 64 65 66 61	$...1049)]).#@61.Generate.a.defa
05e0	75 6c 74 20 70 72 6f 6a 65 63 74 20 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 6e 65 77 20 70 72 6f	ult.project.name.for.the.new.pro
0600	6a 65 63 74 20 70 72 6f 6d 70 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c	ject.prompt...(defalias.'haskell
0620	2d 73 65 73 73 69 6f 6e 2d 64 65 66 61 75 6c 74 2d 6e 61 6d 65 20 23 5b 30 20 22 5c 33 30 30 20	-session-default-name.#[0."\300.
0640	5c 32 31 31 5c 32 30 33 0f 00 5c 33 30 31 5c 33 30 32 02 21 21 5c 32 32 37 5c 32 30 36 10 00 5c	\211\203..\301\302.!!\227\206..\
0660	33 30 33 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 63 61 62 61 6c 2d 66 69 6e 64 2d 66 69 6c	303\207".[haskell-cabal-find-fil
0680	65 20 66 69 6c 65 2d 6e 61 6d 65 2d 73 61 6e 73 2d 65 78 74 65 6e 73 69 6f 6e 20 66 69 6c 65 2d	e.file-name-sans-extension.file-
06a0	6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 22 68 61 73 6b 65 6c 6c 22 5d 20 34 20 28	name-nondirectory."haskell"].4.(
06c0	23 24 20 2e 20 31 34 38 39 29 5d 29 0a 23 40 32 30 36 20 41 73 73 69 6e 67 20 63 75 72 72 65 6e	#$...1489)]).#@206.Assing.curren
06e0	74 20 62 75 66 66 65 72 20 74 6f 20 53 45 53 53 49 4f 4e 2e 0a 0a 54 68 69 73 20 63 6f 75 6c 64	t.buffer.to.SESSION...This.could
0700	20 62 65 20 68 65 6c 70 66 75 6c 20 66 6f 72 20 74 65 6d 70 6f 72 61 72 79 20 6f 72 20 61 75 78	.be.helpful.for.temporary.or.aux
0720	69 6c 69 61 72 79 20 62 75 66 66 65 72 73 20 73 75 63 68 20 61 73 0a 70 72 65 73 65 6e 74 61 74	iliary.buffers.such.as.presentat
0740	69 6f 6e 20 6d 6f 64 65 20 62 75 66 66 65 72 73 20 28 65 2e 67 2e 20 69 6e 20 63 61 73 65 20 77	ion.mode.buffers.(e.g..in.case.w
0760	68 65 6e 20 73 65 73 73 69 6f 6e 20 69 73 20 6b 69 6c 6c 65 64 0a 77 69 74 68 20 61 6c 6c 20 72	hen.session.is.killed.with.all.r
0780	65 6c 65 76 61 6e 74 20 62 75 66 66 65 72 73 29 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 29 1f	elevant.buffers)...(fn.SESSION).
07a0	0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 61 73 73 69	.(defalias.'haskell-session-assi
07c0	67 6e 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 31 30 5c 32 31 31 5c 32 31 31 10	gn.#[257."\301\300!\210\211\211.
07e0	5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 61	\207".[haskell-session.make-loca
0800	6c 2d 76 61 72 69 61 62 6c 65 5d 20 33 20 28 23 24 20 2e 20 31 37 34 37 29 5d 29 0a 23 40 36 35	l-variable].3.(#$...1747)]).#@65
0820	20 46 69 6e 64 20 61 20 73 65 73 73 69 6f 6e 20 62 79 20 63 68 6f 6f 73 69 6e 67 20 66 72 6f 6d	.Find.a.session.by.choosing.from
0840	20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 73 2e	.a.list.of.the.current.sessions.
0860	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 63 68 6f	..(defalias.'haskell-session-cho
0880	6f 73 65 20 23 5b 30 20 22 08 5c 32 30 35 20 00 09 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30	ose.#[0.".\205...\302\303\304\30
08a0	35 5c 33 30 36 08 5c 22 5c 22 5c 22 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33	5\306.\"\"\"\307\310\311\312\313
08c0	5c 33 31 34 06 06 21 5c 33 31 35 5c 22 5c 33 31 36 5c 33 31 37 25 08 5c 22 5c 32 36 32 01 5c 32	\314..!\315\"\316\317%.\"\262.\2
08e0	30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 73 20 68 61 73 6b 65 6c 6c 2d 63 6f	07".[haskell-sessions.haskell-co
0900	6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 2d 66 75 6e 63 74 69 6f 6e 20 22 43 68 6f 6f 73 65 20 48	mpleting-read-function."Choose.H
0920	61 73 6b 65 6c 6c 20 73 65 73 73 69 6f 6e 3a 20 22 20 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 23	askell.session:.".cl-remove-if.#
0940	5b 32 35 37 20 22 08 5c 32 30 35 09 00 5c 33 30 31 08 21 01 5c 32 33 30 5c 32 30 37 22 20 5b 68	[257.".\205..\301.!.\230\207".[h
0960	61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6e	askell-session.haskell-session-n
0980	61 6d 65 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 4e 41 4d 45 29 22 5d 20 6d 61 70 63 61 72 20 68	ame].3."\n\n(fn.NAME)"].mapcar.h
09a0	61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 63 6c 2d 66 69 6e 64 2d 69 66 20 6d	askell-session-name.cl-find-if.m
09c0	61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 01 21 5c 33 30 30 5c 32 33	ake-byte-code.257."\301.!\300\23
09e0	30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 68 61 73 6b 65 6c 6c 2d 73	0\207".vconcat.vector.[haskell-s
0a00	65 73 73 69 6f 6e 2d 6e 61 6d 65 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 53 53 49 4f 4e 29	ession-name].3."\n\n(fn.SESSION)
0a20	22 5d 20 38 20 28 23 24 20 2e 20 32 30 38 31 29 5d 29 0a 23 40 34 39 20 43 6c 65 61 72 20 74 68	"].8.(#$...2081)]).#@49.Clear.th
0a40	65 20 62 75 66 66 65 72 20 6f 66 20 61 6e 79 20 48 61 73 6b 65 6c 6c 20 73 65 73 73 69 6f 6e 20	e.buffer.of.any.Haskell.session.
0a60	63 68 6f 69 63 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73	choice...(defalias.'haskell-sess
0a80	69 6f 6e 2d 63 6c 65 61 72 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 31 30 5c 33 30 32	ion-clear.#[0."\301\300!\210\302
0aa0	5c 32 31 31 10 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 20 6d 61 6b 65	\211.\207".[haskell-session.make
0ac0	2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 6e 69 6c 5d 20 32 20 28 23 24 20 2e 20 32 36 31	-local-variable.nil].2.(#$...261
0ae0	36 29 5d 29 0a 23 40 33 37 20 47 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 62 79 20 6e 61 6d	6)]).#@37.Get.the.session.by.nam
0b00	65 2e 0a 0a 28 66 6e 20 4e 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c	e...(fn.NAME)..(defalias.'haskel
0b20	6c 2d 73 65 73 73 69 6f 6e 2d 6c 6f 6f 6b 75 70 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32	l-session-lookup.#[257."\301\302
0b40	5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31	\303\304\305\306..!\307\"\310\31
0b60	31 25 08 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 73 20 63 6c 2d	1%.\"\207".[haskell-sessions.cl-
0b80	72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37	remove-if-not.make-byte-code.257
0ba0	20 22 5c 33 30 30 5c 33 30 31 02 21 5c 32 33 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65	."\300\301.!\230\207".vconcat.ve
0bc0	63 74 6f 72 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 5d 20 34 20 22 5c	ctor.[haskell-session-name].4."\
0be0	6e 5c 6e 28 66 6e 20 53 29 22 5d 20 38 20 28 23 24 20 2e 20 32 37 39 34 29 5d 29 0a 23 40 35 39	n\n(fn.S)"].8.(#$...2794)]).#@59
0c00	20 53 74 72 69 70 20 74 68 65 20 6c 6f 61 64 20 64 69 72 20 66 72 6f 6d 20 74 68 65 20 66 69 6c	.Strip.the.load.dir.from.the.fil
0c20	65 20 70 61 74 68 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	e.path...(fn.SESSION.FILE)..(def
0c40	61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 74 72 69 70 2d 64 69 72	alias.'haskell-session-strip-dir
0c60	20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 01 47 01 47 56 5c 32 30 33 25 00 01 5c 33 30 31 02 47	.#[514."\300.!.G.GV\203%..\301.G
0c80	4f 01 5c 32 33 30 5c 32 30 33 21 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 04 47 5c 33 30 35 4f	O.\230\203!.\302\303\304..G\305O
0ca0	23 5c 32 30 32 26 00 01 5c 32 30 32 26 00 01 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65	#\202&..\202&..\207".[haskell-se
0cc0	73 73 69 6f 6e 2d 63 75 72 72 65 6e 74 2d 64 69 72 20 30 20 72 65 70 6c 61 63 65 2d 72 65 67 65	ssion-current-dir.0.replace-rege
0ce0	78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5e 5b 2f 5c 5c 5d 22 20 22 22 20 6e 69 6c 5d 20 39 20	xp-in-string."^[/\\]"."".nil].9.
0d00	28 23 24 20 2e 20 33 30 37 33 29 5d 29 0a 23 40 34 34 20 47 65 74 20 74 68 65 20 73 65 73 73 69	(#$...3073)]).#@44.Get.the.sessi
0d20	6f 6e 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28	on.current.directory...(fn.S)..(
0d40	64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 63 75 72 72 65 6e	defalias.'haskell-session-curren
0d60	74 2d 64 69 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 31 31 5c 32 30 36	t-dir.#[257."\300.\301\"\211\206
0d80	0b 00 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	..\302\303!\207".[haskell-sessio
0da0	6e 2d 67 65 74 20 63 75 72 72 65 6e 74 2d 64 69 72 20 65 72 72 6f 72 20 22 4e 6f 20 63 75 72 72	n-get.current-dir.error."No.curr
0dc0	65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 22 5d 20 34 20 28 23 24 20 2e 20 33 33 34 37 29 5d 29	ent.directory."].4.(#$...3347)])
0de0	0a 23 40 33 31 20 47 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 6e 61 6d 65 2e 0a 0a 28 66 6e	.#@31.Get.the.session.name...(fn
0e00	20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d	.S)..(defalias.'haskell-session-
0e20	6e 61 6d 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 68 61	name.#[257."\300.\301\"\207".[ha
0e40	73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 67 65 74 20 6e 61 6d 65 5d 20 34 20 28 23 24 20 2e 20	skell-session-get.name].4.(#$...
0e60	33 35 35 38 29 5d 29 0a 23 40 31 30 38 20 47 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 62 75	3558)]).#@108.Get.the.session.bu
0e80	69 6c 64 20 74 61 72 67 65 74 2e 0a 49 66 20 60 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d	ild.target..If.`haskell-process-
0ea0	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 20 61	load-or-reload-prompt'.is.nil,.a
0ec0	63 63 65 70 74 20 60 64 65 66 61 75 6c 74 27 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 64 65 66 61 6c	ccept.`default'...(fn.S)..(defal
0ee0	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 74 61 72 67 65 74 20 23 5b 32 35	ias.'haskell-session-target.#[25
0f00	37 20 22 5c 33 30 31 01 5c 33 30 32 5c 22 5c 32 31 31 5c 32 30 33 5c 66 00 5c 32 31 31 5c 32 30	7."\301.\302\"\211\203\f.\211\20
0f20	32 1d 00 08 5c 32 30 33 16 00 5c 33 30 33 5c 33 30 34 21 5c 32 30 32 17 00 5c 33 30 35 5c 33 30	2...\203..\303\304!\202..\305\30
0f40	36 03 02 5c 22 5c 32 36 32 01 5c 32 31 31 5c 33 30 35 5c 32 33 30 3f 5c 32 30 35 25 00 5c 32 31	6..\"\262.\211\305\230?\205%.\21
0f60	31 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 6c 6f 61 64 2d 6f 72 2d	1\207".[haskell-process-load-or-
0f80	72 65 6c 6f 61 64 2d 70 72 6f 6d 70 74 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 67 65	reload-prompt.haskell-session-ge
0fa0	74 20 74 61 72 67 65 74 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 62 75 69 6c 64 20 74 61 72 67	t.target.read-string."build.targ
0fc0	65 74 20 28 65 6d 70 74 79 20 66 6f 72 20 64 65 66 61 75 6c 74 29 3a 22 20 22 22 20 68 61 73 6b	et.(empty.for.default):"."".hask
0fe0	65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 2d 74 61 72 67 65 74 5d 20 36 20 28 23 24 20 2e 20	ell-session-set-target].6.(#$...
1000	33 36 39 34 29 5d 29 0a 23 40 34 36 20 53 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 62 75 69	3694)]).#@46.Set.the.session.bui
1020	6c 64 20 74 61 72 67 65 74 2e 0a 0a 28 66 6e 20 53 20 54 41 52 47 45 54 29 1f 0a 28 64 65 66 61	ld.target...(fn.S.TARGET)..(defa
1040	6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 2d 74 61 72 67 65 74	lias.'haskell-session-set-target
1060	20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c	.#[514."\300.\301.#\207".[haskel
1080	6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 20 74 61 72 67 65 74 5d 20 36 20 28 23 24 20 2e 20 34 31	l-session-set.target].6.(#$...41
10a0	30 39 29 5d 29 0a 23 40 34 37 20 53 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 69 6e 74 65 72	09)]).#@47.Set.the.session.inter
10c0	61 63 74 69 76 65 20 62 75 66 66 65 72 2e 0a 0a 28 66 6e 20 53 20 56 29 1f 0a 28 64 65 66 61 6c	active.buffer...(fn.S.V)..(defal
10e0	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 2d 69 6e 74 65 72 61 63	ias.'haskell-session-set-interac
1100	74 69 76 65 2d 62 75 66 66 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32	tive-buffer.#[514."\300.\301.#\2
1120	30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 20 69 6e 74 65 72 61 63	07".[haskell-session-set.interac
1140	74 69 76 65 2d 62 75 66 66 65 72 5d 20 36 20 28 23 24 20 2e 20 34 32 36 37 29 5d 29 0a 23 40 33	tive-buffer].6.(#$...4267)]).#@3
1160	36 20 53 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 70 72 6f 63 65 73 73 2e 0a 0a 28 66 6e 20	6.Set.the.session.process...(fn.
1180	53 20 56 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e	S.V)..(defalias.'haskell-session
11a0	2d 73 65 74 2d 70 72 6f 63 65 73 73 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c	-set-process.#[514."\300.\301.#\
11c0	32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 20 70 72 6f 63 65 73	207".[haskell-session-set.proces
11e0	73 5d 20 36 20 28 23 24 20 2e 20 34 34 35 30 29 5d 29 0a 23 40 33 34 20 47 65 74 20 74 68 65 20	s].6.(#$...4450)]).#@34.Get.the.
1200	73 65 73 73 69 6f 6e 20 70 72 6f 63 65 73 73 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 64 65 66 61 6c	session.process...(fn.S)..(defal
1220	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 70 72 6f 63 65 73 73 20 23 5b 32	ias.'haskell-session-process.#[2
1240	35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65	57."\300.\301\"\207".[haskell-se
1260	73 73 69 6f 6e 2d 67 65 74 20 70 72 6f 63 65 73 73 5d 20 34 20 28 23 24 20 2e 20 34 36 30 30 29	ssion-get.process].4.(#$...4600)
1280	5d 29 0a 23 40 33 38 20 53 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 63 61 62 61 6c 2d 64 69	]).#@38.Set.the.session.cabal-di
12a0	72 2e 0a 0a 28 66 6e 20 53 20 56 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c	r...(fn.S.V)..(defalias.'haskell
12c0	2d 73 65 73 73 69 6f 6e 2d 73 65 74 2d 63 61 62 61 6c 2d 64 69 72 20 23 5b 35 31 34 20 22 5c 33	-session-set-cabal-dir.#[514."\3
12e0	30 30 01 21 5c 33 30 31 03 5c 33 30 32 03 23 5c 32 31 30 5c 33 30 33 03 02 5c 22 5c 32 30 37 22	00.!\301.\302.#\210\303..\"\207"
1300	20 5b 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d	.[file-truename.haskell-session-
1320	73 65 74 20 63 61 62 61 6c 2d 64 69 72 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65	set.cabal-dir.haskell-session-se
1340	74 2d 63 61 62 61 6c 2d 63 68 65 63 6b 73 75 6d 5d 20 37 20 28 23 24 20 2e 20 34 37 34 34 29 5d	t-cabal-checksum].7.(#$...4744)]
1360	29 0a 23 40 34 36 20 53 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 63 75 72 72 65 6e 74 20 64	).#@46.Set.the.session.current.d
1380	69 72 65 63 74 6f 72 79 2e 0a 0a 28 66 6e 20 53 20 56 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	irectory...(fn.S.V)..(defalias.'
13a0	68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 2d 63 75 72 72 65 6e 74 2d 64 69 72 20	haskell-session-set-current-dir.
13c0	23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 33 30 31 03 5c 33 30 32 03 23 5c 32 30 37 22 20 5b 66	#[514."\300.!\301.\302.#\207".[f
13e0	69 6c 65 2d 74 72 75 65 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74	ile-truename.haskell-session-set
1400	20 63 75 72 72 65 6e 74 2d 64 69 72 5d 20 37 20 28 23 24 20 2e 20 34 39 36 37 29 5d 29 0a 23 40	.current-dir].7.(#$...4967)]).#@
1420	36 30 20 53 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 2e	60.Set.the.session.checksum.of..
1440	63 61 62 61 6c 20 66 69 6c 65 73 0a 0a 28 66 6e 20 53 20 43 41 42 41 4c 2d 44 49 52 29 1f 0a 28	cabal.files..(fn.S.CABAL-DIR)..(
1460	64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 2d 63 61	defalias.'haskell-session-set-ca
1480	62 61 6c 2d 63 68 65 63 6b 73 75 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30	bal-checksum.#[514."\300.\301\30
14a0	32 04 21 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 20 63	2.!#\207".[haskell-session-set.c
14c0	61 62 61 6c 2d 63 68 65 63 6b 73 75 6d 20 68 61 73 6b 65 6c 6c 2d 63 61 62 61 6c 2d 63 6f 6d 70	abal-checksum.haskell-cabal-comp
14e0	75 74 65 2d 63 68 65 63 6b 73 75 6d 5d 20 37 20 28 23 24 20 2e 20 35 31 35 35 29 5d 29 0a 23 40	ute-checksum].7.(#$...5155)]).#@
1500	33 36 20 47 65 74 20 74 68 65 20 73 65 73 73 69 6f 6e 20 63 61 62 61 6c 2d 64 69 72 2e 0a 0a 28	36.Get.the.session.cabal-dir...(
1520	66 6e 20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f	fn.S)..(defalias.'haskell-sessio
1540	6e 2d 63 61 62 61 6c 2d 64 69 72 20 23 5b 32 35 37 20 22 5c 33 30 31 01 5c 33 30 32 5c 22 5c 32	n-cabal-dir.#[257."\301.\302\"\2
1560	30 36 1d 00 5c 33 30 33 08 3f 21 5c 32 31 31 5c 32 30 33 18 00 5c 33 30 34 02 02 5c 22 5c 32 31	06..\303.?!\211\203..\304..\"\21
1580	30 5c 32 31 31 5c 32 30 32 1b 00 5c 33 30 35 02 21 5c 32 36 32 01 5c 32 30 37 22 20 5b 68 61 73	0\211\202..\305.!\262.\207".[has
15a0	6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 6c 6f 61 64 2d 6f 72 2d 72 65 6c 6f 61 64 2d 70 72 6f 6d	kell-process-load-or-reload-prom
15c0	70 74 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 67 65 74 20 63 61 62 61 6c 2d 64 69 72	pt.haskell-session-get.cabal-dir
15e0	20 68 61 73 6b 65 6c 6c 2d 63 61 62 61 6c 2d 67 65 74 2d 64 69 72 20 68 61 73 6b 65 6c 6c 2d 73	.haskell-cabal-get-dir.haskell-s
1600	65 73 73 69 6f 6e 2d 73 65 74 2d 63 61 62 61 6c 2d 64 69 72 20 68 61 73 6b 65 6c 6c 2d 73 65 73	ession-set-cabal-dir.haskell-ses
1620	73 69 6f 6e 2d 63 61 62 61 6c 2d 64 69 72 5d 20 35 20 28 23 24 20 2e 20 35 33 37 39 29 5d 29 0a	sion-cabal-dir].5.(#$...5379)]).
1640	23 40 37 34 20 55 70 64 61 74 65 20 74 68 65 20 76 61 6c 75 65 20 61 74 20 4b 45 59 20 69 6e 20	#@74.Update.the.value.at.KEY.in.
1660	53 45 53 53 49 4f 4e 20 77 69 74 68 20 55 50 44 41 54 45 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f	SESSION.with.UPDATE...(fn.SESSIO
1680	4e 20 4b 45 59 20 55 50 44 41 54 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c	N.KEY.UPDATE)..(defalias.'haskel
16a0	6c 2d 73 65 73 73 69 6f 6e 2d 6d 6f 64 69 66 79 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 03 5c	l-session-modify.#[771."\300...\
16c0	33 30 31 06 07 06 07 5c 22 21 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f	301....\"!#\207".[haskell-sessio
16e0	6e 2d 73 65 74 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 67 65 74 5d 20 31 30 20 28 23	n-set.haskell-session-get].10.(#
1700	24 20 2e 20 35 37 30 31 29 5d 29 0a 23 40 37 36 20 47 65 74 20 74 68 65 20 53 45 53 53 49 4f 4e	$...5701)]).#@76.Get.the.SESSION
1720	27 73 20 4b 45 59 20 76 61 6c 75 65 2e 0a 52 65 74 75 72 6e 73 20 6e 69 6c 20 69 66 20 4b 45 59	's.KEY.value..Returns.nil.if.KEY
1740	20 6e 6f 74 20 73 65 74 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 4b 45 59 29 1f 0a 28 64 65	.not.set...(fn.SESSION.KEY)..(de
1760	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 67 65 74 20 23 5b 35 31	falias.'haskell-session-get.#[51
1780	34 20 22 5c 32 31 31 02 5c 32 33 36 41 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 35 39	4."\211.\236A\207".[].4.(#$...59
17a0	30 35 29 5d 29 0a 23 40 38 32 20 53 65 74 20 74 68 65 20 53 45 53 53 49 4f 4e 27 73 20 4b 45 59	05)]).#@82.Set.the.SESSION's.KEY
17c0	20 74 6f 20 56 41 4c 55 45 2e 0a 52 65 74 75 72 6e 73 20 6e 65 77 6c 79 20 73 65 74 20 56 41 4c	.to.VALUE..Returns.newly.set.VAL
17e0	55 45 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 4b 45 59 20 56 41 4c 55 45 29 1f 0a 28 64 65	UE...(fn.SESSION.KEY.VALUE)..(de
1800	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 73 65 74 20 23 5b 37 37	falias.'haskell-session-set.#[77
1820	31 20 22 01 03 5c 32 33 36 5c 32 31 31 5c 32 30 33 0d 00 5c 32 31 31 02 5c 32 34 31 5c 32 30 32	1."..\236\211\203..\211.\241\202
1840	17 00 03 03 03 42 05 41 42 5c 32 34 31 5c 32 31 30 01 5c 32 30 37 22 20 5b 5d 20 37 20 28 23 24	.....B.AB\241\210.\207".[].7.(#$
1860	20 2e 20 36 30 35 39 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73	...6059)]).(provide.'haskell-ses
1880	73 69 6f 6e 29 0a	sion).