blob: 93ab3fc36cd9ca11ad37fceb91eddde7193bb579 (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 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 44 44 5c 33	303!\210\304\305\306\307\310DD\3
01e0	31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 26 07 5c 32 31 30 5c 33 30 34 5c 33 31 36	11\312\313\314\315&.\210\304\316
0200	5c 33 30 36 5c 33 30 37 5c 33 31 37 44 44 5c 33 32 30 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33	\306\307\317DD\320\312\313\314\3
0220	32 31 26 07 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 61 6e 73 69 2d 63 6f 6c 6f 72 20 68 61	21&.\207".[require.ansi-color.ha
0240	73 6b 65 6c 6c 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 75 74 69 6c 73 20 63 75 73 74 6f 6d 2d	skell-mode.haskell-utils.custom-
0260	64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d	declare-variable.haskell-hoogle-
0280	63 6f 6d 6d 61 6e 64 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33	command.funcall.function.#[0."\3
02a0	30 30 5c 33 30 31 21 5c 32 30 35 07 00 5c 33 30 31 5c 32 30 37 22 20 5b 65 78 65 63 75 74 61 62	00\301!\205..\301\207".[executab
02c0	6c 65 2d 66 69 6e 64 20 22 68 6f 6f 67 6c 65 22 5d 20 32 5d 20 22 4e 61 6d 65 20 6f 66 20 74 68	le-find."hoogle"].2]."Name.of.th
02e0	65 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 75 73 65 20 74 6f 20 71 75 65 72 79 20 48 6f 6f 67 6c 65	e.command.to.use.to.query.Hoogle
0300	2e 5c 6e 49 66 20 6e 69 6c 2c 20 75 73 65 20 74 68 65 20 48 6f 6f 67 6c 65 20 77 65 62 2d 73 69	.\nIf.nil,.use.the.Hoogle.web-si
0320	74 65 2e 22 20 3a 67 72 6f 75 70 20 68 61 73 6b 65 6c 6c 20 3a 74 79 70 65 20 28 63 68 6f 69 63	te.".:group.haskell.:type.(choic
0340	65 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 55 73 65 20 57 65 62 2d 73 69 74 65 22 20 6e 69 6c	e.(const.:tag."Use.Web-site".nil
0360	29 20 73 74 72 69 6e 67 29 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 75 72 6c 20 23 5b 30	).string).haskell-hoogle-url.#[0
0380	20 22 5c 33 30 30 5c 32 30 37 22 20 5b 23 31 3d 22 68 74 74 70 3a 2f 2f 68 61 73 6b 65 6c 6c 2e	."\300\207".[#1="http://haskell.
03a0	6f 72 67 2f 68 6f 6f 67 6c 65 2f 3f 71 3d 25 73 22 5d 20 31 20 23 31 23 5d 20 22 44 65 66 61 75	org/hoogle/?q=%s"].1.#1#]."Defau
03c0	6c 74 20 76 61 6c 75 65 20 66 6f 72 20 68 6f 6f 67 6c 65 20 77 65 62 20 73 69 74 65 2e 22 20 28	lt.value.for.hoogle.web.site.".(
03e0	63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 68 61 73 6b 65 6c 6c 2d 6f 72 67 22	choice.(const.:tag."haskell-org"
0400	20 22 68 74 74 70 3a 2f 2f 68 61 73 6b 65 6c 6c 2e 6f 72 67 2f 68 6f 6f 67 6c 65 2f 3f 71 3d 25	."http://haskell.org/hoogle/?q=%
0420	73 22 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 66 70 2d 63 6f 6d 70 6c 65 74 65 22 20 22 68	s").(const.:tag."fp-complete"."h
0440	74 74 70 73 3a 2f 2f 77 77 77 2e 73 74 61 63 6b 61 67 65 2e 6f 72 67 2f 6c 74 73 2f 68 6f 6f 67	ttps://www.stackage.org/lts/hoog
0460	6c 65 3f 71 3d 25 73 22 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 68 61 79 6f 6f 22 20 22 68	le?q=%s").(const.:tag."hayoo"."h
0480	74 74 70 3a 2f 2f 68 61 79 6f 6f 2e 66 68 2d 77 65 64 65 6c 2e 64 65 2f 3f 71 75 65 72 79 3d 25	ttp://hayoo.fh-wedel.de/?query=%
04a0	73 22 29 20 73 74 72 69 6e 67 29 5d 20 38 29 0a 23 40 33 30 38 20 44 6f 20 61 20 48 6f 6f 67 6c	s").string)].8).#@308.Do.a.Hoogl
04c0	65 20 73 65 61 72 63 68 20 66 6f 72 20 51 55 45 52 59 2e 0a 57 68 65 6e 20 60 68 61 73 6b 65 6c	e.search.for.QUERY..When.`haskel
04e0	6c 2d 68 6f 6f 67 6c 65 2d 63 6f 6d 6d 61 6e 64 27 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68	l-hoogle-command'.is.non-nil,.th
0500	69 73 20 63 6f 6d 6d 61 6e 64 20 72 75 6e 73 0a 74 68 61 74 2e 20 20 4f 74 68 65 72 77 69 73 65	is.command.runs.that...Otherwise
0520	2c 20 69 74 20 6f 70 65 6e 73 20 61 20 68 6f 6f 67 6c 65 20 73 65 61 72 63 68 20 72 65 73 75 6c	,.it.opens.a.hoogle.search.resul
0540	74 20 69 6e 20 74 68 65 20 62 72 6f 77 73 65 72 2e 0a 0a 49 66 20 70 72 65 66 69 78 20 61 72 67	t.in.the.browser...If.prefix.arg
0560	75 6d 65 6e 74 20 49 4e 46 4f 20 69 73 20 67 69 76 65 6e 2c 20 74 68 65 6e 20 60 68 61 73 6b 65	ument.INFO.is.given,.then.`haske
0580	6c 6c 2d 68 6f 6f 67 6c 65 2d 63 6f 6d 6d 61 6e 64 27 0a 69 73 20 61 73 6b 65 64 20 74 6f 20 73	ll-hoogle-command'.is.asked.to.s
05a0	68 6f 77 20 65 78 74 72 61 20 69 6e 66 6f 20 66 6f 72 20 74 68 65 20 69 74 65 6d 73 20 6d 61 74	how.extra.info.for.the.items.mat
05c0	63 68 69 6e 67 20 51 55 45 52 59 2e 2e 0a 0a 28 66 6e 20 51 55 45 52 59 20 26 6f 70 74 69 6f 6e	ching.QUERY....(fn.QUERY.&option
05e0	61 6c 20 49 4e 46 4f 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 68 6f 6f	al.INFO)..(defalias.'haskell-hoo
0600	67 6c 65 20 23 5b 35 31 33 20 22 08 5c 32 30 34 0d 00 5c 33 30 36 5c 33 30 37 09 5c 33 31 30 05	gle.#[513.".\204..\306\307.\310.
0620	21 5c 22 21 5c 32 30 37 08 01 5c 32 30 33 16 00 5c 33 31 31 5c 32 30 32 17 00 5c 33 31 32 5c 33	!\"!\207..\203..\311\202..\312\3
0640	31 33 5c 33 31 34 05 21 52 5c 6e 5c 33 31 35 5c 32 31 31 5c 32 32 33 5c 32 31 30 5c 33 31 36 0b	13\314.!R\n\315\211\223\210\316.
0660	42 5c 33 31 37 5c 66 42 1c 1b 5c 33 32 30 20 15 5c 33 32 31 5c 33 32 32 21 5c 32 31 31 1e 18 5c	B\317\fB..\320..\321\322!\211..\
0680	33 31 35 5c 32 31 31 72 0e 18 71 5c 32 31 30 5c 33 32 33 04 21 63 5c 32 31 30 5c 33 32 34 65 64	315\211r..q\210\323.!c\210\324ed
06a0	5c 22 29 5c 32 36 32 01 72 02 71 5c 32 31 30 5c 33 32 35 03 5c 33 31 35 5c 22 5c 32 36 32 02 29	\")\262.r.q\210\325.\315\"\262.)
06c0	5c 33 32 36 5c 33 32 37 21 5c 32 30 33 5d 00 5c 33 32 37 02 02 5c 22 5c 32 30 32 5e 00 5c 32 31	\326\327!\203].\327..\"\202^.\21
06e0	31 29 5c 32 36 36 5c 32 30 33 2a 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65	1)\266\203*\207".[haskell-hoogle
0700	2d 63 6f 6d 6d 61 6e 64 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 75 72 6c 20 68 65 6c 70	-command.haskell-hoogle-url.help
0720	2d 77 69 6e 64 6f 77 2d 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 20 74 65 6d 70 2d 62 75 66 66 65 72	-window-point-marker.temp-buffer
0740	2d 77 69 6e 64 6f 77 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 74 65 6d 70 2d 62 75 66 66 65 72 2d 77	-window-setup-hook.temp-buffer-w
0760	69 6e 64 6f 77 2d 73 68 6f 77 2d 68 6f 6f 6b 20 68 65 6c 70 2d 77 69 6e 64 6f 77 2d 6f 6c 64 2d	indow-show-hook.help-window-old-
0780	66 72 61 6d 65 20 62 72 6f 77 73 65 2d 75 72 6c 20 66 6f 72 6d 61 74 20 75 72 6c 2d 68 65 78 69	frame.browse-url.format.url-hexi
07a0	66 79 2d 73 74 72 69 6e 67 20 22 20 2d 69 20 22 20 22 22 20 22 20 2d 2d 63 6f 6c 6f 72 20 22 20	fy-string.".-i."."".".--color.".
07c0	73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 6e 69 6c 20 68 65 6c 70 2d 6d 6f	shell-quote-argument.nil.help-mo
07e0	64 65 2d 73 65 74 75 70 20 68 65 6c 70 2d 6d 6f 64 65 2d 66 69 6e 69 73 68 20 73 65 6c 65 63 74	de-setup.help-mode-finish.select
0800	65 64 2d 66 72 61 6d 65 20 74 65 6d 70 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 2d 73 65 74 75	ed-frame.temp-buffer-window-setu
0820	70 20 22 2a 68 6f 6f 67 6c 65 2a 22 20 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74	p."*hoogle*".shell-command-to-st
0840	72 69 6e 67 20 61 6e 73 69 2d 63 6f 6c 6f 72 2d 61 70 70 6c 79 2d 6f 6e 2d 72 65 67 69 6f 6e 20	ring.ansi-color-apply-on-region.
0860	74 65 6d 70 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 2d 73 68 6f 77 20 66 75 6e 63 74 69 6f 6e	temp-buffer-window-show.function
0880	70 20 68 65 6c 70 2d 77 69 6e 64 6f 77 2d 73 65 74 75 70 20 73 74 61 6e 64 61 72 64 2d 6f 75 74	p.help-window-setup.standard-out
08a0	70 75 74 5d 20 39 20 28 23 24 20 2e 20 31 32 30 36 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	put].9.(#$...1206).(byte-code."\
08c0	33 30 31 20 5c 32 31 31 5c 32 30 33 10 00 5c 32 31 31 39 5c 32 30 33 10 00 5c 33 30 32 01 21 5c	301.\211\203..\2119\203..\302.!\
08e0	32 36 32 01 5c 33 30 33 01 5c 32 30 33 1c 00 5c 33 30 34 5c 33 30 35 03 5c 22 5c 32 30 32 1d 00	262.\303.\203..\304\305.\"\202..
0900	5c 33 30 36 5c 33 30 37 5c 32 31 31 04 24 08 44 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 70	\306\307\211.$.D\207".[current-p
0920	72 65 66 69 78 2d 61 72 67 20 68 61 73 6b 65 6c 6c 2d 69 64 65 6e 74 2d 61 74 2d 70 6f 69 6e 74	refix-arg.haskell-ident-at-point
0940	20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 72 65 61 64 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20	.symbol-name.read-string.format.
0960	22 48 6f 6f 67 6c 65 20 71 75 65 72 79 20 28 64 65 66 61 75 6c 74 20 25 73 29 3a 20 22 20 22 48	"Hoogle.query.(default.%s):."."H
0980	6f 6f 67 6c 65 20 71 75 65 72 79 3a 20 22 20 6e 69 6c 5d 20 36 29 5d 29 0a 28 64 65 66 61 6c 69	oogle.query:.".nil].6)]).(defali
09a0	61 73 20 27 68 6f 6f 67 6c 65 20 27 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 29 0a 28 64 65 66	as.'hoogle.'haskell-hoogle).(def
09c0	76 61 72 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 65 72 76 65 72 2d 70 72 6f 63 65 73	var.haskell-hoogle-server-proces
09e0	73 2d 6e 61 6d 65 20 22 65 6d 61 63 73 2d 6c 6f 63 61 6c 2d 68 6f 6f 67 6c 65 22 29 0a 28 64 65	s-name."emacs-local-hoogle").(de
0a00	66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 65 72 76 65 72 2d 62 75 66 66 65	fvar.haskell-hoogle-server-buffe
0a20	72 2d 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 22 2a 25 73 2a 22 20 68 61 73 6b 65 6c 6c 2d 68 6f	r-name.(format."*%s*".haskell-ho
0a40	6f 67 6c 65 2d 73 65 72 76 65 72 2d 70 72 6f 63 65 73 73 2d 6e 61 6d 65 29 29 0a 23 40 31 34 20	ogle-server-process-name)).#@14.
0a60	50 6f 72 74 20 6e 75 6d 62 65 72 2e 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 68 6f	Port.number...(defvar.haskell-ho
0a80	6f 67 6c 65 2d 70 6f 72 74 2d 6e 75 6d 62 65 72 20 34 39 35 31 33 20 28 23 24 20 2e 20 32 36 35	ogle-port-number.49513.(#$...265
0aa0	36 29 29 0a 23 40 34 38 20 54 68 65 20 70 72 6f 63 65 73 73 20 68 61 6e 64 6c 65 20 6f 66 20 74	6)).#@48.The.process.handle.of.t
0ac0	68 65 20 6c 6f 63 61 6c 20 68 6f 6f 67 6c 65 20 73 65 72 76 65 72 2e 1f 0a 28 64 65 66 76 61 72	he.local.hoogle.server...(defvar
0ae0	20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 65 72 76 65 72 2d 70 72 6f 63 65 73 73 20 6e	.haskell-hoogle-server-process.n
0b00	69 6c 20 28 23 24 20 2e 20 32 37 32 39 29 29 0a 23 40 32 38 20 53 74 61 72 74 20 68 6f 6f 67 6c	il.(#$...2729)).#@28.Start.hoogl
0b20	65 20 6c 6f 63 61 6c 20 73 65 72 76 65 72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b	e.local.server...(defalias.'hask
0b40	65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 74 61 72 74 2d 73 65 72 76 65 72 20 23 5b 30 20 22 5c 33 30	ell-hoogle-start-server.#[0."\30
0b60	34 5c 33 30 35 21 5c 32 30 33 1c 00 5c 33 30 36 20 3f 5c 32 30 35 1f 00 5c 33 30 37 08 5c 33 31	4\305!\203..\306.?\205..\307.\31
0b80	30 09 21 5c 33 30 35 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 6e 21 26 06 5c 32 31 31 13 5c 32 30	0.!\305\311\312\313\n!&.\211.\20
0ba0	37 5c 33 31 34 5c 33 31 35 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d	7\314\315!\207".[haskell-hoogle-
0bc0	73 65 72 76 65 72 2d 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67	server-process-name.haskell-hoog
0be0	6c 65 2d 73 65 72 76 65 72 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 68 6f	le-server-buffer-name.haskell-ho
0c00	6f 67 6c 65 2d 70 6f 72 74 2d 6e 75 6d 62 65 72 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d	ogle-port-number.haskell-hoogle-
0c20	73 65 72 76 65 72 2d 70 72 6f 63 65 73 73 20 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 22	server-process.executable-find."
0c40	68 6f 6f 67 6c 65 22 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 65 72 76 65 72 2d 6c 69	hoogle".haskell-hoogle-server-li
0c60	76 65 2d 70 20 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72	ve-p.start-process.get-buffer-cr
0c80	65 61 74 65 20 22 73 65 72 76 65 72 22 20 22 2d 70 22 20 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72	eate."server"."-p".number-to-str
0ca0	69 6e 67 20 65 72 72 6f 72 20 22 5c 22 68 6f 6f 67 6c 65 5c 22 20 65 78 65 63 75 74 61 62 6c 65	ing.error."\"hoogle\".executable
0cc0	20 6e 6f 74 20 66 6f 75 6e 64 22 5d 20 38 20 28 23 24 20 2e 20 32 38 33 37 29 20 6e 69 6c 5d 29	.not.found"].8.(#$...2837).nil])
0ce0	0a 23 40 34 34 20 57 68 65 74 68 65 72 20 74 68 65 20 68 6f 6f 67 6c 65 20 73 65 72 76 65 72 20	.#@44.Whether.the.hoogle.server.
0d00	70 72 6f 63 65 73 73 20 69 73 20 6c 69 76 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73	process.is.live...(defalias.'has
0d20	6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 65 72 76 65 72 2d 6c 69 76 65 2d 70 20 23 5b 30 20 22 5c	kell-hoogle-server-live-p.#[0."\
0d40	33 30 31 31 09 00 5c 33 30 32 08 21 30 5c 32 30 37 5c 33 30 33 5c 32 30 37 22 20 5b 68 61 73 6b	3011..\302.!0\207\303\207".[hask
0d60	65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 65 72 76 65 72 2d 70 72 6f 63 65 73 73 20 28 65 72 72 6f 72	ell-hoogle-server-process.(error
0d80	29 20 70 72 6f 63 65 73 73 2d 6c 69 76 65 2d 70 20 6e 69 6c 5d 20 32 20 28 23 24 20 2e 20 33 33	).process-live-p.nil].2.(#$...33
0da0	30 32 29 5d 29 0a 23 40 33 39 20 4b 69 6c 6c 20 74 68 65 20 68 6f 6f 67 6c 65 20 73 65 72 76 65	02)]).#@39.Kill.the.hoogle.serve
0dc0	72 20 69 66 20 69 74 20 69 73 20 6c 69 76 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73	r.if.it.is.live...(defalias.'has
0de0	6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 6b 69 6c 6c 2d 73 65 72 76 65 72 20 23 5b 30 20 22 5c 33 30	kell-hoogle-kill-server.#[0."\30
0e00	32 20 5c 32 30 35 0e 00 5c 33 30 33 5c 33 30 34 08 21 21 5c 32 31 30 5c 33 30 35 5c 32 31 31 11	2.\205..\303\304.!!\210\305\211.
0e20	5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 65 72 76 65 72 2d 62 75 66	\207".[haskell-hoogle-server-buf
0e40	66 65 72 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 65 72 76 65 72 2d 70	fer-name.haskell-hoogle-server-p
0e60	72 6f 63 65 73 73 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 65 72 76 65 72 2d 6c 69 76	rocess.haskell-hoogle-server-liv
0e80	65 2d 70 20 6b 69 6c 6c 2d 70 72 6f 63 65 73 73 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61	e-p.kill-process.get-buffer-crea
0ea0	74 65 20 6e 69 6c 5d 20 33 20 28 23 24 20 2e 20 33 34 39 39 29 20 6e 69 6c 5d 29 0a 23 40 32 35	te.nil].3.(#$...3499).nil]).#@25
0ec0	20 4c 6f 6f 6b 75 70 20 62 79 20 6c 6f 63 61 6c 20 68 6f 6f 67 6c 65 2e 1f 0a 28 64 65 66 61 6c	.Lookup.by.local.hoogle...(defal
0ee0	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 6c 6f 6f 6b 75 70 2d 66 72 6f 6d 2d	ias.'haskell-hoogle-lookup-from-
0f00	6c 6f 63 61 6c 20 23 5b 30 20 22 5c 33 30 31 20 5c 32 30 33 11 00 5c 33 30 32 5c 33 30 33 5c 33	local.#[0."\301.\203..\302\303\3
0f20	30 34 08 5c 33 30 35 5c 33 30 36 5c 33 30 37 20 5c 22 23 21 5c 32 30 37 5c 33 31 30 20 5c 32 31	04.\305\306\307.\"#!\207\310.\21
0f40	30 5c 33 31 31 5c 32 31 36 5c 33 31 32 5c 33 31 33 21 5c 32 30 35 1e 00 5c 33 31 34 20 29 5c 32	0\311\216\312\313!\205..\314.)\2
0f60	30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 70 6f 72 74 2d 6e 75 6d 62 65 72 20	07".[haskell-hoogle-port-number.
0f80	68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 65 72 76 65 72 2d 6c 69 76 65 2d 70 20 62 72 6f	haskell-hoogle-server-live-p.bro
0fa0	77 73 65 2d 75 72 6c 20 66 6f 72 6d 61 74 20 22 68 74 74 70 3a 2f 2f 6c 6f 63 61 6c 68 6f 73 74	wse-url.format."http://localhost
0fc0	3a 25 69 2f 3f 68 6f 6f 67 6c 65 3d 25 73 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 68 6f 6f	:%i/?hoogle=%s".read-string."hoo
0fe0	67 6c 65 3a 20 22 20 68 61 73 6b 65 6c 6c 2d 69 64 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 20 68 61	gle:.".haskell-ident-at-point.ha
1000	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
1020	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".[
1040	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-
1060	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 22 48 6f 6f	prompt-state.t].2].y-or-n-p."Hoo
1080	67 6c 65 20 73 65 72 76 65 72 20 6e 6f 74 20 72 75 6e 6e 69 6e 67 2c 20 73 74 61 72 74 20 68 6f	gle.server.not.running,.start.ho
10a0	6f 67 6c 65 20 73 65 72 76 65 72 3f 20 22 20 68 61 73 6b 65 6c 6c 2d 68 6f 6f 67 6c 65 2d 73 74	ogle.server?.".haskell-hoogle-st
10c0	61 72 74 2d 73 65 72 76 65 72 5d 20 37 20 28 23 24 20 2e 20 33 37 37 37 29 20 6e 69 6c 5d 29 0a	art-server].7.(#$...3777).nil]).
10e0	28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34	(byte-code."\300\301\302\303\304
1100	44 44 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 26 07 5c 32 30 37 22 20 5b 63	DD\305\306\307\310\311&.\207".[c
1120	75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 68 61 73 6b 65 6c 6c 2d 68	ustom-declare-variable.haskell-h
1140	61 79 6f 6f 2d 75 72 6c 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c	ayoo-url.funcall.function.#[0."\
1160	33 30 30 5c 32 30 37 22 20 5b 23 31 3d 22 68 74 74 70 3a 2f 2f 68 61 79 6f 6f 2e 66 68 2d 77 65	300\207".[#1="http://hayoo.fh-we
1180	64 65 6c 2e 64 65 2f 3f 71 75 65 72 79 3d 25 73 22 5d 20 31 20 23 31 23 5d 20 22 44 65 66 61 75	del.de/?query=%s"].1.#1#]."Defau
11a0	6c 74 20 76 61 6c 75 65 20 66 6f 72 20 68 61 79 6f 6f 20 77 65 62 20 73 69 74 65 2e 22 20 3a 67	lt.value.for.hayoo.web.site.".:g
11c0	72 6f 75 70 20 68 61 73 6b 65 6c 6c 20 3a 74 79 70 65 20 28 63 68 6f 69 63 65 20 28 63 6f 6e 73	roup.haskell.:type.(choice.(cons
11e0	74 20 3a 74 61 67 20 22 66 68 2d 77 65 64 65 6c 2e 64 65 22 20 22 68 74 74 70 3a 2f 2f 68 61 79	t.:tag."fh-wedel.de"."http://hay
1200	6f 6f 2e 66 68 2d 77 65 64 65 6c 2e 64 65 2f 3f 71 75 65 72 79 3d 25 73 22 29 20 73 74 72 69 6e	oo.fh-wedel.de/?query=%s").strin
1220	67 29 5d 20 38 29 0a 23 40 34 32 20 44 6f 20 61 20 48 61 79 6f 6f 20 73 65 61 72 63 68 20 66 6f	g)].8).#@42.Do.a.Hayoo.search.fo
1240	72 20 51 55 45 52 59 2e 0a 0a 28 66 6e 20 51 55 45 52 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	r.QUERY...(fn.QUERY)..(defalias.
1260	27 68 61 73 6b 65 6c 6c 2d 68 61 79 6f 6f 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 08 5c	'haskell-hayoo.#[257."\301\302.\
1280	33 30 33 04 21 5c 22 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 68 61 79 6f 6f 2d 75 72 6c	303.!\"!\207".[haskell-hayoo-url
12a0	20 62 72 6f 77 73 65 2d 75 72 6c 20 66 6f 72 6d 61 74 20 75 72 6c 2d 68 65 78 69 66 79 2d 73 74	.browse-url.format.url-hexify-st
12c0	72 69 6e 67 5d 20 36 20 28 23 24 20 2e 20 34 36 35 32 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22	ring].6.(#$...4652).(byte-code."
12e0	5c 33 30 30 20 5c 32 31 31 5c 32 30 33 10 00 5c 32 31 31 39 5c 32 30 33 10 00 5c 33 30 31 01 21	\300.\211\203..\2119\203..\301.!
1300	5c 32 36 32 01 5c 33 30 32 01 5c 32 30 33 1c 00 5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 30 32 1d	\262.\302.\203..\303\304.\"\202.
1320	00 5c 33 30 35 5c 33 30 36 5c 32 31 31 04 24 43 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 69	.\305\306\211.$C\207".[haskell-i
1340	64 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 72 65 61 64 2d 73	dent-at-point.symbol-name.read-s
1360	74 72 69 6e 67 20 66 6f 72 6d 61 74 20 22 48 61 79 6f 6f 20 71 75 65 72 79 20 28 64 65 66 61 75	tring.format."Hayoo.query.(defau
1380	6c 74 20 25 73 29 3a 20 22 20 22 48 61 79 6f 6f 20 71 75 65 72 79 3a 20 22 20 6e 69 6c 5d 20 36	lt.%s):."."Hayoo.query:.".nil].6
13a0	29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32	)]).(byte-code."\300\301\302\"\2
13c0	31 30 5c 33 30 33 5c 33 30 34 21 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 68 61 79 6f 6f	10\303\304!\207".[defalias.hayoo
13e0	20 68 61 73 6b 65 6c 6c 2d 68 61 79 6f 6f 20 70 72 6f 76 69 64 65 20 68 61 73 6b 65 6c 6c 2d 68	.haskell-hayoo.provide.haskell-h
1400	6f 6f 67 6c 65 5d 20 33 29 0a	oogle].3).