blob: e42eb93fffc20458ade8c7c630015413c6ade8b2 (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 33 5c	"\300\301!\210\300\302!\210\303\
01c0	33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c	304\305\306\307\310\311\312\313\
01e0	33 31 34 26 09 5c 32 31 30 5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 33 32 30 5c 33 32 31 44 44 5c	314&.\210\315\316\317\320\321DD\
0200	33 32 32 5c 33 32 33 5c 33 32 34 5c 33 31 31 5c 33 30 34 26 07 5c 32 31 30 5c 33 31 35 5c 33 32	322\323\324\311\304&.\210\315\32
0220	35 5c 33 31 37 5c 33 32 30 5c 33 32 36 44 44 5c 33 32 37 5c 33 32 33 5c 33 33 30 5c 33 31 31 5c	5\317\320\326DD\327\323\330\311\
0240	33 30 34 26 07 5c 32 31 30 5c 33 33 31 5c 33 33 32 5c 33 32 35 5c 33 30 35 23 5c 32 31 30 5c 33	304&.\210\331\332\325\305#\210\3
0260	33 33 5c 32 31 31 5c 32 30 33 5b 00 5c 32 31 31 40 5c 33 33 32 01 4e 5c 32 30 33 54 00 5c 33 32	33\211\203[.\211@\332.N\203T.\32
0280	35 01 4e 5c 32 30 34 54 00 5c 33 33 34 5c 33 32 35 02 5c 33 33 32 04 4e 23 5c 32 31 30 01 41 5c	5.N\204T.\334\325.\332.N#\210.A\
02a0	32 36 36 5c 32 30 32 5c 32 30 32 3a 00 5c 32 31 30 5c 33 33 35 5c 33 33 32 5c 33 32 35 5c 33 33	266\202\202:.\210\335\332\325\33
02c0	36 23 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 20 68 61	6#\207".[require.haskell-mode.ha
02e0	73 6b 65 6c 6c 2d 66 6f 6e 74 2d 6c 6f 63 6b 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 67	skell-font-lock.custom-declare-g
0300	72 6f 75 70 20 67 68 63 2d 63 6f 72 65 20 6e 69 6c 20 22 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f	roup.ghc-core.nil."Major.mode.fo
0320	72 20 76 69 65 77 69 6e 67 20 70 72 65 74 74 79 20 70 72 69 6e 74 65 64 20 47 48 43 20 43 6f 72	r.viewing.pretty.printed.GHC.Cor
0340	65 20 6f 75 74 70 75 74 2e 22 20 3a 6c 69 6e 6b 20 28 63 75 73 74 6f 6d 2d 6d 61 6e 75 61 6c 20	e.output.".:link.(custom-manual.
0360	22 28 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 29 22 29 20 3a 67 72 6f 75 70 20 68 61 73 6b 65 6c 6c	"(haskell-mode)").:group.haskell
0380	20 3a 70 72 65 66 69 78 20 22 67 68 63 2d 63 6f 72 65 2d 22 20 63 75 73 74 6f 6d 2d 64 65 63 6c	.:prefix."ghc-core-".custom-decl
03a0	61 72 65 2d 76 61 72 69 61 62 6c 65 20 67 68 63 2d 63 6f 72 65 2d 70 72 6f 67 72 61 6d 20 66 75	are-variable.ghc-core-program.fu
03c0	6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 23	ncall.function.#[0."\300\207".[#
03e0	31 3d 22 67 68 63 22 5d 20 31 20 23 31 23 5d 20 22 4e 61 6d 65 20 6f 66 20 74 68 65 20 47 48 43	1="ghc"].1.#1#]."Name.of.the.GHC
0400	20 65 78 65 63 75 74 61 62 6c 65 20 28 65 78 63 6c 75 64 69 6e 67 20 61 6e 79 20 61 72 67 75 6d	.executable.(excluding.any.argum
0420	65 6e 74 73 29 2e 22 20 3a 74 79 70 65 20 73 74 72 69 6e 67 20 67 68 63 2d 63 6f 72 65 2d 70 72	ents).".:type.string.ghc-core-pr
0440	6f 67 72 61 6d 2d 61 72 67 73 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 28 22 2d 4f 32	ogram-args.#[0."\300\207".[("-O2
0460	22 29 5d 20 31 5d 20 22 41 64 64 69 74 69 6f 6e 61 6c 20 6f 70 74 69 6f 6e 73 20 74 6f 20 62 65	")].1]."Additional.options.to.be
0480	20 70 61 73 73 65 64 20 74 6f 20 47 48 43 20 77 68 65 6e 20 67 65 6e 65 72 61 74 69 6e 67 20 63	.passed.to.GHC.when.generating.c
04a0	6f 72 65 20 6f 75 74 70 75 74 2e 5c 6e 47 48 43 20 28 73 65 65 20 76 61 72 69 61 62 6c 65 20 60	ore.output.\nGHC.(see.variable.`
04c0	67 68 63 2d 63 6f 72 65 2d 70 72 6f 67 72 61 6d 27 29 20 69 73 20 69 6e 76 6f 6b 65 64 20 77 69	ghc-core-program').is.invoked.wi
04e0	74 68 20 74 68 65 20 62 61 73 69 63 5c 6e 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 6f 70 74 69 6f	th.the.basic\ncommand.line.optio
0500	6e 73 20 5c 22 2d 64 64 75 6d 70 2d 73 69 6d 70 6c 20 2d 63 20 3c 73 6f 75 72 63 65 2d 66 69 6c	ns.\"-ddump-simpl.-c.<source-fil
0520	65 3e 5c 22 5c 6e 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 20 61 64 64 69 74 69 6f 6e 61 6c	e>\"\nfollowed.by.the.additional
0540	20 6f 70 74 69 6f 6e 73 20 64 65 66 69 6e 65 64 20 68 65 72 65 2e 5c 6e 5c 6e 54 68 65 20 66 6f	.options.defined.here.\n\nThe.fo
0560	6c 6c 6f 77 69 6e 67 20 60 2d 64 64 75 6d 70 2d 73 69 6d 70 6c 60 20 6f 70 74 69 6f 6e 73 20 6d	llowing.`-ddump-simpl`.options.m
0580	69 67 68 74 20 62 65 20 6f 66 20 69 6e 74 65 72 65 73 74 3a 5c 6e 5c 6e 20 2d 20 60 2d 64 73 75	ight.be.of.interest:\n\n.-.`-dsu
05a0	70 70 72 65 73 73 2d 61 6c 6c 27 5c 6e 20 2d 20 60 2d 64 73 75 70 70 72 65 73 73 2d 75 6e 69 71	ppress-all'\n.-.`-dsuppress-uniq
05c0	75 65 73 27 5c 6e 20 2d 20 60 2d 64 73 75 70 70 72 65 73 73 2d 69 64 69 6e 66 6f 27 5c 6e 20 2d	ues'\n.-.`-dsuppress-idinfo'\n.-
05e0	20 60 2d 64 73 75 70 70 72 65 73 73 2d 6d 6f 64 75 6c 65 2d 70 72 65 66 69 78 65 73 27 5c 6e 20	.`-dsuppress-module-prefixes'\n.
0600	2d 20 60 2d 64 73 75 70 70 72 65 73 73 2d 74 79 70 65 2d 73 69 67 6e 61 74 75 72 65 73 27 5c 6e	-.`-dsuppress-type-signatures'\n
0620	20 2d 20 60 2d 64 73 75 70 70 72 65 73 73 2d 74 79 70 65 2d 61 70 70 6c 69 63 61 74 69 6f 6e 73	.-.`-dsuppress-type-applications
0640	27 5c 6e 20 2d 20 60 2d 64 73 75 70 70 72 65 73 73 2d 63 6f 65 72 63 69 6f 6e 73 27 5c 6e 5c 6e	'\n.-.`-dsuppress-coercions'\n\n
0660	53 65 65 20 60 4d 2d 78 20 6d 61 6e 75 61 6c 2d 65 6e 74 72 79 20 52 45 54 20 67 68 63 27 20 66	See.`M-x.manual-entry.RET.ghc'.f
0680	6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 22 20 28 72 65 70 65 61 74 20 28 73 74 72 69 6e	or.more.details.".(repeat.(strin
06a0	67 20 3a 74 61 67 20 22 41 72 67 75 6d 65 6e 74 22 29 29 20 64 65 66 76 61 72 61 6c 69 61 73 20	g.:tag."Argument")).defvaralias.
06c0	67 68 63 2d 63 6f 72 65 2d 63 72 65 61 74 65 2d 6f 70 74 69 6f 6e 73 20 28 73 61 76 65 64 2d 76	ghc-core-create-options.(saved-v
06e0	61 6c 75 65 20 73 61 76 65 64 2d 76 61 72 69 61 62 6c 65 2d 63 6f 6d 6d 65 6e 74 29 20 70 75 74	alue.saved-variable-comment).put
0700	20 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 20 22 68 61 73 6b 65 6c 6c	.make-obsolete-variable."haskell
0720	2d 6d 6f 64 65 20 31 33 2e 37 22 5d 20 31 30 29 0a 23 40 31 31 33 20 52 65 6d 6f 76 65 20 63 6f	-mode.13.7"].10).#@113.Remove.co
0740	6d 6d 6f 6e 6c 79 20 69 67 6e 6f 72 65 64 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 61 6e 64 20 6e	mmonly.ignored.annotations.and.n
0760	61 6d 65 73 70 61 63 65 20 70 72 65 66 69 78 65 73 0a 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 20	amespace.prefixes.in.the.region.
0780	62 65 74 77 65 65 6e 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 2e 0a 0a 28 66 6e 20 53 54 41 52	between.START.and.END...(fn.STAR
07a0	54 20 45 4e 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 67 68 63 2d 63 6f 72 65 2d 63 6c 65 61	T.END)..(defalias.'ghc-core-clea
07c0	6e 2d 72 65 67 69 6f 6e 20 23 5b 35 31 34 20 22 5c 32 31 34 01 01 7d 5c 32 31 30 65 62 5c 32 31	n-region.#[514."\214..}\210eb\21
07e0	30 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 30 33 19 00 5c 33 30 34 5c 33 30 35	0\300\301\302\303#\203..\304\305
0800	5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 32 30 32 08 00 65 62 5c 32 31 30 5c 33 30 36 5c 33 30	\302\303#\210\202..eb\210\306\30
0820	37 5c 33 30 32 5c 22 5c 32 30 34 1c 00 65 62 5c 32 31 30 5c 33 30 36 5c 33 31 30 5c 33 30 32 5c	7\302\"\204..eb\210\306\310\302\
0840	22 5c 32 30 34 26 00 65 62 5c 32 31 30 5c 33 30 36 5c 33 31 31 5c 33 30 32 5c 22 5c 32 30 34 30	"\204&.eb\210\306\311\302\"\2040
0860	00 65 62 5c 32 31 30 5c 33 31 32 5c 33 31 33 5c 33 30 32 5c 33 30 33 23 5c 32 30 35 4b 00 5c 33	.eb\210\312\313\302\303#\205K.\3
0880	30 34 5c 33 30 35 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 32 30 32 3a 00 29 5c 32 30 37 22 20	04\305\302\303#\210\202:.)\207".
08a0	5b 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 2d 72 65 67 65 78 70 20 22 47 48 43 2e 5b 5e 2e 5d	[search-forward-regexp."GHC.[^.]
08c0	2a 2e 22 20 6e 69 6c 20 74 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 66 6c 75 73 68	*.".nil.t.replace-match."".flush
08e0	2d 6c 69 6e 65 73 20 22 5e 20 2a 47 62 6c 49 64 20 2a 24 22 20 22 5e 20 2a 4c 63 6c 49 64 20 2a	-lines."^.*GblId.*$"."^.*LclId.*
0900	24 22 20 22 5e 20 2a 5c 5c 5b 5c 5c 28 3f 3a 41 72 69 74 79 20 5b 30 2d 39 5d 2b 5c 5c 7c 4e 6f	$"."^.*\\[\\(?:Arity.[0-9]+\\|No
0920	43 61 66 52 65 66 73 5c 5c 7c 53 74 72 3a 20 44 6d 64 54 79 70 65 5c 5c 7c 57 6f 72 6b 65 72 20	CafRefs\\|Str:.DmdType\\|Worker.
0940	5c 5c 29 5c 5c 28 5b 5e 5d 5d 2a 5c 5c 6e 3f 5c 5c 29 2e 2a 5c 5c 5d 20 2a 24 22 20 73 65 61 72	\\)\\([^]]*\\n?\\).*\\].*$".sear
0960	63 68 2d 66 6f 72 77 61 72 64 20 22 4d 61 69 6e 2e 22 5d 20 36 20 28 23 24 20 2e 20 31 38 34 37	ch-forward."Main."].6.(#$...1847
0980	29 20 22 72 22 5d 29 0a 23 40 38 33 20 52 65 6d 6f 76 65 20 63 6f 6d 6d 6f 6e 6c 79 20 69 67 6e	)."r"]).#@83.Remove.commonly.ign
09a0	6f 72 65 64 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 61 6e 64 20 6e 61 6d 65 73 70 61 63 65 20 70	ored.annotations.and.namespace.p
09c0	72 65 66 69 78 65 73 0a 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 1f 0a	refixes.in.the.current.buffer...
09e0	28 64 65 66 61 6c 69 61 73 20 27 67 68 63 2d 63 6f 72 65 2d 63 6c 65 61 6e 2d 62 75 66 66 65 72	(defalias.'ghc-core-clean-buffer
0a00	20 23 5b 30 20 22 5c 33 30 30 65 64 5c 22 5c 32 30 37 22 20 5b 67 68 63 2d 63 6f 72 65 2d 63 6c	.#[0."\300ed\"\207".[ghc-core-cl
0a20	65 61 6e 2d 72 65 67 69 6f 6e 5d 20 33 20 28 23 24 20 2e 20 32 34 34 35 29 20 6e 69 6c 5d 29 0a	ean-region].3.(#$...2445).nil]).
0a40	23 40 35 31 20 43 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 74 68 65 20 63 75 72 72 65 6e	#@51.Compile.and.load.the.curren
0a60	74 20 62 75 66 66 65 72 20 61 73 20 74 69 64 79 20 63 6f 72 65 2e 1f 0a 28 64 65 66 61 6c 69 61	t.buffer.as.tidy.core...(defalia
0a80	73 20 27 67 68 63 2d 63 6f 72 65 2d 63 72 65 61 74 65 2d 63 6f 72 65 20 23 5b 30 20 22 5c 33 30	s.'ghc-core-create-core.#[0."\30
0aa0	32 20 5c 32 31 30 5c 33 30 33 5c 33 30 34 21 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c	2.\210\303\304!\305\306\307\310\
0ac0	33 31 31 05 21 5c 33 31 32 5c 22 5c 33 31 33 24 5c 33 31 34 5c 33 31 35 02 5c 22 5c 32 31 30 5c	311.!\312\"\313$\314\315.\"\210\
0ae0	33 31 36 5c 33 31 37 08 5c 33 32 30 05 5c 33 32 30 5c 33 32 31 5c 33 32 32 5c 33 32 33 20 09 26	316\317.\320.\320\321\322\323..&
0b00	09 5c 32 31 30 5c 33 32 34 02 21 5c 32 31 30 72 01 71 5c 32 31 30 5c 33 32 35 20 5c 32 31 30 29	.\210\324.!\210r.q\210\325.\210)
0b20	5c 33 32 36 5c 33 31 35 02 5c 22 5c 32 30 37 22 20 5b 67 68 63 2d 63 6f 72 65 2d 70 72 6f 67 72	\326\315.\"\207".[ghc-core-progr
0b40	61 6d 20 67 68 63 2d 63 6f 72 65 2d 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 73 61 76 65 2d 62 75	am.ghc-core-program-args.save-bu
0b60	66 66 65 72 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 67 68 63 2d 63 6f	ffer.generate-new-buffer."ghc-co
0b80	72 65 22 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 30 20 22 5c 33 30 31 5c 33 30 30 21 5c	re".make-byte-code.0."\301\300!\
0ba0	32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6b 69 6c 6c 2d 62 75 66 66 65 72	207".vconcat.vector.[kill-buffer
0bc0	5d 20 32 20 61 64 64 2d 68 6f 6f 6b 20 6e 65 78 74 2d 65 72 72 6f 72 2d 68 6f 6f 6b 20 61 70 70	].2.add-hook.next-error-hook.app
0be0	6c 79 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 6e 69 6c 20 22 2d 64 64 75 6d 70 2d 73 69 6d 70	ly.call-process.nil."-ddump-simp
0c00	6c 22 20 22 2d 63 22 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 69 73 70 6c 61 79	l"."-c".buffer-file-name.display
0c20	2d 62 75 66 66 65 72 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 20 72 65 6d 6f 76 65 2d 68 6f 6f	-buffer.ghc-core-mode.remove-hoo
0c40	6b 5d 20 31 32 20 28 23 24 20 2e 20 32 36 32 39 29 20 6e 69 6c 5d 29 0a 28 62 79 74 65 2d 63 6f	k].12.(#$...2629).nil]).(byte-co
0c60	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33	de."\300\301\302\"\210\300\301\3
0c80	30 33 5c 22 5c 32 30 37 22 20 5b 61 64 64 2d 74 6f 2d 6c 69 73 74 20 61 75 74 6f 2d 6d 6f 64 65	03\"\207".[add-to-list.auto-mode
0ca0	2d 61 6c 69 73 74 20 28 22 5c 5c 2e 68 63 72 5c 5c 27 22 20 2e 20 67 68 63 2d 63 6f 72 65 2d 6d	-alist.("\\.hcr\\'"...ghc-core-m
0cc0	6f 64 65 29 20 28 22 5c 5c 2e 64 75 6d 70 2d 73 69 6d 70 6c 5c 5c 27 22 20 2e 20 67 68 63 2d 63	ode).("\\.dump-simpl\\'"...ghc-c
0ce0	6f 72 65 2d 6d 6f 64 65 29 5d 20 33 29 0a 23 40 31 36 35 20 48 6f 6f 6b 20 72 75 6e 20 61 66 74	ore-mode)].3).#@165.Hook.run.aft
0d00	65 72 20 65 6e 74 65 72 69 6e 67 20 47 48 43 2d 43 6f 72 65 20 6d 6f 64 65 2e 0a 4e 6f 20 70 72	er.entering.GHC-Core.mode..No.pr
0d20	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 62 6c 65 20 69	oblems.result.if.this.variable.i
0d40	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 6f 6d 61 74 69	s.not.bound..`add-hook'.automati
0d60	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 72 75 65 20 66	cally.binds.it...(This.is.true.f
0d80	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 65 66 76 61 72	or.all.hook.variables.)..(defvar
0da0	20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c 20 28 23 24 20 2e 20 33 33	.ghc-core-mode-hook.nil.(#$...33
0dc0	31 36 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 34 5c 66	16)).(byte-code."\300\301!\204\f
0de0	00 5c 33 30 32 5c 33 30 31 5c 33 30 33 5c 33 30 34 23 5c 32 31 30 5c 33 30 30 5c 32 30 37 22 20	.\302\301\303\304#\210\300\207".
0e00	5b 62 6f 75 6e 64 70 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 70 75 74 20 64 65	[boundp.ghc-core-mode-map.put.de
0e20	66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 5d 20 34 29 0a	finition-name.ghc-core-mode].4).
0e40	28 64 65 66 76 61 72 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d	(defvar.ghc-core-mode-map.(make-
0e60	73 70 61 72 73 65 2d 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	sparse-keymap)).(byte-code."\300
0e80	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 33 5c 33 30 34 21	\301N\204..\302\300\301\303\304!
0ea0	23 5c 32 31 30 5c 33 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	#\210\305\306!\204..\302\306\307
0ec0	5c 33 31 30 23 5c 32 31 30 5c 33 30 30 5c 32 30 37 22 20 5b 67 68 63 2d 63 6f 72 65 2d 6d 6f 64	\310#\210\300\207".[ghc-core-mod
0ee0	65 2d 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	e-map.variable-documentation.put
0f00	20 70 75 72 65 63 6f 70 79 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 60 67 68 63 2d 63 6f 72 65 2d	.purecopy."Keymap.for.`ghc-core-
0f20	6d 6f 64 65 27 2e 22 20 62 6f 75 6e 64 70 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 2d 73 79 6e	mode'.".boundp.ghc-core-mode-syn
0f40	74 61 78 2d 74 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 67 68 63 2d 63 6f	tax-table.definition-name.ghc-co
0f60	72 65 2d 6d 6f 64 65 5d 20 35 29 0a 28 64 65 66 76 61 72 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64	re-mode].5).(defvar.ghc-core-mod
0f80	65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c	e-syntax-table.(make-syntax-tabl
0fa0	65 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	e)).(byte-code."\300\301N\204..\
0fc0	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
0fe0	35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 2d 73	5\306\307#\207".[ghc-core-mode-s
1000	79 6e 74 61 78 2d 74 61 62 6c 65 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69	yntax-table.variable-documentati
1020	6f 6e 20 70 75 74 20 70 75 72 65 63 6f 70 79 20 22 53 79 6e 74 61 78 20 74 61 62 6c 65 20 66 6f	on.put.purecopy."Syntax.table.fo
1040	72 20 60 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 27 2e 22 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64	r.`ghc-core-mode'.".ghc-core-mod
1060	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 67	e-abbrev-table.definition-name.g
1080	68 63 2d 63 6f 72 65 2d 6d 6f 64 65 5d 20 35 29 0a 28 64 65 66 76 61 72 20 67 68 63 2d 63 6f 72	hc-core-mode].5).(defvar.ghc-cor
10a0	65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28 70 72 6f 67 6e 20 28 64 65 66 69	e-mode-abbrev-table.(progn.(defi
10c0	6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 27 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 2d 61	ne-abbrev-table.'ghc-core-mode-a
10e0	62 62 72 65 76 2d 74 61 62 6c 65 20 6e 69 6c 29 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 2d 61	bbrev-table.nil).ghc-core-mode-a
1100	62 62 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	bbrev-table)).(byte-code."\300\3
1120	30 31 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	01N\204..\302\300\301\303\304!#\
1140	32 31 30 5c 33 30 32 5c 33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 67 68 63 2d 63	210\302\305\306\307#\207".[ghc-c
1160	6f 72 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	ore-mode-abbrev-table.variable-d
1180	6f 63 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	ocumentation.put.purecopy."Abbre
11a0	76 20 74 61 62 6c 65 20 66 6f 72 20 60 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 27 2e 22 20 67 68	v.table.for.`ghc-core-mode'.".gh
11c0	63 2d 63 6f 72 65 2d 6d 6f 64 65 20 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 61 72 65 6e 74 20	c-core-mode.derived-mode-parent.
11e0	68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 5d 20 35 29 0a 23 40 32 31 34 20 4d 61 6a 6f 72 20 6d 6f 64	haskell-mode].5).#@214.Major.mod
1200	65 20 66 6f 72 20 47 48 43 20 43 6f 72 65 20 66 69 6c 65 73 2e 0a 0a 49 6e 20 61 64 64 69 74 69	e.for.GHC.Core.files...In.additi
1220	6f 6e 20 74 6f 20 61 6e 79 20 68 6f 6f 6b 73 20 69 74 73 20 70 61 72 65 6e 74 20 6d 6f 64 65 20	on.to.any.hooks.its.parent.mode.
1240	60 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 27 20 6d 69 67 68 74 20 68 61 76 65 20 72 75 6e 2c 0a 74	`haskell-mode'.might.have.run,.t
1260	68 69 73 20 6d 6f 64 65 20 72 75 6e 73 20 74 68 65 20 68 6f 6f 6b 20 60 67 68 63 2d 63 6f 72 65	his.mode.runs.the.hook.`ghc-core
1280	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 0a 64	-mode-hook',.as.the.final.step.d
12a0	75 72 69 6e 67 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 2e 0a 0a 5c 7b 67 68 63 2d 63 6f 72	uring.initialization...\{ghc-cor
12c0	65 2d 6d 6f 64 65 2d 6d 61 70 7d 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 67 68 63 2d 63 6f 72 65	e-mode-map}..(defalias.'ghc-core
12e0	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 5c 33 31	-mode.#[0."\306\300!\210\307.\31
1300	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 1b 00 5c	0.\210\311.\312.\310\313N\203..\
1320	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 0b 21 5c	314\311\313\310\313N#\210\315.!\
1340	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 32 31 31	204'.\316.\317.\"\210\320\f!\211
1360	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 33 32 33	\2035.\211\321.=\203;.\322\f\323
1380	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 0e 1b 3d	.\"\210\210\324.\325\"\204R....=
13a0	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 5c 32 31	\204R.\326.\325..C#\210\327.!\21
13c0	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 22 20 5b	0\330\f!\210...)\331\332!\207".[
13e0	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 6f 64 65	delay-mode-hooks.major-mode.mode
1400	2d 6e 61 6d 65 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 67 68 63 2d 63 6f 72 65	-name.ghc-core-mode-map.ghc-core
1420	2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65	-mode-syntax-table.ghc-core-mode
1440	2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c	-abbrev-table.make-local-variabl
1460	65 20 74 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 20 22	e.t.haskell-mode.ghc-core-mode."
1480	47 48 43 2d 43 6f 72 65 22 20 6d 6f 64 65 2d 63 6c 61 73 73 20 70 75 74 20 6b 65 79 6d 61 70 2d	GHC-Core".mode-class.put.keymap-
14a0	70 61 72 65 6e 74 20 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 63 75 72 72 65 6e 74	parent.set-keymap-parent.current
14c0	2d 6c 6f 63 61 6c 2d 6d 61 70 20 63 68 61 72 2d 74 61 62 6c 65 2d 70 61 72 65 6e 74 20 73 74 61	-local-map.char-table-parent.sta
14e0	6e 64 61 72 64 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 73 65 74 2d 63 68 61 72 2d 74 61 62 6c	ndard-syntax-table.set-char-tabl
1500	65 2d 70 61 72 65 6e 74 20 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 61 62 62 72 65 76 2d 74 61 62	e-parent.syntax-table.abbrev-tab
1520	6c 65 2d 67 65 74 20 3a 70 61 72 65 6e 74 73 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 70 75 74	le-get.:parents.abbrev-table-put
1540	20 75 73 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	.use-local-map.set-syntax-table.
1560	72 75 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 73 20 67 68 63 2d 63 6f 72 65 2d 6d 6f 64 65 2d 68 6f 6f	run-mode-hooks.ghc-core-mode-hoo
1580	6b 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 5d 20 35 20 28 23 24 20 2e 20 34 35	k.local-abbrev-table].5.(#$...45
15a0	39 39 29 20 6e 69 6c 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 67 68 63 2d 63 6f 72 65 29 0a	99).nil]).(provide.'ghc-core).