blob: 9290a413e0163107daa0dfcdc8f1b4ca08ce2868 (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 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 30 37 22 20 5b 72	10\300\306!\210\300\307!\207".[r
0200	65 71 75 69 72 65 20 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 20 68 61 73 6b	equire.haskell-sort-imports.hask
0220	65 6c 6c 2d 61 6c 69 67 6e 2d 69 6d 70 6f 72 74 73 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f	ell-align-imports.haskell-sessio
0240	6e 20 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 20 68 61 73 6b 65	n.haskell-navigate-imports.haske
0260	6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 20 68 61 73 6b 65 6c 6c 2d 73 61 6e 64 62	ll-complete-module.haskell-sandb
0280	6f 78 20 68 61 73 6b 65 6c 6c 2d 63 75 73 74 6f 6d 69 7a 65 5d 20 32 29 0a 23 40 31 36 39 20 41	ox.haskell-customize].2).#@169.A
02a0	64 64 20 61 6e 20 69 6d 70 6f 72 74 20 74 6f 20 74 68 65 20 69 6d 70 6f 72 74 20 6c 69 73 74 2e	dd.an.import.to.the.import.list.
02c0	20 20 53 6f 72 74 73 20 61 6e 64 20 61 6c 69 67 6e 73 20 69 6d 70 6f 72 74 73 2c 0a 75 6e 6c 65	..Sorts.and.aligns.imports,.unle
02e0	73 73 20 60 68 61 73 6b 65 6c 6c 2d 73 74 79 6c 69 73 68 2d 6f 6e 2d 73 61 76 65 27 20 69 73 20	ss.`haskell-stylish-on-save'.is.
0300	73 65 74 2c 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 77 65 20 64 65 66 65 72 0a 74 6f 20 73	set,.in.which.case.we.defer.to.s
0320	74 79 6c 69 73 68 2d 68 61 73 6b 65 6c 6c 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 4d	tylish-haskell...(fn.&optional.M
0340	4f 44 55 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 61 64 64 2d 69	ODULE)..(defalias.'haskell-add-i
0360	6d 70 6f 72 74 20 23 5b 32 35 36 20 22 5c 32 31 32 64 62 5c 32 31 30 5c 33 30 31 20 5c 32 31 30	mport.#[256."\212db\210\301.\210
0380	5c 33 30 32 01 5c 32 30 36 13 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 20 21 5c 22 21	\302.\206..\303\304\305\306.!\"!
03a0	63 5c 32 31 30 08 3f 5c 32 30 35 20 00 5c 33 30 37 20 5c 32 31 30 5c 33 31 30 20 29 5c 32 30 37	c\210.?\205..\307.\210\310.)\207
03c0	22 20 5b 68 61 73 6b 65 6c 6c 2d 73 74 79 6c 69 73 68 2d 6f 6e 2d 73 61 76 65 20 68 61 73 6b 65	".[haskell-stylish-on-save.haske
03e0	6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 20 68 61 73 6b 65 6c 6c 2d 69 6d 70 6f	ll-navigate-imports.haskell-impo
0400	72 74 2d 66 6f 72 2d 6d 6f 64 75 6c 65 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d	rt-for-module.haskell-complete-m
0420	6f 64 75 6c 65 2d 72 65 61 64 20 22 4d 6f 64 75 6c 65 3a 20 22 20 68 61 73 6b 65 6c 6c 2d 73 65	odule-read."Module:.".haskell-se
0440	73 73 69 6f 6e 2d 61 6c 6c 2d 6d 6f 64 75 6c 65 73 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 75 6c 65	ssion-all-modules.haskell-module
0460	73 2d 73 65 73 73 69 6f 6e 20 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 20 68	s-session.haskell-sort-imports.h
0480	61 73 6b 65 6c 6c 2d 61 6c 69 67 6e 2d 69 6d 70 6f 72 74 73 5d 20 36 20 28 23 24 20 2e 20 36 37	askell-align-imports].6.(#$...67
04a0	31 29 20 6e 69 6c 5d 29 0a 23 40 35 38 20 47 65 74 20 69 6d 70 6f 72 74 20 73 74 61 74 65 6d 65	1).nil]).#@58.Get.import.stateme
04c0	6e 74 73 20 66 6f 72 20 74 68 65 20 67 69 76 65 6e 20 6d 6f 64 75 6c 65 2e 0a 0a 28 66 6e 20 4d	nts.for.the.given.module...(fn.M
04e0	4f 44 55 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 69 6d 70 6f 72	ODULE)..(defalias.'haskell-impor
0500	74 2d 66 6f 72 2d 6d 6f 64 75 6c 65 20 23 5b 32 35 37 20 22 5c 33 30 31 01 08 5c 22 5c 32 31 31	t-for-module.#[257."\301..\"\211
0520	5c 32 30 33 0d 00 5c 32 31 31 41 5c 32 30 32 16 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30	\203..\211A\202..\302\303\304\30
0540	35 05 5c 22 5c 22 5c 33 30 36 50 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69 6d 70 6f 72 74	5.\"\"\306P\207".[haskell-import
0560	2d 6d 61 70 70 69 6e 67 20 61 73 73 6f 63 20 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66	-mapping.assoc.read-from-minibuf
0580	66 65 72 20 22 49 6d 70 6f 72 74 20 6c 69 6e 65 3a 20 22 20 66 6f 72 6d 61 74 20 22 69 6d 70 6f	fer."Import.line:.".format."impo
05a0	72 74 20 25 73 22 20 22 5c 6e 22 5d 20 37 20 28 23 24 20 2e 20 31 31 39 38 29 5d 29 0a 23 40 39	rt.%s"."\n"].7.(#$...1198)]).#@9
05c0	30 20 47 65 74 20 74 68 65 20 6d 6f 64 75 6c 65 73 20 69 6e 73 74 61 6c 6c 65 64 20 69 6e 20 74	0.Get.the.modules.installed.in.t
05e0	68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 73 65 74 2e 0a 0a 28 66 6e 20 53 45 53	he.current.package.set...(fn.SES
0600	53 49 4f 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 44 4f 4e 54 43 52 45 41 54 45 29 1f 0a 28 64 65 66	SION.&optional.DONTCREATE)..(def
0620	61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 69 6e 73 74 61 6c 6c 65 64	alias.'haskell-session-installed
0640	2d 6d 6f 64 75 6c 65 73 20 23 5b 35 31 33 20 22 5c 33 30 30 20 5c 32 31 31 5c 32 30 35 24 00 5c	-modules.#[513."\300.\211\205$.\
0660	33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 21 5c 32 30 33 1a 00 5c 33 30 35 5c 33 30 36 5c	301\302\303\304.!\203..\305\306\
0680	33 30 37 06 06 21 21 50 5c 32 30 32 1b 00 5c 33 31 30 5c 33 31 31 5c 33 31 32 24 21 5c 33 31 33	307..!!P\202..\310\311\312$!\313
06a0	01 21 5c 32 36 32 01 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	.!\262.\207".[haskell-session-ma
06c0	79 62 65 20 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 20 66 6f 72 6d	ybe.shell-command-to-string.form
06e0	61 74 20 22 25 73 20 32 3e 20 2f 64 65 76 2f 6e 75 6c 6c 20 7c 20 25 73 20 7c 20 25 73 22 20 68	at."%s.2>./dev/null.|.%s.|.%s".h
0700	61 73 6b 65 6c 6c 2d 73 61 6e 64 62 6f 78 2d 65 78 69 73 74 73 2d 70 20 22 67 68 63 2d 70 6b 67	askell-sandbox-exists-p."ghc-pkg
0720	20 64 75 6d 70 20 2d 66 20 22 20 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20	.dump.-f.".shell-quote-argument.
0740	68 61 73 6b 65 6c 6c 2d 73 61 6e 64 62 6f 78 2d 70 6b 67 64 62 20 22 67 68 63 2d 70 6b 67 20 64	haskell-sandbox-pkgdb."ghc-pkg.d
0760	75 6d 70 22 20 22 65 67 72 65 70 20 27 5e 28 65 78 70 6f 73 65 64 2d 6d 6f 64 75 6c 65 73 3a 20	ump"."egrep.'^(exposed-modules:.
0780	7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 5b 41 2d 5a 5d 27 22 20 22 63 75 74 20	|.................)[A-Z]'"."cut.
07a0	2d 63 31 38 2d 22 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 5d 20 31 30 20 28 23 24 20 2e 20 31 34	-c18-".split-string].10.(#$...14
07c0	37 34 29 5d 29 0a 23 40 31 34 35 20 47 65 74 20 61 6c 6c 20 6d 6f 64 75 6c 65 73 20 2d 2d 20 69	74)]).#@145.Get.all.modules.--.i
07e0	6e 73 74 61 6c 6c 65 64 20 6f 72 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 6f 6a 65	nstalled.or.in.the.current.proje
0800	63 74 2e 0a 49 66 20 44 4f 4e 54 43 52 45 41 54 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 64 6f 6e	ct..If.DONTCREATE.is.non-nil.don
0820	27 74 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 73 65 73 73 69 6f 6e 2e 0a 0a 28 66 6e 20 53 45	't.create.a.new.session...(fn.SE
0840	53 53 49 4f 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 44 4f 4e 54 43 52 45 41 54 45 29 1f 0a 28 64 65	SSION.&optional.DONTCREATE)..(de
0860	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 6c 6c 2d 6d 6f 64 75	falias.'haskell-session-all-modu
0880	6c 65 73 20 23 5b 35 31 33 20 22 5c 33 30 30 5c 33 30 31 03 03 5c 22 5c 33 30 32 04 04 5c 22 5c	les.#[513."\300\301..\"\302..\"\
08a0	22 5c 32 30 37 22 20 5b 61 70 70 65 6e 64 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 69	"\207".[append.haskell-session-i
08c0	6e 73 74 61 6c 6c 65 64 2d 6d 6f 64 75 6c 65 73 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e	nstalled-modules.haskell-session
08e0	2d 70 72 6f 6a 65 63 74 2d 6d 6f 64 75 6c 65 73 5d 20 37 20 28 23 24 20 2e 20 31 39 39 36 29 5d	-project-modules].7.(#$...1996)]
0900	29 0a 23 40 31 32 39 20 47 65 74 20 74 68 65 20 6d 6f 64 75 6c 65 73 20 6f 66 20 74 68 65 20 63	).#@129.Get.the.modules.of.the.c
0920	75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 2e 0a 49 66 20 44 4f 4e 54 43 52 45 41 54 45 20 69 73	urrent.project..If.DONTCREATE.is
0940	20 6e 6f 6e 2d 6e 69 6c 20 64 6f 6e 27 74 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 73 65 73 73	.non-nil.don't.create.a.new.sess
0960	69 6f 6e 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 44 4f 4e 54	ion...(fn.SESSION.&optional.DONT
0980	43 52 45 41 54 45 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	CREATE)..(defalias.'haskell-sess
09a0	69 6f 6e 2d 70 72 6f 6a 65 63 74 2d 6d 6f 64 75 6c 65 73 20 23 5b 35 31 33 20 22 5c 32 31 31 5c	ion-project-modules.#[513."\211\
09c0	32 30 33 09 00 5c 33 30 30 20 5c 32 30 35 1b 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 32	203..\300.\205..\301\302\303\302
09e0	5c 33 30 34 5c 33 30 35 06 07 21 5c 22 5c 33 30 36 23 21 5c 33 30 37 01 21 5c 32 36 32 01 5c 32	\304\305..!\"\306#!\307.!\262.\2
0a00	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 73 68 65 6c 6c	07".[haskell-session-maybe.shell
0a20	2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20 22 25 73 20 26 26	-command-to-string.format."%s.&&
0a40	20 25 73 22 20 22 63 64 20 25 73 22 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 63 61 62	.%s"."cd.%s".haskell-session-cab
0a60	61 6c 2d 64 69 72 20 22 65 67 72 65 70 20 27 5e 6d 6f 64 75 6c 65 5b 09 0d 20 5d 2b 5b 5e 28 09	al-dir."egrep.'^module[...]+[^(.
0a80	0d 20 5d 2b 27 20 2e 20 2d 72 20 2d 49 20 2d 2d 69 6e 63 6c 75 64 65 3d 27 2a 2e 2a 68 73 27 20	..]+'...-r.-I.--include='*.*hs'.
0aa0	2d 2d 69 6e 63 6c 75 64 65 3d 27 2a 2e 68 73 63 27 20 2d 73 20 2d 6f 20 2d 68 20 7c 20 73 65 64	--include='*.hsc'.-s.-o.-h.|.sed
0ac0	20 27 73 2f 5e 6d 6f 64 75 6c 65 5b 09 0d 20 5d 2a 2f 2f 27 20 7c 20 73 6f 72 74 20 7c 20 75 6e	.'s/^module[...]*//'.|.sort.|.un
0ae0	69 71 22 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 5d 20 39 20 28 23 24 20 2e 20 32 33 31 32 29 5d	iq".split-string].9.(#$...2312)]
0b00	29 0a 23 40 36 38 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	).#@68.Get.the.`haskell-session'
0b20	2c 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 0a 20 20 61	,.throw.an.error.if.it's.not...a
0b40	76 61 69 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 6d 6f	vailable...(defalias.'haskell-mo
0b60	64 75 6c 65 73 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 33	dules-session.#[0."\300.\206..\3
0b80	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 35	01\302.\206..\303.\206..\304\305
0ba0	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 68	!!\207".[haskell-session-maybe.h
0bc0	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 65	askell-session-assign.haskell-se
0be0	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 6f	ssion-from-buffer.haskell-sessio
0c00	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 63	n-choose.error."No.session.assoc
0c20	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 20	iated.with.this.buffer..Try.M-x.
0c40	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 74	haskell-session-change.or.report
0c60	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 38 32 33 29 5d	.this.as.a.bug."].3.(#$...2823)]
0c80	29 0a 28 70 72 6f 76 69 64 65 20 27 68 61 73 6b 65 6c 6c 2d 6d 6f 64 75 6c 65 73 29 0a	).(provide.'haskell-modules).