3z{.)I       !"#$%&'( ) * + , - . / 0 1 23456789:;<=>?@ABCDEFGHIJKLMNOPQ R S T U V W XYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"# $ % & ' ( ) * + , - . / 0 1!2!3!4!5!6!7!8!9!:!;!<!=!>!?!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~!!!!!!!!!!!!"""""""""""#################################################################################################################### # # # # ###############$%%% %!%"%#%$%%%&%'%(%)%*%+%,%-%.%/%0%1%2&3&4&5&6&7&8&9&:&;&<&=&>&?'@'A'B'C'D'E'F'G'H'I'J'K'L(M)N)O)P)QRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~**************************     ++++++++++++++++++ +!+"+#+$+%+&+'+(+)+*+++,+-+.+/+0+1+2+3+4+5+6+7+8+9+:+;+<+=+>+?,@,A,B,C,D,E,F,G,H-I-J-K-L-M-N-O P Q R S T U V W X Y Z [ \ ] ^._.`.a.b.c.d.e.f.g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/{/|/}/~////////////////////////////////////////////////      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~01000220000333344444444444444444444455555555555555566666666666666666666777777777777778888888888899999999999999999999 9 9 9 9 9999999999999999999 9!9"9#9$9%9&9'9(9)9*9+9,9-9.9/909192939495969798999:9;9<9=9>9?9@9A9B9C9D9E9F9G9H9I9J9K9L9M:N:O:P:Q:R:S;T;U;V;W;X;Y;Z;[<\<]<^<_<`<a<b<c<d<e<f<g<h=i=j=k=l=m=n=o=p=q=r=s=t=u=v=w=x=y=z={=|=}=~=========================================================================================================================================== = = = = =================== =!="=#=$=%=&='=(=)=*=+=,=-=.=/=0=1=2=3=4=5=6=7=8=9=:=;=<===>=?=@=A=B=C=D=E=F=G=H=I=J=K=L=M=N=O=P=Q=R=S=T=U=V=W=X=Y=Z=[=\=]=^=_=`=a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=p=q=r=s=t=u=v=w=x=y=z={=|=}=~==========================>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>??????????????????????????@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@ @!A"A#A$A%A&A'A(A)A*A+A,A-A.A/A0A1A2A3A4A5A6A7A8A9A:A;A<A=A>A?A@AAABACADAEAFAGAHAIBJBKBLBMBNBOBPBQBRBSBTBUBVBWBXBYCZC[C\C]C^C_C`CaCbCcCdCeCfCgChCiCjCkClCmCnCoCpCqCrCsCtCuCvCwCxCyCzC{C|C}C~CCCCCCCCDDDDDDDDDDDDDDDDDDDDDDEEEEEEEEEEEEEEEEEEEEEEEEFFFFFFFFGGGGGGGGGGGGGGGGGGGGGGGGGHHHHHHIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJKKLLL L L L L LLLLLLLLLLLLLLLLLMN N!N"N#N$N%N&N'N(N)N*N+N,N-N.N/N0N1N2N3N4N5N6N7N8N9N:N;N<N=N>N?N@NANBNCNDNENFNGNHNINJNKNLNMNNNONPNQNRNSNTNUNVNWNXNYNZN[N\N]N^N_N`NaNbNcNdNeNfNgNhNiNjNkNlNmNnNoNpNqNrNsNtNuNvNwNxNyNzN{N|N}N~NN,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , !, ", #, $, %, &, ', (, ), *, +, ,, -, ., /, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, :O ;O <O = > ? @ A B C D E F G H I J K L M N O P Q R S TP UQ VQ WQ XQ YQ ZQ [Q \Q ]Q ^Q _Q `Q aQ bQ cQ dQ eQ fQ gQ hQ iQ jQ kQ lQ mQ nQ oQ pQ qQ rQ sQ tQ uQ vQ wQ xQ yQ zQ {Q |Q }Q ~Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q R R R R R R R R R R R R R R R R R R R R R R R R R R R S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T !T "T #T $T %T &T 'T (U )U *U +U ,U -U .U /U 0U 1U 2U 3U 4U 5U 6U 7U 8U 9U :U ;U <U =U >U ?U @U AU BU CU DU EU FU GU HU IU JU KU LU MU NU OU PU QU RU SU TU UU VU WU X" Y" Z" [" \" ]" ^" _" `" a" b" c" d" e" f" g" h" i" j" k" l" m" n" o" p" q" r" s" t" u" v" w" x" y" z" {" |" }" ~" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " !" "" #" $" %" &" '" (" )" *" +" ," -" ." /" 0" 1" 2" 3" 4" 5" 6" 7" 8" 9" :" ;" <" =" >" ?" @" A" B" C" D" E" F" G" H" I" J" K" L" M" N" O" P" Q" R" S" T" U" V" W" X" Y" Z" [" \" ]" ^" _" `" a" b" c" d" e" f" g" h" i" j" k" l" m" n" o" p" q" r" s" t" u" v" w" x" y" z" {" |" }" ~" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " !" "" #" $" %" &" '" (" )" *" +" ," -" ." /" 0" 1" 2" 3" 4" 5" 6" 7" 8" 9" :" ;" <" =" >" ?" @" A" B" C" D" E" F" G" H" I" J" K" L" M" N" O" P" Q" R" S" T" U" V" W" X" Y" Z" [" \" ]" ^" _" `" a" b" c" d" e" f" g" h" i" j" k" l" m" n" o" p" q" r" s" t" u" v" w" x" y" z" {" |" }" ~" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " !" "" #" $" %" &" '" (" )" *" +" ," -" ." /" 0" 1" 2" 3" 4" 5" 6" 7" 8" 9" :" ;" <" =" >" ?" @" A" B" C" D" E" F" G" H" I" J" K" L" M" N" O" P" Q" R" S" T" U" V" W" X" Y" Z" [" \" ]" ^" _" `" a" b" c" d" e" f" g" h" i" j" k" l" m" n" o" p" q" r" s" t" u" v" w" x" y" z" {" |" }" ~" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " V V V V V V V V W W W W W W W W W W W W W W W W W W WWWWWWWWWW W W W W WWWWWWWWWWWWWWWWWWW W!W"W#W$W%W&W'W(W)W*W+W,W-W.W/W0W1W2W3W4W5W6W7W8W9W:W;W<W=W>X?X@XAXBXCXDXEXFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~     YYYYYY Y!Y"Y#Y$Y%Y&Y'Y(Y)Y*Y+Y,Y-Y.Y/Y0Y1Y2Y3Y4Y5Y6Y7Y8Y9Y:Y;Y<Y=Y>Y?Y@YAYBYCYDZEZFZGZHZIZJZKZLZMZNZOZPZQZRZSZTZUZVZWZXZYZZZ[Z\Z]Z^Z_Z`Za[b[c[d[e[f[g[h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x]y]z]{]|]}]~]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]^^^_______________________                                 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< < < < < <<<<<<<<<<<<<<<<<<< <!<"<#<$-%-&-'-(-)-*-+-,---.-/-0-1-2-3-4-5-6-7-8-9-:-;-<-=->-?-@-A-B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U-V-W-X-Y-Z-[-\-]-^`_a`aaabbcbdbebfbgbhbibjbkblbmbnbobpbqbrbsbtbubvbwbxbybzb{b|b}b~bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbcccccccccccccccccccccdddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd d d d d ddddddddddddddddddd d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]d^d_d`dadbdcdddedfdgdhdidjdkdldmdndodpdqdrdsdtduevewexeyeze{e|e}e~ffffffgggggggggggggggggggggghhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh h h h h hhhhhhhhhOOOOOOOOOO O!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?O@OAOBOCODOEOFOGOHOIOJOKOLOMONOOOPOQOROSOTOUOVOWOXOYOZO[O\O]O^O_O`OaObOcOdOeOfOgOhOiOjOkOlOmOnOoOpOqOrOsOtOuOvOwOxOyOzO{O|O}O~OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO O O O O OOOOOOOOOOOOOOOOOOO O!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?O@OAOBOCODOEOFOGOHOIOJOKOLOMONOOOPOQOROSOTOUOVOWOXOYOZO[O\O]O^O_O`OaObOcOdOeOfOgOhOiOjOkOlOmOnOoOpOqOrOsOtOuOvOwOxOyOzO{O|O}O~OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO O O O O OOOOOOOOOOOOOOOOOOO O!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?O@OAOBOCODOEOFOGOHOIOJOKOLOMONOOOPOQOROSOTOUOVOWOXOYOZO[O\O]O^O_O`OaObOcOdOeOfOgOhOiOjOkOlOmOnOoOpOqOrOsOtOuOvOwOxOyOzO{O|O}O~OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO O O O O OOOOOOOOOOOOOOOOOOO O!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?O@OAOBOCODOEOFOGOHOIOJOKOLOMONOOOPOQOROSOTOUOVOWOXOYOZO[O\O]O^O_O`OaObOcOdOeOfOgOhOiOjOkOlOmOnOoOpOqOrOsOtOuOvOwOxOyOzO{O|O}O~OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO O O O O Oiiiiiiiiiiiiiiiiii i!i"i#i$i%i&i'i(i)i*i+i,i-i.i/i0i1i2i3i4i5i6i7i8i9i:i;i<i=i>i?i@iAiBiCiDiEiFiGiHiIiJiKiLiMiNiOiPiQiRiSiTiUiViWiXiYiZi[i\i]i^i_i`iaibicidieifigihiiijikiliminioipiqirisitiuiviwixiyizi{i|i}i~iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii i i i i iiiiiiiiiiiiiiiiiii i!i"i#i$i%i&i'i(i)i*i+i,i-i.i/i0i1i2i3i4i5i6i7i8i9i:i;i<i=i>i?i@iAiBiCiDiEiFiGiHiIiJiKiLiMiNiOiPiQiRiSiTiUiViWiXiYiZi[i\i]i^i_i`iaibicidieifigihiiijikiliminioipiqirisitiuiviwixiyizi{i|i}i~iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii i i i i iiiiiiiijjjjjjjjjjj j!j"j#j$j%j&j'j(j)j*j+j,j-j.j/j0j1j2j3j4j5j6j7j8j9j:j;j<j=j>j?j@jAjBjCjDjEjFjGjHjIjJjKjLjMjNjOjPjQjRjSjTjUjVjWjXjYjZj[j\j]j^j_j`jajbjcjdjejfjgjhjijjjkjljmjnjojpjqjrjsjtjujvjwjxjyjzj{j|j}j~jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k k k k kkkkkkkkkkkkkkkkkkk k!k"k#k$k%k&k'k(k)k*k+k,k-k.k/k0k1k2k3k4k5k6k7k8k9k:k;k<k=k>k?k@kAkBkCkDkEkFkGkHkIkJkKkLkMkNkOkPkQkRkSkTkUkVkWkXkYkZk[k\k]k^k_k`kakbkckdkekfkgkhkikjkkklkmknkokpkqkrksktkukvkwkxkykzk{k|k}k~kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkklllllllllmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmnnnnn n n n n nnnnnnnnnnnnnnnnnnn n!n"n#n$n%n&n'n(0)n*n+n,n-n.n/o0o1o2o3o4p5p6p7p8p9p:p;p<p=p>p?p@pApBqCqDqEqFrGrHrIrJrKrLrMrNrOrPrQrRrSrTrUrVrWrXrYrZr[r\r]r^r_r`rarbrcrdrerfrgrhrirjrkrlrmrnrorprqrrrsrtsusvswsxsyszs{s|s}s~ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss2222222222222222222222222222222tttttttttttttttttttttttttttttttttttt ) ) ) ) ))))))))))))))))))) )!)")#)$)%)&)')()))*)+),)-).)/)0)1)2)3)4)5)6)7)8)9):);)<)=)>)?)@)A)B)C)D)E)F)G)H)I)J)K)L)M)N)O)P)Q)R)S)T)U)V)W)X)Y)Z)[)\)])^)_)`)a)b)c)d)e)f)g)h)i)j)k)l)m)n)o)p)q)r)s)t)u)v)w)x)y)z){)|)})~)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))0000000100000uvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv v v v v vvvvvvvvvvvvvvvvvvv v!v"v#v$v%v&v'v(v)v*v+v,v-v.v/v0v1v2v3v4v5v6v7v8v9v:v;v<v=v>v?v@vAvBvCvDvEvFvGvHvIvJvKvLvMvNvOvPvQvRvSvTvUvVvWvXvYvZv[v\v]v^v_v`vavbvcvdvevfvgvhvivjvkvlvmvnwowpwqwrwsxtxuxvxwxxxyxzx{x|x}x~xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy y y y y yyyyyyyyyyyyyyyyyyy y!y"y#y$y%y&z'z(z)z*z+z,z-z.{/{0{1{2{3{4{5{6{7{8{9{:{;{<{=2>0?0@2A2B2C2D0E0F0G0H0I0J0K3L0M0N0O0P0Q0R0S0T0U0V0W0X1Y1Z0[0\0]0^0_0`3a0b0c0d3e3f3g2h2i2j2k2l0m0n2o0p0q3r0s0t2u0v0w0x0y0z0{3|0}2~00000000000000000000000020300000000000202222020000000000000000000000000000000002202|||||||||||||||||||||||||||||||||||||||||||||||||||||||| | | | | ||||||||||||||||||| |!|"|#|$|%|&|'|(|)|*|+|,|-|.|/|0|1|2|3|4|5|6|7|8|9|:|;|<|=|>|?|@|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|[|\|]|^|_|`|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v1w1x1y1z1{1|1}1~1111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 0 0 0 0 0000000000000000000 0!0"0#0$0%o&o'o(o)o*o+o,o-o.o/o0o1o2o3o4o5o6o7o8}9}:};}<}=}>}?}@}A}B}C}D}E}F}G}H}I}J}K}L}M}N}O}P}Q}R}S}T}U}V}W}X}Y}Z}[}\}]}^}_}`}a}b}c}d}e}f}g}h}i}j}k}l}m}n}o}p}q}r}s}t}u}v2w2x2y2z2{2|2}2~2222222222222222222222222222222222222222222222222222222222222222222222222222222222222~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~pppppp p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p !p "p #p $p %p &p 'p (p )p *p +p ,p -p .p /p 0p 1p 2p 3p 4p 5p 6p 7p 8p 9p :p ;p <p =p >p ?p @p Ap Bp Cp Dp Ep Fp Gp Hp Ip Jp Kp Lp Mp Np Op Pp Qp Rp Sp Tp Up Vp Wp Xp Yp Zp [p \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  !!!!!!!!!! ! ! ! ! !!!!!!!!!!!q!q!q!q!q!q!q!q! q!!q!"q!#q!$q!%q!&q!'q!(q!)q!*!+!,!-!.!/!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"""""""""" " " " " """"""""""""""""""" "!"""#"$"%"&"'"(")"*"+","-"."/"0"1"2"3"4"5"6"7"8"9":";"<"=">"?"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~""""""""""""""""""""""""""""""""""""""""""""""""""""""":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":":#:#:#:#:#:##### # # # # ################### #!#"###$#%#&#'#(#)#*#+#,#-#.#/#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~############n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n#n$n$n$n$$$$$$$$$$$$$ $$ $$ $$ $$ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$!$$"$$#$$$$$%$$&$$'$$($$)$$*$$+$$,$$-$$.$$/$$0$$1$$2$$3$$4$$5$$6$$7$$8$$9$$:$$;$$<$$=$$>$$?$$@$$A$$B$$C$$D$$E$$F$$G$$H$$I$$J$$K$$L$$M$$N$$O$$P$$Q$$R$$S$$T$$U$$V$$W$$X$$Y$$Z$$[$$\$$]$$^$$_$$`$$a$$b$$c$$d$$e$$f$$g$$h$$i$$j$$k$$l$$m$$n$$o$$p$$q$$r$$s$$t$$u$$v$$w$$x$$y$$z$${$$|$$}$$~$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%$%$%$%$%$%$%$%$%$% $% $% $% $% $%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$% $%!$%"$%#$%$$%%$%&$%'$%($%)$%*$%+$%,$%-$%.$%/$%0$%1$%2$%3$%4$%5$%6$%7$%8$%9$%:$%;$%<$%=$%>$%?$%@$%A$%B$%C$%D$%E$%F$%G$%H$%I$%J$%K$%L$%M$%N$%O$%P$%Q$%R$%S$%T$%U$%V$%W$%X$%Y$%Z$%[$%\$%]$%^$%_$%`$%a$%b$%c$%d$%e$%f$%g$%h$%i$%j$%k$%l$%m$%n$%o$%p$%q$%r$%s$%t$%u$%v$%w$%x$%y$%z$%{$%|$%}$%~$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&& & & & & &&&&&&&&&&&&&&&&&&& &!&"&#&$&%&&&'&(&)&*&+&,&-&.&/&0&1&2&3&4&5&6&7&8&9&:&;&<&=&>&?&@&A&B&C&D&E&F&G&H&I&J&K&L&M&N&O&P&Q&R&S&T&U&V&W&X&Y&Z&[&\&]&^&_&`&a&b&c&d&e&f&g&h&i&j&k&l&m&n&o&p&q&r&s&t&u&v&w&x&y&z&{&|&}&~&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&'''''''''' ' ' ' ' ''''''''''''''''''' '!'"'#'$'%'&'''(')'*'+','-'.'/'0'1'2'3'4'5'6'7'8'9':';'<'='>'?'@'A'B'C'D'E'F'G'H'I'J'K'L'M'N'O'P'Q'R'S'T'U'V'W'X'Y'Z'['\']'^'_'`'a'b'c'd'e'f'g'h'i'j'k'l'm'n'o'p'q'r's't'u'v'w'x'y'z'{'|'}'~'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''(((((((((( ( ( ( ( ((((((((((((((((((( (!("(#($(%(&('((()(*(+(,(-(.(/(0(1(2(3(4(5(6(7(8(9(:(;(<(=(>(?(@(A(B(C(D(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z([(\(](^(_(`(a(b(c(d(e(f(g(h(i(j(k(l(m(n(o(p(q(r(s(t(u(v(w(x(y(z({(|(}(~((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((()))))))))) ) ) ) ) ))))))))))))))))))) )!)")#)$)%)&)')()))*)+),)-).)/)0)1)2)3)4)5)6)7)8)9):);)<)=)>)?)@)A)B)C)D)E)F)G)H)I)J)K)L)M)N)O)P)Q)R)S)T)U)V)W)X)Y)Z)[)\)])^)_)`)a)b)c)d)e)f)g)h)i)j)k)l)m)n)o)p)q)r)s)t)u)v)w)x)y)z){)|)})~)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))********** * * * * ******************* *!*"*#*$*%*&*'*(*)***+*,*-*.*/*0*1*2*3*4*5*6*7*8*9*:*;*<*=*>*?*@*A*B*C*D*E*F*G*H*I*J*K*L*M*N*O*P*Q*R*S*T*U*V*W*X*Y*Z*[*\*]*^*_*`*a*b*c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s*t*u*v*w*x*y*z*{*|*}*~*********************************************************************************************************************************++++++++++ + + + + +++++++++++++++++++ +!+"+#+$+%+&+'+(+)+*+++,+-+.+/+0+1+2+3+4+5+6+7+8+9+:+;+<+=+>+?+@+A+B+C+D+E+F+G+H+I+J+K+L+M+N+O+P+Q+R+S+T+U+V+W+X+Y+Z+[+\+]+^+_+`+a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z+{+|+}+~+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++,,,,,,,,,, , , , , ,,,,,,,,,,,,,,,,,,, ,!,",#,$,%,&,',(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>,?,@,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,[,\,],^,_,`,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,{,|,},~,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,---------- - - - - ------------------- -!-"-#-$-%-&-'-(-)-*-+-,---.-/-0-1-2-3-4-5-6-7-8-9-:-;-<-=->-?-@-A-B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U-V-W-X-Y-Z-[-\-]-^-_-`-a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z-{-|-}-~----------------------------------------------------------3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3-3.3.3.3.3.3.3.3.3.3. 3. 3. 3. 3. 3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3. 3.!3."3.#3.$3.%3.&3.'3.(3.)3.*3.+3.,3.-3..3./3.03.13.23.33.43.53.63.73.83.93.:3.;3.<3.=3.>3.?3.@3.A3.B3.C3.D3.E3.F3.G3.H3.I3.J3.K3.L3.M3.N3.O3.P3.Q3.R3.S3.T3.U3.V3.W3.X3.Y3.Z3.[3.\3.]3.^3._3.`3.a3.b3.c3.d3.e3.f3.g3.h3.i3.j3.k3.l3.m3.n3.o3.p3.q3.r3.s3.t3.u3.v3.w3.x3.y3.z3.{3.|3.}3.~3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.............................................................................................................////////// / / / / /////////////////// /!/"/#/$/%/&/'/(/)/*/+/,/-/.///0/1/2/3/4/5/6/7/8/9/:/;/</=/>/?/@/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z/[/\/]/^/_/`/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/{/|/}/~/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////0000000000 0 0 0 0 0000000000000000000 0!0"0#0$0%0&0'0(0)0*0+0,0-0.0/000102030405060708090:0;0<0=0>0?0@0A0B0C0D0E0F0G0H0I0J0K0L0M0N0O0P0Q0R0S0T0U0V0W0X0Y0Z0[0\0]0^0_0`0a0b0c0d0e0f0g0h0i0j0k0l0m0n0o0p0q0r0s0t0u0v0w0x0y0z0{0|0}0~0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001111111111 1 1 1 1 1111111111111111111 1!1"1#1$1%1&1'1(1)1*1+1,1-1.1/101112131415161718191:1;1<1=1>1?1@1A1B1C1D1E1F1G1H1I1J1K1L1M1N1O1P1Q1R1S1T1U1V1W1X1Y1Z1[1\1]1^1_1`1a1b1c1d1e1f1g1h1i1j1k1l1m1n1o1p1q1r1s1t1u1v1w1x1y1z1{1|1}1~1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111112222222222 2 2 2 2 2222222222222222222 2!2"2#2$2%2&2'2(2)2*2+2,2-2.2/202122232425262728292:2;2<2=2>2?2@2A2B2C2D2E2F2G2H2I2J2K2L2M2N2O2P2Q2R2S2T2U2V2W2X2Y2Z2[2\2]2^2_2`2a2b2c2d2e2f2g2h2i2j2k2l2m2n2o2p2q2r2s2t2u2v2w2x2y2z2{2|2}2~2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222223333333333 3 3 3 3 3333333333333333333 3!3"3#3$3%3&3'3(3)3*3+3,3-3.3/303132333435363738393:3;3<3=3>3?3@3A3B3C3D3E3F3G3H3I3J3K3L3M3N3O3P3Q3R3S3T3U3V3W3X3Y3Z3[3\3]3^3_3`3a3b3c3d3e3f3g3h3i3j3k3l3m3n3o3p3q3r3s3t3u3v3w3x3y3z3{3|3}3~3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333334444444444 4 4 4 4 4444444444444444444 4!4"4#4$4%4&4'4(4)4*4+4,4-4.4/404142434445464748494:4;4<4=4>4?4@4A4B4C4D4E4F4G4H4I4J4K4L4M4N4O4P4Q4R4S4T4U4V4W4X4Y4Z4[4\4]4^4_4`4a4b4c4d4e4f4g4h4i4j4k4l4m4n4o4p4q4r4s4t4u4v4w4x4y4z4{4|4}4~4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444445555555555 5 5 5 5 5555555555555555555 5!5"5#5$5%5&5'5(5)5*5+5,5-5.5/505152535455565758595:5;5<5=5>5?5@5A5B5C5D5E5F5G5H5I5J5K5L5M5N5O5P5Q5R5S5T5U5V5W5X5Y5Z5[5\5]5^5_5`5a5b5c5d5e5f5g5h5i5j5k5l5m5n5o5p5q5r5s5t5u5v5w5x5y5z5{5|5}5~5555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555556666666666 6 6 6 6 6666666666666666666 6!6"6#6$6%6& 6' 6( 6) 6* 6+ 6, 6- 6. 6/ 60 61 62 63 64 65 66 67 68 69 6: 6; 6< 6= 6> 6? 6@ 6A 6B 6C 6D 6E 6F 6G 6H 6I 6J 6K 6L 6M 6N 6O 6P 6Q 6R 6S 6T 6U 6V 6W 6X 6Y 6Z 6[ 6\ 6] 6^ 6_ 6` 6a 6b 6c 6d 6e 6f 6g 6h 6i 6j 6k 6l 6m 6n 6o 6p 6q 6r 6s 6t 6u 6v 6w 6x 6y 6z 6{ 6| 6} 6~ 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7! 7" 7# 7$ 7% 7& 7' 7( 7) 7* 7+ 7, 7- 7. 7/ 70 71 72 73 74 75 76 77 78 79 7: 7; 7< 7= 7> 7? 7@ 7A 7B 7C 7D 7E 7F 7G 7H 7I 7J 7K 7L 7M 7N 7O 7P 7Q 7R 7S 7T 7U 7V 7W 7X 7Y 7Z 7[ 7\ 7] 7^ 7_ 7` 7a 7b 7c 7d 7e 7f 7g 7h 7i 7j 7k 7l 7m 7n 7o 7p 7q 7r 7s 7t 7u 7v 7w 7x 7y 7z 7{ 7| 7} 7~ 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7778888888888 8 8 8 8 8888888888888888888 8!8"8#8$8%8&8'8(8)8*8+8,8-8.8/808182838485868788898:8;8<8=8>8?8@8A8B8C8D8E8F8G8H8I8J8K8L8M8N8O8P8Q8R8S8T8U8V8W8X8Y8Z8[8\8]8^8_8`8a8b8c8d8e8f8g8h8i8j8k8l8m8n8o8p8q8r8s8t8u8v8w8x8y8z8{8|8}8~8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888889999999999 9 9 9 9 9999999999999999999 9!9"9#9$9%9&9'9(9)9*9+9,9-9.9/909192939495969798999:9;9<9=9>9?9@9A9B9C9D9E9F9G9H9I9J9K9L9M9N9O9P9Q9R9S9T9U9V9W9X9Y9Z9[9\9]9^9_9`9a9b9c9d9e9f9g9h9i9j9k9l9m9n9o9p9q9r9s9t9u9v9w9x9y9z9{9|9}9~999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999:::::::::: : : : : ::::::::::::::::::: :!:":#:$:%:&:':(:):*:+:,:-:.:/:0:1:2:3:4:5:6:7u:8u:9u::u:;u:<u:=u:>u:?u:@:A:B:C:D:E:F:G:H:I:J:K:L:M:N:O:P:Q:R:S:T:U:V:W:X:Y:Z:[:\:]:^:_:`:a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z:{:|:}:~:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::;;;;;;;;;; ; ; ; ; ;;;;;;;;;;;;;;;;;;; ;!;";#;$;%;&;';(;);*;+;,;-;.;/;0;1;2;3;4;5;6;7;8;9;:;;;<;=;>;?;@;A;B;C;D;E;F;G;H;I;J;K;L;M;N;O;P;Q;R;S;T;U;V;W;X;Y;Z;[;\;];^;_;`;a;b;c;d;e;f;g;h;i;j;k;l;m;n;o;p;q;r;s;t;u;v;w;x;y;z;{;|;};~;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<<<<<<<<<< < < < < <<<<<<<<<<<<<<<<<<< =?=@=A=B=C=D=E=F=G=H=I=J=K=L=M=N=O=P=Q=R=S=T=U=V=W=X=Y=Z=[=\=]=^=_=`=a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=p=q=r=s=t=u=v=w=x=y=z={=|=}=~============================================================================== = = = = = = = = = = = = = = = =w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=!=!="=z=z=z=z=z>z>z>z>z>z>z>z>z>z> z> z> z> z> z>z>z>z>z>z>z>#>#>#>#>#>#>#>#>#>$>$>$> %>!>">#>$>%&>&'>'(>((>)(>*(>+(>,(>-(>.(>/(>0(>1(>2(>3)>4*>5*>6*>7*>8*>9*>:*>;*><>=>>>?>@>A>B>C>D>E>F>G>H>I>J>K>L>M>N>O>P>Q>R>S+>T+>U+>V+>W+>X+>Y+>Z+>[+>\+>]+>^+>_+>`+>a+>b+>c+>d+>e+>f+>g+>h+>i+>j+>k+>l+>m+>n+>o+>p+>q+>r+>s+>t+>u+>v+>w+>x+>y+>z+>{+>|+>}+>~+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>,>,>->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->-?-?-?-?-?-?-?-?-?-? -? -? -? -? -?-?.?.?.?.?.?.?.?.?.?.?.?.?/?/?/?/?/? /?!/?"/?#/?$/?%/?&/?'/?(/?)/?*/?+0?,0?-0?.0?/0?00?10?20?30?40?50?60?70?80?90?:0?;0?<0?=0?>0??0?@0?A0?B0?C0?D0?E0?F0?G0?H0?I0?J0?K0?L0?M0?N0?O0?P0?Q0?R0?S0?T0?U0?V0?W0?X0?Y0?Z0?[0?\0?]0?^0?_0?`0?a0?b0?c0?d0?e0?f0?g0?h0?i0?j0?k0?l0?m0?n0?o1?p1?q1?r1?s1?t1?u1?v1?w1?x1?y1?z1?{1?|1?}1?~1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?1?2?2?2?3?3?3?3?3?3?3?3?3?3?3?3?3?3?3?3?3?3?3?3?3?3?3?3?????????4?4?5?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6@6@6@6@6@6@6@6@6@6@ 6@ 6@ 6@ 6@ 6@6@6@6@6@6@6@6@6@6@6@6@6@6@6@6@6@6@6@ 6@!6@"6@#6@$6@%6@&6@'6@(6@)6@*6@+6@,6@-6@.6@/6@06@16@26@36@46@56@66@76@86@96@:6@;6@<6@=6@>6@?6@@6@A6@B6@C6@D6@E6@F7@G7@H7@I7@J7@K7@L7@M7@N7@O7@P7@Q7@R7@S7@T7@U7@V7@W7@X7@Y7@Z7@[7@\7@]7@^7@_7@`7@a7@b7@c7@d7@e7@f7@g7@h7@i7@j7@k7@l7@m8@n8@o8@p8@q8@r8@s8@t8@u8@v8@w8@x8@y8@z8@{8@|8@}8@~8@8@8@8@8@8@9@9@9@9@9@9@9@9@9@9@:@:@:@:@:@;@;@;@;@;@;@;@;@;@;@;@;@<@<@<@@@@@@@@@@@@=@=@=@=@=@=@=@=@=@=@=@=@=@=@=@>@>@>@>@>@>@>@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@@@@@@@@@@@@@@@@@@@@@@@@@@@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@@@@@@@@@@@@@AAAAAAAAAA A A A A AAAAAAAAAAAABABABABABABABA BA!BA"BA#BA$BA%BA&BA'BA(BA)BA*BA+BA,BA-BA.BA/BA0BA1BA2BA3BA4BA5BA6BA7BA8BA9BA:BA;BA<BA=BA>BA?BA@BAABABBACBADBAEBAFBAGBAHBAIBAJBAKBALBAMBANBAOBAPBAQBARBASBATBAUBAVBAWBAXBAYBAZBA[BA\BA]BA^BA_BA`BAaBAbBAcBAdCAeCAfCAgCAhCAiCAjCAkCAlCAmCAnCAoDApDAqDArDAsDAtDAuDAvDAwDAxDAyDAzDA{DA|DA}DA~DADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADBDBDBDBDBDBDBDBDBDB DB DB DB DB DBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDB DB!DB"DB#DB$DB%DB&DB'DB(DB)DB*DB+DB,DB-DB.DB/EB0EB1EB2EB3EB4EB5EB6EB7EB8EB9FB:FB;FB<FB=FB>FB?FB@FBAFBBFBCFBDGBEGBFGBGGBHGBIHBJHBKHBLHBMHBNHBOHBPHBQHBRHBSHBTHBUHBVHBWHBXHBYHBZHB[HB\IB]IB^IB_IB`IBaIBbIBcIBdIBeIBfIBgIBhIBiIBjIBkIBlIBmIBnIBoIBpIBqIBrIBsIBtJBuJBvJBwJBxJByJBzJB{JB|JB}JB~JBJBJBJBJBJBJBJBJBJBJBJBJBKBKBKBKBKBKBKBKBKBKBKBKBKBKBKBKBLBLBLBLBLBLBLBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBMBNBNBOBOBOBOBOBOBOBOBOBOBOBOBOBOBOBOBPBPBPBPBPBPBPBPBQBQBQBQBQBQBRBRBSBSBSBSBSBSBSBSBSBSBSBSBSCSCSCSCSCSCSCSCSCSC SC SC SC SC SCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSC SC!SC"SC#SC$SC%SC&SC'SC(SC)SC*SC+SC,SC-SC.SC/SC0 C1 C2 C3 C4 C5 C6 C7TC8TC9TC:TC;TC<TC=TC>TC?TC@TCATCBTCCTCDUCEUCFUCGUCHUCIUCJUCKUCLUCMVCNVCOVCPVCQVCRVCSVCTVCUVCVCWCXCYCZC[C\WC]WC^WC_WC`WCaWCbWCcWCdWCeWCfWCgWChWCiWCjWCkWClWCmWCnWCoWCpWCqWCrWCsWCtWCuWCvWCwWCxWCyWCzWC{WC|WC}WC~WCWCWCXCXCXCXCXCXCXCXCXCXCXCXCXCXCXCXCYCYCYCYCYCYCYCYCYCYCYCYCZC[C[C[C[C[C[C[C[C[C[C\C\C\C\C]C]C]C]C]C]C]C]C]C]C]C]C]C]CCCCCCCCCCCCCCCCCC^C_C_C_C_C_C_C_C_C_C_CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCDDDDDDDDDD D D D D DDDDDDDDDDDDDD`DaDaDaDaD aD!aD"aD#aD$aD%aD&aD'aD(aD)aD*aD+aD,aD-aD.bD/bD0bD1bD2cD3cD4cD5cD6cD7dD8dD9dD:dD;dD<dD=dD>dD?dD@dDAdDBdDCdDDdDEdDFdDGdDHdDIdDJdDKdDLdDMdDNdDOdDPdDQdDRdDSdDTdDUdDVdDWdDXdDYdDZdD[dD\dD]dD^dD_dD`dDadDbdDceDdeDeeDfeDgeDheDieDjeDkeDleDmeDneDofDpgDqgDrgDsgDthDuhDvhDwhDxhDyiDzjD{jD|jD}jD~jDjDjDjDjDkDkDlDlDlDlDlDlDlDlDlDlDlDlDlDlDlDlDlDlDlDbDmDmDmDnDcDoDoDoDoDoDoDoDoDoDoDoDpDpDpDpDpDpDpDpDqDrDrDrDrDrDrDrDrDrDrDrDrDrDqDqDDDDDDDDDDDDDDDDDDDDDDDsDsDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtDtEtEtEtEtEtEtEtEtEtE tE tE tE tE tEtEtEtEtEtEtEtEtEtEtEuEuEvEvEvEvEvEvE vE!vE"vE#vE$vE%vE&vE'vE(vE)vE*vE+vE,vE-vE.vE/vE0vE1vE2vE3vE4vE5vE6vE7vE8wE9wE:wE;wE<wE=wE>wE?wE@wEAwEBwECwEDwEEwEFwEGwEHwEIwEJwEKwELwEMwENwEOwEPwEQwERwESwETwEUwEVwEWxEXxEYxEZxE[xE\xE]xE^xE_xE`xEaxEbxEcxEdxEexEfxEgxEhxEiyEjyEkyElzEmzEnzEozEpzEqzErzEszEtzEuzEvzEw{Ex{Ey{Ez{E{{E|{E}{E~{E{E{E|E|E|E|E|E|E|E|E}E~E~E~E~E~E~E~E~E~E~E~E~E~E~E~E~E~EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEFFFFFFFFFF F F F F FFFFFFFFFFFFFFFFFFF F!F"F#F$F%F&F'F(F)F*F+F,F-F.F/F0F1F2F3F4F5F6F7F8F9F:F;F<F=F>F?F@FAFBFCFDFEFFFGFHFIFJFKFLFMFNFOFPFQFRFSFTFUFVFWFXFYFZF[F\F]F^F_F`FaFbFcFdFeFfFgFhFiFjFkFlFmFnFoFpFqFrFsFtFuFvFwFxFyFzF{F|F}F~FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGGGGGGG G G G G GGGGGGGGGGGGGGGGGGG G!G"G#G$G%G&G'G(G)G*G+G,G-G.G/G0G1G2G3G4G5G6G7G8G9G:G;G<G=G>G?G@GAGBGCGDGEGFGGGHGIGJGKGLGMGNGOGPGQGRGSGTGUGVGWGXGYGZG[G\G]G^G_G`GaGbGcGdGeGfGgGhGiGjGkGlGmGnGoGpGqGrGsGtGuGvGwGxGyGzG{G|G}G~GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGHHHHHHHHHH H H H H HHHHHHHHHHHHHHHHHHH H!H"H#H$H%H&H'H(H)H*H+H,H-H.H/H0H1H2H3H4H5H6H7H8H9H:H;H<H=H>H?H@HAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRHSHTHUHVHWHXHYHZH[H\H]H^H_H`HaHbHcHdHeHfHgHhHiHjHkHlHmHnHoHpHqHrHsHtHuHvHwHxHyHzH{H|H}H~HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHIIIIIIIIII I I I I IIIIIIIIIIIIIIIIIII I!I"I#I$I%I&I'I(I)I*I+I,I-I.I/I0I1I2I3I4I5I6I7I8I9I:I;I<I=I>I?I@IAIBICIDIEIFIGIHIIIJIKILIMINIOIPIQIRISITIUIVIWIXIYIZI[I\I]I^I_I`IaIbIcIdIeIfIgIhIiIjIkIlImInIoIpIqIrIsItIuIvIwIxIyIzI{I|I}I~IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIISafeSafe8eDefault maximum depth for both class instance search and type family reduction. See also Trac #5395.PDefault maximum constraint-solver iterations Typically there should be very fewNoneD`I6Size of a 64-bit word when written as a base-62 string,Converts a 64-bit word into a base-62 stringSafeSA monad that can catch exceptions. A minimal definition requires a definition of .Implementations on top of I should implement # to eventually call the primitive In. These are used for implementations that support asynchronous exceptions. The default implementations of  and  use ! thus rarely require overriding.Generalised version of IB, allowing an arbitrary exception handling monad instead of just I.Generalised version of IB, allowing an arbitrary exception handling monad instead of just I.Generalised version of IB, allowing an arbitrary exception handling monad instead of just I.Generalised version of IB, allowing an arbitrary exception handling monad instead of just I.Generalised version of IB, allowing an arbitrary exception handling monad instead of just I.Always executes the first argument. If this throws an exception the second argument is executed and the exception is raised again.dIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJIIJJJIJJJJJJ ! J J J J JJJJJJJJ NoneD NoneDbJJNone "#$ $ "#Safet (c) Dan DoelBSD3dan.doel@gmail.com experimental+non-portable (multi-parameter type classes)Safe;=>?QVMYA monad transformer for performing backtracking computations layered over another monad mWRuns a ListT computation with the specified initial success and failure continuations.NoneV]=GHC's own exception type error messages all take the form:   location:  error BIf the location is on the command line, or in GHC itself, then  location9="ghc". All of the error types below correspond to a  locationx of "ghc", except for ProgramError (where the string is assumed to contain a location already, so we don't print one).(Some other fatal signal (SIGHUP,SIGTERM)*Prints the short usage msg after the errorAA problem with the command line arguments, but don't print usage.The  impossible happened._The user tickled something that's known not to work yet, but we're not counting it as a bug.An installation problem.&An error in the user's code, probably.The name of this GHC.JRShort usage information to display when we are given the wrong cmd line arguments.Show an exception as a string.sShow an exception which can possibly throw other exceptions. Used when displaying exception thrown within TH code.;Append a description of the given exception to this string.Note that this uses ">, which may have some uninitialized fields if invoked before  has been called. If the error message to be printed includes a pretty-printer document which forces one of these fields this call may bottom.Panics and asserts.Panics and asserts. Panics and asserts. IThrow an failed assertion exception for a given filename and line number.Like try, but pass through UserInterrupt and Panic exceptions. Used when we want soft failures when reading interface files, for example. TODO: I'm not entirely sure if this is catching what we really want to catchJ-We use reference counting for signal handlerssTemporarily install standard signal handlers for catching ^C, which just throw an exception in the current thread."!      "     !  None ! !  None/J\The predicates below look costly, but aren't, GHC+GCC do a great job at the big case below.JnWe really mean .|. instead of + below, but GHC currently doesn't do any constant folding with bitops. *sigh*#$%&'()*+,-./0#$%&'()*-./0+,!Safe '1PowerPC 64-bit ABI>4ARM Instruction Set Architecture, Extensions and ABIBOperating systems that the native code generator knows about. Having OSUnknown should produce a sensible default, but no promises.RArchitectures that the native code generator knows about. TODO: It might be nice to extend these constructors with information about what instruction set extensions an architecture might support.d_Contains enough information for the native code generator to emit code for this platform.o7This predicate tells us whether the platform is 32-bit.pJThis predicate tells us whether the OS supports ELF-like shared libraries.qGThis predicate tells us whether the OS support Mach-O shared libraries.D123456789:;<=>?@ABCDEFGHIJKLMNOPQRXVTU\Z[SWY]^_`abcdefghijklmnopqrstDdefghijklmRSTUVWXYZ[\]^_`abcBCDEFGHIJKLMNOPQ>?@A89:;<=4567123onpqsrt123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd efghijklm#Safe               %SafegBranch condition codes. !"#$%&'()*+,-./0 !"#$%&'()*+,-./0 !"#$%&'()*+,-&Safe 23456789:; 234>=<56789:;234'Safe, ? Stream m a b is a computation in some Monad m/ that delivers a sequence of elements of type a followed by a result of type b.!More concretely, a value of type  Stream m a b can be run using  runStream in the Monad m, and it delivers eitherthe final result: Left b, or Right (a,str), where a( is the next element in the stream, and str4 is a computation to get the rest of the stream.4Stream is itself a Monad, and provides an operation B{ that produces a new element of the stream. This makes it convenient to turn existing monadic computations into streams.The idea is that Stream is useful for making a monadic computation that produces values from time to time. This can be used for knitting together two complex monadic operations, so that the producer does not have to produce all its values before the consumer starts consuming them. We make the producer into a Stream, and the consumer pulls on the stream each time it wants a new value.DCTurn a Stream into an ordinary list, by demanding all the elements.ETurn a list into a ?#, by yielding each element in turn.F&Apply a function to each element of a ?, lazilyG/Apply a monadic operation to each element of a ?, lazilyHanalog of the list-based HZ on Streams. This is a simple way to map over a Stream while carrying some state around. ?@ABCDEFGH ?@ABCDEFGH?@A(SafeV-LFCheck if ANSI escape sequences can be used to control color in stderr.LLSafe.None+FuU'A call stack constraint, but only when  isDebugOn.V A compatibility wrapper for the GHC.Stack.HasCallStack constraint.a@Compose a function with itself n times. (nth rather than twice)m3Like filter, only it reverses the sense of the testnSUses a function to determine which of two output lists an input element should joinoTeases a list of Js apart into two listsuu is a kind of J0 that is lazy in the second list (observe the ~)vv is like Jo but is lazy in the second list. The length of the output is always the same as the length of the first list.ww is like Jz but is lazy in the second and third lists. The length of the output is always the same as the length of the first list.xx takes a list of Bools and a list of some elements and filters out these elements for which the corresponding value in the list of Bools is False. This function does not check whether the lists have equal length.yy takes a list of Bools and two lists as input, and outputs a new list consisting of elements from the last two input lists. For each Bool in the list, if it is J ;, then it takes an element from the former list. If it is J!~, it takes an element from the latter list. The elements taken correspond to the index of the Bool in its list. For example: @filterByLists [True, False, True, False] "abcd" "wxyz" = "axcz" AThis function does not check whether the lists have equal length.zz takes a list of Bools and a list of some elements and partitions the list according to the list of Bools. Elements corresponding to J + go to the left; elements corresponding to J! go to the right. For example, ;partitionByList [True, False, True] [1,2,3] == ([1,3], [2])D This function does not check whether the lists have equal length.{stretchZipWith p z f xs ys stretches ys by inserting z in the places where p returns TrueatLength atLen atEnd ls n unravels list ls to position n . Precisely:  atLength atLenPred atEndPred ls n | n < 0 = atLenPred ls | length ls < n = atEndPred (n - length ls) | otherwise = atLenPred (drop n ls)  &(lengthExceeds xs n) = (length xs > n) "(lengthIs xs n) = (length xs == n)True if length xs <= length ysSplit a list into chunks of n elements8Replace the last element of a list with another element.+spanEnd p l == reverse (span p (reverse l))b. The first list returns actually comes after the second list (when you look at the input list).=Convert a word to title case by capitalising the first letterJ"SFind the "restricted" Damerau-Levenshtein edit distance between two strings. See:  9http://en.wikipedia.org/wiki/Damerau-Levenshtein_distance. Based on the algorithm presented in "A Bit-Vector Algorithm for Computing Levenshtein and Damerau Edit Distances" in PSC'02 (Heikki Hyyro). See  *http://www.cs.uta.fi/~helmu/pubs/psc02.pdf and  ,http://www.cs.uta.fi/~helmu/pubs/PSCerr.html for an explanationmSearch for possible matches to the users input in the given list, returning a small number of ranked resultsqA sample hash function for Strings. We keep multiplying by the golden ratio and adding. The implementation is: rhashString = foldl' f golden where f m c = fromIntegral (ord c) * magic + hashInt32 m magic = 0xdeadbeef2Where hashInt32 works just as hashInt shown above.Knuth argues that repeated multiplication by the golden ratio will minimize gaps in the hash space, and thus it's a good choice for combining together multiple keys to form one.;Here we know that individual characters c are often small, and this produces frequent collisions if we use ord c alone. A particular problem are the shorter low ASCII and ISO-8859-1 character strings. We pre-multiply by a magic twiddle factor to obtain a good distribution. In fact, given the following test: testp :: Int32 -> Int testp k = (n - ) . length . group . sort . map hs . take n $ ls where ls = [] : [c : l | l <- ls, c <- ['\0'..'\xff']] hs = foldl' f golden f m c = fromIntegral (ord c) * k + hashInt32 m n = 100000!We discover that testp magic = 0.J#A sample (and useful) hash function for Int32, implemented by extracting the uppermost 32 bits of the 64-bit result of multiplying by a 33-bit constant. The constant is from Knuth, derived from the golden ratio: $golden = round ((sqrt 5 - 1) * 2^32)We get good key uniqueness on small inputs (a problem with previous versions): (length $ group $ sort $ map hashInt32 [-32767..65536]) == 65536 + 32768"Pretty-print the current callstack} &QRSTUVWYXZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~}[\]^_`qrstu{vwxyz|}p~mno&bcdklefghija ZWXYVUQRSTQRSTWXY9 32*None}TA colour/style for use with coloured.;Parse the colour scheme from a string (presumably from the  GHC_COLORS environment variable).dAllow colours to be combined (e.g. bold + red); In case of conflict, right side takes precedence.None+<FTakes a list of Maybes and returns the first Just if there is one, or Nothing otherwise.Flipped version of  fromMaybe, useful for chaining.Try performing an I action, failing on error.J$J%J&J'J(J)J*J+J,J-J.J/4NonenLift an I- operation with 1 argument into another monadLift an I. operation with 2 arguments into another monadLift an I. operation with 3 arguments into another monadLift an I. operation with 4 arguments into another monadmapAndUnzipM for triplesMonadic version of mapAccumLMonadic version of mapSndMonadic version of concatMapMonadic version of mapMaybeMonadic version of fmapMonadic version of fmapMonadic version of J0&, aborts the computation at the first True valueMonad version of J1&, aborts the computation at the first False valueMonadic version of orMonadic version of foldl 1Monadic version of foldl that discards its result Monadic version of foldr -Monadic version of fmap specialised for Maybe Monadic version of when#, taking the condition in the monad Monadic version of unless#, taking the condition in the monadcombining function initial stateinputsfinal state, outputs%'%     %'%     +NoneDKA 5 is a pointer to some null-terminated array of bytes.A  is an array of bytes, hashed to support fast O(1) comparison. It is also associated with a character encoding, so that we know how to convert a M to the local encoding, or to the Z-encoding used by the compiler internally.@s support a memoized conversion to the Z-encoding via zEncodeFS. Create a  from an existing J2#; the difference between this and L is that we don't have to copy the bytes if the string is new to the table.  Create a  from an existing J2#; the difference between this and L is that we don't have to copy the bytes if the string is new to the table.!Creates a UTF-8 encoded  from a J3" Creates a  from a UTF-8 encoded [Word8]J4Creates a Z-encoded  from a J3#Returns the length of the  in characters$Returns True if this Q is not Z-encoded but already has a Z-encoding cached (used in producing stats).%Returns True if the  is empty&"Unpacks and decodes the FastString'1Gives the UTF-8 encoded bytes corresponding to a (!Returns a Z-encoded version of a w. This might be the original, if it was already Z-encoded. The first time this function is applied to a particular , the results are memoized.1 Outputs a  with no decoding at all,, that is, you get the actual bytes in the  written to the J5.2Wrap an unboxed address into a .3 Encode a J3 into a newly allocated i using Latin-1 encoding. The original string must not contain non-Latin-1 characters (above codepoint 0xff).4 Decode a  back into a J3H using Latin-1 encoding. This does not free the memory associated with .5Compute the length of a -, which must necessarily be null-terminated.* !"#$%&'()*+,-./01234567* 7!"&'(.#%)+,*-/10$62345J6J7J8 None W$Is this an acceptable variable name?X'Is this an acceptable constructor name?Y Is this an acceptable type name?Z`Is this an acceptable alphanumeric variable name, assuming it starts with an acceptable letter?[_Is this an acceptable symbolic variable name, assuming it starts with an acceptable character?\cIs this an acceptable alphanumeric constructor name, assuming it starts with an acceptable letter?]bIs this an acceptable symbolic constructor name, assuming it starts with an acceptable character?J9Is this string an acceptable id, possibly with a suffix of hashes, but not worrying about case or clashing with reserved words?J:cIs this character acceptable in an identifier (after the first letter)? See alexGetByte in Lexer.xJ;DAll reserved identifiers. Taken from section 2.4 of the 2010 Report.J<BAll reserved operators. Taken from section 2.4 of the 2010 Report.J=@Does this string contain only dashes and has at least 2 of them?QRSTOPQRSTUVWXYZ[\]OPQRSUTVTRSQWXYZ[\].None ^_`abcdef ^_`abcdef^_/"(c) The University of Glasgow 2001 BSD-style (see the file LICENSE)!David Terei <code@davidterei.com>stableportableNoneD+gRendering mode.hNormaliWith zig-zag cutsj%No indentation, infinitely long lineskAll on one linelA rendering style.nThe rendering modeoLength of line, in charsp%Ratio of line length to ribbon lengthqThe TextDetails data typeOA TextDetails represents a fragment of text that will be output at some point.rA single Char fragmentsA whole String fragmentJ>MRDoc is a "reduced GDoc", guaranteed not to have a top-level Above or Beside.wThe abstract type of documents. A Doc represents a *set* of layouts. A Doc with no occurrences of Union or NoDoc represents just one layout.xAA document of height and width 1, containing a literal character.y5A document of height 1 containing a literal string. y satisfies the following laws: y s  y t = y (sJ?t)y ""  x = x, if x non-empty8The side condition on the last law is necessary because y "" has height 1, while  has no height.}Some text with any width. (text s = sizedText (length s) s)~YSome text, but without any width. Use for non-printing text such as a HTML or Latex tags2The empty document, with no height and no width.  is the identity for , ,  and ), and anywhere in the argument list for , , , ,  etc.Returns J  if the document is emptyJ@3Produce spacing for indenting the amount specified.Aan old version inserted tabs being 8 columns apart in the output.Apply  to w if boolean is true.JA*Perform some simplification of a built up GDoc.List version of .List version of .List version of .[Nest (or indent) a document by a given number of positions (which may also be negative).  satisfies the laws:  0 x = x  k ( k' x) =  (k+k') x  k (x  y) =  k z   k y  k (x  y) =  k x   k y  k  = x   k y = x  y, if x non-empty6The side condition on the last law is needed because  is a left identity for . "hang d1 n d2 = sep [d1, nest n d2]Apply  to the arguments if the first w is not empty. @punctuate p [d1, ... dn] = [d1 <> p, d2 <> p, ... dn-1 <> p, dn]Above, except that if the last line of the first argument stops at least one position before the first line of the second begins, these two lines are overlapped. For example: % text "hi" $$ nest 5 (text "there") lays out as  hi there rather than  hi there is associative, with identity , and also satisfies(x  y)  z = x  (y  z), if y non-empty.Above, with no overlapping.  is associative, with identity . Beside.  is associative, with identity .;Beside, separated by space, unless one of the arguments is .  is associative, with identity .Either  or .Either  or ."Paragraph fill" version of ."Paragraph fill" version of .JBfirstE returns its first argument if it is non-empty, otherwise its second.The default style (1mode=PageMode, lineLength=100, ribbonsPerLine=1.5). Render the Doc to a String using the given Style.JCDefault TextDetails printer The general rendering interface.A ';' characterA ',' characterA : characterA space characterA '=' characterA '(' characterA ')' characterA '[' characterA ']' characterA '{' characterA '}' character int n = text (show n) integer n = text (show n) float n = text (show n) double n = text (show n) rational n = text (show n)Wrap document in '...'Wrap document in "..."Wrap document in (...)Wrap document in [...]Wrap document in {...}Rendering mode Line lengthRibbons per lineWhat to do with textWhat to do at the end The documentResultFghijklmnopqrstuvwxyz{|}~Fwqrstuvxyz{|}~lmnopghijkghijklmnopqrstuvwJDJEJFJGJHJIJJJK5566NoneX69'Represents a pretty-printable document.To display an , use , , , or . Avoid calling . directly as it breaks the abstraction layer.BWhen we print a binder, we often want to print its type too. The OutputableBndr class encapsulates this idea. is used to tell the thing that prints binder what language construct is binding the identifier. This can be used to decide how much info to print. Also see Note [Binding-site specific printing] in PprCoreThe x in (x. e)+The x in case scrut of x { (y,z) -> ... }+The y,z in case scrut of x { (y,z) -> ... }The x in (let x = rhs in e)(Class designating that some type has an  representationJL<The most recently used colour. This allows nesting colours.cFor a given package, we need to know whether to print it with the component id to disambiguate it.`For a given module, we need to know whether to print it with a package name to disambiguate it. given an original name, this function tells you which module name it should be qualified with when printing for the user, if any. For example, given Control.Exception.catch, which is in scope as Exception.catch, this function will return Just  Exceptiony. Note that the return value is a ModuleName, not a Module, because in source code, names are qualified by ModuleNames.When printing code that contains original names, we need to map the original names back to something the user understands. This is the purpose of the triple of functions that gets passed around when rendering .$NB: This won't ever show package IDs!Style for printing error messages(This is not a recommended way to render ,, since it breaks the abstraction layer of . Prefer to use , , , or  instead.6Truncate a list that is longer than the current depth.The analog of  for , which tries to make sure the terminal doesn't get screwed up by the ANSI color codes if an exception is thrown during pretty-printing.Like  but appends an extra newline.Like  but specialized with j and JM -. This is typically used to output C-- code.An efficient variant of  specialized for j that outputs to a ^.doublePrec p n shows a floating point number n with p. digits of precision after the decimal point.9Indent  some specified amount: Join two $ together horizontally without a gap; Join two . together horizontally with a gap between them< Join two [ together vertically; if there is no vertical overlap it "dovetails" the two onto one line= Join two  together vertically> Concatenate  horizontally? Concatenate + horizontally with a space between each one@ Concatenate  vertically with dovetailingASeparate: is either like ? or like @, depending on what fitsBCatenate: is either like > or like @, depending on what fitsCwA paragraph-fill combinator. It's much like sep, only it keeps fitting things on one line until it can't fit any more.DThis behaves like C, but it uses :( for horizontal conposition rather than ;FThis behaves like ED, but does not indent the second document when the header is empty.J.Apply the given colour/style for the argument.)Only takes effect if colours are enabled.L2Special combinator for showing character literals.M/Special combinator for showing string literals.N3Special combinator for showing bytestring literals.V0Special combinator for showing unboxed literals.`AReturns the separated concatenation of the pretty printed things.aGReturns the comma-separated concatenation of the pretty printed things.bNReturns the comma-separated concatenation of the quoted pretty printed things. ,y,z] ==> `x', `y', `z'f&Converts an integer to a verbal index: MspeakNth 1 = text "first" speakNth 5 = text "fifth" speakNth 21 = text "21st"g-Converts an integer to a verbal multiplicity: CspeakN 0 = text "none" speakN 5 = text "five" speakN 10 = text "10"hcConverts an integer and object description to a statement about the multiplicity of those objects: speakNOf 0 (text "melon") = text "no melons" speakNOf 1 (text "melon") = text "one melon" speakNOf 3 (text "melon") = text "three melons"iIDetermines the pluralisation suffix appropriate for the length of a list: Rplural [] = char 's' plural ["Hello"] = empty plural ["Hello", "World"] = char 's'jBDetermines the form of to be appropriate for the length of a list: ]isOrAre [] = text "are" isOrAre ["Hello"] = text "is" isOrAre ["Hello", "World"] = text "are"kBDetermines the form of to do appropriate for the length of a list: `doOrDoes [] = text "do" doOrDoes ["Hello"] = text "does" doOrDoes ["Hello", "World"] = text "do"m&Throw an exception saying "bug in GHC"n3Throw an exception saying "this isn't finished yet"oWThrow an exception saying "bug in pgm being compiled" (used for unusual program errors)q!If debug output is on, show some  on the screenrpprTraceIt desc x is equivalent to pprTrace desc (ppr x) xs!If debug output is on, show some 7 on the screen along with a call stack when available.tJust warn about an assertion failure, recording the given file and line number. Should typically be accessed with the WARN macrosuPanic with an assertation failure, recording the given file and line number. Should typically be accessed with the ASSERT family of macrosE The headerAmount to indent the hung body3The hung body, indented and placed below the headerGThe punctuationQThe list that will have punctuation added between every adjacent pair of elementsPunctuated list^#The pretty printing function to useThe things to be pretty printeda where the things have been pretty printed, comma-separated and finally packed into a paragraph._#The pretty printing function to useThe things to be pretty printed_ where the things have been pretty printed, bar-separated and finally packed into a paragraph.        !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuv`ab^cd_ 9    e'()+*-. !"#$%&/01234,567:;>?<=@ABCDEFGHIfghijk8JK\[LMNPOSRTUQVWXYZ]mnuoqprts  vl JNJOJPJQJLJRJSJTJUJVJWJXJM4NoneD A StringBuffer is an internal pointer to a sized chunk of bytes. The bytes are intended to be *immutable*. There are pure operations to read the contents of a StringBuffer.GA StringBuffer may have a finalizer, depending on how it was obtained.Read a file into a K. The resulting buffer is automatically managed by the garbage collector.JY.Skip the byte-order mark if there is one (see  1744 and ;6016), and return the new position of the handle in bytes.This is better than treating #FEFF as whitespace, because that would mess up layout. We don't have a concept of zero-width whitespace in Haskell: all whitespace codepoints have a width of one column. Encode a J3 into a T as UTF-8. The resulting buffer is automatically managed by the garbage collector./Return the first UTF-8 character of a nonempty 2 and as well the remaining portion (analogous to ). Warning:# The behavior is undefined if the L is empty. The result shares the same buffer as the original. Similar to 0, if the character cannot be decoded as UTF-8, '\0' is returned./Return the first UTF-8 character of a nonempty  (analogous to ). Warning:# The behavior is undefined if the  is empty. Similar to 0, if the character cannot be decoded as UTF-8, '\0' is returned. Return a 7 with the first UTF-8 character removed (analogous to ). Warning:# The behavior is undefined if the ? is empty. The result shares the same buffer as the original. Return a  with the first n bytes removed. Warning:2 If there aren't enough characters, the returned x will be invalid and any use of it may lead to undefined behavior. The result shares the same buffer as the original.-Compute the difference in offset between two  s that share the same buffer. Warning:# The behavior is undefined if the s use separate buffers.Check whether a  is empty (analogous to ). Computes a K which points to the first character of the wanted line. Lines begin at 1.Decode the first n bytes of a  as UTF-8 into a J3. Similar to K, if the character cannot be decoded as UTF-8, they will be replaced with '\0'.n, the number of bytesn, the number of bytesn, the number of bytes5None  6NoneCJZJ[J\J]J^J_5557NoneI8None&'-Simple data type to represent JSON documents.  9None "#01345;=l'FWe attach SrcSpans to lots of things, so let's have a datatype for it. Source SpanA d identifies either a specific portion of a text file or a human-readable description of a location.A  delimits a portion of a text file. It could be represented by a pair of (line,column) coordinates, but in fact we optimise slightly by using more compact representations for single-line and zero-length spans, both of which are quite common.-The end position is defined to be the column after the end of the span. That is, a span of (1,1)-(1,2) is one character long, and a span of (1,1)-(1,1) is zero characters long.Real Source SpanSource LocationReal Source Location'Represents a single point within a fileBuilt-in "bad"  values for particular locationsBuilt-in "bad"  values for particular locationsBuilt-in "bad"  values for particular locationsCreates a "bad" 4 that has no detailed information about its locationGives the filename of the  %Raises an error when used on a "bad"  %Raises an error when used on a "bad"   Move the  down by one line if the character is a newline, to the next 8-char tabstop if it is a tab, and across by one character in any other case Built-in "bad" ,s for common sources of location uncertaintyBuilt-in "bad" ,s for common sources of location uncertaintyBuilt-in "bad" ,s for common sources of location uncertaintyCreate a "bad" " that has not location information Create a  corresponding to a single point Create a  between two points in a fileJ`J 0 if the span is known to straddle only one line.JaJ  if the span is a single point Create a  between two points in a file Combines two w into one that spans at least all the characters within both spans. Assumes the "file" part is the same in both inputsJb Combines two w into one that spans at least all the characters within both spans. Assumes the "file" part is the same in both inputsCConvert a SrcSpan into one that represents only its first character Test if a 1 is "good", i.e. has precise location information@True if the span is known to straddle only one line. For "bad" , it returns FalseTests whether the first span "contains" the other span, meaning that it covers at least as much source code. True where spans are equal.)Returns the location at the start of the  or a "bad"  if that is unavailable'Returns the location at the end of the  or a "bad"  if that is unavailable"Obtains the filename for a  if it is "good")Combine locations from two % things and add them to a third thing*.Tests whether the two located things are equal+,Tests the ordering of the two located things,$Alternative strategies for ordering s-$Alternative strategies for ordering s.$Alternative strategies for ordering s/@Determines whether a span encloses a given line and column index04Determines whether a span is enclosed by another one0*The span that may be enclosed by the otherThe span it may be enclosed by<      !"#$%&'()*+,-./0=     !"#&'%$*+()-.,/0 JcJdJeJfJgJh;None1S$Located Haskell Documentation StringTHaskell Documentation StringSTUVTUSVTU=None10i = $(f x y)j =* f x y, i.e. a naked top level expressionkAn integer or infinitylFractional LiteralMUsed (instead of Rational) to represent exactly the floating point literal that we encountered in the user's source program. This allows us to pretty-print exactly what the user wrote, which is important e.g. for floating point numbers that can't represented as Doubles (we used to via Double for pretty-printing). See also #2245.pInline Specification|Rule Match Information Phase NumbervFor when code is generated, e.g. TH, deriving. The pretty printer will then make its own representation of the item.Default Method Specification Inside LambdaInteresting Context!identifier Occurrence Information2There are many occurrences, or unknown occurrencesOMarks unused variables. Sometimes useful for lambda and case-bound variables.3Occurs exactly once (per branch), not inside a ruleThis identifier breaks a loop of mutually recursive functions. The field marks whether it is only a loop breaker due to a reference in a ruleEmbedding Projection pair'This instance must not overlap another - instance. However, it may be overlapped by  instances, and it may overlap  instances.uSilently ignore this instance if you find a more specific one that matches the constraint you are trying to resolveYExample: constraint (Foo [Int]) instance Foo [Int] instance {- OVERLAPPABLE  -} Foo [a]Since the second instance has the Overlappable flag, the first instance will be chosen (otherwise its ambiguous which to choose)WSilently ignore any more general instances that may be used to solve the constraint..Example: constraint (Foo [Int]) instance {- OVERLAPPING 4-} Foo [Int] instance Foo [a]Since the first instance has the Overlapping flag, the second---more general---instance will be ignored (otherwise it is ambiguous which to choose)Equivalent to having both  and  flags.Behave like Overlappable and Overlapping, and in addition pick an an arbitrary one if there are multiple matching candidates, and don't worry about later instantiationExample: constraint (Foo [b]) instance {-# INCOHERENT -} Foo [Int] instance Foo [a] Without the Incoherent flag, we'd complain that instantiating bY would change which instance was chosen. See also note [Incoherent instances] in InstEnvvThe semantics allowed for overlapping instances for a particular instance. See Note [Safe Haskell isSafeOverlap] (in ) for a explanation of the  field.j : j '{-# OVERLAPPABLE'" or '{-# OVERLAPPING'" or '{-# OVERLAPS'" or '{-# INCOHERENT', j `#-}`,HWhich technique the user explicitly requested when deriving an instance.GHC's "standard" strategy, which is to implement a custom instance for the data type. This only works for certain types that GHC knows about (e.g., Ji, Jj, Jk when -XDeriveFunctor is enabled, etc.) -XDeriveAnyClass -XGeneralizedNewtypeDerivingRecursivity FlagCaptures the fixity of declarations as they are parsed. This is not necessarily the same as the fixity declaration, as the normal fixity may be overridden using parens or backticks. Warning Text6reason/explanation from a WARNING or DEPRECATED pragmarA String Literal in the source, including its original raw format for use by source to source manipulation tools.If the Id is a lambda-bound variable then it may have lambda-bound variable info. Sometimes we know whether the lambda binding this variable is a "one-shot" lambda; that is, whether it is applied at most once.This information may be useful in optimisation, as computations may safely be floated inside such a lambda without risk of duplicating work.No information#The lambda is applied at most once. A *zero-indexed* constructor tagConstructor TagUType of the tags associated with each constructor possibility or superclass selectorThe number of arguments that a join point takes. Unlike the arity of a function, this is a purely syntactic property and is fixed when the join point is created (or converted from a value). Both type and value arguments are counted.Representation ArityThe number of represented arguments that can be applied to a value before it does "real work". So: fib 100 has representation arity 0 x -> fib x has representation arity 1 ( x, y +) -> fib (x + y) has representation arity 2The number of value arguments that can be applied to a value before it does "real work". So: fib 100 has arity 0 x -> fib x has arity 1 See also Note [Definition of arity] in CoreArityQTags are allocated from here for real constructors or for superclass selectors$It is always safe to assume that an Id) has no lambda-bound variable information=Pretty print an alternative in an unboxed sum e.g. "| a | |".%/Special combinator for showing string literals.AA representation of infinityJlAdd two ksJm Multiply two ksCTurn a positive number into an k, where 0 represents infinityDInject any integer into an k#The pretty printing function to useThe things to be pretty printedAlternative (one-based)ArityU where the alternative havs been pretty printed and finally packed into a paragraph.hijklmonpsqrtuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCD     ! 9:;<=>|}~&'pqrst(uvwxyz{)*+-./01,2345678#$"lmno?@%kACDBhij hijkJnJolmnopqrstuvwxyz{|}~ >NoneD! %Class of things that we can obtain a  fromUnique identifier.The type of unique identifiers that are used in many places in GHC for fast ordering and equality tests. You should generate these with the functions from the  UniqSupply moduleBThese are sometimes also referred to as "keys" in comments in GHC.JpSHow many bits are devoted to the unique index (as opposed to the class character).eThe interface file symbol-table encoding assumes that known-key uniques fit in 30-bits; verify this.HSee Note [Symbol table representation of names] in BinIface for details.''Jq?None4)A monad for generating unique identifiersGet a new UniqueSupplyGet a new unique identifier.Get an infinite list of new unique identifiers/A monad which just gives the ability to obtain s Unique SupplyA value of type  is unique, and it can supply one distinct S. Also, from the supply, one can also manufacture an arbitrary number of further  UniqueSupplyD values, which will be distinct from the first and from all others.Create a unique supply out of thin air. The character given must be distinct from those of all calls to this function in the compiler for the values generated to be truly unique. Build two 6 from a single one, each of which can supply its own .Create an infinite list of  from a single one Obtain the  from this particular Obtain an infinite list of : that can be generated by constant splitting of the supply Obtain the  from this particular , and a new supply Build three < from a single one, each of which can supply its own unique Build four < from a single one, each of which can supply its own uniqueRun the  action, returning the final Run the  action, discarding the final JrJsJt@None1KH1`plusUFM_CD f m1 d1 m2 d2` merges the maps using f! as the combinding function and d1 resp. d2/ as the default value if there is no entry in m1 reps. m2-. The domain is the union of the domains of m1 and m2.Representative example: UplusUFM_CD f {A: 1, B: 2} 23 {B: 3, C: 4} 42 == {A: f 1 42, B: f 2 3, C: f 23 4 } Pretty-print a non-deterministic set. The order of variables is non-deterministic and for pretty-printing that shouldn't be a problem. Having this function helps contain the non-determinism created with nonDetEltsUFM.Pretty-print a non-deterministic set. The order of variables is non-deterministic and for pretty-printing that shouldn't be a problem. Having this function helps contain the non-determinism created with nonDetUFMToList.Determines the pluralisation suffix appropriate for the length of a set in the same way that plural from Outputable does for lists.The things to be pretty printed3The pretty printing function to use on the elements+ where the things have been pretty printedThe things to be pretty printed3The pretty printing function to use on the elements+ where the things have been pretty printed<     <     JuANone1KM ## converts a  a into a ! a0 assuming, without checking, that it maps each  to a value that has that  . See Note [Unsound mapUniqSet].#!"#$%&'()*+,-./0123456789:;<=>?@ABC#!"$%&'()*+,-./0123=>45679:;<8C#AB?@!JvJwBNonefIGraph nodes. Represents a thing that can conflict with another thing. For the register allocater the nodes represent registers.K"A unique identifier for this node.LLThe class of this node, determines the set of colors that can be used.MThe color of this node, if any.N9Neighbors which must be colored differently to this node.O(Colors that cannot be used by this node.P=Colors that this node would prefer to be, in decending order.Q>Neighbors that this node would like to be colored the same as.RThe Interference graph. There used to be more fields, but they were turfed out in a previous revision. maybe we'll want more later..TAll active nodes in the graph.UA fn to check if a node is trivially colorable For graphs who's color classes are disjoint then a node is 'trivially colorable' when it has less neighbors and exclusions than available colors for that node.hFor graph's who's color classes overlap, ie some colors alias other colors, then this can be a bit more tricky. There is a general way to calculate this, but it's likely be too slow for use in the code. The coloring algorithm takes a canned function which can be optimised by the user to be specific to the specific graph being colored.for details, see "A Generalised Algorithm for Graph-Coloring Register Allocation" Smith, Ramsey, Holloway - PLDI 2004.VAn empty graph.W5Modify the finite map holding the nodes in the graph.XAn empty node.IJKLMNOPQRSTUVWXURSTVWIJKLMNOPQXIJKLMNOPQRSTCNone13<y6 Y(Type of unique deterministic finite mapsJx+A type of values tagged with insertion timeJyinsertion timeeePerforms a deterministic fold over the UniqDFM. It's O(n log n) while the corresponding function on  is O(n).fePerforms a nondeterministic fold over the UniqDFM. It's O(n), same as the corresponding function on [. If you use this please provide a justification why it doesn't introduce nondeterminism.j Converts Yg to a list, with elements in deterministic order. It's O(n log n) while the corresponding function on  is O(n).t>Partition UniqDFM into two UniqDFMs according to the predicateu(Delete a list of elements from a UniqDFMv7This allows for lossy conversion from UniqDFM to UniqFMx(Apply a function to a particular elementyThe expression (alterUDFM f k map) alters value x at k, or absence thereof. alterUDFM can be used to insert, delete, or update a value in UniqDFM. Use addToUDFM, delFromUDFM or adjustUDFM when possible, they are more efficient.z,Map a function over every value in a UniqDFM~The things to be pretty printed3The pretty printing function to use on the elements+ where the things have been pretty printed&YZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~&YZ[\]^_uxyza`bcdeghiklmnopqrwst{|~jvf}YJzJxJyDNonezENoneA non-deterministic set of FastStrings. See Note [Deterministic UniqFM] in UniqDFM for explanation why it's not deterministic and why it matters. Use DFastStringEnv if the set eventually gets converted into a list or folded over in a way where the order changes the generated code.FNoneThe class of a register. Used in the register allocator. We treat all registers in a class as being interchangable.GNone"A subcomponent of another registerA register of some classWorst case displacementTa node N of classN has some number of neighbors, all of which are from classC.(worst neighbors classN classC) is the maximum number of potential colors for N that can be lost by coloring its neighbors.pThis should be hand coded/cached for each particular architecture, because the compute time is very long..For a node N of classN and neighbors of classesC (bound classN classesC) is the maximum number of potential colors for N that can be lost by coloring its neighbors.@The total squeese on a particular node with a list of neighbors.A version of this should be constructed for each particular architecture, possibly including uses of bound, so that alised registers don't get counted twice, as per the paper.J{powerset (for lists)J|powersetLS (list of sets)so we can put regs in UniqSetsHNone`!Determine the class of a register4Determine all the regs that make up a certain class.`Determine the common name of a reg returns Nothing if this reg is not part of the machine.!Which regs alias what other regs.COptimised versions of RegColorBase.{worst, squeese} specific to x86INone"A register, either virtual or realRealRegs are machine regs which are available for allocation, in the usual way. We know what class they are, because that's part of the processor's architecture.RealRegPairs are pairs of real registers that are allocated together to hold a larger value, such as with Double regs on SPARC.4An identifier for a primitive real machine register.The patch function supplied by the allocator maps VirtualReg to RealReg regs, but sometimes we want to apply it to plain old Reg.Print a reg in a generic manner If you want the architecture specific names, then use the pprReg function from the appropriate Ppr module.JNoneKNoned9Pretty print a graph in a somewhat human readable format.sPretty print a graph in graphviz .dot format. Conflicts get solid edges. Coalescences get dashed edges.J}Nodes in the graph are doubly linked, but we only want one edge for each conflict if the graphviz graph. Traverse over the graph, but make sure to only print the edges for each node once.What graphviz color to use for each node color It's usually safe to return X11 style colors here, ie "red", "green" etc or a hex triplet #aaff55 etcLNoneLookup a node from the graph.>Get a node from the graph, throwing an error if it's not there-Add a node to the graph, linking up its edges /Delete a node and all its edges from the graph. LModify a node in the graph. returns Nothing if the node isn't present. Get the size of the graph, O(n) Union two graphs together. Add a conflict between nodes to the graph, creating the nodes required. Conflicts are virtual regs which need to be colored differently.UDelete a conflict edge. k1 -> k2 returns Nothing if the node isn't in the graphAdd some conflicts to the graph, creating nodes if required. All the nodes in the set are taken to conflict with each other.qAdd an exclusion to the graph, creating nodes if required. These are extra colors that the node cannot use.Add a coalescence edge to the graph, creating nodes if requried. It is considered adventageous to assign the same color to nodes in a coalesence.4Delete a coalescence edge (k1 -> k2) from the graph.Add a color preference to the graph, creating nodes if required. The most recently added preference is the most prefered. The algorithm tries to assign a node it's prefered color if possible.Do aggressive coalescing on this graph. returns the new graph and the list of pairs of nodes that got coalesced together. for each pair, the resulting node will have the least key and be second in the pair.sCoalesce this pair of nodes unconditionally / aggressively. The resulting node is the one with the least key.returns: Just the pair of keys if the nodes were coalesced the second element of the pair being the least one3Nothing if either of the nodes weren't in the graphFreeze a node This is for the iterative coalescer. By freezing a node we give up on ever coalescing it. Move all its coalesce edges into the frozen set - and update back edges from other nodes.Freeze one node in the graph This if for the iterative coalescer. Look for a move related node of low degree and freeze it.4We probably don't need to scan the whole graph looking for the node of absolute lowest degree. Just sample the first few and choose the one with the lowest degree out of those. Also, we don't make any distinction between conflicts of different classes.. this is just a heuristic, after all.IDEA: freezing a node might free it up for Simplify.. would be good to check for triv right here, and add it to a worklist if known triv/non-move nodes.NFreeze all the nodes in the graph for debugging the iterative allocator.7Find all the nodes in the graph that meet some criteriavalidate the internal structure of a graph all its edges should point to valid nodes If they don't then throw an errorJ~eIf this node is colored, check that all the nodes which conflict with it have different colors.MSlurp out a map of how many nodes had a certain number of conflict neighboursSet the color of a certain nodefIf True, coalesce nodes even if this might make the graph less colorable (aggressive coalescing)fIf True, coalesce nodes even if this might make the graph less colorable (aggressive coalescing)!keys of the nodes to be coalescedkey of the node to freeze the graphgraph with that node frozen(extra debugging info to display on error-whether this graph is supposed to be colored.graph to validatevalidated graphJ~True if this node is ok9(conflict neighbours, num nodes with that many conflicts)          MNone uTry to color a graph with this set of colors. Uses Chaitin's algorithm to color the graph. The graph is scanned for nodes which are deamed 'trivially colorable'. These nodes are pushed onto a stack and removed from the graph. Once this process is complete the graph can be colored by removing nodes from the stack (ie in reverse order) and assigning them colors different to their neighbors.JuScan through the conflict graph separating out trivially colorable and potentially uncolorable (problem) nodes.Checking whether a node is trivially colorable or not is a resonably expensive operation, so after a triv node is found and removed from the graph it's no good to return to the starte of the graph and recheck a bunch of nodes that will probably still be non-trivially colorable.@To ward against this, during each pass through the graph we collect up a list of triv nodes that were found, and only remove them once we've finished the pass. The more nodes we can delete at once the more likely it is that nodes we've already checked will become trivially colorable for the next pass.TODO: add work lists to finding triv nodes is easier. If we've just scanned the graph, and removed triv nodes, then the only nodes that we need to rescan are the ones we've removed edges from.J)Try to assign a color to all these nodes.JSelect a color for a certain node taking into account preferences, neighbors and exclusions. returns Nothing if no color can be assigned to this node."whether to do iterative coalescing6how many times we've tried to color this graph so far.>map of (node class -> set of colors available for this class).3fn to decide whether a node is trivially colorable.Ufn to choose a node to potentially leave uncolored if nothing is trivially colorable.the graph to color.J"whether to do iterative coalescing2fn to decide whether a node is trivially colorableUfn to choose a node to potentially leave uncolored if nothing is trivially colorable.the graph to scanJ>map of (node class -> set of colors available for this class). the graphnodes to assign a color to.J>map of (node class -> set of colors available for this class). the graph&key of the node to select a color for.+IJKLMNOPQRSTUVWX     NNone &',;=DFV!Information we keep around during interface file serialization/deserialization. Namely we keep the functions for serializing and deserializing s and Ns. We do this because we actually use serialization in two distinct settings,+When serializing interface files themselvesjWhen computing the fingerprint of an IfaceDecl (which we computing by hashing its Binary serialization)@These two settings have different needs while serializing Names:|Names in interface files are serialized via a symbol table (see Note [Symbol table representation of names] in BinIface).During fingerprinting a binding Name is serialized as the OccName and a non-binding Name is serialized as the fingerprint of the thing they represent. See Note [Fingerprinting IfaceDecls] for further discussion.%serialize a non-binding ( (e.g. a reference to another binding).&serialize a binding  (e.g. the name of an IfaceDecl)0$Get access to the underlying buffer.0It is quite important that no references to the J; leak out of the continuation lest terrible things happen.?how to deserialize s@how to serialize non-binding show to serialize binding s% !"#$%&'(+*),-./0123456789:;<=>?@ABC%,()*+- 46751809:23;<>=!"#$%&'./?@ABC!"#$%&'()*+,J-JJJJJ,None"#>?6?A ? consists of the package name, package version, component ID, the transitive dependencies of the component, and other information to uniquely identify the source code and build configuration of a component.This used to be known as an InstalledPackageId7, but a package can contain multiple components and a ?` uniquely identifies a component within a package. When a package only has one component, the ? coincides with the InstalledPackageIdAAn installed unit identifier identifies a library which has been installed to the package database. These strings are provided to us via the  -this-unit-id flag. The library in question may be definite or indefinite; if it is indefinite, none of the holes have been filled (we never install partially instantiated libraries.) Put another way, an installed unit id is either fully instantiated, or not instantiated at all./Installed unit identifiers look something like p+af23SAj2dZ219, or maybe just p if they don't use Backpack.BlA unit identifier identifies a (possibly partially) instantiated library. It is primarily used as part of D, which in turn is used in Name=, which is used to give names to entities when typechecking.#There are two possible forms for a B. It can be a A, in which case we just have a string that uniquely identifies some fully compiled, installed library we have on disk. However, when we are typechecking a library with missing holes, we may need to instantiate a library on the fly (in which case we don't have any on-disk representation.) In that case, you have an Q, which explicitly records the instantiation, so that we can substitute over it.C2A ModuleName is essentially a simple string, e.g.  Data.List.DA Module is a pair of a B and a C.Module variables (i.e.  Hd) which can be instantiated to a specific module at some later point in time are represented with F set to J* (this allows us to avoid having to make F a partial operation.)A map keyed off of Cs (actually, their Ls) Has deterministic folds and can be deterministically converted to a listA map keyed off of Cs (actually, their s) A set of DsA map keyed off of DsNSubstitution on module variables, mapping module names to module identifiers.A map keyed off of A  is an Af with the invariant that it only refers to a definite library; i.e., one we have generated code for.A  is a D which contains a A.JThe full hashed unit identifier, including the component id and the hash.A unit identifier which identifies an indefinite library (with holes) that has been *on-the-fly* instantiated with a substitution . In fact, an indefinite unit identifier could have no holes, but we haven't gotten around to compiling the actual library yet.?An indefinite unit identifier pretty-prints to something like p[H= H ,A=aimpl:A>] (p is the ?5, and the brackets enclose the module substitution).A private, uniquely identifying representation of a UnitId. This string is completely private to GHC and is just used to get a unique; in particular, we don't use it for symbols (indefinite libraries are not compiled).Cached unique of .MThe component identity of the indefinite library that is being instantiated.The sorted (by C!) instantiations of this library.(A cache of the free module variables of  unitIdInsts&. This lets us efficiently tell if a Bw has been fully instantiated (free module variables are empty) and whether or not a substitution can have any effect.Module LocationlWhere a module lives on the file system: the actual locations of the .hs, .hi and .o files, if we have themAdd the -boot suffix to .hs, .hi and .o filesAdd the -boot suffix if the Bool argument is TrueAdd the -boot4 suffix to all file paths associated with the module6Compares module names lexically, rather than by their s!Get a string representation of a Dp that's unique and stable across recompilations. eg. "$aeson_70dylHtv1FFGeai1IoxcQr$Data.Aeson.Types.Internal"MReturns the string version of the module name, with dots replaced by slashes.LReturns the string version of the module name, with dots replaced by colons.Calculate the free holes of a Dm. If this set is non-empty, this module was defined in an indefinite library that had required signatures.If a module has free holes, that means that substitutions can operate on it; if it has no free holes, substituting over a module has no effect.A D% is definite if it has no free holes.!Create a module variable at some C5. See Note [Representation of module/name variables]cThis gives a stable ordering, as opposed to the Ord instance which gives an ordering based on the Ns of the components, which may not be stable from run to run of the compiler. Create a new ' given an explicit module substitution. Injects an > (indefinite library which was on-the-fly instantiated) to a B- (either an indefinite or definite library). Injects an  to D (see also . Lossy conversion to the on-disk A for a component. Test if a D corresponds to a given , modulo instantiation. Test if a B corresponds to a given A, modulo instantiation.$Retrieve the set of free holes of a B.A B% is definite if it has no free holes. Generate a uniquely identifying  for a unit identifier. This is a one-way function. You can rely on one special property: if a unit identifier is in most general form, its  coincides with its ?[. This hash is completely internal to GHC and is not used for symbol names or file paths.J1Generate a hash for a sorted module substitution.(Create a new, un-hashed unit identifier.5Compares package ids lexically, rather than by their s6Create a new simple unit identifier (no holes) from a ?.+Create a new simple unit identifier from a L. Internally, this is primarily used to specify wired-in unit identifiers.Substitutes holes in a D0. NOT suitable for being called directly on a  nameModule6, see Note [Representation of module/name variable]. p[A= A]:B maps to  p[A=q():A]:B with A=q():A; similarly,  A maps to q():A.Substitutes holes in a Bc, suitable for renaming when an include occurs; see Note [Representation of module/name variable].p[A= A] maps to p[A= B] with A= B.Like , but requires only H so it can be used by Packages.*Like 'renameHoleUnitId, but requires only H so it can be used by Packages.BGiven a possibly on-the-fly instantiated module, split it into a D that we definitely can find on-disk, as well as an instantiation if we need to instantiate it on the fly. If the instantiation is Nothing" no on-the-fly renaming is needed.See .This is the package Id for the current program. It is the default package Id if you don't specify a package name. We don't add this prefix to symbol names, since there can be only one main package per program.JThis is a fake package id used to provide identities to any un-implemented signatures. The set of hole identities is global over an entire compilation. Don't use this directly: use  or = instead. See Note [Representation of module/name variables]?@ABCDGFE   C?@BAEDFG   ?@ABCJDFGJJJJJNone"#;=>? F Get the GHC B right out of a Cabalish  A2POJNMLKIHGFEDCBA@?>=<;:98765432?@ = > ? @ A B C D E F G H I2 G H I F APONMLKJIHGFEDCBA@?>=<;:98765432?@ ? @ = > B C D E = > ? @PNoneD T TQNone1 U A C type, used in CAPI FFI callsj : j  '{-# CTYPE' , j,j , j '#-}', `,How to call a particular function in C-land.! U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u! k l m g h i j n o e f Y u t c d ` a b p Z [ \ ] ^ _ q r s W X U V U V W X Z [ \ ] ^ _ ` a b c d e f g h i j k lRNone1345W  JJJJ  SNone When we are given files (modified by -x arguments) we need to determine if they are Haskellish or not to figure out how we should try to compile it. The rules are: If no -x flag was specified, we check to see if the file looks like a module name, has no extension, or has a Haskell source extension.^If an -x flag was specified, we just make sure the specified suffix is a Haskell one.2 2    NoneV| Find a reasonably short cycle a->b->c->a, in a strongly connected component. The input nodes are presumed to be a SCC, so you can start anywhere.(),+*  ,+* () JJ JJJJTNoneV !combining funcction initial stateinputsfinal state, outputs "combining funcction initial stateinputsfinal state, outputs%                           ! " # $%                  # $ !         "   JJJJ 3 3UNone 94GHC flag modes describing when a flag has an effect. :-The flag only affects the non-interactive GHC ;)The flag only affects the interactive GHC <#The flag affects multiple ghc modes =.This flag should not be seen in cli completionJ Parse an IntlLooks for "433" or "=342", with no trailing gubbins * n or =n => Just n * gibberish => NothingJDiscards a leading equals sign* ( ) * + , 0 - . / 1 2 3 4 5 6 7 8 9 < : ; = > ? @ A B C D E F G H I J K L M N O P Q* P , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = ( ) * N O > ? @ A B C D E F Q + G H I K L M J ( ) * +JJ , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B"None;=f"Contains not only a collection of  as but also a plethora of information relating to the compilation of a single file or GHC sessionEAn internal helper to check whether to use unicode syntax for output.&Note: You should very likely be using 8 instead of this function. kFlag in string form lFlag in internal form mNExtra action to run when the flag is found Typically, emit a warning or error n%In which ghc mode the flag has effect oWhen invoking external tools as part of the compilation pipeline, we pass these a sequence of options on the command-line. Rather than just using a list of Strings, we use a type that allows us to distinguish between filepaths and 'other stuff'. The reason for this is that this type gives us a handle on transforming filenames, and filenames only, to whatever format they're expected to be on a particular platform. +Flags for manipulating packages visibility. -package,  -package-id  -hide-package %Flags for manipulating package trust. -trust  -distrust 6Flags for manipulating the set of non-broken packages. -ignore-package RRepresents the renaming that may be associated with an exposed package, e.g. the rns part of -package "foo (rns)"._Here are some example parsings of the package flags (where a string literal is punned to be a C: -package foo is ModRenaming True []-package foo () is ModRenaming False []-package foo (A) is ModRenaming False [(A, A)]-package foo (A as B) is ModRenaming False [(A, B)]-package foo with (A as B) is ModRenaming True [(A, B)] %Bring all exposed modules into scope?  Bring module m into scope under name n. We accept flags which make packages visible, but how they select the package varies; this data type reflects what selection criterion is used. -package, by  =  -package-id, by B -What to do in the link step, if there is one. Don't link at all Link object code into a binary NUse the in-memory dynamic linker (works for both bytecode and object code). FLink objects into a dynamic lib (DLL on Windows, DSO on ELF platforms) Link objects into a static lib The  L tells us whether we're doing multi-module compilation (controlled via the GHC[ API) or one-shot (single-module) compilation. This makes a difference primarily to the Finder: in one-shot mode we look for interface files for imported modules, but in multi-module mode we look for source files in order to check whether they need to be recompiled. --make , GHCi, etc.  ghc -c Foo.hs ghc -M, see Finder for why we need this 1The target code type of the compilation (if any).6Whenever you change the target, also make sure to set   to something sensible. A can be used to avoid generating any output, however, note that:If a program uses Template Haskell the typechecker may try to run code from an imported module. This will fail if no code has been generated for this module. You can use  to detect whether this might be the case and choose to either switch to a different target or avoid typechecking such modules. (The latter may be preferable for security reasons.) Generate C code. 2Generate assembly using the native code generator. 0Generate assembly using the llvm code generator. Generate bytecode. (Requires  ) *Don't generate any code. See notes above. no SCC annotations added ,top-level and nested functions are annotated "top-level functions annotated only !exported functions annotated only annotate call-sites ,Verbosity level: see Note [Verbosity levels] Optimisation level %How much debug information to produce Number of simplifier phases Max simplifier iterations !Max no iterations for pm checking Additional demand analysis The number of modules to compile in parallel in --make mode, where Nothing ==> compile as many in parallel as there are CPUs. Enable RTS timing statistics? The heap size to set. OMaximum number of bindings from the type envt to show in type error messages NMaximum number of unmatched patterns to show in non-exhaustiveness warnings Multiplier for simplifier ticks Threshold for SpecConstr 2Max number of specialisations for any one function iMax number of specialisations for recursive types Not optional; otherwise ForceSpecConstr can diverge. Threshold for LiberateCase ?Arg count for lambda floating See CoreMonad.FloatOutSwitches Simplification history size Typechecker maximum stack depth LNumber of iterations in the constraints solver Typically only 1 is needed Way flags from the command line $The global "way" (e.g. "p" for prof)  The RTS "way" This is set by ( based on where its output is going.  Override the   set by  . Set by -ddump-file-prefix Path to store the .mix files "the -ffrontend-opta flags given on the command line, in *reverse* order that they're specified on the command line. (The  -package-db flags given on the command line, In *reverse* order that they're specified on the command line. This is intended to be applied with the list of "initial" package databases derived from GHC_PACKAGE_PATH; see getPackageConfRefs. )The -ignore-package] flags from the command line. In *reverse* order that they're specified on the command line. *The -package and  -hide-package] flags from the command-line. In *reverse* order that they're specified on the command line. +The -plugin-package-idY flags from command line. In *reverse* order that they're specified on the command line. ,The -trust and  -distrustG flags. In *reverse* order that they're specified on the command line. -@Filepath to the package environment file (if overriding default) :Safe Haskell mode PMsgDoc output action: use ErrUtils instead of this if you can V8GHCi scripts specified by -ghci-script, in reverse order Zwhat kind of {- SCC -} to add automatically ]Machine dependent flags (-m blah stuff) d8Run-time linker information (what options we need, etc.) eRun-time compiler information f0Max size, in bytes, of inline array allocations. g^Only inline memcpy if it generates no more than this many pseudo (roughly: Cmm) instructions. h^Only inline memset if it generates no more than this many pseudo (roughly: Cmm) instructions. i/Reverse the order of error messages in GHC/GHCi j*Limit the maximum number of errors to show k9Unique supply configuration for testing build determinism mThe various Safe Haskell modes Used when outputting warnings: if a reason is given, it is displayed. If a warning isn't controlled by a flag, this is made explicit at the point of use. -Enumerates the simple on-or-off dynamic flags .Append dump output to files instead of stdout. -fPIC ! -fPIE " -pie ]The directory for this version of ghc in the user's app directory (typically something like ~.ghcx86_64-linux-7.6.3)JA filepath like x86_64-linux-7.6.3k with the platform string to use when constructing platform-version-dependent files that need to co-exist. 6Will this target result in an object file on the disk? bDoes this target retain *all* top-level bindings for a module, rather than just the exported bindings, in the TypeEnv and compiled code (if any)? In interpreted mode we do this, so that GHCi can call functions inside a module. In HscNothing mode we also do it, so that Haddock can get access to the GlobalRdrEnv for a module after typechecking it. The  X value corresponding to the default way to create object files on the current platform. Are we building with -fPIE or -fPIC enabled? Used by  to partially initialize a new  value  The normal Y. Note that they are not suitable for use in this form and must be fully initialized by  first. Like   but appends an extra newline. Test whether a  is set Set a  Unset a  Test whether a   is set Set a  Unset a  Test whether a  u is set Set a  u Unset a  u Test whether a  u is set as fatalJMark a  u as fatal (do not set the flag)JMark a  u as not fatal Test whether a J is set Set a J Unset a JJ(Set the Haskell language standard to use YSome modules have dependencies on others through the DynFlags rather than textual imports Is the -fpackage-trust mode on 9Is Safe Haskell on in some way (including inference mode) (Is the Safe Haskell safe language in use .Is the Safe Haskell safe inference mode active (Test if Safe Imports are on in some formJSet a 'Safe Haskell' flag Are all direct imports required to be safe for this Safe Haskell mode? Direct imports are when the code explicitly imports a module Are all implicit imports required to be safe for this Safe Haskell mode? Implicit imports are things in the prelude. e.g System.IO when print is used.JCombine two Safe Haskell modes correctly. Used for dealing with multiple flags. This makes Safe Haskell very much a monoid but for now I prefer this as I don't want to export this functionality from the module but do want to export the type constructors. A list of unsafe flags under Safe Haskell. Tuple elements are: * name of the flag * function to get srcspan that enabled the flag * function to test if the flag is on * function to turn the flag off A list of unsafe flags under Safe Haskell. Tuple elements are: * name of the flag * function to get srcspan that enabled the flag * function to test if the flag is on * function to turn the flag off 3Retrieve the options corresponding to a particular opt_* field in the correct order {Gets the verbosity flag for the current verbosity level. This is fed to other tools, so GHC-specific verbosity flags like  -ddump-most are not included  Sets the , to be appropriate to the optimisation level TParse dynamic flags from a list of command line arguments. Returns the the parsed =, the left-over arguments, and a list of warnings. Throws a Q if errors occurred during parsing (such as unknown flags or missing arguments). Like   but does not allow the package flags (-package, -hide-package, -ignore-package, -hide-all-packages, -package-db). Used to parse flags set in a modules pragma. Parses the dynamically set flags for GHC. This is the most general form of the dynamic flag parser that the other methods simply wrap. It allows saying which flags are valid flags and indicating if we are parsing arguments from the command line or from a file pragma. !Write an error or warning to the J.JQCheck (and potentially disable) any extensions that aren't allowed in safe mode.The bool is to indicate if we are parsing command line flags (false means file pragma). This allows us to generate better warnings. All dynamic flags option strings without the deprecated ones. These are the user facing strings for enabling and disabling options.J4All flags with possibility to filter deprecated onesJThis is where we handle unrecognised warning flags. We only issue a warning if -Wunrecognised-warning-flags is set. See Trac #11429 for context. yMake a list of flags for shell completion. Filter all available flags into two groups, for interactive GHC vs all other.JDefine a new flag.J!Define a new flag with an effect.J,Define a new deprecated flag with an effect.JDefine a new deprecated flag.JdDefine a new deprecated flag with an effect where the deprecation message depends on the flag valueJUDefine a new deprecated flag where the deprecation message depends on the flag valueJ`Define a new deprecated flag where the deprecation message is shown depending on the flag valueJDefine a new flag for GHCi.J*Define a new flag for GHCi with an effect.J.Define a new flag invisible to CLI completion.J=Define a new flag invisible to CLI completion with an effect.JHide a  i from being displayed in --show-options.vThis is for example useful for flags that are obsolete, but should not (yet) be deprecated for compatibility reasons.J Find the  i for a  u. These -W<blah> flags can all be reversed with  -Wno-<blah>JThese -<blah> flags can all be reversed with  -no-<blah>JThese -d<blah> flags can all be reversed with  -dno-<blah> These -f<blah> flags can all be reversed with  -fno-<blah> These -f<blah> flags can all be reversed with  -fno-<blah>JThese -X blah# flags cannot be reversed with -XNo blahJThese -X blah# flags cannot be reversed with -XNo blah^ They are used to place hard requirements on what GHC Haskell language features can be used. These -X blah$ flags can all be reversed with -XNo blah Warning groups.sAs all warnings are in the Weverything set, it is ignored when displaying to the user which group a warning is in. JWarning group hierarchies, where there is an explicit inclusion relation.Each inner list is a hierarchy of warning groups, ordered from smallest to largest, where each group is a superset of the one before it.Separating this from  J allows for multiple hierarchies with no inherent relation to be defined.3The special-case Weverything group is not included.J^Find the smallest group in every hierarchy which a warning belongs to, excluding Weverything.J+Warnings enabled unless specified otherwiseJThings you get with -WJThings you get with -WallJAThings you get with -Weverything, i.e. *all* known warnings flagsJThings you get with -Wcompat.This is intended to group together warnings that will be enabled by default at some point in the future, so that library authors eager to make their code future compatible to fix issues before they even generate warnings. 4Was the runtime system built with profiling enabled? Given a Cj of a signature in the home library, find out how it is instantiated. E.g., the canonical form of A in  p[A=q[]:A] is q[]:A. ,Find the package environment (if one exists){We interpret the package environment as a set of package flags; to be specific, if we find a package environment file like _clear-package-db global-package-db package-db blah/package.conf.d package-id id1 package-id id2we interpret this as [ -hide-all-packages , -clear-package-db , -global-package-db , -package-db blah/package.conf.d , -package-id id1 , -package-id id2 ]YThere's also an older syntax alias for package-id, which is just an unadorned package id id1 id2 1Resolve any internal inconsistencies in a set of . Returns the consistent 6 as well as a list of warnings to report to the user.JThis is the value that ! takes before it is initialized.  to retrieve the options from%Relevant record accessor: one of the opt_* accessors#Correctly ordered extracted options Updated -, left-over arguments, and list of warnings. Updated -, left-over arguments, and list of warnings. valid flags to match against(are the arguments from the command line?current dynamic flagsarguments to parseJTrue  = it should be turned onThe flag prefix!What to do when the flag is found&Specification of this particular flag O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~                              ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l      X Y Z [ \ ] ^ _ ` a b c d e h f g i j k l m n o q p r s t u v w x y z { | } ~  m n o p q r s t u v w x y z { | } ~                            ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N                           ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~   O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~                            ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N u v w x y z { | } ~  r s t      x w v t u r s                                  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l i j k l m n e f g h o p q  y z { | } ~     m n o p q                    ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~   ^ _ ` a b c d X Y Z [ \ ]"O O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~                             ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l X Y Z [ \ ] ^ _ ` a b c dJJJJJJ e f g h i j k l m nJJJ o p qJJJ r s t uJJJJ y z { | } ~             )    m n o p q r s t uB v w x y z { | } ~                             ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M NVNone@ 9We need 8 bytes because our largest registers are 64 bit. qWe (allegedly) put the first six C-call arguments in registers; where do we start putting the rest of them? 6Check whether an offset is representable with 13 bits.  Check whether an integer will fit in 32 bits. A CmmInt is intended to be truncated to the appropriate number of bits, so here we truncate it to Int64. This is important because e.g. -1 as a CmmInt might be either -1 or 18446744073709551615. Sadness.  WNoneK$ True  = This is a static closure. Affects how we garbage-collect it. Static closure have an extra static link field at the end. Constructors do not have a static variant; see Note [static constructors] aA description of the layout of a closure. Corresponds directly to the closure types in includesrtsstorage/ClosureTypes.h.Byte offset, or byte countWord offset, or word countcRound up the given byte count to the next byte count that's a multiple of the machine's word size.7Convert the given number of words to a number of bytes.This function morally has type WordOff -> ByteOff , but uses Num a to allow for overloading.sFirst round the given byte count up to a multiple of the machine's word size and then convert the result to words./Size of a closure header (StgHeader in includesrtsstorage/Closures.h)JSize of the profiling part of a closure header (StgProfHeader in includesrtsstorage/Closures.h)JPThe garbage collector requires that every closure is at least as big as this.*(The total size of the closure, in words.+CThe byte offset into the card table of the card for a given element,>Convert a number of elements to a number of cards, rounding up-"The size of a card table, in bytes."The size of a card table, in words/%Derives the RTS closure type from an  I       !"#$%&'()*+,-./012345I      * !"%()#$&'/0123+,-.54    JJXNone@3The slots that are still available to be allocated.A#Assignment of vregs to stack slots.BIdentifier for a stack slot.C-An empty stack map, with all slots available.DIf this vreg unique already has a stack assignment then return the slot number, otherwise allocate a new slot, and update the map.E4Return the number of stack slots that were allocated>?@ABCDEB>?@ACDE>?@ANone1  Occurrence NamexIn this context that means: "classified (i.e. as a type name, value name, etc) but not qualified and not yet resolved"IOther names in the compiler add additional information to an OccName. This class provides a consistent way to access the underlying OccName. Value OccNamesKs are those that are either in the variable or data constructor namespaces Test if the 8 is a data constructor that starts with a symbol (e.g. :, or []) Test if the U is that for any operator (whether it is a data constructor or variable or whatever)Wrap parens around an operatorhHaskell 98 encourages compilers to suppress warnings about unsed names in a pattern if they start with _: this implements that testJ Build an  derived from another .4Note that the pieces of the name are passed in as a  [FastString]: so that the whole name can be constructed with a single *3, minimizing unnecessary intermediate allocations.Test for definitions internally generated by GHC. This predicte is used to suppress printing of internal definitions in some debug printsIs an  one of a Typeable TyCon or Modulew binding? This is needed as these bindings are renamed differently. See Note [Grand plan for Typeable] in TcTypeable.<Derive a name for the representation type constructor of a data/newtype instance.JCA prefix which distinguishes one sort of derived name from anotherDThe name we are deriving from in pieces which will be concatenated.J the namespacean identifying prefixanother optional prefixthe  to derive fromIndex of superclass, e.g. 3 Class, e.g. OrdDerived Occname, e.g. $p3OrdUnique to combine with the Local name, e.g. satNice unique version, e.g. $L23satFamily name, e.g. Mapavoid these Occs R:Map3Typically the class and type glommed together e.g. OrdMaybe-. Only used in debug mode, for extra clarity Is this a hs-boot instance DFun?avoid these OccsE.g.  $f3OrdMaybeTyCon or data con stringavoid these OccsE.g.  $f3OrdMaybe data T = MkT ... deriving( Data ) needs definitions for $tT :: Data.Generics.Basics.DataType $cMkT :: Data.Generics.Basics.ConstrTyCon or data con stringavoid these OccsE.g.  $f3OrdMaybe data T = MkT ... deriving( Data ) needs definitions for $tT :: Data.Generics.Basics.DataType $cMkT :: Data.Generics.Basics.ConstrKLFGHIJMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ȋMkNOPQTSRZ[\KL]^_`abcdefghijIJLKVWUXYHlmnypqzortsuvwx}|{~GFJKLHJIJMJJJJNone"# =dA unique, unambiguous name for something, containing information about where that thing originated.*A class allowing convenient access to the  of various datatypes!BuiltInSyntax is for things like (:), []Q and tuples, which have special syntactic forms. They aren't in scope as such.wReturns True if the name is (a) Internal (b) External but from the specified module (c) External but from the  interactive packageThe key idea is that False means: the entity is defined in some other module you can find the details (type, fixity, instances) in some interface file those details will be stored in the EPT or HPTTrue means: the entity is defined in this module or earlier in the GHCi session you can find details (type, fixity, instances) in the TcGblEnv or TcLclEnvThe isInteractiveModule part is because successive interactions of a GCHi session each give rise to a fresh module (Ghci1, Ghci2, etc), but they all come from the magic  interactive package; and all the details are kept in the TcLclEnv, TcGblEnv, NOT in the HPT or EPT. See Note [The interactive package] in HscTypesjReturns True if the Name comes from some other package: neither this pacakge nor the interactive package.aCreate a name which is (for now at least) local to the current module and hence does not need a D to disambiguate it from other s=Create a name which definitely originates in the given module>Create a name which is actually defined by the compiler itself0Create a name brought into being by the compilerMake a name for a foreign call Make the ? into an internal name, regardless of what it was to begin with%Create a localised variant of a name.If the name is external, encode the original's module name to disambiguate. SPJ says: this looks like a rather odd-looking function; but it seems to be used only during vectorisation, so I'm not going to worryrCompare Names lexicographically This only works for Names that originate in the source code or have been tidied.!Get a string representation of a  that's unique and stable across recompilations. Used for deterministic generation of binds for derived instances. eg. "$aeson_70dylHtv1FFGeai1IoxcQr$Data.Aeson.Types.Internal$String"Assumes that the  is a non-binding one. See  and  for serializing binding s. See !( for the rationale for this distinction.LKFGHIJMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~    7    JJJJJJJJJJYNone T  A number of s in dependency order: earlier  scope over later B In a single (def, use) pair, the defs also scope over the uses(Just ds, us) => The use of any member of the ds, implies that all the us+ are used too. Also, us may mention ds. Nothing => Nothing is defined in this group, but nevertheless all the uses are essential. Used for instance declarations, for example&A set of names that are used somewhere)A set of names that are defined somewhere.,True if there is a non-empty intersection. s1 . s2 doesn't compute s2 if s1 is empty1Get the elements of a NameSet with some stable ordering. This only works for Names that originate in the source code or have been tidied. See Note [Deterministic UniqFM] to learn about nondeterminismA Just like B, but  are not eliminated from the  returnedB Collect all >, regardless of whether the group is itself used, but remove  on the wayC Given some  and some J, find all the uses, transitively. The result is a superset of the input ,; and includes things defined in the input  (but only if they are used)* !"#$%&'()*+,-./0123456789:;<=>?@ABC*!"#&'()%$*- +.,/0123456789:;<=>?C@BAZNone X<DDeterministic Name EnvironmentQSee Note [Deterministic UniqFM] in UniqDFM for explanation why we need DNameEnv.EName EnvironmentDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`EOHIJGSUKLVYZQRNM\WXPT[D]^_`F\None01345 bh"Fields in an algebraic record typejUser-visible label of the fieldkIWas DuplicateRecordFields on in the defining module for this datatype?lRecord selector functionn2A map from labels to all the auxiliary informationoeField labels are just represented as strings; they are not necessarily unique (even within a module)pRecord selector OccNames are built from the underlying field name and the name of the first data constructor of the type, to support duplicate record field names. See Note [Why selector names include data constructors]. hiljkmnop onhijklmphijkl]None1 |xImported or Exported Wildcard{Imported or exported entity.|Imported or Exported Variable}+Imported or exported Thing with Absent list+The thing is a Class/Type (can't tell) - js : j, j,j~8Imported or exported Thing with All imported or exportedThe thing is a Class"Type and the All refers to methods constructorsjs : j , j,j#, j:Imported or exported Thing With given imported or exportedThe thing is a Class/Type and the imported or exported things are methods/constructors and record fields; see Note [IEThingWith] - js : j%, j%, j%, j$Imported or exported module contents (Export Only)js : jDoc section headingSome documentationReference to named docLocated Import or Export(Located name with possible adornment - js : j , jA name in an import or export specfication which may have adornments. Used primarily for accurate pretty printing of ParsedSource, and API Annotation placement.no extra pattern X type (:+:)Import DeclarationA single Haskell import declaration.jsjj, j for ideclSourcej,j, j,j, jj,j, j) attached to location in ideclHiding Module name.Package qualifier.True  = {-# SOURCE #-} importTrue => safe importTrue => qualified$True => implicit import (of Prelude) as Module(True => hiding, names)Located Import DeclarationWhen in a list this may havej : jWhen in a list this may havej : j&xyz{~}|+{|}~xyzxyz{|}~ ^None xUsed when we want to fingerprint a structure without depending on the fingerprints of external Names that it refers to._None d^A collection of annotations Can't use a type synonym or we hit bug #2412 due to source importEThe kind of annotation target found in the middle end of the compilerAn annotation targetCWe are annotating something with a name: a type or identifier%We are annotating a particular module]Represents an annotation after it has been sufficiently desugared from it's initial form of The target of the annotationGet the name& of an annotation target if it exists. An empty annotation environment.WConstruct a new annotation environment that contains the list of annotations provided.,Add the given annotation to the environment."Union two annotation environments.5Find the annotations attached to the given target as Jk values of your choice. If no deserializer is specified, only transient annotations will be returned.5Find the annotations attached to the given target as Jk values of your choice. If no deserializer is specified, only transient annotations will be returned.Deserialize all annotations of a given type. This happens lazily, that is no deserialization will take place until the [a] is actually demanded and the [a] can also be empty (the UniqFM is not filtered).|The "payload" of an annotation allows recovery of its value at a given type, and can be persisted to an interface fileJ None EwAtomically update the reference. Does not force the evaluation of the new variable contents. For strict update, use .Strict variant of .2Perform a computation with a different environment1Perform a computation with an altered environment;'%     J<None"# `6Log messagse intended for compiler developers No fileline column stuffa-Log messages intended for end users. No fileline column stuff.cTSevWarning and SevError are used for warnings and errors o The message has a filelinercolumn heading, plus "warning:" or "error:", added by mkLocMessags o Output is intended for end usersd`Write out a dump. If --dump-to-file is set then this goes to a file. otherwise emit to stdout.When hdrM is empty, we print in a more compact format (no separators and blank lines)The / is used only to choose the filename to use if --dump-to-file> is used; it is not used to decide whether to dump the outputf;Make a possibly annotated error message with location info.g5Make an unannotated error message with location info.Categorise error msgs by their importance. This is so each section can be rendered visually distinct. See Note [Error report] for where these come from.Primary error msg.-Context e.g. "In the second argument of ...".@Supplementary information, e.g. "Relevant bindings include ...".J6This has the same text as errDocImportant . errMsgDoc.Everything is fine%A problem, and some indication of why*If they aren't all valid, return the first!A long (multi-line) error message A short (one-line) error message;Variant that doesn't care about qualified/unqualified names!A long (multi-line) error message A short (one-line) error message;Variant that doesn't care about qualified/unqualified namesa wrapper around dF. First check whether the dump flag is set Do nothing if it is unseta wrapper around dF. First check whether the dump flag is set Do nothing if it is unsetUnlike 0, has a printer argument but no header argumentJ1Choose where to put a dump file based on DynFlagsJ&Build a nice file name from name of a  constructorTime a compilation phase.(When timings are enabled (e.g. with the -v2o flag), the allocations and CPU time used by the phase will be reported to stderr. Consider a typical usage: 3withTiming getDynFlags (text "simplify") force passY. When timings are enabled the following costs are included in the produced accounting,The cost of executing pass to a result r in WHNFThe cost of evaluating force r to WHNF (e.g. ())The choice of the force function depends upon the amount of forcing desired; the goal here is to ensure that the cost of evaluating the result is, to the greatest extent possible, included in the accounting provided by [. Often the pass already sufficiently forces its result during construction; in this case const () is a reasonable choice. In other cases, it is necessary to evaluate the result to normal form, in which case something like Control.DeepSeq.rnf is appropriate.To avoid adversely affecting compiler performance when timings are not requested, the result is only forced when timings are enabled.Like  but with ] rather then a Checks if given  is a fatal warning.foptional annotationseveritylocationmessageA means of getting a  (often   will work here)The name of the phase.A function to force the result (often either const () or rnf)!The body of the phase to be timedI[\]^_`abcdefg      O\]^_`abc[   gf  ed \]^_`abcJJJJJ-None<V dPH map from B to  A3, plus the transitive closure of preload packages.J Retrieve the H from ; used in the hs-boot loop-breaker.KGiven a fully instantiated B, improve it into a A+ if we can find it in the package database.'!The result of performing a lookup(-Found the module uniquely, nothing else to do),Multiple modules with the same name in scope*No modules found, but there were some hidden ones with an exact name match. First is due to package hidden, second is due to module being hidden+6Nothing found, here are some suggested different namesJgFor each package, a mapping from uid -> i indicates that this package was brought into GHC by the ith  -package-db flag on the command line. We use this mapping to make sure we prefer packages that were defined later on the command line, if there is an ambiguity.J'A reverse dependency index, mapping an A to the A s which have a dependency on it.J%The reason why a package is unusable.JWe ignored it explicitly using -ignore-package.JhThis package transitively depends on a package that was never present in any of the provided databases.J[This package transitively depends on a package involved in a cycle. Note that the list of A reports the direct dependencies of this package that (transitively) depended on the cycle, and not the actual cycle itself (which we report separately at high verbosity.)JAThis package transitively depends on a package which was ignored.JbThis package transitively depends on a package which was shadowed by an ABI-incompatible package.J A mapping of B to  AA. This list is adjusted so that only valid packages are here.  A5 reflects what was stored *on disk*, except for the 2_ flag, which is adjusted at runtime. (In particular, some packages in this map may have the 3 flag be J!.)J A mapping of  = to ?C. This is used when users refer to packages in Backpack includes.JOA mapping from wired in names to the original names from the package database.,The packages we're going to link in eagerly. This list should be in reverse dependency order; that is, a package is always mentioned before the packages it depends on.-nPackages which we explicitly depend on (from a command line flag). We'll use this to generate version macros.KThis is a full map from C to all modules which may possibly be providing it. These providers may be hidden (but we'll still want to report them in error messages), or it may be an ambiguous import.K A map, like K$, but controlling plugin visibility..A map saying, for each requirement, what interfaces must be merged together when we use them. For example, if our dependencies are p[A= A] and q[A= A,B=r[C= A]:B]*, then the interfaces to merge for A are p[A= A]:A, q[A= A,B=r[C= A]:B]:A and r[C= A]:C.?There's an entry in this map for each hole in our home library.K Map from C to D4 to all the origins of the bindings in scope. The  PackageConfk is not cached, mostly for convenience reasons (since this is the slow path, we'll just look it up again).KK< records the various aspects of visibility of a particular B.K-Any custom renamings that should bring extra Cs into scope.K(The package name is associated with the B4. This is used to implement legacy behavior where -package foo-0.1& implicitly hides any packages named fooKTThe signatures which are contributed to the requirements context from this unit ID.K^Whether or not this unit was explicitly brought into scope, as opposed to implicitly via the 3' fields in the package database (when -hide-all-packages is not passed.)K map from B to a K.K The set of transitively reachable packages according to the explicitly provided command line arguments. See Note [UnitId to InstalledUnitId improvement]K  map from A/Package state is all stored in f, including the details of all packages, which packages are exposed, and which modules they provide.!The package state is computed by >C, and kept in DynFlags. It is influenced by various package flags: -package pkg and  -package-id pkg cause  pkg to become exposed. If -hide-all-packagesk was not specified, these commands also cause all other packages with the same name to become hidden.-hide-package pkg causes  pkg to become hidden.=(there are a few more flags, check below for their semantics)/The package state has the following properties.Let exposedPackages/ be the set of packages thus exposed. Let depExposedPackages be the transitive closure from exposedPackages of their dependencies.aWhen searching for a module from an preload import declaration, only the exposed modules in exposedPackages are valid.KWhen searching for a module from an implicit import, all modules from depExposedPackages are valid.When linking in a compilation manager mode, we link in packages the program depends on (the compiler knows this list by the time it gets to the link step). Also, we link in all packages which were mentioned with preload -package flags on the command-line, or are a transitive dependency of same, or are "base"/"rts". The reason for this is that we might need packages which don't contain any Haskell modules, and therefore won't be discovered by the normal mechanism of dependency tracking.Given a module name, there may be multiple ways it came into scope, possibly simultaneously. This data type tracks all the possible ways it could have come into scope. Warning: don't use the record functions, they're partial!0Module is hidden, and thus never will be available for import. (But maybe the user didn't realize), so we'll still keep track of these modules.)17Module is public, and could have come from some places.2 Just False) means that this module is in someone's exported-modules$ list, but that package is hidden;  Just True means that it is available; Nothing means neither applies.3XIs the module available from a reexport of an exposed package? There could be multiple.4<Is the module available from a reexport of a hidden package?5ODid the module export come from a package flag? (ToDo: track more information.K +Smart constructor for a module which is in exposed-modulesH. Takes as an argument whether or not the defining package is exposed.K +Smart constructor for a module which is in reexported-modulesY. Takes as an argument whether or not the reexporting package is expsed, and also its  A.K ASmart constructor for a module which was bound by a package flag.KIs the name from the import actually visible? (i.e. does it cause ambiguity, or is it only relevant when we're making suggestions?)K~Are there actually no providers for this module? This will never occur except when we're filtering based on package imports.KEmpty package configuration map6=Find the package we know about with the given unit id, if any7A more specialized interface, which takes a boolean specifying whether or not to look for on-the-fly renamed interfaces, and just a H rather than a . (so it can be used while we're initializing 8AFind the package we know about with the given package name (e.g. fooP), if any (NB: there might be a locally defined unit name which overrides this)9<Search for packages with a given package ID (e.g. "foo-0.1")KEExtends the package configuration map with a list of package configs.:YLooks up the package with the given id in the package state, panicing if it is not found=Get a list of entries from the package database. NB: be careful with this function, although all packages in this map are "visible", this does not imply that the exposed-modules of the package are available (they may have been thinned or renamed).>Call this after ". It reads the package database files, and sets up various internal tables of package information, according to the package-related flags on the command-line (-package,  -hide-package etc.)Returns a list of packages to link in if we're doing dynamic linking. This list contains the packages that the user explicitly mentioned with -package flags.>6 can be called again subsequently after updating the  * field of the , and it will update the  / in + and return a list of packages to link in.K A little utility to tell if the  H is indefinite (if it is not, we should never use on-the-fly renaming.)KLike Kp, but doesn't return a list of unmatched packages. Furthermore, any packages it returns are *renamed* if the UnitArg# has a renaming associated with it.K Rename a  A( according to some module instantiation.KHThis sorts a list of packages, putting "preferred" packages first. See K# for the semantics of "preference".KReturns K if pkg should be preferred over pkg'J when picking which should be "active". Here is the order of preference:  First, prefer the latest version`If the versions are the same, prefer the package that came in the latest package database.Pursuant to #12518, we could change this policy to, for example, remove the version preference, meaning that we would always prefer the packages in alter package database.K;Compute the reverse dependency index of a package database.KGiven a list of AIs to remove, a database, and a reverse dependency index (as computed by Kv), remove those packages, plus any packages which depend on them. Returns the pruned database, as well as a list of  As that was removed.KGiven a  A from some K, return all entries in F> which correspond to packages that do not exist in the index.KGiven a  A from some K return all entries in EK which correspond to packages that do not exist, OR have mismatching ABIs.KGiven a list of databases, merge them together, where packages with the same unit id in later databases override earlier ones. This does NOT check if the resulting database makes sense (that's done by K).KValidates a database, removing unusable packages from it (this includes removing packages that the user has explicitly ignored.) Our general strategy: 2Remove all broken packages (dangling dependencies)#Remove all packages that are cyclicApply ignore flags9Remove all packages which have deps with mismatching ABIsDGiven a wired-in B, "unwire" it into the B2 that it was recorded as in the package database.K -Makes the mapping from module to package infoEBFind all the include directories in these and the preload packagesG<Find all the library paths in these and the preload packagesIFind all the link options in these and the preload packages, returning (package hs lib options, extra library options, other flags)K! Either the @ or ? as appropriate for the way.LAFind all the C-compiler options in these and the preload packagesMFFind all the package framework paths in these and the preload packagesNAFind all the package frameworks in these and the preload packagesOTakes a CT, and if the module is in any package returns list of modules which take that name.S Find all the  A# in both the preload packages from # and corresponding to the list of  AsT Will the ( come from a dynamically linked library?U Show (very verbose) package infoVShow simplified package info.The idea is to only print package id, and any information that might be different from the package databases (exposure, trust)W4Show the mapping of modules to where they come from.mPOJNMLKIHGFEDCBA@?>=<;:98765432?@HI,-.JKLMN = > ? @ A B C D E F G H I$%&'()*+/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW;I,-.HN>?@AB=67;8K9:<MLROPQ'()*+$%&/012345EGILMNJSFHJKDCUVWTHK"K#K I K$JJJ,-KK.$%&'()*+JJJJJJKK%K&KKKK/012345`None a^!Read in assembly file and processK'4These are the rewrites that the mangler will performK(bRewrite a line of assembly source with the given rewrites, taking the first rewrite that applies.K)This rewrites .type$ annotations of function symbols to %object+. This is done as the linker can relocate  %functions through the Procedure Linking Table (PLT). This is bad since we expect that the info table will appear directly before the symbol's location. In the case that the PLT is used, this will be not an info table but instead some random PLT garbage.K*This rewrites aligned AVX instructions to their unaligned counterparts on x86-64. This is necessary because the stack is not adequately aligned for aligned AVX spills, so LLVM would emit code that adjusts the stack pointer and disable tail call optimization. Both would be catastrophic here so GHC tells LLVM that the stack is 32-byte aligned (even though it isn't) and then rewrites the instructions in the mangler.K+replaceOnce match replace bs1 replaces the first occurrence of the substring match in bs with replace.K,VThis function splits a line of assembly code into the label and the rest of the code.^^aNone CK- A sectionK.Name of the sectionK/Content of the sectionK0 Description of the section tableK1'offset of the table describing sectionsK2%size of an entry in the section tableK3number of sectionsK4<index of a special section which contains section's namesK5 ELF headerThe ELF header indicates the native word size (32-bit or 64-bit) and the endianness of the target machine. We directly store getters for words of different sizes as it is more convenient to use. We also store the word size as it is useful to skip some uninteresting fields.Other information such as the target machine and OS are left out as we don't use them yet. We could add them in the future if we ever need them.K6(Get a Word16 with the correct endiannessK7(Get a Word32 with the correct endiannessK87Get a Word with the correct word size and endiannessK9Word size in bytesK:Read the ELF headerK;Read the ELF section tableK<Read a ELF sectionK=:Find a section from its name. Return the section contents.0We do not perform any check on the section type._8Given a section name, read its contents as a ByteString.OIf the section isn't found or if there is any parsing error, we return NothingK>read a Note as a ByteStringIf you try to read a note from a section which does not support the Note format, the parsing is likely to fail and Nothing will be returned`read a Note as a StringIf you try to read a note from a section which does not support the Note format, the parsing is likely to fail and Nothing will be returneda.Generate the GAS code to create a Note sectionGHeader fields for notes are 32-bit long (see Note [ELF specification]).It seems there is no easy way to force GNU AS to generate a 32-bit word in every case. Hence we use .int directive to create them: however "The byte order and bit size of the number depends on what kind of target the assembly is for." (https:/sourceware.orgbinutilsdocsas/Int.html#Int)If we add new target platforms, we need to check that the generated words are 32-bit long, otherwise we need to use platform specific directives to force 32-bit .int in asWord32.K?8runGet in IO monad that throws an IOException on failure_`a_`aK-K@K.K/K0KAK1K2K3K4K5KBK6K7K8K9bNone Dbcdefghijkmnolpqrstuvwxyz{|}~Dpvwxyz{|}~tusqrghijklmnobcdefbcdeghijklmnoKCKDKEKFKGpKHcNone&' KIA FlatSwitchPlan is a list of SwitchPlans, with an integer inbetween every two entries, dividing the range. So if we have (abusing list syntax) [plan1,n,plan2], then we use plan1 if the expression is < n, and plan2 otherwise.nA SwitchPlan abstractly describes how a Switch statement ought to be implemented. See Note [createSwitchPlan]>A value of type SwitchTargets contains the alternatives for a  CmmSwitch value, and knows whether the value is signed, the possible range, an optional default value and a map from values to jump labels.KJtNumber of consecutive default values allowed in a jump table. If there are more of them, the jump tables are split.}Currently 7, as it costs 7 words of additional code when a jump table is split (at least on x64, determined experimentally).KKMinimum size of a jump table. If the number is smaller, the switch is implemented using conditionals. Currently 5, because an if-then-else tree of 4 values is nice and compact.KLGMinimum non-zero offset for a jump table. See Note [Jump Table Offset].The smart constructr mkSwitchTargets normalises the map a bit: * No entries outside the range * No entries equal to the default * No default if all elements have explicit values7Changes all labels mentioned in the SwitchTargets valueCReturns the list of non-default branches of the SwitchTargets value3Return the default label of the SwitchTargets value+Return the range of the SwitchTargets value.Return whether this is used for a signed valueLswitchTargetsToTable creates a dense jump table, usable for code generation.`Also returns an offset to add to the value; the list is 0-based on the result of that addition.The conversion from Integer to Int is a bit of a wart, as the actual scrutinee might be an unsigned word, but it just works, due to wrap-around arithmetic (as verified by the CmmSwitchTest test case).;The list of all labels occuring in the SwitchTargets value.xGroups cases with equal targets, suitable for pretty-printing to a c-like switch statement with fall-through semantics.#Custom equality helper, needed for CmmCommonBlockElimNDoes the target support switch out of the box? Then leave this to the target!This function creates a SwitchPlan from a SwitchTargets value, breaking it down into smaller pieces suitable for code generation.KMdNone  $The operation to perform atomically.eMachine-level primops; ones which we can reasonably delegate to the native code generators to handle.)Most operations are parameterised by the gr that they operate on. Some operations have separate signed and unsigned versions, and float and integer versions.eReturns J e if the MachOp has commutable arguments. This is used in the platform-independent Cmm optimisations.If in doubt, return J!M. This generates worse code on the native routes, but is otherwise harmless.fReturns J $ if the MachOp is associative (i.e. (x+y)+z == x+(y+z)=) This is used in the platform-independent Cmm optimisations.If in doubt, return J!M. This generates worse code on the native routes, but is otherwise harmless.gReturns J  if the MachOp is a comparison.fIf in doubt, return False. This generates worse code on the native routes, but is otherwise harmless.hReturns Just w6 if the operation is an integer comparison with width w, or Nothing otherwise.j.Returns the MachRep of the result of a MachOp.kThis function is used for debugging only: we can check whether an application of a MachOp is "type-correct" by checking that the MachReps of its arguments are the same as the MachOp expects. This is used when linting a CmmExpr.nThe alignment of a memcpy-ish operation.      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmn      !"#$%&'()*+,-./0123456789:;efghjki<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\^]cd_`abmln3<      !"#$%&'()*+,-./0123456789:eNone uvwxyz{|} |}z{uvwxyfNone ~&A bitmap represented by a sequence of  s on the target architecture. These are used for bitmaps in info tables and other generated code which need to be emitted as sequences of StgWords.%Make a bitmap from a sequence of bits0Make a bitmap where the slots specified are the ones in the bitmap. eg. [0,1,3], size 4 ==> 0xb. The list of Ints must be already sorted.0Make a bitmap where the slots specified are the zeros in the bitmap. eg. [0,1,3], size 4 ==> 0x4X (we leave any bits outside the size as zero, just to make the bitmap easier to read). The list of Ints must& be already sorted and duplicate-free.Magic number, must agree with BITMAP_BITS_SHIFT in InfoTables.h. Some kinds of bitmap pack a size/bitmap into a single word if possible, or fall back to an external pointer when the bitmap is too large. This value represents the largest size of bitmap that can be packed into a single word. size in bitssorted indices of ones size in bits*sorted indices of zeros free of duplicates~~gNone $A collection of & - several things that are "available"2Records what things are "available", i.e. in scopeAn ordinary identifier in scope%A type or class in scope. Parameters:1) The name of the type or class 2) The available pieces of type or class, excluding field selectors. 3) The record fields of the type (see Note [Representing fields in AvailInfo]).The AvailTC Invariant: * If the type or class is itself to be in scope, it must be *first* in this list. Thus, typically: AvailTC Eq [Eq, ==, /=]Compare lexicographicallymJust the main name made available, i.e. not the available pieces of type or class brought into scope by the  GenAvailInfoYAll names made available by the availability information (excluding overloaded selectors)YAll names made available by the availability information (including overloaded selectors)CNames for non-fields made available by the availability information5Fields made available by the availability information trims an  to keep only a single namefilters s by the given predicate filters an  by the given predicate Combines s from the same family avails may have several items with the same availName E.g import Ix( Ix(..), index ) will give Ix(Ix,index,range) and Ix(index) We want to combine these; addAvail does thathNone1 h"Import Item Specification'Describes import info a particular Name4The import had no import list, or had a hiding list$The import had an import list. The  field is True iff the thing was named  explicitlyT in the import specs rather than being imported as part of a "..." group. Consider: import C( T(..) )Here the constructors of T! are not named explicitly; only T is named explicitly. Import Declaration SpecificationGDescribes a particular import declaration and is shared among all the  Provenances for that declModule imported, e.g.  import Muggle Note the Muggle5 may well not be the defining module for this thing!Import alias, e.g. from as M (or Muggle if there is no as clause)Was this import qualified?-The location of the entire import declarationImport SpecificationThe v of something says how it came to be imported It's quite elaborate so that we can give accurate unused-name warnings.wThe children of a Name are the things that are abbreviated by the ".." notation in export lists. See Note [Parents]$See Note [Parents for record fields]Global Reader ElementAn element of the True  = the thing was defined locallyIn scope through these importsGlobal Reader Environment Keyed by 3; when looking up a qualified name we look up the  part, and then check the  Provenance to see if the appropriate qualification is valid. This saves routinely doubling the size of the env by adding both qualified and unqualified names to the domain.~The list in the codomain is required because there may be name clashes These only get reported on lookup, not on constructionEINVARIANT 1: All the members of the list have distinct $ fields; that is, no duplicate Names>INVARIANT 2: Imported provenance => Name is an ExternalName However LocalDefs can have an InternalName. This happens only when type-checking a [d| ... |] Template Haskell quotation; see this note in RnNames Note [Top-level Names in Template Haskell decl quotes]^INVARIANT 3: If the GlobalRdrEnv maps [occ -> gre], then greOccName gre = occNB: greOccName gre is usually the same as nameOccName (gre_name gre), but not always in the case of record seectors; see greOccNameLocal Reader Environment3This environment is used to store local bindings (let, where , lambda, case). It is keyed by OccName, because we never use it for qualified names We keep the current mapping, *and* the set of all Names in scope Reason: see Note [Splicing Exact names] in RnEnv Reader NameqDo not use the data constructors of RdrName directly: prefer the family of functions that creates them, such as `Note: A Located RdrName will only have API Annotations if it is a compound one, e.g.  `bar` ( ~ )j : j , j '(' or '[' or '[:' , j ')' or ']' or ':]',, j '`' , j,j , j,Unqualified name1Used for ordinary, unqualified occurrences, e.g. x, y or Foo. Create such a  with Qualified name)A qualified name written by the user in source code. The module isn't necessarily the module where the thing is defined; just the one from which it is imported. Examples are Bar.x, Bar.y or Bar.Foo. Create such a  with  Original name$An original name; the module is the defining module. This is used when GHC generates code that will be fed into the renamer (e.g. from deriving clauses), but where we want to say "Use Prelude.map dammit". One of these can be created with  Exact nameWe know exactly the . This is used: ,When the parser parses built-in syntax like [] and (,), but wants a  from it8By Template Haskell, when TH has generated a unique nameSuch a  can be created by using  on a Make a qualified & in the given namespace and where the C and the G are taken from the first and second elements of the tuple respectivelymake a p where all the elements point to the same Provenance (useful for "hiding" imports, or imports with no details).Takes a list of distinct GREs and folds them into AvailInfos. This is more efficient than mapping each individual GRE to an AvailInfo and the folding using & but needs the uniqueness assumption.Look for precisely this w in the environment. This tests whether it is in scope, ignoring anything else that might be in scope with the same .Look for a particular record field selector in the environment, where the selector name and field label may be different: the GlobalRdrEnv is keyed on the label. See Note [Parents for record fields] for why this happens.KNLook for precisely this ! in the environment, but with an % that might differ from that of the . See ' and Note [Parents for record fields].>Test if an unqualified version of this thing would be in scope2Takes a list of GREs which have the right OccName x> Pick those GREs that are are in scope * Qualified, as 4 if want_qual is Qual M _ * Unqualified, as x if want_unqual is Unqual _Return each such GRE, with its ImportSpecs filtered, to reflect how it is in scope qualified or unqualified respectively. See Note [GRE filtering]Pick GREs that are in scope *both* qualified *and* unqualified Return each GRE that is, as a pair (qual_gre, unqual_gre) These two GREs are the original GRE with imports filtered to express how it is in scope qualified an unqualified respectivelySUsed only for the 'module M' item in export list; see RnNames.exports_from_avail>Apply a transformation function to the GREs for these OccNamesIs in scope unqualified?,Is in scope qualified with the given module?ZPrint out one place where the name was define/imported (With -dppr-debug, print them all)efKOKPKQONone o : ; < !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~     Q!"#$ %&'()*+,-./0213456789:;<=>?@ABCDEFGHIJKLMNOPRSTUVWXYZ[\]^ <_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDJEFGHIKLMNOPQRTSUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{}|~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ; :     # !"$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdelfghijkmnopqrstuvwxyz{|}~     iNone  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0134567829:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijktulmnopqrsvwxyz{|}~     * !"#$%&'()+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~     jNone1 L<Some template haskell tokens have two variants, one with an e the other not:  [| or [e| [|| or [e|| This type indicates whether the e is present or not.Certain tokens can have alternate representations when unicode syntax is enabled. This flag is attached to those tokens in the lexer so that the original source representation can be reproduced in the corresponding  ApiAnnotation$ : \, -,6, k,z, y May have 6 when in a listsomething beginning '-- |'something beginning '-- ^'something beginning '-- $' a section heading!(doc options (prune, ignore-exports, etc)"comment starting by "--"#comment in {- -}$API Annotations exist so that tools can perform source to source conversions of Haskell code. They are used to keep track of the various syntactic keywords that are not captured in the existing AST.SThe annotations, together with original source comments are made available in the pm_annotations field of !. Comments are only retained if Opt_KeepRawTokenStream is set in "" before parsing.*The wiki page describing this feature is 4https://ghc.haskell.org/trac/ghc/wiki/ApiAnnotationsNote: in general the names of these are taken from the corresponding token, unless otherwise noted See note [Api annotations] above for details of the usage(!)'`'+case or lambda case-'#)' or '#-}' etc.'|)'/'|)', unicode variant0'}'1'|]'2'|]', unicode variant3')'4']'6as a list separator7in a RdrName for a tuple8'=>'9'=>', unicode variant;'::'<'::', unicode variant@KRA'..'GUnicode variantIRfor function name in matches where there are multiple equations for the function.K for CTypeP'infix' or 'infixl' or 'infixr'S'<-'T'<-', unicode variantWKSZ;where a name loses its location in the AST, this carries it\'(#' or '{-# LANGUAGE' etc]'(|'^'(|', unicode variant_'{'`'[e|' or '[e||'a'[|'b'[|', unicode variantc'('d'$('e'$$('f'['k'->'l'->', unicode variantp';'q'''sstaticvKTw<x double '''y'~'z~#|'()' for types~ e.g. INTEGER*String value, will need quotes when output'|'-<-<, unicode variant'->''->', unicode variant-<<-<<, unicode variant>>->>-, unicode variantRetrieve a list of annotation s based on the E of the annotated AST element, and the known type of the annotation.Retrieve a list of annotation s based on the p of the annotated AST element, and the known type of the annotation. The list is removed from the annotations./Retrieve the comments allocated to the current Note: A given < may appear in multiple AST elements, beware of duplicates/Retrieve the comments allocated to the current ', and remove them from the annotations;Convert a normal annotation into its unicode equivalent one} !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~}$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ !"# !"#$f%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~kNoneD Encapsulated call to addAnnotation, requiring only the SrcSpan of the AST construct the annotation belongs to; together with the AnnKeywordId, this is the key of the annotation map.'This type is useful for places in the parser where it is not yet known what SrcSpan an annotation should be added to. The most common situation is when we are parsing a list: the annotations need to be associated with the AST element that *contains* the list, not the list itself.  lets us defer adding the annotations until we finish parsing the list and are now parsing the enclosing element; we then apply the ' to associate the annotations. Another common situation is where a common fragment of the AST has been factored out but there is no separate AST node for this fragment (this occurs in class and data declarations). In this case, the annotation belongs to the parent data declaration.The usual way an  is created is using the mjD ("make jump") function, and then it can be discharged using the ams function.The subset of the  used by the parser'key of package currently being compiledbitmap of permitted extensionsKUDo we want to generate ';' layout tokens? In some cases we just want to generate '}', e.g. in MultiWayIf we don't need ';'s because '|'# separates alternatives (unlike a `case`G expression where we need ';' to as a separator between alternatives).KVTest whether a  u is setnTest whether a J is set0Extracts the flag information needed for parsingCreates a parse state from a  valueCreates a parse state from a  valueFGiven a location and a list of AddAnn, apply them all to the location.Given a  that surrounds a HsPar or HsParTy , generate O values for the opening and closing bordering on the start and end of the span3Move the annotations and comments belonging to the old span to the new one.KWGo through the  comment_q in PState; and remove all comments that belong within the given span      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmuqnropvt{wzyxs}~|KXKYKZK[K\K]K^K_K`KaKbKcKdKeKfKgKhKi$KjKkKlKmKnKoKpKqKrKsKtKuKvKwKxKyKzK{K|K}K~KKKKKKKKKKKKKKKKKKKKKKKKKKKKȥ      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmlNone mNone1;<=^ 6v Type Variable BinderA  is the binder of a ForAllTy It's convenient to define this synonym here rather its natural home in TyCoRep, because it's used in DataCon.hs-boot Argument Flag3Is something required to appear in source Haskell (), permitted by request (X) (visible type application), or prohibited entirely from appearing in source Haskell (0)? See Note [TyBinders and ArgFlags] in TyCoRepK,Not exported: may be discarded as dead code.KExported: kept aliveKIdentifier ScopeVariableEssentially a typed ?, that may also contain some additional information about the  and it's use sites.KTKey for fast comparison Identical to the Unique in the name, cached here for speedThe type or kind of the  in questionType or Coercion VariableEquality VariableImplicit parameter IdentifierDictionary IdentifierDictionary Function IdentifierEvidence VariableEvidence Identifier Kind Variable Type VariableType or Kind VariableType or kind VariableCoercion Variable IdentifierCompare Vars by their Uniques. This is what Ord Var does, provided here to make it explicit at the call-site that it can introduce non-determinism. See Note [Unique Determinism] Does this 1 classify an argument that is written in Haskell? Does this 5 classify an argument that is not written in Haskell?.Do these denote the same level of visibility? C arguments are visible, others are not. So this function equates  and . Used for printing. Exported "s will not be removed as dead codeIf it's a local, make it globalExports the given local . Can also be called on global Ms, such as data constructors and class operations, which are born as global s and automatically exportedWe can only do this to LocalIds returns True% for type variables as well as local ws These are the variables that we need to pay attention to when finding free variables, or doing dependency analysis. returns True of s and es that must have a binding in this module. The converse is not quite right: there are some global vs that must have bindings, such as record selectors. But that doesn't matter, because it's only used for assertionsisExportedIdVar means "don't throw this away"PVKKKKKKKKKKKKKKKKrNone1 FeGTA Cost Centre Stack is something that can be attached to a closure. This is either:$the current cost centre stack (CCCS)Xa pre-defined cost centre stack (there are several pre-defined CCSs, see below).LA Cost Centre is a single {- SCC -} annotation.O Two cost centres may have the same name and module but different SrcSpans, so we need a way to distinguish them easily and give them different object-code labels. So every CostCentre has a Unique that is distinct from every other CostCentre in the same module.tXXX: should really be using Unique here, but we need to derive Data below and there's no Data instance for Unique.PName of the cost centre itselfQ Name of module defining this CC.V.Is this a cost-centre which records scc countsW)Is this a cost-centre which can be sccd ?"FGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefg$LMNOPQRSQRKHIJGF\]^_`bYZ[caUVWXdefgTGKKKKHIJL MNOPQRSQRsNone &'-01FGV OCy,For now, we work only with nominal equality.~coaxrProves returns Nothing when it doesn't like the supplied arguments. When this happens in a coercion that means that the coercion is ill-formed, and Core Lint checks for that.-A more explicit representation for `t1 ~ t2`.A : is a "coercion constructor", i.e. a named equality axiom.The  [CoAxBranch]O passed into the mapping function is a list of all previous branches, reversedAtuwxvyz{|}~Ayz{|}~tuvwxtuvwxyz{|}~KKKKtNone TbIf a class is "naturally coherent", then we needn't worry at all, in any way, about overlapping/incoherent instances. Just solve the thing!#KKKKKKKKKKK)None;= aMXTyCons represent type constructors. Type constructors are introduced by things such as:1) Data declarations: data Foo = ... creates the Foo type constructor of kind *2) Type synonyms: type Foo = ... creates the Foo type constructor 3) Newtypes: newtype Foo a = MkFoo ... creates the Foo type constructor of kind * -> *4) Class declarations: class Foo where creates the Foo type constructor of kind *zThis data type also encodes a number of primitive, built in type constructors such as those for function and tuple types.O Is this the M for an unboxed tuple?P Does this M represent a tuple?NB: when compiling  Data.Tuple, the tycons won't reply True to P, because they are built as  AlgTyCons`. However they get spat into the interface file as tuple tycons, so I don't think it matters.A  is an abstraction of a type. It contains information that the code generator needs in order to pass arguments, return results, and store values of this type.Unlifted pointerSigned, word-sized valueUnsigned, word-sized value-Signed, 64 bit value (with 32-bit words only)/Unsigned, 64 bit value (with 32-bit words only)A pointer, but not) to a Haskell value (use '(Un)liftedRep') A vector";Information pertaining to the expansion of a type synonym (type)#nRepresents an open type family without a fixed right hand side. Additional instances can appear at any time.7These are introduced by either a top level declaration: data family T a :: *COr an associated data type declaration, within a class declaration: !class C a b where data T b :: *$"An open type synonym family e.g. type family F x y :: * -> *%$A closed type synonym family e.g. &type family F x where { F Int = Bool }&WA closed type synonym family declared in an hs-boot file with type family F a where ..'0Built-in type family used by the TypeNats solver,+An ordinary type constructor has no parent.-An unboxed type constructor. The TyConRepName is a Maybe since we currently don't allow unboxed sums to be Typeable since there are too many of them. See #13276..\Type constructors representing a class dictionary. See Note [ATyCon for classes] in TyCoRep/MType constructors representing an *instance* of a *data* family. Parameters:1) The type family in question*2) Instance types; free variables are the H of the current MX (not the family one). INVARIANT: the number of types matches the arity of the family M3) A CoTyConD identifying the representation type with the type instance family0MSome promoted datacons signify extra info relevant to GHC. For example, the IntRep constructor of  RuntimeRep corresponds to the  constructor of H. This data structure allows us to store this information right in the M6. The other approach would be to look up things like  RuntimeRep's PrimRep by known-key every time.1an ordinary promoted data con2A constructor of  RuntimeRepX. The argument to the function should be the list of arguments to the promoted datacon.3A constructor of VecCount4A constructor of VecElem5Represents right-hand-sides of Ms for algebraic types6Says that we know nothing about this data type, except that it's represented by a pointer. Used when we export a data type abstractly into an .hi file.7Information about those Ms derived from a dataE declaration. This includes data types with no constructors at all.:Information about those Ms derived from a newtype declaration;aThe data type constructors; can be empty if the user declares the type to have no constructors'INVARIANT: Kept in order of increasing 63 tag (see the tag assignment in DataCon.mkDataCon)<JCached value: is this an enumeration type? See Note [Enumeration types]=The unique constructor for the newtype. It has no existentials>.Is this a boxed, unboxed or constraint tuple??cCached value: the argument type of the constructor, which is just the representation type of the M (remember that newtypeEs do not exist at runtime so need a different representation type). The free s of this type are the H from the corresponding M@ Same as the ?0, but this time eta-reduced. Hence the list of ?s in this field may be shorter than the declared arity of the M.KThe function type constructor, (->)K"Algebraic data types, from - data declarations - newtype declarations - data instance declarations - type instance declarations - the TyCon generated by a class declaration - boxed tuples - unboxed tuples - constraint tuples All these constructors are lifted and boxed except unboxed tuples which should have an - parent. Datanewtypetype families are handled by K. See 5 for more information.KRepresents type synonymsKHRepresents families (both type and data) Argument roles are all NominalKZPrimitive types; cannot be defined in Haskell. This includes the usual suspects (such as Int#0) as well as foreign-imported types and kinds (*, #, and ?)K%Represents promoted data constructor.KBThese exist only during a recursive type/class type-checking knot.B[A Unique of this TyCon. Invariant: identical to Unique of Name stored in tyConName field.CName of the constructorD Full bindersE Result kindFKind of this TyConGArityH TyVar bindersKiThe role for each type variable This list has length = tyConArity See also Note [TyCon Role signatures]IJThe C type that should be used for this type when using the FFI and CAPIKWas the data type declared with GADT syntax? If so, that doesn't mean it's a true GADT; only that the "where" form was used. This field is used only to guide pretty-printingKThe "stupid theta" for the data type (always empty for GADTs). A "stupid theta" is the context to the left of an algebraic type declaration, e.g. Eq a in the declaration data Eq a => T a ....KGContains information about the data constructors of the algebraic typeJ,Maps a label to information about the fieldK'Gives the class or family declaration M for derived M8s representing class or family instances, respectively.K8Contains information about the expansion of the synonymKvName of result type variable, used for pretty-printing with --show-iface and for reifying TyCon in Template HaskellKVType family flavour: open, closed, abstract, built-in. See comments for FamTyConFlavKFor *associated* type/data families The class in whose declaration the family is declared See Note [Associated families and their parent class]Kgis this a type family injective in its type variables? Nothing if no injectivity annotation was givenKYMost primitive tycons are unlifted (may not contain bottom) but other are lifted, e.g.  RealWorld Only relevant if tyConKind = *KCorresponding data constructorKSee comments with 0Kcan this tycon be unsaturated?L8Scoped tyvars over the tycon's body. See Note [TcTyCon]ZBoth type classes as well as family instances imply implicit type constructors. These implicit type constructors refer to their parent structure (ie, the class or family from which they derive) using a type of the following form.Extract those 6s that we are able to learn about. Note that visibility in this sense does not correspond to visibility in the context of any particular user program!KChecks the invariants of a +/ given the appropriate type class name, if any]Make a  for the Typeable* representation of the given wired-in type^^The name (and defining module) for the Typeable representation (TyCon) of a type constructor.&See Note [Grand plan for Typeable] in  TcTypeable in TcTypeable.aFind the size of a  , in wordscJReturn if Rep stands for floating type, returns Nothing for vector types.d-The labels for the fields of this particular MK-The labels for the fields of this particular Me(Look up a field label belonging to this MK^Make a map from strings to FieldLabels from all the data constructors of this algebraic tyconfYGiven the name of the function type constructor and it's kind, create the corresponding M. It is recomended to use  if you want this functionalityg#This is the making of an algebraic M. Notably, you have to pass in the generic (in the -XGenerics sense) information about the type constructor - you can get hold of it easily (see Generics module)hSimpler specialization of g for classesk4Makes a tycon suitable for use during type-checking. The only real need for this is for printing error messages during a recursive type/class type-checking knot. It has a kind because TcErrors sometimes calls typeKind. See also Note [Kind checking recursive type and class declarations] in TcTyClsDecls.lCreate an unlifted primitive M , such as Int#.mKind constructorsnCreate a lifted primitive M such as  RealWorldoCreate a type synonym MpCreate a type family Mq#Create a promoted data constructor M Somewhat dodgily, we give it the same Name as the data constructor itself; when we pretty-print the TyCon we add a quote; see the Outputable TyCon instancer Test if the M8 is algebraic but abstract (invisible data constructors)sMake an fake, recovery M8 from an existing one. Used when recovering from errorst Does this M7 represent something that cannot be defined in Haskell?uIs this Mi unlifted (i.e. cannot contain bottom)? Note that this can only be true for primitive and unboxed-tuple MsvReturns True if the supplied M resulted from either a data or newtype declarationwReturns True9 for vanilla AlgTyCons -- that is, those created with a data or newtype declaration.xReturns True for data types that are  definitelyT represented by heap-allocated constructors. These are scrutinised by Core-level case: expressions, and they get info tables allocated for them.-Generally, the function will be true for all data types and false for newtype1s, unboxed tuples, unboxed sums and type family M&s. But it is not guaranteed to return True in all cases that it could.%NB: for a data type family, only the instance M2s get an info table. The family declaration M does notyy is true of M s for which this property holds (where X is the role passed in): If (T a1 b1 c1) ~X (T a2 b2 c2), then (a1 ~X1 a2), (b1 ~X2 b2), and (c1 ~X3 c2) (where X1, X2, and X3, are the roles given by tyConRolesX tc X) See also Note [Decomposing equality] in TcCanonicalzz is true of Ms for which this property holds (where X is the role passed in): If (T tys ~X t), then (t's head ~X T). See also Note [Decomposing equality] in TcCanonical{ Is this an 5 of a MM that is generative and injective with respect to representational equality?|Is this M that for a newtype}Take a M apart into the s it scopes over, the Q it expands into, and (possibly) a coercion from the representation type to the newtype . Returns Nothing if this is not possible. Is this a M* representing a regular H98 type synonym (type)?True iff we can decompose (T a b c) into ((T a b) c) I.e. is it injective and generative w.r.t nominal equality? That is, if (T a b) ~N d e f, is it always the case that (T ~N d), (a ~N e) and (b ~N f)? Specifically NOT true of synonyms (open and otherwise)It'd be unusual to call mightBeUnsaturatedTyCon on a regular H98 type synonym, because you should probably have expanded it first But regardless, it's not decomposableIs this an algebraic M declared with the GADT syntax?Is this an algebraic M( which is just an enumeration of values? Is this a M., synonym or otherwise, that defines a family? Is this a M>, synonym or otherwise, that defines a family with instances?Is this a synonym M1 that can have may have further instances appear?Is this a synonym M1 that can have may have further instances appear?"Is this an open type family TyCon?0Is this a non-empty closed type family? Returns J%( for abstract or empty closed families.hTry to read the injectivity information from a FamilyTyCon. For every other TyCon this function panics.#Are we able to extract information . to class argument list mapping from a given M? Is this the M for a boxed tuple? Is this the M for an unboxed sum? Is this the M for a promoted tuple?Is this a PromotedDataCon?<Retrieves the promoted DataCon if this is a PromotedDataCon;kIs this tycon really meant for use at the kind level? That is, should it be permitted without -XDataKinds?KLThese TyCons should be allowed at the kind level, even without -XDataKinds.Identifies implicit tycons that, in particular, do not go into interface files (because they are implicitly reconstructed when the interface is read). Note that:tAssociated families are implicit, as they are re-constructed from the class declaration in which they reside, andFamily instances are not? implicit as they represent the instance body (similar to a dfun! does that for a class instance).Tuples are implicit iff they have a wired-in name (namely: boxed and unboxed tupeles are wired-in and implicit, but constraint tuples are not)AIs this a TcTyCon? (That is, one only used during type-checking?)Could this TyCon ever be levity-polymorphic when fully applied? True is safe. False means we're sure. Does only a quick check based on the TyCon's category. Precondition: The fully-applied TyCon has kind (TYPE blah))Expand a type synonym application, if any/Check if the tycon actually refers to a proper `data` or  `newtype`W with user defined constructors rather than one from a class or other construction.As O, but returns the empty list of constructors if no constructors could be foundDetermine the 6s originating from the given M , if the Md is the sort that can have any constructors (note: this does not include abstract algebraic types) If the given M has a single data constructor, i.e. it is a data/ type with one alternative, a tuple type or a newtype, then that constructor is returned. If the M] has more than one constructor, or represents a primitive or function type constructor then Nothing5 is returned. In any other case, the function panics-Determine the number of value constructors a M has. Panics if the M is not algebraic or a tuple Extract an 5F with information about data constructors from an algebraic or tuple M. Panics for any other sort of M@Extract type variable naming the result of injective type family8Get the list of roles for the type parameters of a TyConGExtract the bound type variables and type expansion of a type synonym M. Panics if the M is not a synonymThe number of type parameters that need to be passed to a newtype to resolve it. May be less than in the definition if it can be eta-contracted.WExtract the bound type variables and type expansion of an eta-contracted type synonym M. Panics if the M is not a synonym Extracts the newtype coercion from such a M5, which can be used to construct something with the newtypeHs type from its representation type (right hand side). If the supplied M is not a newtype , returns NothingFind the "stupid theta" of the MV. A "stupid theta" is the context to the left of an algebraic type declaration, e.g. Eq a in the declaration data Eq a => T a ... Extract the Ys bound by a vanilla type synonym and the corresponding (unsubstituted) right hand side.NExtract the information pertaining to the right hand side of a type synonym (type) declaration.VExtract the flavour of a type family (with all the extra information that it carries)Is this M that for a class instance?If this MN is that for a class instance, return the class it is for. Otherwise returns Nothing#Return the associated types of the M, if anyIs this M! that for a data family instance?If this Mm is that of a data family instance, return the family in question and the instance types. Otherwise, return NothingIf this M- is that of a data family instance, return a Mu which represents a coercion identifying the representation type with the type instance family. Otherwise, return Nothing Extract any 0 from this TyConReturns whether or not this Md is definite, or a hole that may be filled in at some later point. See Note [Skolem abstract data] gBinders of the M Result kindThe roles for each TyVar>The C type this type corresponds to when using the CAPI FFIStupid theta: see K#Information about data constructors0What flavour is it? (e.g. vanilla, type family)Was the M declared with GADT syntax?iResult kind of the MArity of the tuple M%Whether the tuple is boxed or unboxedjKind of the resulting MArity of the sums scoped over: see Hkresult kind onlyCan this be unsaturated?)Scoped type variables, see Note [TcTyCon]lresult kind, never levity-polymorphicmresult kindnresult kindKresultd kind, never levity-polymorphic (If you need a levity-polymorphic PrimTyCon, change isTcLevPoly.)oresult kindpresult kind Arguments to M Returns a u substitution, the body type of the synonym (not yet substituted) and any arguments remaining from the applicationMLEDJKGIHBFCNOP      !"#$%&'()*+,-./0234156789:;<=>?@AMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~MBCDEFGBCDHEFGIJBCDHEFGBCDHEFGKBCDEFGBCDEFGBCDHEFGL56789:;<=>;=?@AZ+,-./["#$%&'()*01234PMNOSTQRUVWXdeghflmnijopqkvwNtPOx|ruyz{CFBHIGK}~JDELsY!\]^     _`abc  MNKKKKKKKBCDEFGKBCDHEFGKIKKKJKBCDHEFGKKKKBCDHEFGKKKKBCDEFGKKKBCDEFGKKKKBCKDHEFGL K      "#$%&'()*+,-./0123456789:;<=>;=?@AMNOvNone;=^ Show forall flag1Unconditionally show the forall quantifier with ( ) or when (Y) the names used are free in the binder or when compiling with -fprint-explicit-foralls.ePrints "(C a, D b) =>", including the arrow. This is used when we want to print a context in a type.Prints a context or ()V if empty. This is used when, e.g., we want to display a context in an error message.;Render the "forall ... ." or "forall ... ->" bit of a type.#See Note [Holes in IfaceUnivCoProv]@The various types of TyCons which have special, built-in syntax.a regular tycone.g.  (a, b, c) or (a, b, c)p. The arity is the tuple width, not the tycon arity (which is twice the width in the case of unboxed tuples).e.g.  (a | b | c)a type equality. J W indicates kind-homogeneous. See Note [Equality predicates in IfaceType] for details.IIs a TyCon a promoted data constructor or just a normal type constructor?@-Extract a IfaceTvBndr from a IfaceTyConBinderA1Extract the variable name from a IfaceTyConBinderJ Similar to  eqTyVarBndrs[, checks that tyvar lists are the same length and have matching kinds; if so, extend the  . Returns J% if they don't match.KDefault 2 variables to  LiftedPtr. e.g. U($) :: forall (r :: GHC.Types.RuntimeRep) a (b :: TYPE r). (a -> b) -> a -> b  turns in to, - ($) :: forall a (b :: *). (a -> b) -> a -> bWe do this to prevent RuntimeRep variables from incurring a significant syntactic overhead in otherwise simple type signatures (e.g. ($)). See Note [Defaulting RuntimeRep variables] and #11549 for further discussion.KRender the ... in (forall ... .) or (forall ... ->)]. Returns both the list of not-yet-rendered binders and the doc. No anonymous binders here!K#Pretty-print a type-level equality.,See Note [Equality predicates in IfaceType].Kif printing coercions otherwiseK*visibility of the first binder in the list{!"#     $% '()*+,-./01&24356798:;<=>?@ABCDEFGHIJKLMNOPQRSTU{:'()*+,-./01      $%!"#&78923456@AFGHIJ<LONPMQRSTU=>?KCEDB; !"#     $%  '()*+,-./01KKKK234789xNone s+Deterministic Type or Coercion Variable SettDeterministic Type Variable SetuDeterministic Identifier SetvDeterministic Variable SetwType or Coercion Variable SetxCoercion Variable SetyType Variable SetzIdentifier Set{ A non-deterministic Variable Set<A non-deterministic set of variables. See Note [Deterministic UniqFM] in UniqDFM for explanation why it's not deterministic and why it matters. Use DVarSet if the set eventually gets converted into a list or folded over in a way where the order changes the generated code, for example when abstracting variables.5map the function over the list, and union the resultsDetermines the pluralisation suffix appropriate for the length of a set in the same way that plural from Outputable does for lists.Pretty-print a non-deterministic set. The order of variables is non-deterministic and for pretty-printing that shouldn't be a problem. Having this function helps contain the non-determinism created with nonDetEltsUFM. Passing a list to the pretty-printing function allows the caller to decide on the order of Vars (eg. toposort them) without them having to use nonDetEltsUFM at the call site. This prevents from let-binding non-deterministically ordered lists and reusing them where determinism matters.5Map the function over the list, and union the resultsTrue if empty intersectionTrue if non-empty intersection2Partition DVarSet according to the predicate given'Delete a list of variables from DVarSet"Add a list of variables to DVarSetAConvert a DVarSet to a VarSet by forgeting the order of insertiontransCloVarSet for DVarSetThe things to be pretty printed4The pretty printing function to use on the elements+ where the things have been pretty printedEstuvwxyz{|}~E{zyxw|}~vutsyNone @'Deterministic Type Variable Environment$Deterministic Identifier Environment"Deterministic Variable EnvironmentCoercion Variable Environment%Type or Coercion Variable EnvironmentType Variable EnvironmentIdentifier EnvironmentVariable EnvironmentTidy EnvironmentKWhen tidying up print names, we keep a mapping of in-scope occ-names (the F+) and a Var-to-Var of the current renamingsRename Environment 2When we are comparing (or matching) types or terms, we are faced with "going under" corresponding binders. E.g. when comparing: \x. e1 ~ \y. e2Basically we want to rename [x -> y] or [y -> xH], but there are lots of things we must be careful of. In particular, x might be free in e2 , or y in e1[. So the idea is that we come up with a fresh binder that is free in neither, and rename x and y, respectively. That means we must maintain: 'A renaming for the left-hand expression)A renaming for the right-hand expressionsAn in-scope setVFurthermore, when matching, we want to be able to have an 'occurs check', to prevent: \x. f ~ \y. ymatching with [f -> y]. So for each expression we want to know that set of locally-bound variables. That is precisely the domain of the mappings 1. and 2., but we must ensure that we always extend the mappings as we go in.-All of this information is bundled up in the A set of variables that are in scope at some point "Secrets of the Glasgow Haskell Compiler inliner" Section 3.2 provides the motivation for this abstraction.Look up a variable the N. This lets you map from the variable's identity (unique) to its full value.uniqAway in_scope vK finds a unique that is not used in the in-scope set, and gives that to v.Retrieve the left mappingRetrieve the right mappingApplies E to several variables: the two variable lists must be of equal lengthrnBndr2 env bL bR goes under a binder bL5 in the Left term, and binder bR, in the Right term. It finds a new binder, new_b&, and returns an environment mapping  bL -> new_b and  bR -> new_b Similar to = but returns the new variable as well as the new environment Similar to 7 but used when there's a binder on the left side only. Similar to 8 but used when there's a binder on the right side only. Similar to 5 but used for eta expansion See Note [Eta expansion] Similar to 5 but used for eta expansion See Note [Eta expansion]?Look up the renaming of an occurrence in the left or right term?Look up the renaming of an occurrence in the left or right term?Look up the renaming of an occurrence in the left or right term?Look up the renaming of an occurrence in the left or right term)Tells whether a variable is locally bound)Tells whether a variable is locally bound$Wipe the left or right side renaming$Wipe the left or right side renaming"swap the meaning of left and rightm      !"#$m      #!"$KKKKK{None /.Predicate on possible free variables: returns True! iff the variable is interesting0Run a free variable computation, returning a list of distinct free variables in deterministic order and a non-deterministic set containing those variables.1eRun a free variable computation, returning a list of distinct free variables in deterministic order.2Run a free variable computation, returning a deterministic set of free variables. Note that this is just a wrapper around the version that returns a deterministic list. If you need a list you should use 1.3Run a free variable computation, returning a non-deterministic set of free variables. Don't use if the set will be later converted to a list and the order of that list will impact the generated code.4tAdd a variable - when free, to the returned free variables. Ignores duplicates and respects the filtering function.5Return no free variables.6%Union two free variable computations.75Mark the variable as not free by putting it in scope.8%Mark many free variables as not free.9#Filter a free variable computation.:BMap a free variable computation over a list and union the results.;&Union many free variable computations.<|Add multiple variables - when free, to the returned free variables. Ignores duplicates and respects the filtering function../0123456789:;<./013245<6;789:None1^]A collection of s0The key type representing kinds in the compiler.A type of the form p of kind  Constraint9 represents a value whose type is the Haskell predicate p/, where a predicate is what occurs before the => in a Haskell type.We use K as documentation to mark those types that we guarantee to have this kind.0It can be expanded into its representation, but:(The type checker must treat it as opaque1The rest of the compiler treats it as transparentConsider these examples: ]f :: (Eq a) => a -> Int g :: (?x :: Int -> Int) => a -> Int h :: (r\l) => {r} => {l::Int | r} Here the Eq a and ?x :: Int -> Int and rl are all called "predicates"A D represents an argument to a function. TyBinders can be dependent (K) or nondependent (K9). They may also be visible or not. See Note [TyBinders]Type & coercion substitutiontcvsubst_invariant* The following invariants must hold of a : The in-scope set is needed only* to guide the generation of fresh uniquesIn particular, the kind; of the type variables in the in-scope set is not relevantqThe substitution is only applied ONCE! This is because in general such application will not reach a fixed point.OFor simplicity, we have just one UnivCo that represents a coercion from some type to some other type, with (in general) no restrictions on the type. The UnivCoProvenance specifies more exactly what the coercion really is and why a program should (or shouldn't!) trust the coercion. It is reasonable to consider each constructor of  as a totally independent coercion form; their only commonality is that they don't tell you what types they coercion between. (That info is in the K constructor of .A C is concrete evidence of the equality/convertibility of two types._A global typecheckable-thing, essentially anything that has a name. Not to be confused with a  TcTyThingH, which is also a typecheckable thing but in the *local* context. See TcEnv for how to retrieve a  given a .=A substitution of s for s>A substitution of s for s and s for s@IA coercion to be filled in by the type-checker. See Note [Coercion holes]Kused only for debuggingKFrom  unsafeCoerce#. These are unsound.K>See Note [Phantom coercions]. Only in Phantom roled coercionsKFrom the fact that any two coercions are considered equivalent. See Note [ProofIrrelProv]. Can be used in Nominal or Representational coercionsKeFrom a plugin, which asserts that this coercion is sound. The string is for the use of the plugin.KSee Note [Coercion holes]K;Vanilla type or kind variable (*never* a coercion variable)K+Type application to something other than a M . Parameters:1) Function: must not be a K, must be another K, or K2) Argument typeKApplication of a M, including newtypes and1 synonyms. Invariant: saturated applications of FunTyCon must use KC and saturated synonyms must use their own constructors. However,  unsaturated FunTyCons do appear as Ks. Parameters:%1) Type constructor being applied to.2) Type arguments. Might not have enough type arguments here to saturate the constructor. Even type synonyms are not necessarily saturated; for example unsaturated type synonyms can appear as the right hand side of a type synonym.K A  type.K4t1 -> t2 Very common, so an important special caseK/Type literals are similar to type constructors.KA kind cast. The coercion is always nominal. INVARIANT: The cast is never refl. INVARIANT: The cast is "pushed down" as far as it can go. See Note [Pushing down casts]KInjection of a Coercion into a type This should only ever be used in the RHS of an AppTy, in the list of a TyConApp, when applying a promoted GADT data constructorD3The key representation of types within the compilerKIRemove the binder's variable from the set, if the binder has a variable.L,Does this binder bind an invisible argument?M)Does this binder bind a visible argument?PMake an arrow typeQMake nested arrow typesS/Wraps foralls over the type using the provided s from left to rightViDoes this type classify a core (unlifted) Coercion? At either role nominal or representational (t1 ~ t2) or (t1 ~R t2)WZCreate the plain type constructor type which has been applied to no type arguments at all.XThis version considers Constraint to be distinct from *. Returns True if the argument is equivalent to Type and False otherwise.YReturns True if the kind classifies unlifted types and False otherwise. Note that this returns False for levity-polymorphic kinds, which may be specialized to a kind that classifies unlifted types.ZIs this the type 2?[3Is this a type of kind RuntimeRep? (e.g. LiftedRep)\Is a tyvar of type 2?]+Drops prefix of RuntimeRep constructors in KVs. Useful for e.g. dropping 'LiftedRep arguments of unboxed tuple TyCon applications:LdropRuntimeRepArgs [ 'LiftedRep, 'IntRep , String, Int ] == [String, Int]^rReturns free variables of a type, including kind variables as a non-deterministic set. For type synonyms it does not expand the synonym._ tyVarsOfType] that returns free variables of a type in a deterministic set. For explanation of why using {9 is not deterministic see Note [Deterministic FV] in FV.` tyVarsOfType] that returns free variables of a type in deterministic order. For explanation of why using {9 is not deterministic see Note [Deterministic FV] in FV.aThe worker for  tyVarsOfType and tyVarsOfTypeList$. The previous implementation used  which is O(n+m) and can make the function quadratic. It's exported, so that it can be composed with other functions that compute free variables. See Note [FV naming conventions] in FV.nEta-expanded because that makes it run faster (apparently) See Note [FV eta expansion] in FV for explanation.cqReturns free variables of types, including kind variables as a non-deterministic set. For type synonyms it does not expand the synonym.KqReturns free variables of types, including kind variables as a non-deterministic set. For type synonyms it does not expand the synonym.dmReturns free variables of types, including kind variables as a deterministic set. For type synonyms it does not expand the synonym.ezReturns free variables of types, including kind variables as a deterministically ordered list. For type synonyms it does not expand the synonym.h6Get a deterministic set of the vars free in a coercionojAdd the kind variables free in the kinds of the tyvars in the given set. Returns a non-deterministic set.KGiven a list of tyvars returns a deterministic FV computation that returns the given tyvars with the kind variables free in the kinds of the given tyvars.psAdd the kind variables free in the kinds of the tyvars in the given set. Returns a deterministically ordered list.qfAdd the kind variables free in the kinds of the tyvars in the given set. Returns a deterministic set.rReturns True if this type has no free variables. Should be the same as isEmptyVarSet . tyCoVarsOfType, but faster in the non-forall case.KReturns True if this coercion has no free variables. Should be the same as isEmptyVarSet . tyCoVarsOfCo, but faster in the non-forall case.KReturns True if this UnivCoProv has no free variables. Should be the same as isEmptyVarSet . tyCoVarsOfProv, but faster in the non-forall case.u(compose env1 env2)(x) is  env1(env2(x)) ; i.e. apply env2 then env14. It assumes that both are idempotent. Typically, env1* is the refinement to a base substitution env2vbComposes two substitutions, applying the second one provided first, like in function composition.{@Make a TCvSubst with specified tyvar subst and empty covar substcReturns the free variables of the types in the range of a substitution as a non-deterministic set.K]Generates an in-scope set from the free variables in a list of types and a list of coercions#Generates the in-scope set for the @ from the types in the incoming environment. No CoVars, please!K#Generates the in-scope set for the A from the types in the incoming environment. No TyVars, please!#Generates the in-scope set for the @ from the types in the incoming environment. No CoVars, please!Type substitution, see Type substitution, see  . Disables sanity checks. The problems that the sanity checks in substTy catch are described in Note [The substitution invariant]. The goal of #11371 is to migrate all the calls of substTyUnchecked to substTy and remove this function. Please don't use in new code..Substitute tyvars within a type using a known . Pre-condition: the in_scopeh set should satisfy Note [The substitution invariant]; specifically it should include the free vars of tys , and of ty minus the domain of the subst.Coercion substitution, see Coercion substitution, see  . Disables sanity checks. The problems that the sanity checks in substCo catch are described in Note [The substitution invariant]. The goal of #11371 is to migrate all the calls of substCoUnchecked to substCo and remove this function. Please don't use in new code.Substitute covars within a typeType substitution, see KType substitution, see Substitute within a  after adding the free variables of the type to the in-scope set. This is useful for the case when the free variables aren't already in the in-scope set or easily available. See also Note [The substitution invariant].L When calling  it should be the case that the in-scope set in the substitution is a superset of the free vars of the range of the substitution. See also Note [The substitution invariant].L`This checks if the substitution satisfies the invariant from Note [The substitution invariant].Substitute within a a The substitution has to satisfy the invariants described in Note [The substitution invariant].Substitute within a  disabling the sanity checks. The problems that the sanity checks in substTy catch are described in Note [The substitution invariant]. The goal of #11371 is to migrate all the calls of substTyUnchecked to substTy and remove this function. Please don't use in new code.Substitute within several bs The substitution has to satisfy the invariants described in Note [The substitution invariant].Substitute within several s disabling the sanity checks. The problems that the sanity checks in substTys catch are described in Note [The substitution invariant]. The goal of #11371 is to migrate all the calls of substTysUnchecked to substTys and remove this function. Please don't use in new code.Substitute within a a The substitution has to satisfy the invariants described in Note [The substitution invariant].Substitute within a  disabling the sanity checks. The problems that the sanity checks in substTys catch are described in Note [The substitution invariant]. The goal of #11371 is to migrate all the calls of substThetaUnchecked to substTheta and remove this function. Please don't use in new code.Substitute within a a The substitution has to satisfy the invariants described in Note [The substitution invariant].Substitute within a  disabling sanity checks. The problems that the sanity checks in substCo catch are described in Note [The substitution invariant]. The goal of #11371 is to migrate all the calls of substCoUnchecked to substCo and remove this function. Please don't use in new code.Substitute within several bs The substitution has to satisfy the invariants described in Note [The substitution invariant].LLike L, but disables sanity checks. The problems that the sanity checks in substCo catch are described in Note [The substitution invariant]. The goal of #11371 is to migrate all the calls of substCoUnchecked to substCo and remove this function. Please don't use in new code.LLike  but disables sanity checks. The problems that the sanity checks in substTy catch are described in Note [The substitution invariant]. The goal of #11371 is to migrate all the calls of substTyUnchecked to substTy and remove this function. Please don't use in new code.LWSubstitute a tyvar in a binding position, returning an extended subst and a new tyvar.;Print a user-level forall; see Note [When to print foralls]QThis tidies up a type for printing in an error message, or in an interface file.;It doesn't change the uniques at all, just the print names. Add the free Is to the env in tidy form, so that we can tidy the type they are free in Treat a new t as a binder, and give it a fresh tidy name using the environment if one has not already been allocated. See also :Grabs the free type variables, tidies them and then uses  to work over the type itselfCalls = on a top-level type (i.e. with an empty tidying environment)Lthe subst functionKKLLL?KKKKKL L L L L LLKLLLLLLLLLEFGHKKKKKKKK =>@LKLLABCDIJKKLMNOPQRSTUVWXYZ[\]^_`abcdefghLiLjklmnLoKpqrKstuvwxyz{|}~LL KKKLLLL!LL"L#L$L%KKLLL?KKKKKL L L L L LLKLLLLLLLLLEFGHKKKKKKKK@LKLP3|None#The (->) type constructor. ^(->) :: forall (rep1 :: RuntimeRep) (rep2 :: RuntimeRep). TYPE rep1 -> TYPE rep2 -> * GGiven a RuntimeRep, applies TYPE to it. see Note [TYPE and RuntimeRep] Convert a  to a > of kind RuntimeRep Defined here to avoid (more) module loops      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu      !"#$%&'()*+,-./0123546798:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu1Noneљy:Does the given type "end" in the given tycon? For example  k -> [a] -> * ends in * and Maybe a -> [a] ends in [].{5Tests whether the given kind (which should look like TYPE xT) is something other than a constructor tree (that is, constructors at every node).~vDoes this classify a type allowed to have values? Responds True to things like *, #, TYPE Lifted, TYPE v, Constraint.$True of any sub-kind of OpenTypeKindIs this kind equivalent to *?Is this kind equivalent to *? Is the tycon  Constraint?XYvwxyz{|}~XYwxyzv|}~{0None<mxAttempts to tease a type apart into a type constructor and the application of a number of arguments to that constructor+Get the free vars of a type in scoped order*Get the free vars of types in scoped orderHGives the typechecker view of a type. This unwraps synonyms but leaves  Constraint alone. c.f. coreView, which turns Constraint into TYPE LiftedRep. Returns Nothing if no unwrapping happens. See also Note [coreView vs tcView] in Type.This function Strips off the top layer only of a type synonym application (if any) its underlying representation type. Returns Nothing if there is nothing to look through. This function considers  Constraint to be a synonym of TYPE LiftedRep.By being non-recursive and inlined, this case analysis gets efficiently joined onto the case analysis that the caller is already doingGiven a tycon and a list of things (which correspond to arguments), partitions the things into Inferred or Specified ones and Required ones The callback function is necessary for this scenario: LT :: forall k. k -> k partitionInvisibles T [forall m. m -> m -> m, S, R, Q]After substituting, we get MT (forall m. m -> m -> m) :: (forall m. m -> m -> m) -> forall n. n -> n -> n'Thus, the first argument is invisible, S is visible, R is invisible again, and Q is visible.If you're absolutely sure that your tycon's kind doesn't end in a variable, it's OK if the callback function panics, as that's the only time it's consulted.5Type equality on source types. Does not look through newtypes or s, but it does look through type synonyms. This first checks that the kinds of the types are equal and then checks whether the types are equal, ignoring casts and coercions. (The kind check is a recursive call, but since all kinds have type Typeo, there is no need to check the types of kinds.) See also Note [Non-trivial definitional equality] in TyCoRep.Make a K. The Coercion must be nominal. Checks the Coercion for reflexivity, dropping it if it's reflexive. See Note [No reflexive casts in types]&Applies a type to another, as in e.g. k aCIs the type suitable to classify a given/wanted in the typechecker?L&!An ordering relation between two s (known below as t1 :: k1 and t2 :: k2)L' t1 < t2L(t1 ~ t2> and there are no casts in either, therefore we can conclude k1 ~ k2L)t1 ~ t2B yet one of the types contains a cast so they may differ in kind.L* t1 > t2>A choice of equality relation. This is separate from the type  because 3 does not define a (non-trivial) equality relation.GThis describes how a "map" operation over a type/coercion should behave8Should the new type be created with smart constructors?FWhat to do with coercion holes. See Note [Coercion holes] in TyCoRep..The returned env is used in the extended scopeExpand out all type synonyms. Actually, it'd suffice to expand out just the ones that discard type variables (e.g. type Funny a = Int) But we don't know which those are currently, so we just expand all.u only expands out type synonyms mentioned in the type, not in the kinds of any TyCon or TyVar mentioned in the type.Keep this synchronized with synonymTyConsOfType2Attempts to obtain the type variable underlying a S, and panics with the given message if this is not a type variable type. See also 2Attempts to obtain the type variable underlying a |If the type is a tyvar, possibly under a cast, returns it, along with the coercion. Thus, the co is :: kind tv ~R kind type2Attempts to obtain the type variable underlying a , without any expansionAttempt to take a type application apart, whether it is a function, type constructor, or plain type application. Note that type family applications are NEVER unsaturated by this!Does the AppTy split as in 7, but assumes that any Core view stuff is already doneDoes the AppTy split as in tcSplitAppTy_maybeX, but assumes that any coreView stuff is already done. Refuses to look through (c => t)|Split a type constructor application into its type constructor and applied types. Note that this may fail in the case of a K# with an argument of unknown kind K (e.g. FunTy (a :: k) Int. since the kind of a isn't of the form TYPE repL). Consequently, you may need to zonk your type before using this function.If you only need the M, consider using tcTyConAppTyCon_maybe.Like ( but doesn't look through type synonyms.1Attempts to take a type application apart, as in %, and panics if this is not possibleRecursively splits a type as far as is possible, leaving a residual type being applied to and the type arguments applied to it. Never fails, even if that means returning an empty list of type applications.Like (, but doesn't look through type synonyms>Is this a numeric literal. We also look through type synonyms.=Is this a symbol literal. We also look through type synonyms.QIs this type a custom user error? If so, give us the kind and the error message.=Render a type corresponding to a user type error into a SDoc.mAttempts to extract the argument and result types from a type, and panics if that is not possible. See also =Attempts to extract the argument and result types from a typeBExtract the function result type and panic if that is not possibleDExtract the function argument type and panic if that is not possibleL+ Just like / but for a single argument Try not to iterate [, because it's inefficient to substitute one variable at a time; instead use 'piResultTys"W(piResultTys f_ty [ty1, .., tyn]) gives the type of (f ty1 .. tyn) where f :: f_ty " is interesting because: 1. f_ty4 may have more for-alls than there are args 2. Less obviously, it may have fewer for-alls For case 2. think of: piResultTys (forall a.a) [forall b.b, Int] This really can happen, but only (I think) in situations involving undefined. For example: undefined :: forall a. a Term: undefined (forall b. b->b) hInt This term should have type (Int -> Int), but notice that there are more type args than foralls in L,s type.A key function: builds a K or K` as appropriate to its arguments. Applies its arguments to the constructor from left to right.<Retrieve the tycon heading this type, if there is one. Does not look through synonyms. The same as fst . splitTyConApp The same as snd . splitTyConAppAttempts to tease a type apart into a type constructor and the application of a number of arguments to that constructor. Panics if that is not possible. See also Like ], but doesn't look through synonyms. This assumes the synonyms have already been dealt with.sAttempts to tease a list type apart and gives the type of the elements if successful (looks through type synonyms)UWhat is the role assigned to the next parameter of this type? Usually, this will be , but if the type is a Kj, we may be able to do better. The type does *not* have to be well-kinded when applied for this to work! Unwrap one layerZ of newtype on a type constructor and its arguments, using an eta-reduced version of the newtype2 if possible. This requires tys to have at least newTyConInstArity tycon elements.LMake a dependent forall over an Inferred (as opposed to Specified) variableVLike mkForAllTys, but assumes all variables are dependent and Inferred, a common caseWLike mkForAllTys, but assumes all variables are dependent and specified, a common caseELike mkForAllTys, but assumes all variables are dependent and visibleMakes a (->) type or an implicit forall type, depending on whether it is given a type variable or a term variable. This is used, for example, when producing the type of a lambda. Always uses Inferred binders.% for multiple type or value argumentsGiven a list of type-level vars and a result type, makes TyBinders, preferring anonymous binders if the variable is, in fact, not dependent. All binders are visible.Take a ForAllTy apart, returning the list of tyvars and the result type. This always succeeds, even if it returns only an empty list. Note that the result type returned may have free variables that were bound by a forall.Like  but split off only named binders.<Checks whether this is a proper forall (with a named binder)Is this a function or forall?<Take a forall type apart, or panics if that is not possible.Drops all ForAllTys\Attempts to take a forall type apart, but only if it's a proper forall, with a named binderNAttempts to take a forall type apart; works with proper foralls and functions$Takes a forall type apart, or panicsOSplit off all TyBinders to a type, splitting both proper foralls and functionsDGiven a tycon and its arguments, filters out any invisible argumentsLike filterOutInvisibles, but works on sMake a named binderMake many named bindersMake an anonymous binder)Does this binder bind a variable that is not erased? Returns J  for anonymous binders.)Extract a relevant type, if there is one.Like J/, but for binders.Manufacture a new P from a  . Anonymous s are still assigned names as P8s, so we need the extra gunk with which to construct a Nameg. Used when producing tyConTyVars from a datatype kind signature. Defined here to avoid module loops.3Makes a lifted equality predicate at the given roleTCreates a primitive type equality predicate. Invariant: the types are not Coercions=Creates a primite type equality predicate with explicit kindsQCreates a primitive representational type equality predicate with explicit kinds>Try to split up a coercion type into the types that it coerces3Get the equality relation relevant for a pred type.Do a topological sort on a list of tyvars, so that binders occur before occurrences E.g. given [ a::k, k::*, b::k ] it'll return a well-scoped list [ k::*, a::k, b::k ]PThis is a deterministic sorting operation (that is, doesn't depend on Uniques).uExtract a well-scoped list of variables from a deterministic set of variables. The result is deterministic. NB: There used to exist varSetElemsWellScoped :: VarSet -> [Var] which took a non-deterministic set and produced a non-deterministic well-scoped list. If you care about the list being well-scoped you also most likely care about it being in deterministic order.]Given a family instance TyCon and its arg types, return the corresponding family type. E.g: 1data family T a data instance T (Maybe b) = MkT b%Where the instance tycon is :RTL, so: +mkFamilyTyConApp :RTL Int = T (Maybe Int)NGet the type on the LHS of a coercion induced by a type/data family instance.Pretty prints a MM, using the family instance in case of a representation tycon. For example: data T [a] = ...In that case we want to print T [a], where T is the family MReturns Just True if this type is surely lifted, Just False if it is surely unlifted, Nothing if we can't be sure (i.e., it is levity polymorphic), and panics if the kind does not have the shape TYPE r.See Type#type_classificationC for what an unlifted type is. Panics on levity polymorphic types.<Extract the RuntimeRep classifier of a type. For instance, #getRuntimeRep_maybe Int = LiftedRep . Returns J% if this is not possible.<Extract the RuntimeRep classifier of a type. For instance, #getRuntimeRep_maybe Int = LiftedRep!. Panics if this is not possible.IExtract the RuntimeRep classifier of a type from its kind. For example, #getRuntimeRepFromKind * = LiftedRep!; Panics if this is not possible.IExtract the RuntimeRep classifier of a type from its kind. For example, #getRuntimeRepFromKind * = LiftedRep ; Returns J% if this is not possible.See Type#type_classification; for what an algebraic type is. Should only be applied to types;, as opposed to e.g. partially saturated type constructorsSee Type#type_classification; for what an algebraic type is. Should only be applied to types, as opposed to e.g. partially saturated type constructors. Closed type constructors are those with a fixed right hand side, as opposed to e.g. associated types*Check whether a type is a data family type Computes whether an argument (or let right hand side) should be computed strictly or lazily, based only on its type. Currently, it's just %. Panics on levity-polymorphic types. 1Returns true of types that are opaque to Haskell. Determine whether a type could be the type of a join point of given total arity, according to the polymorphism rule. A join point cannot be polymorphic in its return type, since given join j a b x y z = e1 in e2, the types of e1 and e2 must be the same, and a and b are not in scope for e2. (See Note [The polymorphism rule of join points] in CoreSyn.) Returns False also if the type simply doesn't have enough arguments.Note that we need to know how many arguments (type *and* value) the putative join point takes; for instance, if j :: forall a. a -> Int then j could be a binary join point returning an Int, but it could *not* be a unary join point returning a -> Int.4TODO: See Note [Excess polymorphism and join points]7Compare types with respect to a (presumably) non-empty .QType equality on lists of types, looking through type synonyms but not newtypes. Compare two Ms. NB: This should never see the "star synonyms", as recognized by Kind.isStarKindSynonymTyCon. See Note [Kind Constraint and kind *] in Kind. See Note [nonDetCmpType nondeterminism]Returns True if a type is levity polymorphic. Should be the same as (isKindLevPoly . typeKind) but much faster. Precondition: The type has kind (TYPE blah)Looking past all pi-types, is the end result potentially levity polymorphic? Example: True for (forall r (a :: TYPE r). String -> a) Example: False for (forall r1 r2 (a :: TYPE r1) (b :: TYPE r2). a -> b -> Type)All type constructors occurring in the type; looking through type synonyms, but not newtypes. When it finds a Class, it returns the class TyCon.Find the result . of a type synonym, after applying it to its arityj number of type variables Actually this function works fine on data types too, but they'd always return L-, so we never need to askRetrieve the free variables in this type, splitting them based on whether they are used visibly or invisibly. Invisible ones come first.binder to scrutinize named caseanonymous case>?EFGH (>DIJLMNOPQRSTUVWZ[\]^_abclmoprsuvwxyz|~     >EFGHDNOPQWRSTUMLV   Z\[](ab^c_lmopr  >?swxz|~uvyJI L&L'L(L)L*oNone~/Pattern SynonymXSee Note [Pattern synonym representation] See Note [Pattern synonym signature contexts]0The  of the /+, giving it a unique, rooted identification3Arity of the pattern synonym%Build a new pattern synonym& Should the / be presented infix?)5Extract the type for any given labelled field of the DataCon1GPrint the type of a pattern synonym. The foralls are printed explicitly%&Is the pattern synonym declared infix?<Universially-quantified type variables and required dicts=Existentially-quantified type variables and provided dictsOriginal argumentsOriginal result typeName of matcherName of builder/Names of fields for a record pattern synonym/0123%&'()*+,-./01/%03&'-.*1+,20()/1/L.L/L0L1L2L3L4L5L6L7L8L9L:L;}None1 8 So-called 8 s are one of: An unboxed (machine ) literal (<, @O, etc.), which is presumed to be surrounded by appropriate constructors (Int#/, etc.), so that the overall thing makes sense.#We maintain the invariant that the L< the Mach{Int,Word}* constructors are actually in the (possibly target-dependent) range. The mkMach{Int,Word}*Wrap smart constructors ensure this by applying the target machine's wrapping semantics. Use these in situations where you know the wrapping semantics are correct.RThe literal derived from the label mentioned in a "foreign label" declaration (B)9Char#! - at least 31 bits. Create with N:rA string-literal: stored and emitted UTF-8 encoded, we'll arrange to decode it at runtime. Also emitted with a '\0' terminator. Create with O;The NULLU pointer, the only pointer value that can be represented as a Literal. Create with i<Int# - according to target machine=Int64# - exactly 64 bits>Word# - according to target machine?Word64# - exactly 64 bits@Float#. Create with LADouble#. Create with MBA label literal. Parameters:61) The name of the symbol mentioned in the declarationX2) The size (in bytes) of the arguments the label expects. Only applicable with stdcall labels. Just x => <x>; will be appended to label name when emitting assembly.D Creates a 8 of type Int#E Creates a 8 of type Int#K. If the argument is out of the (target-dependent) range, it is wrapped.F Creates a 8 of type Word#G Creates a 8 of type Word#K. If the argument is out of the (target-dependent) range, it is wrapped.H Creates a 8 of type Int64#I Creates a 8 of type Int64#8. If the argument is out of the range, it is wrapped.J Creates a 8 of type Word64#K Creates a 8 of type Word64#8. If the argument is out of the range, it is wrapped.L Creates a 8 of type Float#M Creates a 8 of type Double#N Creates a 8 of type Char#O Creates a 8 of type Addr#], which is appropriate for passing to e.g. some of the "error" functions in GHC.Err such as GHC.Err.runtimeErrorTBTests whether the literal represents a zero of whatever type it isU Returns the L< contained in the 8', for when that makes sense, i.e. for L=, L>, L? and C.V Returns the L< contained in the 8', for when that makes sense, i.e. for L=, L>, L? and C.WApply a function to the L< contained in the 8', for when that makes sense, e.g. for L=, L>, L? and Cu. For fixed-size integral literals, the result will be wrapped in accordance with the semantics of the target type.XIndicate if the 8 contains an L< value, e.g. L=, L>, L? and C.jaTrue if there is absolutely no penalty to duplicating the literal. False principally of strings."Why?", you say? I'm glad you asked. Well, for one duplicating strings would blow up code sizes. Not only this, it's also unsafe.Consider a program that wants to traverse a string. One way it might do this is to first compute the Addr# pointing to the end of the string, and then, starting from the beginning, bump a pointer using eqAddr# to determine the end. For instance, s-- Given pointers to the start and end of a string, count how many zeros -- the string contains. countZeros :: Addr -> AddrN -> -> Int countZeros start end = go start 0 where go off n | off  `addrEq#`- end = n | otherwise = go (off  `plusAddr#` 1) n' where n' | isTrue (indexInt8OffAddr off 0 ==L 0#) = n + 1 | otherwise = n qConsider what happens if we considered strings to be trivial (and therefore duplicable) and emitted a call like countZeros "hello" ("hello" plusAddr# 5). The beginning and end pointers do not belong to the same string, meaning that an iteration like the above would blow up terribly. This is what happened in #12757.Ultimately the solution here is to make primitive strings a bit more structured, ensuring that the compiler can't inline in ways that will break user code. One approach to this is described in #8472.kaTrue if code space does not go bad if we duplicate this literal Currently we treat it just like jnFind the Haskell  the literal occupies: 8:9;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnop:89:;<=>?@ABCDEFGHIJKLMNOPnopkjmQR STlUXVWYZ[\]^_`abcdefigh8 9:;<=>?@ABC2None<QV^:GIf it is the case that c :: (t1 ~ t2)i.e. the kind of c relates t1 and t2, then coercionKind c = Pair t1 t2.liftCoSubst role lc ty produces a coercion (at role role) that coerces between  lc_left(ty) and  lc_right(ty) , where lc_left] is a substitution mapping type variables to the left-hand types of the mapped coercions in lc, and similar for lc_right.ZMakes a coercion type from two types: the types whose equality is proven by the relevant mSlowly checks if the coercion is reflexive. Don't call this in a loop, as it walks over the entire coercion.Tests if this coercion is obviously reflexive. Guaranteed to work very quickly. Sometimes a coercion can be reflexive, but not obviously so. c.f. Make nested function s$Make a "coercion between coercions".Given co :: (a :: k) ~ (b :: k') produce  co' :: k ~ k'.Instantiates a . Create a new  by composing the two given s transitively. (co1 ; co2)(Create a symmetric version of the given _ that asserts equality between the same types but in the other "direction", so a kind of t1 ~ t2 becomes the kind t2 ~ t1.6Make a universal coercion between two arbitrary types.jManufacture an unsafe coercion from thin air. Currently (May 14) this is used only to implement the  unsafeCoerce#C primitive. Optimise by pushing down through type constructors.~Make a phantom coercion between two types. The coercion passed in must be a nominal coercion between the kinds of the types.Build a function  from two other s. That is, given  co1 :: a ~ b and  co2 :: x ~ y produce co :: (a -> x) ~ (b -> y).Make a Coercion from a tyvar, a kind coercion, and a body coercion. The kind of the tyvar should be the left-hand kind of the kind coercion.Apply a  to another . The second coercion must be Nominal, unless the first is Phantom. If the first is Phantom, then the second can be either Phantom or Nominal.Apply a type constructor to a list of coercions. It is the caller's responsibility to get the roles correct on argument coercions.x9The result of stepping in a normalisation function. See .yNothing more to doz2Utter failure. The outer function should fail too.{VWe stepped, yielding new bits; ^ ev is evidence; Usually a co :: old type ~ new type|DA function to check if we can reduce a type by one step. Used with .This breaks a  with type T A B C ~ T D E F into a list of  s of kinds A ~ D, B ~ E and E ~ F. Hence: -decomposeCo 3 c = [nth 0 c, nth 1 c, nth 2 c]2Attempts to obtain the type variable underlying a Attempts to tease a coercion apart into a type constructor and the application of a number of coercion arguments to that constructor-Attempt to take a coercion application apart.L@Given a coercion &co1 :: (a :: TYPE r1) ~ (b :: TYPE r2), produce a coercion rep_co :: r1 ~ r2.Returns the type coerced if this coercion is reflexive. Guaranteed to work very quickly. Sometimes a coercion can be reflexive, but not obviously so. c.f. Extracts the coerced type from a reflexive coercion. This potentially walks over the entire coercion, so avoid doing this in a loop.*Make a representational reflexive coercion!Make a nominal reflexive coercionApplies multiple  s to another  , from left to right. See also .Like , but allows the second coercion to be other than nominal. See Note [mkTransAppCo]. Role r3 cannot be more stringent than either r1 or r2.Make nested ForAllCosnMake a Coercion quantified over a type variable; the variable has the same type in both sides of the coercionLike 8, but doesn't check if the inner coercion is reflexive.Extract a covar, if possible. This check is dirty. Be ashamed of yourself. (It's dirty because it cares about the structure of a coercion, which is morally reprehensible.)[Return the left-hand type of the axiom, when the axiom is instantiated at the types given.5Instantiate the left-hand side of an unbranched axiom$Make a coercion from a coercion hole@A CoherenceCo c1 c2 applies the coercion c2 to the left-hand type in the kind of c1. This function uses sym to get the coercion on the right-hand type of c1. Thus, if c1 :: s ~ t, then mkCoherenceRightCo c1 c2 has the kind (s ~ (t |> c2)) down through type constructors. The second coercion must be representational._An explicitly directed synonym of mkCoherenceCo. The second coercion must be representational.LAIChanges a role, but only a downgrade. See Note [Role twiddling functions]Like LAR, but panics if the change isn't a downgrade. See Note [Role twiddling functions]wIf the EqRel is ReprEq, makes a SubCo; otherwise, does nothing. Note that the input coercion should always be nominal.TConverts a coercion to be nominal, if possible. See Note [Role twiddling functions];Make a phantom coercion between two types of the same kind.ylike mkKindCo, but aggressively & recursively optimizes to avoid using a KindCo constructor. The output role is nominal.LBsay g = promoteCoercion h. Then, instCoercion g w yields Just g' , where g' = promoteCoercion (h w)%. fails if this is not possible, if g coerces between a forall and an -> or if second parameter has a representational role and can't be used with an InstCo. The result role matches is representational.Creates a new coercion with both of its types casted by different casts castCoercionKind g h1 h2, where g :: t1 ~ t2, has type (t1 |> h1) ~ (t2 |> h2) The second and third coercions must be nominal.Make a forall W, where both types related by the coercion are quantified over the same type variable.If co :: T ts ~ rep_ty then: +instNewTyCon_maybe T ts = Just (rep_ty, co)-Checks for a newtype, and for being saturatedTry one stepper and then try the next, if the first doesn't make progress. So if it returns NS_Done, it means that both steppers are satisfiedA |d that unwraps newtypes, careful not to fall into a loop. If it would fall into a loop, it produces z.^A general function for normalising the top-level of a type. It continues to use the provided |i until that function fails, and then this function returns. The roles of the coercions produced by the |D must all be the same, which is the role returned from the call to .Typically ev is Coercion.jIf topNormaliseTypeX step plus ty = Just (ev, ty') then ty ~ev1~ t1 ~ev2~ t2 ... ~evn~ ty' and ev = ev1 plus ev2 plus ... plusC evn If it returns Nothing then no newtype unwrapping could happen$Sometimes we want to look through a newtype< and get its associated coercion. This function strips off newtype1 layers enough to reveal something that isn't a newtype&. Specifically, here's the invariant: 5topNormaliseNewType_maybe rec_nts ty = Just (co, ty') then (a) co : ty0 ~ ty'". (b) ty' is not a newtype.The function returns Nothing for non-newtypes, or unsaturated applications?This function does *not* look through type families, because it has no access to the type family environment. If you do have that at hand, consider to use topNormaliseType_maybe, which should be a drop-in replacement for topNormaliseNewType_maybe If topNormliseNewType_maybe ty = Just (co, ty'), then co : ty ~R ty'Syntactic equality of coercions Compare two s, with respect to an RnEnv2$Extend a lifting context with a new type mapping.LCExtend a lifting context with existential-variable bindings. This follows the lifting context extension definition in the "FC with Explicit Kind Equality" paper.+Erase the environments in a lifting contextLike L , but works on a lifting contextLDjThe "lifting" operation which substitutes coercions for type variables in a type to produce a coercion.For the inverse operation, see  liftCoMatch,Is a var in the domain of a lifting context?"Apply "sym" to all coercions in a v;Extract the underlying substitution from the LiftingContextGet the  from a Apply  to multiple saGet a coercion's kind and role. Why both at once? See Note [Computing a coercion kind and role]"Retrieve the role from a coercion.!role of the created coercion, "r":: phi1 ~N phi2 g1 :: phi1 g2 :: phi2 :: g1 ~r g2role of the built coercion, "r"t1 :: k1t2 :: k2 :: t1 ~r t2 :: t1 ~r t2%:: s1 ~N s2, where s1 :: k1, s2 :: k2:: t1 s1 ~r t2 s2 r1co1 :: ty1a ~r1 ty1bty1aty1br2co2 :: ty2a ~r2 ty2bty2aty2br3 :: ty1a ty2a ~r3 ty1b ty2bLA desired role current roleLBmust be nominal original LCnew variable to map......to this lifted versionLCoriginal lifting contextex. var / value pairsw=@ABCghijknt}vxyz{|}~ѢCBA@|xyz{}~gjnikh=t}vwwxyz{555~None3VtcMatchTy t1 t2) produces a substitution (over fvs(t1)) s such that s(t1) equals t2r. The returned substitution might bind coercion variables, if the variable is an argument to a GADT constructor.Precondition: typeKind ty1  typeKind ty2We don't pass in a set of "template variables" to be bound by the match, because tcMatchTy (and similar functions) are always used on top-level types, so we can bind any of the free variables of the LHS.Like N, but allows the kinds of the types to differ, and thus matches them as well.This is similar to , but extends a substitutionLike  but over a list of types.Like  but over a list of types.Like , but extending a substitutionLike , but extending a substitutionLE Worker for  and UThis one is called from the expression matcher, which already has a MatchEnv in handGiven a list of pairs of types, are any two members of a pair surely apart, even after arbitrary type function evaluation and substitution?kSimple unification of two types; all type variables are bindable Precondition: the kinds are already equalLike , but also unifies the kindsUnify two types, treating type family applications as possibly unifying with anything and looking through injective type family applications. Precondition: kinds are the sameLike  but also unifies the kindstcUnifyTysFG bind_tv tys1 tys2 attepts to find a substitution s% (whose domain elements all respond  to bind_tv ) such that s(tys1) and that of s(tys2) are equal, as witnessed by the returned Coercions. This version requires that the kinds of the types are the same, if you unify left-to-right.LFkThis function is actually the one to call the unifier -- a little too general for outside clients, though.LG(Converts any SurelyApart to a MaybeApart is sort of inverse to . In particular, if  liftCoMatch vars ty co == Just s, then listCoSubst s ty == co , where == there means that the result of  has the same type as the original co; but may be different under the hood. That is, it matches a type against a coercion of the same "shape", and returns a lifting substitution which could have been used to produce the given coercion from the given type. Note that this function is incomplete -- it might return Nothing when there does indeed exist a possible lifting context.HThis function is incomplete in that it doesn't respect the equality in V. That is, it's possible that this will succeed for t1 and fail for t2, even when t1  t2. That's because it depends on there being a very similar structure between the type and the coercion. This incompleteness shouldn't be all that surprising, especially because it depends on the structure of the coercion, which is a silly thing to do.The lifting context produced doesn't have to be exacting in the roles of the mappings. This is because any use of the lifting context will also require a desired role. Thus, this algorithm prefers mapping to nominal coercions where it can do so.LHLH does all the actual work for . Substitution to extendTemplateTargetTemplateTargetJOne-shot; in principle the template variables could be free in the targetTemplateTargetOne-shot substitutionSubstitution to extendTemplateTargetOne-shot substitutionSubstitution to extendTemplateTargetOne-shot substitutionLE match kinds?template variablestype substitution to extendTemplateTargetTrue  =" do two-way unification; False  =: do one-way matching. See end of sec 5.2 from the paper_A regular one-shot (idempotent) substitution that unifies the erased types. See comments for LFTrue  = unify; False  = matchTrue  = doing an injectivity checkTrue  = treat the kinds as wellsubstitution to extendLHambient helpful infoincoming substty, type to matchco, coercion to match against/:: kind of L type of substed ty ~N L kind of co/:: kind of R type of substed ty ~N R kind of coLILJLKLLLMLNLOLPLQLRLSLTLULVLWLXLYpNone1N?4An 4T is a tyvar/type pair representing an equality made in rejigging a GADT constructor5Data Constructor Representation6A data constructorj : j, j,j7The "full signature" of the 6 returns, in order:1) The result of  "2) The result of =3) The GADT equalities4) The result of dataConDictTheta&5) The original argument types to the 6? (i.e. before any change of the representation of the type)#6) The original result type of the 68The "stupid theta" of the 6 , such as  data Eq a in: data Eq a => T a = ...9Returns just the instantiated value argument types of a 6, (excluding dictionary args):-The labels for the fields of this particular 6;*Source-level arity of the data constructor<1s for the existentially-quantified type variables=>The existentially-quantified type variables of the constructor>/s for the universally-quantified type variables?CThe type constructor that we are building via this data constructor@The  of the 6+, giving it a unique, rooted identificationA/Filter out any TyBinders mentioned in an EqSpecSource Unpackedness$What unpackedness the user requested{- UNPACK  -} specified{- NOUNPACK  -} specified no unpack pragma Source Strictness)What strictness annotation the user wrote  Lazy, ie '~'  Strict, ie ! no strictness annotation Haskell Implementation BangiBangs of data constructor arguments as generated by the compiler after consulting HsSrcBang, flags, etc.  Lazy field Strict but not unpacked field ;Strict and unpacked field co :: arg-ty ~ product-ty HsBang Haskell Source BangOBangs on data constructor arguments as the user wrote them in the source code.(HsSrcBang _ SrcUnpack SrcLazy) and #(HsSrcBang _ SrcUnpack NoSrcStrict)c (without StrictData) makes no sense, we emit a warning (in checkValidDataCon) and treat it like !(HsSrcBang _ NoSrcUnpack SrcLazy)LZTag, used for ordering 6s Make an 4 Substitute in an 4{. Precondition: if the LHS of the EqSpec is mapped in the substitution, it is mapped to a type variable, not a full type. Compare strictness annotations Build a new data constructor The tag used for ordering 6s The original type constructor used in the definition of this data constructor. In case of a data family instance, that will be the family type constructor. wThe representation type of the data constructor, i.e. the sort type that will represent values of this type at runtime ! Should the 6 be presented infix? "<The universally-quantified type variables of the constructor #GBoth the universal and existentiatial type variables of the constructor $Equalities derived from the result type of the data constructor, as written by the programmer in any GADT declaration. This includes *all* GADT-like equalities, including those written in by hand by the programmer. %/The *full* constraints on the constructor type. &Get the Id of the 6 worker: a function that is the "actual" constructor and has no top level binding in the program. The type may be different from the obvious one written in the source program. Panics if there is no such  for this 6 'Get the Id of the 6q wrapper: a function that wraps the "actual" constructor so it has the type visible in the source program: c.f.  &. Returns Nothing if there is no wrapper, which occurs for an algebraic data constructor and also for a newtype (whose constructor is inlined compulsorily) (fReturns an Id which looks like the Haskell-source constructor by using the wrapper if it exists (see  '') and failing over to the worker (see  &) ) Find all the Vs implicitly brought into scope by the data constructor. Currently, the union of the  & and the  ( *5Extract the type for any given labelled field of the 6 +@Extract the label and type for any given labelled field of the 6 , or return J%# if the field does not belong to it ,Strictness/unpack annotations, from user; or, for imported DataCons, from the interface file The list is in one-to-one correspondence with the arity of the 6 -)Gives the number of actual fields in the representation of the data constructor. This may be more than appear in the source code; the extra ones are the existentially quantified dictionaries .5Return whether there are any argument types for this 62s original source type See Note [DataCon arities] /5Return whether there are any argument types for this 69s runtime representation type See Note [DataCon arities] 0RGive the demands on the arguments of a Core constructor application (Con dc args) 3The "signature" of the 6 returns, in order:1) The result of  #, 2) All the s relating to the 6: (coercion, dictionary, implicit parameter - whatever)(3) The type arguments to the constructor4) The original result type of the 6 4tInstantantiate the universal tyvars of a data con, returning the instantiated existentials, constraints, and args 6IThe user-declared type of the data constructor in the nice-to-read form:  T :: forall a b. a -> b -> T [a] rather than: 3T :: forall a c. forall b. (c~[a]) => a -> b -> T ctNB: If the constructor is part of a data instance, the result type mentions the family tycon, not the internal one. 7FFinds the instantiated types of the arguments required to construct a 6 representation NB: these INCLUDE any dictionary args but EXCLUDE the data-declaration context, which is discarded It's all post-flattening etc; this is a representation type 8~Returns the argument types of the wrapper, excluding all dictionary arguments and without substituting for any type variables 9Returns the arg types of the worker, including *all* evidence, after any flattening has been done and without substituting for any type variables : The string package:module.namet identifying a constructor, which is attached to its info table and used by the GHCi debugger and the heap profiler >Vanilla 68s are those that are nice boring Haskell 98 constructors ?eShould this DataCon be allowed in a type even without -XDataKinds? Currently, only Lifted & Unlifted @[Was this datacon promotable before GHC 8.0? That is, is it promotable without -XTypeInType AYWas this tycon promotable before GHC 8.0? That is, is it promotable without -XTypeInType EHExtract the type constructor, type argument, data constructor and it's representation4 argument types from a type if it is a product type.Precisely, we return Just for any type that is all of:$Concrete (i.e. constructors visible)Single-constructorNot existentially quantifiedWhether the type is a data type or a newtype "Is the constructor declared infix?#TyConRepName for the promoted TyCon(Strictness/unpack annotations, from userEField labels for the constructor, if it is a record, otherwise empty/Universals. See Note [TyVarBinders in DataCons]DExistentials. (These last two must be Named and Inferred/Specified)GADT equalities/Theta-type occuring before the arguments proper Original argument types Original result type See comments on 0 Representation type constructor :The "stupid theta", context of the data declaration e.g. data Eq a => T a ... Worker IdRepresentation 7A datacon with no existentials or equality constraints However, it can have a dcTheta (notably it can be a class dictionary, with superclasses)Instantiated at these types EA product type, perhaps F!Kind variables and type variables Stupid thetaTrue  = was declared in GADT syntax Gresult kindehiljkmo45    6789:;<=>?@A                       ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F Ge65            4      Ahijklmo  F G 3 47@ : ?  6 ">=< # $ %8 7 8 59 9: * + ,; - ! & ( ' ) 0 1 2 E . / ; < = > B C      ? @ A D4L[5    6L\L]L^LZL_L`LaLbLcLdLeLfLgLhLiLjLkLlLmLnLoLp          None<ju fGets rid of the stuff that prevents us from understanding the runtime representation of a type. Including: 1. Casts 2. Newtypes 3. Foralls 4. Synonyms But not type/data families, because we don't have the envs to hand. i True if the type has zero width. j^Given the arguments of a sum type constructor application, return the unboxed sum rep type.E.g.( Int | Maybe Int | ( Int, Float ) #)~We call `ubxSumRepType [ [IntRep], [LiftedRep], [IntRep, FloatRep] ]`, which returns [WordSlot, PtrSlot, WordSlot, FloatSlot]wINVARIANT: Result slots are sorted (via Ord SlotTy), except that at the head of the list we have the slot for the tag.LqAReturns the bigger type if one fits into the other. (commutative) o,Discovers the primitive representation of a . Returns a list of m: it's a list because of the possibility of no runtime representation (void) or multiple (unboxed tuple/sum) pLike  o*, but assumes that there is precisely one 5 output; an empty list of PrimReps becomes a VoidRep q%Find the runtime representation of a MW. Defined here to avoid module loops. Returns a list of the register shapes necessary. rLike  q3, but assumed that there is precisely zero or one  outputLrTake a kind (of shape TYPE rr) and produce the #s of values of types of this kind. s7Take a type of kind RuntimeRep and extract the list of  that it encodes. tConvert a PrimRep back to a Type. Used only in the unariser to give types to fresh Ids. Really, only the type's representation matters.%  \ ^ ] _ ` a b c d e f g h i j k l m n o p q r s t% b c d f i o p s e t g h q r j k l \ ] ^ _ ` a n m \ ] ^ _ ` aNone"#;=nz BRemove all 1* information (but not C1 information) from the demand SRemove all 1* information (but not C1 information) from the strictness signaturev x y z { | } ~  v { | z }  ~ x y LsLtLuLvLw x y { | ~LxLyLzL{L|L}L~  LLLLL  LLLLLL LLLLLLLLqNone BA constructor-like thing!Number of arguments!"Names of fields used for selectors!Returns just the instantiated value argument types of a B, (excluding dictionary args)!'Existentially quantified type variables!The "stupid theta" of the B , such as  data Eq a in: data Eq a => T a = ...It is empty for D$ as they do not allow such contexts.! Returns the  of the wrapper. This is also known as the builder in some contexts. The value is Nothing only in the case of unidirectional pattern synonyms.!7Returns the strictness information for each constructor!%Returns the type of the whole pattern! The "full signature" of the B returns, in order:,1) The universally quantified type variables.2) The existentially quantified type variables3) The equality specification;4) The provided theta (the constraints provided by a match)<5) The required theta (the constraints required for a match)]6) The original argument types (i.e. before any change of the representation of the type)7) The original result type!!5Extract the type for any given labelled field of the B!"-The ConLikes that have *all* the given fieldsBCDE!!!!!!!!! !!!"!#BCD!!!!E!!!! !!!!"!#BCDNone$1<H}!*A clone of the !0 type but allowing annotation at every tree node!-A clone of the !0 type but allowing annotation at every tree node!.A clone of the !0 type but allowing annotation at every tree node!9;Annotated core: allows annotation at every node in the tree!> Binders are tagged with a t!@$Case alternatives where binders are !Ds!A!Binding groups where binders are !Ds!B'Argument expressions where binders are !Ds!CExpressions where binders are !Ds!DlThe common case for the type of binders and variables when we are manipulating the Core language within GHC!F!F& says when unfolding should take place!T Records the  unfolding of an identifier, which is approximately the form the identifier would have if we substituted its definition in for the identifier. This type should be treated as abstract everywhere except in  CoreUnfold!U+We have no information about the unfolding.!V:We have no information about the unfolding, because this  came from an hi-bootT file. See Note [Inlining and hs-boot files] in ToIface for what this is used for.!W%It ain't one of these constructors.  OtherCon xsd also indicates that something has been evaluated and hence there's no point in re-evaluating it.  OtherCon []N is used even for non-data-type values to indicated evaluated-ness. Notably: 1data C = C !(Int -> Int) case x of { C f -> ... }Here, f gets an  OtherCon [] unfolding.!Y;An unfolding with redundant cached information. Parameters:uf_tmpl: Template used to perform unfolding; NB: Occurrence info is guaranteed correct: see Note [OccInfo in unfoldings and rules]'uf_is_top: Is this a top level binding? uf_is_value:  exprIsHNF* template (cached); it is ok to discard a L on this variableuf_is_work_free: Does this waste only a little work if we expand it inside an inlining? Basically this is a cached version of exprIsWorkFree!uf_guidance: Tells us about the size of the unfolding template!nA !n is:]"Local" if the function it is a rule for is defined in the same module as the rule itself.R"Orphan" if nothing on the LHS is defined in the same module as the rule itself!pBuilt-in rules are used for constant folding and suchlike. They have no free variables. A built-in rule is always visible (there is no such thing as an orphan built-in rule.)!q1Name of the rule, for communication with the user!rWhen the rule is active!s Name of the  at the head of this rule!t7Name at the head of each argument to the left hand side!uVariables quantified over!vLeft hand side arguments!wnRight hand side of the rule Occurrence info is guaranteed correct See Note [OccInfo in unfoldings and rules]!xTrue  =U this rule is auto-generated (notably by Specialise or SpecConstr) False  =o generated at the user's behest See Note [Trimming auto-rules] in TidyPgm for the sole purpose of this field.!yDH the rule was defined in, used to test if we should see an orphan rule.!z%Whether or not the rule is an orphan.!{Trueg iff the fn at the head of the rule is defined in the same module as the rule and is not an implicit [ (like a record selector, class operation, or data constructor). This is different from !zx, where a rule can avoid being an orphan if *any* Name in LHS of the rule was defined in the same module as the rule.!|Number of arguments that !}1 consumes, if it fires, including type arguments!}eThis function does the rewrite. It given too many arguments, it simply discards them; the returned !C is just the rewrite of !s applied to the first !| args!~?A full rule environment which we can apply rules from. Like a !, but it also includes the set of visible orphans we use to filter out orphan rules which are not visible (even though we can see them...)!Gathers a collection of !ns. Maps (the name of) an  to its rules!AIs this instance an orphan? If it is not an orphan, contains an ? witnessing the instance's non-orphanhood. See Note [Orphans]!_Governs the kind of expression that the tick gets placed on when annotating for example using mkTick. If we find that we want to put a tickish on an expression ruled out here, we try to float it inwards until we find a suitable expression.!PPlace ticks exactly on run-time expressions. We can still move the tick through pure compile-time constructs such as other ticks, casts or type lambdas. This is the most restrictive placement rule for ticks, as all tickishs have in common that they want to track runtime processes. The only legal placement rule for counting ticks.!As  PlaceRuntime, but we float the tick through all lambdas. This makes sense where there is little difference between annotating the lambda and annotating the lambda's code.!In addition to floating through lambdas, cost-centre style tickishs can also be moved from constructors, non-function variables and literals. For example: let x = scc ... C (scc ... y) (scc ... 3) in ...Neither the constructor application, the variable or the literal are likely to have any cost worth mentioning. And even if y names a thunk, the call would not care about the evaluation context. Therefore removing all annotations in the above example is safe.!Specifies the scoping behaviour of ticks. This governs the behaviour of ticks that care about the covered code and the cost associated with it. Important for ticks relating to profiling.!No scoping: The tick does not care about what code it covers. Transformations can freely move code inside as well as outside without any additional annotation obligations!Soft scoping: We want all code that is covered to stay covered. Note that this scope type does not forbid transformations from happening, as as long as all results of the transformations are still covered by this tick or a copy of it. For example let x = tick ...6 (let y = foo in bar) in baz ===> let x = tick ... bar; y = tick ... foo in bazrIs a valid transformation as far as "bar" and "foo" is concerned, because both still are scoped over by the tick. Note though that one might object to the "let" not being covered by the tick any more. However, we are generally lax with this - constant costs don't matter too much, and given that the "let" was effectively merged we can view it as having lost its identity anyway.rAlso note that this scoping behaviour allows floating a tick "upwards" in pretty much any situation. For example:case foo of x -> tick ... bar ==> tick ... case foo of x -> barWhile this is always leagl, we want to make a best effort to only make us of this where it exposes transformation opportunities.!%Cost centre scoping: We don't want any costs to move to other cost-centre stacks. This means we not only want no code or cost to get moved out of their cost centres, but we also object to code getting associated with new cost-centre ticks - or changing the order in which they get applied.}A rule of thumb is that we don't want any code to gain new annotations. However, there are notable exceptions, for example:let f = y -> foo in tick ... ... (f x) ... ==> tick ... ... foo[x/y] ...In-lining lambdas like this is always legal, because inlining a function does not change the cost-centre stack when the function is called.!;Allows attaching extra information to points in expressions!An {- SCC -}t profiling annotation, either automatically added by the desugarer as a result of -auto-all, or added by the user.!_A "tick" used by HPC to track the execution of each subexpression in the original source code.!A breakpoint for the GHCi debugger. This behaves like an HPC tick, but has a list of free variables which will be available for inspection in GHCi when the program stops at the breakpoint.yNB. we must take account of these Ids when (a) counting free variables, and (b) substituting (don't substitute for them)!A source note.Source notes are pure annotations: Their presence should neither influence compilation nor execution. The semantics are given by causality: The presence of a source note means that a local change in the referenced source code span will possibly provoke the generated code to change. On the flip-side, the functionality of annotated code *must* be invariant against changes to all source code *except* the spans referenced in the source notes (see "Causality of optimized Haskell" paper for details).$Therefore extending the scope of any given source note is always valid. Note that it is still undesirable though, as this reduces their usefulness for debugging and profiling. Therefore we will generally try only to make use of this property where it is necessary to enable optimizations.!the cost centre!bump the entry count?!;scopes over the enclosed expression (i.e. not just a tick)!xthe order of this list is important: it matches the order of the lists in the appropriate entry in HscTypes.ModBreaks.CCareful about substitution! See Note [substTickish] in CoreSubst.!Source covered!4Name for source location (uses same names as CCs)!IBinding, used for top level bindings in a module and local bindings in a let.!3A case alternative constructor (i.e. pattern match)! A literal: case e of { 1 -> ... }J Invariant: always an *unlifted* literal See Note [Literal alternatives]!Trivial alternative: case e of { _ -> ... }!A case split alternative. Consists of the constructor leading to the alternative, the variables bound from the constructor, and the expression to be executed given that binding. The default alternative is (DEFAULT, [], rhs)!NType synonym for expressions that occur in function argument positions. Only ! should contain a  at top level, general ! should not!eThis is the data type that represents GHCs core intermediate language. Currently GHC uses System FC  [https://www.microsoft.com/en-us/research/publication/system-f-with-type-equality-coercions/V for this purpose, which is closely related to the simpler and better known System F  %http://en.wikipedia.org/wiki/System_F.GWe get from Haskell source to this Core language in a number of stages: bThe source code is parsed into an abstract syntax tree, which is represented by the data type  with the names being hThis syntax tree is renamed, which attaches a >> to every hh (yielding a [) to disambiguate identifiers which are lexically identical. For example, this program: 3 f x = let f x = x + 1 in f (x - 2) Would be renamed by having Unique,s attached so it looked something like this: E f_1 x_2 = let f_3 x_4 = x_4 + 1 in f_3 (x_2 - 2) But see Note [Shadowing] below. |The resulting syntax tree undergoes type checking (which also deals with instantiating type class arguments) to yield a  type that has  as it's names.Finally the syntax tree is  desugared from the expressive  type into this !y type, which has far fewer constructors and hence is easier to perform optimization, analysis and code generation on.The type parameter b3 is for the type of binders in the expression tree.0The language consists of the following elements: VariablesPrimitive literals.Applications: note that the argument may be a X. See Note [CoreSyn let/app invariant] See Note [Levity polymorphism invariants]@Lambda abstraction See Note [Levity polymorphism invariants]Recursive and non recursive let{s. Operationally this corresponds to allocating a thunk for the things bound and then executing the sub-expression.top_level_invariant letrec_invariant4The right hand sides of all top-level and recursive lets must be of lifted type (see Type#type_classification for the meaning of lifted vs. unlifted6). There is one exception to this rule, top-level letbs are allowed to bind primitive string literals, see Note [CoreSyn top-level string literals].RSee Note [CoreSyn let/app invariant] See Note [Levity polymorphism invariants]type_let We allow a  non-recursive# let to bind a type variable, thus: Let (NonRec tv (Type ty)) bodygThis can be very convenient for postponing type substitutions until the next run of the simplifier.At the moment, the rest of the compiler only deals with type-let in a Let expression, rather than at top level. We may want to revist this choice.Case expression. Operationally this corresponds to evaluating the scrutinee (expression examined) to weak head normal form and then examining at most one level of resulting constructor (i.e. you cannot do nested pattern matching directly with this).AThe binder gets bound to the value of the scrutinee, and the * must be that of all the case alternativescase_invariantst This is one of the more complicated elements of the Core language, and comes with a number of restrictions: PThe list of alternatives may be empty; See Note [Empty case alternatives]The !H case alternative must be first in the list, if it occurs at all.BThe remaining cases are in order of increasing tag (for DataAlts) or lit (for LitAltsc). This makes finding the relevant constructor easy, and makes comparison easier too.0The list of alternatives must be exhaustive. An  exhaustive; case does not necessarily mention all constructors:  data Foo = Red | Green | Blue ... case x of Red -> True other -> f (case x of Green -> ... Blue -> ... ) ... The inner case does not need a Red alternative, because x can't be Red at that program point. Floating-point values must not be scrutinised against literals. See Trac #9238 and Note [Rules for floating-point comparisons] in PrelRules for rationale.GCast an expression to a particular type. This is used to implement newtypes (a newtype. constructor or destructor just becomes a ! in Core) and GADTs.XNotes. These allow general information to be added to expressions in the syntax tree;A type: this should only show up at the top level of an Arg A coercion!A "counting tick" (where tickishCounts is True) is one that counts evaluations in some way. We cannot discard a counting tick, and the compiler should preserve the number of counting ticks as far as possible.However, we still allow the simplifier to increase or decrease sharing, so in practice the actual number of ticks may vary, except that we never change the value from zero to non-zero or vice versa.!/Returns the intended scoping rule for a Tickish![Returns whether the tick scoping rule is at least as permissive as the given scoping rule.!Returns Trued for ticks that can be floated upwards easily even where it might change execution counts, such as: Just (tick ... foo) ==> tick ... (Just foo)This is a combination of tickishSoftScope and  tickishCountsF. Note that in principle splittable ticks can become floatable using mkNoTickI -- even though there's currently no tickish for which that is the case.!Returns True" for a tick that is both counting and> scoping and can be split into its (tick, scope) parts using ! and mkNoTick respectively.!Return True if this source annotation compiles to some backend code. Without this flag, the tickish is seen as a simple annotation that does not have any associated evaluation code.What this means that we are allowed to disregard the tick if doing so means that we can skip generating any code in the first place. A typical example is top-level bindings: foo = tick ...% y -> ... ==> foo = y -> tick ... ...Here there is just no operational difference between the first and the second version. Therefore code generation should simply translate the code as if it found the latter.!)Placement behaviour we want for the ticks!_Returns whether one tick "contains" the other one, therefore making the second tick redundant.!Returns true if ! is orphan.!Returns true if ! is not an orphan.!The number of arguments the !s4 must be applied to before the rule can match on it!The  of the ' at the head of the rule left hand side!Set the  of the ' at the head of the rule left hand side!There is no known !T!<This unfolding marks the associated thing as being evaluated!There is no known !T*, because this came from an hi-boot file.!?Retrieves the template of an unfolding: panics if none is known!Retrieves the template of an unfolding if possible maybeUnfoldingTemplate is used mainly wnen specialising, and we do want to specialise DFuns, so it's important to return a template for DFunUnfoldings!=The constructors that the unfolding could never be: returns [] if no information is available!jDetermines if it is certainly the case that the unfolding will yield a value (something in HNF): returns False if unsure!RDetermines if it possibly the case that the unfolding will yield a value. Unlike ! it returns True for !W!TrueZ if the unfolding is a constructor application, the application of a CONLIKE function or !W!1Is the thing we will unfold into certainly cheap?!HOnly returns False if there is no unfolding information available at all! Compares !&s within a single list of alternatives!bApply a list of argument expressions to a function expression in a nested fashion. Prefer to use  if possible!ZApply a list of coercion argument expressions to a function expression in a nested fashion!TApply a list of type or value variables to a function expression in a nested fashion!_Apply a list of argument expressions to a data constructor in a nested fashion. Prefer to use  if possible!VApply a list of type argument expressions to a function expression in a nested fashion!4Create a machine integer literal expression of type Int# from an Integer%. If you want an expression of type Int use !4Create a machine integer literal expression of type Int# from an Int%. If you want an expression of type Int use !2Create a machine word literal expression of type Word# from an Integer%. If you want an expression of type Word use !2Create a machine word literal expression of type Word# from a Word%. If you want an expression of type Word use "6Create a machine character literal expression of type Char#%. If you want an expression of type Char use "3Create a machine string literal expression of type Addr#%. If you want an expression of type String use "=Create a machine single precision literal expression of type Float# from a Rational%. If you want an expression of type Float use "=Create a machine single precision literal expression of type Float# from a Float%. If you want an expression of type Float use "=Create a machine double precision literal expression of type Double# from a Rational%. If you want an expression of type Double use "=Create a machine double precision literal expression of type Double# from a Double%. If you want an expression of type Double use "[Bind all supplied binders over an expression in a nested lambda expression. Prefer to use  if possible" Bind all supplied binding groups over an expression in a nested let expression. Assumes that the rhs satisfies the let/app invariant. Prefer to use 1 if possible, which does guarantee the invariant" ECreate a binding group where a type variable is bound to a type. Per CoreSyn#type_let>, this can only be used to bind something in a non-recursive let expression" ECreate a binding group where a type variable is bound to a type. Per CoreSyn#type_let>, this can only be used to bind something in a non-recursive let expression" Convert a binder into either a  or  ! appropriately"iDetermines the type resulting from applying an expression with given type to a given argument expression"If the expression is a ., converts. Otherwise, panics. NB: This does not convert  to  CoercionTy."If the expression is a  , converts."$Extract every variable by this group""$ applied to a list of binding groups"pCollapse all the bindings in the supplied groups into a single list of lhs/rhs pairs suitable for binding in a ! binding group"ZWe often want to strip off leading lambdas before getting down to business. Variants are ", L, and ""TStrip off exactly N leading lambdas (type or value). Good for use with join points."zTakes a nested application expression and returns the the function being applied and the arguments to which it is applied"Like  collectArgs_, but also collects looks through floatable ticks if it means that we can find more arguments."$Will this variable exist at runtime?"/Will this argument expression exist at runtime?"Returns True for value arguments, false for type args NB: coercions are value arguments (zero width, to be sure, like State#, but still value args)." Returns True iff the expression is a  or  expression at its top level"!Returns True iff the expression is a ; expression at its top level. Note this does NOT include s.""8The number of binders that bind values rather than types"#WThe number of argument expressions that are values rather than types at their top level"$zTakes a nested application expression and returns the the function being applied and the arguments to which it is applied")As " but for !9 rather than !"*As " but for !9 rather than ! !*!,!+!-!.!3!1!4!7!/!0!2!5!6!8!9!:!;!<!=!>!?!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"""""""""" " " " " """"""""""""""""""" "!"""#"$"%"&"'"(")"* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!E!C!@!A!B!D!<!:!=!;!>!?!!!!!!!!!!!!!!!!!" " "!!!!!!!!!""""""""!!" " " "!!!""""""""""""""""!" "#""""!!!!!!!!!!!T!U!V!W!X!Y!Z![!\!]!^!_!`!a!b!c!d!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!!!!!!!!!!!!!!!!!!!!!!!!!!9!.!/!0!1!2!3!4!5!6!7!8!*!+!,!-"$"%"&"'"(")"*!!!!!!!n!o!p!q!r!s!t!u!v!w!x!y!z!{!q!s!|!}!!m!k!l!~!!!!!!!!!!!!!!!e!f!g!h!i!j!*!+!,!. !/!0!1!2!3!4!5!6!7!8!>!?!F !G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_!`!a!b!c!d!e!f!g!h!i!j!n!o!p!q!r!s!t!u!v!w!x!y!z!{!q!s!|!}!~!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!4!4!4!4!4None ;<=FQTV LA L is a L| which allows us to distinguish between binding forms whose binders have different types. For example, if we are doing a "@ lookup on (x :: Int) -> ()), we should not pick up an entry in the "@ for (x :: Bool) -> ()i: we can disambiguate this by matching on the type (or kind, if this a binder in a type) of the binder.L DeBruijn a represents aI modulo alpha-renaming. This is achieved by equipping the value with a "9O, which tracks an on-the-fly deBruijn numbering. This allows us to define an Ji instance for  DeBruijn a., even if this was not (easily) possible for an. Note: we purposely don't export the constructor. Make a helper function if you find yourself needing it.":A ": doesn't do a kind-check. Thus, when lookup up (t |> g), you'll find entries inserted under (t), even if (g) is non-reflexive."; TypeMap a is a map from  to ab. If you are a client, this is the type you want. The keys in this map may have different kinds.L TypeMapX a is the base map from  DeBruijn Type to a, but without the L optimization.L TypeMapG a is a map from  DeBruijn Type to a. The extended key makes it suitable for recursive traversal, since it can track binders, but it is strictly internal to this module. If you are including a "; inside another "@, this is the type you want. Note that this lookup does not do a kind-check. Thus, all keys in this map must have the same kind. Also note that this map respects the distinction between Type and  ConstraintC, despite the fact that they are equivalent type synonyms in Core.L CoreMapX a is the base map from DeBruijn CoreExpr to a, but without the L optimization.L CoreMapG a is a map from DeBruijn CoreExpr to a. The extended key makes it suitable for recursive traversal, since it can track binders, but it is strictly internal to this module. If you are including a "< inside another "@, this is the type you want."< CoreMap a is a map from !C to a3. If you are a client, this is the type you want.LySqueeze out any synonyms, and change TyConApps to nested AppTys. Why the last one? See Note [Equality on AppTys] in TypeNote, however, that we keep Constraint and Type apart here, despite the fact that they are both synonyms of TYPE 'LiftedRep (see #11715)."W Extend a ";$ with a type in the given context. 8extendTypeMapWithScope m (mkDeBruijnContext [a,b,c]) t v is equivalent to #extendTypeMap m (forall a b c. t) v<, but allows reuse of the context over multiple insertions."XJConstruct a deBruijn environment with the given variables in scope. e.g. mkDeBruijnEnv [a,b,c] constructs a context  forall a b c.LSynthesizes a  DeBruijn a from an a9, by assuming that there are no bound binders (an empty "9<). This is usually what you want if there isn't already a "9 in scope.#"9":";"<"=">"?"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O"P"Q"R"S"T"U"V"W"X"Y"Z"[#"<"Q"O"N"P";"S"U"T"R":"9"Y"W"V"X"?">"="@"A"B"C"D"E"F"G"H"Z"["L"M"I"J"KLLLLLL"9LLL":L";LLLLLLLLLLLLLLLLLLLLLLL LLLLLLLLLLLLL"<LLLLL">LLL"?LLL"@"A"B"C"D"E"F"I1"J1"K1None&'V6 L1a monad for the normalisation functions, reading "|, a , and a ."y;Result of testing two type family equations for injectiviy."zMEither RHSs are distinct or unification of RHSs leads to unification of LHSs"{RHSs unify but LHSs don't unify under that substitution. Relevant for closed type families where equation after unification might be overlpapped (in which case it is OK if they don't unify). Constructor stores axioms after unification."JCheck whether two type family axioms don't violate injectivity annotation."HCreate a coercion constructor (axiom) suitable for the given newtype M. The % should be that of a new coercion , the  s the arguments expected by the newtype8 and the type the appropriate right hand side of the newtype/, with the free variables a subset of those s."Check whether an open type family equation can be added to already existing instance environment without causing conflicts with supplied injectivity annotations. Returns list of conflicting axioms (type instance declarations)."Do an apartness check, as described in the "Closed Type Families" paper (POPL '14). This should be used when determining if an equation (Z) of a closed type family can be used to reduce a certain target type family application."LGet rid of *outermost* (or toplevel) * type function redex * data family redex * newtypes returning an appropriate Representational coercion. Specifically, if topNormaliseType_maybe env ty = Just (co, ty') then (a) co :: ty ~R ty' (b) ty' is not a newtype, and is not a type-family or data-family redexLHowever, ty' can be something like (Maybe (F ty)), where (F ty) is a redex."kGet rid of *outermost* (or toplevel) * type function redex * data family redex * newtypesBehaves exactly like ", but instead of returning a coercion, it returns useful information for issuing pattern matching warnings. See Note [Type normalisation for EmptyCase] for details.LNormalise arguments to a tyconLuGet the set of all type variables mentioned anywhere in the list of types. These variables are not necessarily free.L?Get the set of all type variables mentioned anywhere in a type." flattened target arguments. Make sure they're flattened! See Note [Flattening]. (NB: This "flat" is a different "flat" than is used in TcFlatten.)Lthe candidate equation we wish to use Precondition: this matches the targetTrue  = equation can fireLenv't with family instancesdesired role of output coerciontctysco :: tc tys ~ tc new_tys:"t"u"v"w"x"y"z"{"|"}"~""""""""""""""""""""""""""""""""""""""""""""""":"""""""""""~""""""""""""|"}"""""""""""""t"u"v"w"x""""""y"z"{"""""""""LLLLLLL"t"u"v"w"x"y"z"{LL"~""" """"""""":None<}-MIdentifier DetailsThe M of an Id7 give stable, and necessary, information about the Id.NIdentifier InformationAn N gives optional information about an Id. If present it never lies, but it may not be present, in which case there is always a conservative assumption which can be made.Two Id:s may have different info even though they have the same Unique (and are hence the same IdE); for example, one might lack the properties attached to the other. Most of the N; gives information about the value, or definition, of the Id4, independent of its usage. Exceptions to this are ", ", " and ".!Performance note: when we update Nn, we have to reallocate this entire record, so it is a good idea not to let this data structure get too big.P Check if an M says ".QJust a synonym for "@. Written separately so it can be exported in the hs-boot file.RBasic N. that carries no useful information whatsoever"Tick box for Hpc-style coverage"%Constant applicative form InformationRecords whether an Id+ makes Constant Applicative Form references"Indicates that the Id is for either: HA function or static constructor that refers to one or more CAFs, orA real live CAF"9A function or static constructor that refers to no CAFs."Rule Information$Records the specializations of this Id, that we know about in the form of rewrite !ns that target them"Inline Pragma InformationlTells when the inlining is active. When it is active the thing may be inlined, depending on how big it is.If there was an INLINEb pragma, then as a separate matter, the RHS will have been made to look small with a Core inline Note The default " is L, so the info serves entirely as a way to inhibit inlining until we want it"Arity InformationAn " of n, tells us that partial application of this Id to up to n-1* value arguments does essentially no work.7That is not necessarily the same as saying that it has n6 leading lambdas, because coerces may get in the way.mThe arity might increase later in the compilation process, if an extra lambda floats up to the binding site."Id arity"Specialisations of the IdFs function which exist See Note [Specialisations and RULES in IdInfo]"The Id s unfolding"Id CAF info"+Info about a lambda-bound variable, if the Id is one"!Any inline pragma atached to the Id"How the Id occurs in the program"ID demand information"How this is called. n  =$ all calls have at least n arguments"?when applied, will this Id ever have a levity-polymorphic type?"Recursive Selector Parent"The Id for a record selector"The Id is for a data constructor worker"The Id is for a data constructor wrapper"The Id9 is a superclass selector, or class operation of a class"The Id is for a primitive operator"The IdM is for a foreign call. Type will be simple: no type families, newtypes, etc"The Id4 is for a HPC tick box (both traditional and binary)"$A dictionary function. Bool = True  = the class has only one method, so may be implemented with a newtype, so it might be bad to be strict on this dictionary"&A coercion variable This only covers  un-lifted coercions, of type (t1 ~ t2) or (t1 ~R t2), not their lifted variants"An IdC for a join point taking n arguments Note [Join points] in CoreSyn"More informative N we can use when we know the Id has no CAF references"$It is always safe to assume that an Id has an arity of 0"0Assume that no specilizations exist: always safe"nRetrieve the locally-defined free variables of both the left and right hand sides of the specialization rules"CChange the name of the function the rule is keyed on on all of the !nsLAssumes that the Id$ has CAF references: definitely safe"This is used to remove information on lambda binders that we have setup as part of a lambda group, assuming they will be applied all at once, but turn out to be part of an unsaturated lambda as in e.g: (\x1. \x2. e) arg1"Remove all demand info on the N".Remove usage (but not strictness) info on the N"CRemove usage environment info from the strictness signature on the N"'Zap info that depends on free variables"Marks an IdInfo describing an Id that is never levity polymorphic (even when applied). The Type is only there for checking that it's really never levity polymorphickM"""""""""""""N"""""""""""OPQR"""""""""""""""""""""""""""""""""""""""""""""""xM"""""""""""""OQP""""N"""""""""""R""""""""""""""""""""""""""""""""""""""""""""""""""""""M """""""""""""N L""""""""""""LL"""""""""" "1"1"1"1"1"1"1"1"1"1"1None!# Not only does this set the  ;, it also evaluates the type to try and reduce space usage#'For an explanation of global vs. local s, see Var#globalvslocal#Make a global % without any extra information at all#Make a global - with no global information but some generic N#'For an explanation of global vs. local s, see Var#globalvslocal#Make a local CoVar#Like #6, but checks the type to see if it should make a covar#MMake a local id, with the IdDetails set to CoVarId if the type indicates so.#Create a local  that is marked as exported. This prevents things attached to it from being removed as dead code. See Note [Exported LocalIds]#Create a system local . These are local s (see Var#globalvslocal3) that are created by the compiler out of thin air#Like #+, but checks to see if we have a covar type# Create a user local . These are local s (see Var#globalvslocal8) with a name and location that the user might recognize#!Like # ', but checks if we have a coercion type#"Workers get local names. CoreTidy$ will externalise these if necessary## Create a template local: a family of system local s in bijection with Ints, typically used in unfoldings#$-Create a template local for a series of types#%WCreate a template local for a series of type, but start from a specified template local#&If the , is that for a record selector, extract the ". Panic otherwise.#6*Get from either the worker or the wrapper  to the 6'. Currently used only in the desugarer. INVARIANT: idDataCon (dataConWrapId d) = d : remember,  (, can return either the wrapper or the worker#7Returns True of an I which may not have a binding, even though it is defined in this module.#8#8 tells whether an s info is implied by other declarations, so we don't need to put its signature in an interface file, even if it's mentioned in some other interface unfolding.#F6Returns true if an application to n args would diverge#J This predicate says whether the  has a strict demand placed on it or has a type such that it can always be evaluated strictly (i.e an unlifted type, as of GHC 7.6). We need to check separately whether the D has a so-called "strict type" because if the demand for the given id hasn't been computed yet but id# has a strict type, we still want  isStrictId id to be True.#bLike #af, but taking the Horrible State Hack in to account See Note [The state-transformer hack] in CoreArity#c/Returns whether the lambda associated with the  is certainly applied at most once This one is the "business end", called externally. It works on type variables as well as Ids, returning True Its main purpose is to encapsulate the Horrible State Hack See Note [The state-transformer hack] in CoreArity#d1Should we apply the state hack to values of this ?##### # # # # ################### #!#"###$#%#&#'#(#)#*#+#,#-#.#/#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o#p#q#r#s#t############### #!#$#%###"####&## # # # # #####l#n#o#p#q#r#m#I#s#8#:#J#'#*#)#(#+#-#,#.#/#0#1#2#3#6#`#F#9#7#<#;#4#5#=#>#@#?#Z#[#\#]#^#_#c#g#h#i#k#j#f#d#e#A#C#E#K#L#Q#R#S#U#a#b#W#t#M#P#B#D#T#V#X#Y#O#H#N#G #>1#@1#B1#D1#H1#M1#O1#T1#U1#X1#[1#^1#j1NoneH#u#v#w#x#y#z#{#|#}#~########v#w#{#|#}#~#z#x#y#u########uLLLL#vLnNoneمMake a *promoted* list.Specialization of L for tuples)FBuild the type of a small tuple that holds the specified type of thing#DBuilt-in syntax isn't "in scope" so these OccNames map to wired-in Names with BuiltInSyntax. However, this should only be necessary while resolving names produced by Template Haskell splices since we take care to encode built-in syntax names specially in interface files. See Note [Symbol table representation of names].Moreover, there is no need to include names of things that the user can't write (e.g. type representation bindings like $tc(,,,)).LMGiven the TupleRep/SumRep tycon and list of RuntimeReps of the unboxed tuple;sum arguments, produces the return kind of an unboxed tuplesum type constructor. WunboxedTupleSumKind [IntRep, LiftedRep] --> TYPE (TupleRep/SumRep [IntRep, LiftedRep])L/OccName for n-ary unboxed sum type constructor.LCOccName for i-th alternative of n-ary unboxed sum data constructor.#'Type constructor for n-ary unboxed sum.#=Data constructor for i-th alternative of a n-ary unboxed sum.LCached type and data constructors for sums. The outer array is indexed by the arity of the sum and the inner array is indexed by the alternative.#Specialization of L for sumsLDCreate type constructor and data constructors for n-ary unboxed sum.#,Make a tuple type. The list of types should not( include any RuntimeRep specifications.#OConstruct a type representing the application of the parallel array constructor#2Represents the type constructor of parallel arrays"This must match the definition in PrelPArrNB: Although the constructor is given here, it will not be accessible in user code as it is not in the environment of any compiled module except PrelPArr.#GCheck whether a type constructor is the constructor for parallel arrays#Fake array constructorsThese constructors are never really used to represent array values; however, they are very convenient during desugaring (and, in particular, in the pattern matching compiler) to treat array pattern just like yet another constructor pattern#KChecks whether a data constructor is a fake constructor for parallel arraysLSExtract the elements of a promoted list. Panics if the type is not a promoted listof the elements of the listelementsLdeclared infix? datacon name univ tyvars ex tyvarsargsLThe promoted listx      !"#$%&'()*+,-.######################################################################################################################$$$##.-#######################$#############################,##x#####$$##########)########################*#+('###################$%&### !"#     $None%b$ $ $$$$$$$$$$$$$$$$$$$ $!$"$#$$$%$&$'$($)$*$+$,$-$.$/$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o$p$q$r$s$t$u$v$w$x$y$z${$|$}$~$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%% % % % % %%%%%%%%%%%%%%%%%%% %!%"%#%$%%%&%'%(%)%*%+%,%-%.%/%0%1%2%3%4%5%6%7%8%9%:%;%<%=%>%?%@%A%B%C%D%E%F%G%H%I%J%K%L%M%N%O%P%Q%R%S%T%U%V%W%X%Y%Z%[%\%]%^%_%`%a%c%d%e%f%g%h%i%j%k%l%m%n%o%p%q%r%s%t%u%v%w%x%y%z%{%|%}%~%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$$$$$$$ $ $ %%%%%%%%%%%%%%$ $ $$$$$$$$$$$$$$$$$$$ $!$"$#$$$%$&$'$($)$*$+$,$-$.$/$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o$p$q$r$s$t$u$v$w$x$y$z${$|$}$~$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%% % % % % %%%%%%%%%%%%%%%%%%% %!%"%#%$%%%&%'%(%)%*%+%,%-%.%/%0%1%2%3%4%5%6%7%8%9%:%;%<%=%>%?%@%A%B%C%D%E%F%G%H%I%J%K%L%M%N%O%P%Q%R%S%T%U%V%W%X%Y%Z%[%\%]%^%_%`%a%b%c%d%e%f%g%h%i%j%k%l%m%n%o%p%q%r%s%t%u%v%w%x%y%z%{%|%}%~%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$$ $ $ %%%%%%%%%%%%%%$$$$$$ $ $$$$$$$$$$$$$$$$$$$ $!$"$#$$$%$&$'$($)$*$+$,$-$.$/$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o$p$q$r$s$t$u$v$w$x$y$z${$|$}$~$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%% % % % % %%%%%%%%%%%%%%%%%%% %!%"%#%$%%%&%'%(%)%*%+%,%-%.%/%0%1%2%3%4%5%6%7%8%9%:%;%<%=%>%?%@%A%B%C%D%E%F%G%H%I%J%K%L%M%N%O%P%Q%R%S%T%U%V%W%X%Y%Z%[%\%]%^%_%`%a%b%c%d%e%f%g%h%i%j%k%l%m%n%o%p%q%r%s%t%u%v%w%x%y%z%{%|%}%~%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$$$$$LLLLL$$ $ $ NoneQV%The NameCache makes sure that there is just one Unique assigned for each original name; i.e. (module-name, occ-name) pair and provides something of a lookup mechanism for those names.%Supply of uniques%.Ensures that one original name gets one unique%Per-module cache of original s given s%6Return a function to atomically update the name cache. %%%%%%%%% %%%%%%%%%%%%%[NoneGgGet the  associated with a known-key .abcdefggfebadcNone&  stepping mode& filename (for errors)&line number (for errors)(%%%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&& & & & & &&&(%%%%%%%%%%%%%%%%%%%&&&&&&&&&& && & & & &&%%%%%%%%%% %%%%%%%%%%%%%%%%%&&&&&&&&&& & & & & &&None"#DK &6All the information about the breakpoints for a module&RThe array of flags, one per breakpoint, indicating which breakpoints are enabled.&3An array giving the source span of each breakpoint.&CAn array giving the names of the free variables at each breakpoint.&HAn array giving the names of the declarations enclosing each breakpoint.&1Array pointing to cost centre for each breakpoint&6info about each breakpoint from the bytecode generator&C CostCentre type&Breakpoint index&CInformation about a breakpoint that we know at code-generation time&>Construct an empty ModBreaks.&&&&&&&&&&&&&&&& &!&"&#&$&%&&&'&(&)&*&+&,&-&.&/&0&1&2&3&4&5&6&7&8&9&:&;&<&=&>.&6&7&8&9&:&;&<&=&4&5&)&*&+&,&-&.&/&0&$&%&&&'&(&& &!&"&#&3&1&2&&&&&&&&&&&&&&>&&&&&&&&&&&&&&& &!&"&#&$&%&&&'&(&)&*&+&,&-&.&/&0&1&2&4&5&6&7&8&9&:&;&<None &IEvaluate all the fields of the N- that are generally demanded by the compiler&I&J&K&L&M&N&O&L&M&O&K&I&J&NNoneV&ZA measure of the size of the expressions, strictly greater than 0 It also forces the expression pretty drastically as a side effect Counts *leaves*, not internal nodes. Types and coercions are not counted. &P&Q&R&S&T&U&V&W&X&Y&Z &Y&Z&P&Q&R&S&T&U&V&W&X&P&Q&R&S&T&U&VNone^XL?A function to produce an annotation for a given right-hand-sideL-Annotate with the size of the right-hand-sideL No annotationL4Pretty print the argument in a function application.L3generate an annotation to place before the bindingbindings to showthe pretty result &\&]&^&_&`&a&b&c&d &a&`&]&\&c&_&^&d&bNone,&A top-level binding.&zDoes this constructor application refer to anything in a different *Windows* DLL? If so, we can't allocate it statically& Type of an StgArg8Very half baked because we have lost the type arguments.&2Strip ticks of a given type from an STG expressionE&o&p&q&r&s&t&u&v&w&x&y&z&{&|&}&~&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&E&&&&&&&&&&&&&&&&&&&&&&&&&&&&&s&t&u&v&&&&&&&&&&&&&&&&&&~&}&z&|&{&y&x&w&o&p&q&r&&&&&&&& &o&p&q&r&s&t&u&v&&&&&&LL&&&& &&&&&&&&&&&&&&&&&&None5&&L LLLLLMMMMMMNone&&MMMM M M M NoneFT8M .The CSE environment. See note [CseEnv Example]MiThe main component of the environment is the trie that maps data constructor applications (with their  arguments) to an in-scope name that can be used instead. This name is always either a let-bound variable or a case binder.M_This substitution is applied to the code as we traverse it. Entries have one of two reasons:vThe input might have shadowing (see Note [Shadowing]), so we have to rename some binders as we traverse the tree.cIf we remove `let x = Con z` because `let y = Con z` is in scope, we note this here as x ! y.MOThe third component is an in-scope set, to rename away any shadowing bindersMNote [CseEnv Example] ~~~~~~~~~~~~~~~~~~~~~ The following tables shows how the CseEnvironment changes as code is traversed, as well as the changes to that code.'InExpr OutExpr conAppMap subst in_scope %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -- empty {} {} case & as a of {Con x y -> case & as a of {Con x y -> -- Con x y ! a {} {a,x,y} let b = Con x y (removed) -- Con x y ! a b!a {a,x,y,b} let c = Bar a let c = Bar a -- Con x y ! a, Bar a ! c b!a {a,x,y,b,c} let c = some expression let c' = some expression -- Con x y ! a, Bar a ! c b!a, c!c', {a,x,y,b,c,c'} let d = Bar b (removed) -- Con x y ! a, Bar a ! c b!a, c!c', d!c {a,x,y,b,c,c',d} (a, b, c d) (a, a, c' c)M;This function short-cuts let-bindings that are now obsolete&&M MMMMMMMMMMMMNone9y&&MMMNoneFV& Header information only, not rhs&,Show only some sub-components. Specifically, @[@] Print all sub-components.(n:ns)Print sub-component n with  ShowSub = ns!; elide other sub-components to ...6 May 14: the list is max 1 element long at the moment&DEverything including GHC-internal information (used in --show-iface)'$This corresponds to HsSrcBang'&mThis corresponds to an HsImplBang; that is, the final implementation decision about the data constructor arg'KHName of associated axiom and branches for pretty printing purposes, or J%, for an empty closed family without an axiom'A binding top-level , in an interface file (e.g. the name of an 'X).'Pretty Print an IfaceExpresThe first argument should be a function that adds parens in context that need an atomic value (e.g. function args)F!"#     $% '()*+,-./01&24356798:;<=>?@ABCDEFGHIJKLMNOPQRSTU    &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&'''''''''' ' ' ' ' ''''''''''''''''''' '!'"'#'$'%'&'''(')'*'+','-'.'/'0'1'2'3'4'5'6'7'8'9':';'<'='>'?'@'A'B'C'D'E'F'G'H'I'J'K'L'M'N'O'P'Q'R'S'T'U'V'W'X'Y'Z'['\']'^'_'`'a'b'c'd'e'f'g'h'i'j'k'l'm'n'o'p'q'r's't'u'v'w'x'y'z'{'|'}'~''''''''''''''X'Y'Z'['\']'^'_'`'a'b'c'`'d'e'f'g'h'i'j'k'`'g'd'e'l'`'m'd'e'n'o'`'g'd'p'q'`'r's't'`'u'v'w'x'y'z'{'|'}'~'H'I'J'K'L'M'F'G'D'E','-'.'/'0'1'2'3'4'5'6'7'8'9':';'+&&&&&&&&&&&&&&&&&&&&&&&&&&&&'''&&&&&&&&&&&&&'''' '''''''''' ' ' ' ''''' '!'"'#''''''&&&&'Q'R'S'T'U'V'W'&'''(')'*'$'%    '<'='>'?'@'A'B'C'N'O'P'''''''''''''&&&&&&&&&&''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&''''''''' ' ' ' ' ''''''''''''''''''' '!'"'#'$'%'&'''(')'*', '-'.'/'0'1'2'3'4'5'6'7'8'9':';'<'='>'?'@'A'B'C'D'E'F'G'H'I'J'K'L'M'N'O'P'Q'R'S'T'U'V'W'X3'Y'Z'['\']'^'_'`'a'b'c'`'d'e'f'g'h'i'j'k'`'g'd'e'l'`'m'd'e'n'o'`'g'd'p'q'`'r's't'`'u'v'w'x'y'z'{'|'}'~M3None 3M What type of Cmm label we're dealing with. Determines the suffix appended to the name when a CLabel.CmmLabel is pretty printed.M!'misc rts info tabless, suffix _infoM"(misc rts entry points, suffix _entryM#'misc rts ret info tables, suffix _infoM$&misc rts return points, suffix _retM%'misc rts data bits, eg CHARLIKE_closureM& misc rts codeM'closures eg CHARLIKE_closureM()a prim call to some hand written Cmm codeM)Selector thunksM* AP thunksM+_fast versions of generic applyM,Label for closureM-Static reference table (TODO: could be removed with the old code generator, but might be needed when we implement the New SRT Plan)M.*Info tables for closures; always read-onlyM/ Entry pointM0Slow entry pointM1)Like InfoTable but not externally visibleM2%Like Entry but not externally visibleM34Label of place to keep Ticky-ticky info for this IdM4Constructor entry pointM5Corresponding info tableM6!Table of closures for Enum tyconsM75Content of a string literal. See Note [Bytes label].''Record where a foreign label is stored.'Label is in a named package'Label is in some external, system package that doesn't also contain compiled Haskell code, and is not associated with any .hi files. We don't have to worry about Haskell code being inlined from external packages. It is safe to treat the RTS package as "external".'$Label is in the package currenly being compiled. This is only used for creating hacky tmp labels during code generation. Don't use it in any code that might be inlined across a package boundary (ie, core code) else the information will be wrong relative to the destination module.M8JA label related to the definition of a particular Id or Con in a .hs file.M9DA label from a .cmm file that is not associated with a .hs level Id.M: A label with a baked-in / algorithmically generated name that definitely comes from the RTS. The code for it must compile into libHSrts.a / libHSrts.so If it doesn't have an algorithmically generated name then use a CmmLabel instead and give it an appropriate UnitId argument.M;A C (or otherwise foreign) label.M<;A family of labels related to a particular case expression.M=These labels are generated and used inside the NCG only. They are special variants of a label used for dynamic linking see module PositionIndependentCode for details.M>This label is generated and used inside the NCG only. It is used as a base for PIC calculations on some platforms. It takes the form of a local numeric assembler label '1'o; and is pretty-printed as 1b, referring to the previous definition of 1: in the assembler source file.M?JA label before an info table to prevent excessive dead-stripping on darwinM@"Per-module table of tick locationsMAStatic reference tableMBLabel of an StgLargeSRTMC"A bitmap (function or case return)'For debugging problems with the CLabel representation. We can't make a Show instance for CLabel because lots of its components don't have instances. The regular Outputable instance only shows the label name, and not its other info.'Make a foreign label'-Update the label size field in a ForeignLabel'+Whether label is a top-level string literal'8Whether label is a non-haskell label (defined in C code)',Get the label size field from a ForeignLabel(XConstruct a label for a DWARF Debug Information Entity (DIE) describing another symbol.(uIf a label is a local temporary used for native code generation then return just its unique, otherwise nothing.(Check whether a label corresponds to a C function that has a prototype in a system header somehere, or is built-in to the C compiler. For these labels we avoid generating our own C prototypes.(Is a CLabel visible outside this object file or not? From the point of view of the code generator, a name is externally visible if it has to be declared as exported in the .o file's symbol table; that is, made non-static.MDqWork out the general type of data at the address of this label whether it be code, data, or static GC object.c''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''(((((((((( ( ( ( ( (((((((((((((((((c'''''''''''''''''''''''''''''('( ( ( ( ((''''''''''''''''''('''''''''(''''''(('''''(((( ((((((((((((((((MEMFMGMH'''''M M!M"M#M$M%M&M'M(MIM)MJM*MKMLM+MMMNMOMPMQMRMS M,M-M.M/M0M1M2M3M4M5M6M7'''''M8M9M:M;M<MTMUMVMWMXMYM=M>M?M@MAMBMCNoneo(/(/None;(0(1(2(3(4(0(1(2(3(4None;<=>?g(WSets of registers(Y'Parameters: 1. Identifier 2. Type(cA stack area is either the stack slot where a variable is spilled or the stack space where function arguments and results are passed.Dbcdefghijkmnolpqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmn(7(8(9(:(;(<(=(>(?(@(A(B(C(D(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z(a(^([(\(](_(`(b(c(d(e(f(g(h(i(l(j(m(k(n(o(p(q(r(s(t(u(v(w(x(y(z({(|(}(~((((((((((((V(i(j(k(l(m(n(o(p(r(s(f(g(h(t(Z([(\(](^(_(`(a(b(q(X(Y(u(7(8(9(:(;(<(=(>(?(@(A(B(C(D(E(F(G(H(I(J(K(L(M(((((((((N(O(P(Q(R(S(T(R(T(((W(V(U(v(x(y(z({(}(|(~((w((c(d(e (7(8(9(:(;(<(=(>(?(@(A(B(C(D(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(X(Y(Z([(\(](^(_(`(a(b(c(d(e(f(g(h(i(j(k(l(m(n(oNone((((None<((((((((((((None((((((((((((None((((((((((None((((((((((None((((((((((NoneT((((((((((None((((((((((None$((((((((((None(Returns J G if this global register is stored in a caller-saves machine register.(HHere is where the STG register map is defined for each target arch. The order matters (for the llvm backend anyway)! We must make sure to maintain the order here with the order used in the LLVM calling conventions. Note that also, this isn't all registers, just the ones that are currently possbily mapped to real registers.((((((((((None &'0;<=>?V(Tick scope identifier, allowing us to reason about what annotations in a Cmm block should scope over. We especially take care to allow optimisations to reorganise blocks without losing tick association in the process.(The global scope is the "root" of the scope graph. Every scope is a sub-scope of the global scope. It doesn't make sense to add ticks to this scope. On the other hand, this means that setting this scope on a block means no ticks apply to it.(lConstructs a new sub-scope to an existing scope. This allows us to translate Core-style scoping rules (see  tickishScoped2) into the Cmm world. Suppose the following code:tick 1# case ... of A -> tick 2 ... B -> tick 3 ...We want the top-level tick annotation to apply to blocks generated for the A and B alternatives. We can achieve that by generating tick 1~ into a block with scope a, while the code for alternatives A and B gets generated into sub-scopes a/b and a/c respectively.(A combined scope scopes over everything that the two given scopes cover. It is therefore a sub-scope of either scope. This is required for optimisations. Consider common block elimination: A -> tick 2, case ... of C -> [common] B -> tick 3 case ... of D -> [common]We will generate code for the C and D alternatives, and figure out afterwards that it's actually common code. Scoping rules dictate that the resulting common block needs to be covered by both tick 2 and tick 3z, therefore we need to construct a scope that is a child to *both* scope. Now we can do that - if we assign the scopes ac and bOd to the common-ed up blocks, the new block could have a combined tick scope ac+bd, which both tick 2 and tick 3 apply to.()Tickish in Cmm context (annotations only)(jA convention maps a list of values (function arguments or return values) to registers or stack locations.( top-level Haskell functions use NativeDirectCall, which maps arguments to registers starting with R2, according to how many registers are available on the platform. This convention ignores R1, because for a top-level function call the function closure is implicit, and doesn't need to be passed.(non-top-level Haskell functions, which pass the address of the function closure in R1 (regardless of whether R1 is a real register or not), and the rest of the arguments in registers or on the stack.(%a native return. The convention for returns depends on how many values are returned: for just one value returned, the appropriate register is used (R1, F1, etc.). regardless of whether it is a real register or not. For multiple values returned, they are mapped to registers or the stack.(/Slow entry points: all args pushed on the stack(\Entry to the garbage collector: uses the node reg! (TODO: I don't think we need this --SDM)MZOutput all scope paths.M[RReturns the head uniques of the scopes. This is based on the assumption that the Unique of SubScope` identifies the underlying super-scope. Used for efficient equality and comparison, see below.)_Checks whether two tick scopes are sub-scopes of each other. True if the two scopes are equal.)Combine two tick scopes. The new scope should be sub-scope of both parameters. We simplfy automatically if one tick scope is a sub-scope of the other already.A((((((((((((((((((((((((((((((((((() ))(((()))))))) ) ) ) ))))))))))))A((((((((((((((((()))))))))) ) ) ) ((((((((((((((() ((())))))))))(((())((((((((((((((((((((((((((((((((((()))))))))) ) ) ) NoneD6)()))*)+),)-).)/)0)1)2)3)4)5)6)7)8)9):);)<)=)>)?)@)A)B)C)D)E)F)G)H)I)J)K)L)M)N)O)P)Q)R)S)T)U)V)W)X)Y)Z)[)\)]6)()))*)+),)-).)/)0)1)2)3)4)5)6)7)8)9):);)<)=)>)?)@)A)B)C)D)E)F)G)H)I)J)K)L)M)N)O)P)Q)R)S)T)U)V)W)X)Y)Z)[)\)]M\M]M^M_M`MaMbMcMdMeMfMgMhMiMjMkMl)(4)))*)+),)-).)/)0)1)2)3)4)5)6)7)8)9):);)<)=)>)?)@)A)B)C)D)E)F)G)H)I)J)K)L)M)N)O)P)Q)R)S)T)U)V)W)X)Y)Z)[)\None&'0)z!Info table as a haskell data type)A top-level chunk, abstracted over the type of the contents of the basic blocks (Cmm or instructions are the likely instantiations).)aThe branch block id is that of the first block in the branch, which is that branch's entry point bcdefghijkmnolpqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmn(7(8(9(:(;(<(=(>(?(@(A(B(C(D(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z(a(^([(\(](_(`(b(c(d(e(f(g(h(i(l(j(m(k(n(o(p(q(r(s(t(u(v(w(x(y(z({(|(}(~((((((((((((((((((((((((((((((((((((((((((((((() ))(((()))))))) ) ) ) )))))))))))))_)`)a)b)c)d)e)f)g)h)i)j)k)m)l)r)n)o)p)q)s)t)v)u)w)y)x)z){)|)})~)))))))))))))))))))))))))))))))))I))))))))))))))))i)j)k)l)m)n)o)p)q)r)s)c)d)e)f)g)h)a)b))_)`)))))))))))))))z){)|)})~)) )t)u)v))w)x)y )_)`)a)b)c)d)e)f)g)h)i)j)k)l)m)n)o)p)q)r)s)t)u)v)w)x)y)z){)|)})~)))))))))))))))))None)An immediate value. Not all of these are directly representable by the machine. Things like ImmLit are slurped out and put in a data segment instead.)'Create a ImmLit containing this string.)Convert a CmmLit to an Imm. Narrow to the width: a CmmInt might be out of range, but we assume that ImmInteger only contains in-range values. A signed value should be fine here.))))))))))))))))))))))))))))) )))))))))))Nonev)wRepresents a memory address in an instruction. Being a RISC machine, the SPARC addressing modes are very regular.)4Add an integer offset to the address in an AddrMode.)))))))))))None))))))))))NoneC))))))))))NoneK)Llvm cast operations.)Integer truncate)Integer extend (zero fill))Integer extend (sign fill))Float truncate) Float extend)Float to unsigned Integer)Float to signed Integer)Unsigned Integer to Float)Signed Int to Float)Pointer to Integer)Integer to Pointer)6Cast between types where no bit manipulation is needed)Llvm compare operations.)Equal (Signed and Unsigned))Not equal (Signed and Unsigned))Unsigned greater than)Unsigned greater than or equal)Unsigned less than)Unsigned less than or equal)Signed greater than)Signed greater than or equal)Signed less than)Signed less than or equal) Float equal)Float not equal)Float greater than)Float greater than or equal)Float less than)Float less than or equal))Llvm binary operators machine operations.)1add two integer, floating point or vector values.)subtract two ...) multiply ..)$unsigned integer or vector division.)signed integer ..)*unsigned integer or vector remainder (mod)) signed ...)(add two floating point or vector values.)subtract two ...) multiply ...) divide ...) remainder ...) Left shift)3Logical shift right Shift right, filling with zero)sArithmetic shift right The most significant bits of the result will be equal to the sign bit of the left operand.)AND bitwise logical operation.)OR bitwise logical operation.)XOR bitwise logical operation.)Linkage type of a symbol.`The description of the constructors is copied from the Llvm Assembly Language Reference Manual  -http://www.llvm.org/docs/LangRef.html#linkage5, because they correspond to the Llvm linkage types.)jGlobal values with internal linkage are only directly accessible by objects in the current module. In particular, linking code into a module with an internal global value may cause the internal to be renamed as necessary to avoid collisions. Because the symbol is internal to the module, all references can be updated. This corresponds to the notion of the static keyword in C.) Globals with linkonce linkage are merged with other globals of the same name when linkage occurs. This is typically used to implement inline functions, templates, or other code which must be generated in each translation unit that uses it. Unreferenced linkonce globals are allowed to be discarded.)weakI linkage is exactly the same as linkonce linkage, except that unreferenced weak globals may not be discarded. This is used for globals that may be emitted in multiple translation units, but that are not guaranteed to be emitted into every translation unit that uses them. One example of this are common globals in C, such as int X; at global scope.) appending linkage may only be applied to global variables of pointer to array type. When two global variables with appending linkage are linked together, the two global arrays are appended together. This is the Llvm, typesafe, equivalent of having the system linker append together sections/ with identical names when .o files are linked.)The semantics of this linkage follow the ELF model: the symbol is weak until linked, if not linked, the symbol becomes null instead of being an undefined reference.)[The symbol participates in linkage and can be used to resolve external symbol references.) Alias for )3 but with explicit textual form in LLVM assembly.)ISymbol is private to the module and should not appear in the symbol table*FFunctions can have a fixed amount of parameters, or a variable amount.*1Different calling conventions a function can use.*HThe C calling convention. This calling convention (the default if no other calling convention is specified) matches the target C calling conventions. This calling convention supports varargs function calls and tolerates some mismatch in the declared prototype and implemented declaration of the function (as does normal C).*/This calling convention attempts to make calls as fast as possible (e.g. by passing things in registers). This calling convention allows the target to use whatever tricks it wants to produce fast code for the target, without having to conform to an externally specified ABI (Application Binary Interface). Implementations of this convention should allow arbitrary tail call optimization to be supported. This calling convention does not support varargs and requires the prototype of al callees to exactly match the prototype of the function definition.*This calling convention attempts to make code in the caller as efficient as possible under the assumption that the call is not commonly executed. As such, these calls often preserve all registers so that the call does not break any live ranges in the caller side. This calling convention does not support varargs and requires the prototype of all callees to exactly match the prototype of the function definition.*The GHC-specific  registerised calling convention.*Any calling convention may be specified by number, allowing target-specific calling conventions to be used. Target specific calling conventions start at 64.*  X86 Specific * R convention. LLVM includes a specific alias for it rather than just using CC_Ncc.* #Different types to call a function.* (Normal call, allocate a new stack frame.* 7Tail call, perform the call in the current stack frame.* Llvm Function Attributes.)Function attributes are set to communicate additional information about a function. Function attributes are considered to be part of the function, not of the function type, so functions with different parameter attributes can have the same function type. Functions can have multiple attributes.Descriptions taken from )http://llvm.org/docs/LangRef.html#fnattrs*This attribute indicates that the inliner should attempt to inline this function into callers whenever possible, ignoring any active inlining size threshold for this caller.*This attribute indicates that the source code contained a hint that inlining this function is desirable (such as the "inline" keyword in C/C++). It is just a hint; it imposes no requirements on the inliner.*This attribute indicates that the inliner should never inline this function in any situation. This attribute may not be used together with the alwaysinline attribute.*This attribute suggests that optimization passes and code generator passes make choices that keep the code size of this function low, and otherwise do optimizations specifically to reduce code size.*This function attribute indicates that the function never returns normally. This produces undefined behavior at runtime if the function ever does dynamically return.*This function attribute indicates that the function never returns with an unwind or exceptional control flow. If the function does unwind, its runtime behavior is undefined.*This attribute indicates that the function computes its result (or decides to unwind an exception) based strictly on its arguments, without dereferencing any pointer arguments or otherwise accessing any mutable state (e.g. memory, control registers, etc) visible to caller functions. It does not write through any pointer arguments (including byval arguments) and never changes any state visible to callers. This means that it cannot unwind exceptions by calling the C++ exception throwing methods, but could use the unwind instruction.*4This attribute indicates that the function does not write through any pointer arguments (including byval arguments) or otherwise modify any state (e.g. memory, control registers, etc) visible to caller functions. It may dereference pointer arguments and read state that may be set in the caller. A readonly function always returns the same value (or unwinds an exception identically) when called with the same set of arguments and global state. It cannot unwind an exception by calling the C++ exception throwing methods, but may use the unwind instruction.*RThis attribute indicates that the function should emit a stack smashing protector. It is in the form of a "canary" a random value placed on the stack before the local variables that's checked upon return from the function to see if it has been overwritten. A heuristic is used to determine if a function needs stack protectors or not.If a function that has an ssp attribute is inlined into a function that doesn't have an ssp attribute, then the resulting function will have an ssp attribute.*This attribute indicates that the function should always emit a stack smashing protector. This overrides the ssp function attribute.If a function that has an sspreq attribute is inlined into a function that doesn't have an sspreq attribute or which has an ssp attribute, then the resulting function will have an sspreq attribute.*This attribute indicates that the code generator should not use a red zone, even if the target-specific ABI normally permits it.*>This attributes disables implicit floating point instructions.*xThis attribute disables prologue / epilogue emission for the function. This can have very system-specific consequences.*LLVM Parameter Attributes.qParameter attributes are used to communicate additional information about the result or parameters of a function*This indicates to the code generator that the parameter or return value should be zero-extended to a 32-bit value by the caller (for a parameter) or the callee (for a return value).*This indicates to the code generator that the parameter or return value should be sign-extended to a 32-bit value by the caller (for a parameter) or the callee (for a return value).*This indicates that this parameter or return value should be treated in a special target-dependent fashion during while emitting code for a function call or return (usually, by putting it in a register as opposed to memory).*\This indicates that the pointer parameter should really be passed by value to the function.* This indicates that the pointer parameter specifies the address of a structure that is the return value of the function in the source program.*!RThis indicates that the pointer does not alias any global or any other parameter.*"fThis indicates that the callee does not make any copies of the pointer that outlive the callee itself*#ZThis indicates that the pointer parameter can be excised using the trampoline intrinsics.*&An LLVM Function*(!Unique identifier of the function*)LinkageType of the function**&The calling convention of the function*+Type of the returned value*,'Indicates if this function uses varargs*-Parameter types and attributes*.(Function align value, must be power of 2*/Llvm Static Data.BThese represent the possible global level variables and constants.*0A comment in a static section*1#A static variant of a literal value*2For uninitialised data*3Defines a static *]*4A static array*5A static structure type*6A pointer to other data*7Pointer to Pointer conversion*8Pointer to Integer conversion*9Constant addition operation*:Constant subtraction operation*;Llvm Literal Data.(These can be used inline in expressions.*<'Refers to an integer constant (i64 42).*=Floating point literal*>.Literal NULL, only applicable to pointer types*?Vector literal*@>Undefined value, random bit pattern. Useful for optimisations.*ALLVM Variables*BVariables with a global scope.*C,Variables local to a function or parameters.*DoNamed local variables. Sometimes we need to be able to explicitly name variables (e.g for function arguments).*EA constant variable*GMutable global variable*HConstant global variable*IAlias of another variable*KGAn LLVM section definition. If Nothing then let LLVM decide the section*L Llvm Types*M&An integer with a given width in bits.*N32 bit floating point*O64 bit floating point*P 80 bit (x86 only) floating point*Q128 bit floating point*RA pointer to a *L*S An array of *L*T A vector of *L*UA *A can represent a label (address)*V Void type*WPacked structure type*XUnpacked structure type*Y A type alias*Z LLVM Metadata*[3Function type, used to create pointers to functions*\ A type alias*]A String in LLVM*^4A global mutable variable. Maybe defined or external*`Returns the variable of the *^*aReturn the value of the *^*e)Return the variable name or value of the *A* in Llvm IR textual representation (e.g. @x, %y or 42).*f)Return the variable name or value of the *A* in a plain textual representation (e.g. x, y or 42).*gPrint a literal value. No type.*i Return the *L of the *A*j Return the *L of a *;*k Return the *L of the */*l Return the ) for a *A*m0Add a pointer indirection to the supplied type. *U and *V cannot be lifted.*nLift a variable to *R type.*o:Remove the pointer indirection of the supplied type. Only *R constructors can be lowered.*pLower a variable of *R type.*qTest if the given *L is an integer*rTest if the given *L is a floating point type*sTest if the given *L is an *R construct*tTest if the given *L is an *T construct*u Test if a *A is global.*vWidth in bits of an *L, returns 0 if not applicable*~"The target architectures word size*"The target architectures word size*Convert a Haskell Double to an LLVM hex encoded floating point form. In Llvm float literals can be printed in a big-endian hexadecimal format, regardless of underlying architecture.See Note [LLVM Float Types].*BReverse or leave byte data alone to fix endianness on this target.))))))))))))))))))))))))))))))))))))))))))))))))))))))))))***** ****** * * * ***************"*!* *****#*$*%*&*'*.*-*,*+***)*(*/*:*9*8*7*6*5*4*3*2*1*0*;*@*?*>*=*<*A*E*D*C*B*F*I*G*H*J*K*L*[*Z*Y*X*W*V*U*T*S*R*Q*P*O*N*M*\*]*^*_*a*`*b*c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s*t*u*v*w*x*y*z*{*|*}*~*********^*_*`*a*]*\*L*M*N*O*P*Q*R*S*T*U*V*W*X*Y*Z*[**b*K*J*F*G*H*I*A*B*C*D*E**;*<*=*>*?*@**/*0*1*2*3*4*5*6*7*8*9*:**c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s*t*u*v*w*x*y*z*{*|*}*~**&*'*(*)***+*,*-*.**%*$****** *!*"*#** *************** * * ******* ****)))))))))*)))))))))))))))))))*)))))))))))))))))*)))))))))))))********) )))))))))))))))))))))))))))))))))))))))))))))))))))))))))********** * * * * ******************* *!*"*#*&*'*(*)***+*,*-*.*/ *0*1*2*3*4*5*6*7*8*9*:*;*<*=*>*?*@*A*B*C*D*E*F*G*H*I*L*M*N*O*P*Q*R*S*T*U*V*W*X*Y*Z*[*^*_*`*aNoneKH*EMetadata declarations. Metadata can only be declared in global scope.*XNamed metadata. Only used for communicating module information to LLVM. ('!name = !{ [! n ] }' form).*/Metadata node declaration. ('!0 = metadata !{  metadata expression }' form).*PAssociates some metadata with a specific label for attaching to an instruction.*LLVM metadata expressions*)A reference to an un-named metadata node. **************************************NoneI.;*Llvm Expressions*Allocate amount * sizeof(tp) bytes on the stack * tp: LlvmType to reserve room for * amount: The nr of tp's which must be allocated*Perform the machine operator op on the operands left and right * op: operator * left: left operand * right: right operand*Perform a compare operation on the operands left and right * op: operator * left: left operand * right: right operand*uExtract a scalar element from a vector * val: The vector * idx: The index of the scalar within the vector*Extract a scalar element from a structure * val: The structure * idx: The index of the scalar within the structure Corresponds to "extractvalue" instruction.*Insert a scalar element into a vector * val: The source vector * elt: The scalar to insert * index: The index at which to insert the scalar*Allocate amount * sizeof(tp) bytes on the heap * tp: LlvmType to reserve room for * amount: The nr of tp's which must be allocated*Load the value at location ptr*(Atomic load of the value at location ptr*Navigate in an structure, selecting elements * inbound: Is the pointer inbounds? (computed pointer doesn't overflow) * ptr: Location of the structure * indexes: A list of indexes to select the correct value.*Cast the variable from to the to type. This is an abstraction of three cast operators in Llvm, inttoptr, prttoint and bitcast. * cast: Cast type * from: Variable to cast * to: type to cast to*Atomic read-modify-write operation * op: Atomic operation * addr: Address to modify * operand: Operand to operation * ordering: Ordering requirement* Compare-and-exchange operation * addr: Address to modify * old: Expected value * new: New value * suc_ord: Ordering required in success case * fail_ord: Ordering required in failure case, can be no stronger than suc_ord Result is an i1, true if store was successful.*Call a function. The result is the value of the expression. * tailJumps: CallType to signal if the function should be tail called * fnptrval: An LLVM value containing a pointer to a function to be invoked. Can be indirect. Should be LMFunction type. * args: Concrete arguments for the parameters * attrs: A list of function attributes for the call. Only NoReturn, NoUnwind, ReadOnly and ReadNone are valid here.*Call a function as above but potentially taking metadata as arguments. * tailJumps: CallType to signal if the function should be tail called * fnptrval: An LLVM value containing a pointer to a function to be invoked. Can be indirect. Should be LMFunction type. * args: Arguments that may include metadata. * attrs: A list of function attributes for the call. Only NoReturn, NoUnwind, ReadOnly and ReadNone are valid here.*ZMerge variables from different basic blocks which are predecessors of this basic block in a new variable of type tp. * tp: type of the merged variable, must match the types of the predecessor variables. * precessors: A list of variables and the basic block that they originate from.*Inline assembly expression. Syntax is very similar to the style used by GCC. * assembly: Actual inline assembly code. * constraints: Operand constraints. * return ty: Return type of function. * vars: Any variables involved in the assembly code. * sideeffect: Does the expression have side effects not visible from the constraints list. * alignstack: Should the stack be conservatively aligned before this expression is executed.*/A LLVM expression with metadata attached to it.*Llvm Statements*lAssign an expression to an variable: * dest: Variable to assign to * source: Source expression*Memory fence operation*!Always branch to the target label*Branch to label targetTrue if cond is true otherwise to label targetFalse * cond: condition that will be tested, must be of type i1 * targetTrue: label to branch to if cond is true * targetFalse: label to branch to if cond is false*Comment Plain comment.*\Set a label on this position. * name: Identifier of this label, unique for this module*Store variable value in pointer ptr. If value is of type t then ptr must be of type t*. * value: Variable/Constant to store. * ptr: Location to store the value in*Multiway branch * scrutinee: Variable or constant which must be of integer type that is determines which arm is chosen. * def: The default label if there is no match in target. * target: A list of (value,label) where the value is an integer constant and label the corresponding label to jump to if the scrutinee matches the value.*CReturn a result. * result: The variable or constant to return*IAn instruction for the optimizer that the code following is not reachable*`Raise an expression to a statement (if don't want result or want to use Llvm unnamed values.*tA nop LLVM statement. Useful as its often more efficient to use this then to wrap LLvmStatement in a Just or [].*.A LLVM statement with metadata attached to it.*'LLVM atomic operations. Please see the  atomicrmwC instruction in the LLVM documentation for a complete description.*LLVM ordering types for synchronization purposes. (Introduced in LLVM 3.0). Please see the LLVM documentation for a better description.*(Some partial order of operations exists.*?A single total order for operations at a single address exists.*"Acquire synchronization operation.*"Release synchronization operation.*,Acquire + Release synchronization operation.*&Full sequential Consistency operation.*An LLVM Function*(The signature of this declared function.*The functions arguments*The function attributes.*%The section to put the function into,* Prefix data*The body of the functions.*6An LLVM Module. This is a top level container in LLVM.*/Comments to include at the start of the module.*LLVM Alias type definitions.*LLVM meta data.**Global variables to include in the module.*@LLVM Functions used in this module but defined in other modules.*&LLVM Functions defined in this module.*A block of LLVM code.*The code label for this block+rA list of LlvmStatement's representing the code for this block. This list must end with a control flow statement.+ Block labelsL*************************************************************************+*+L+***+******************************************************************************************* ************** *************************************+None]+Print out a whole LLVM module.+ FPrint out a multi-line comment, can be inside a function or on its own+ ;Print out a comment, can be inside a function or on its own+ 7Print out a list of global mutable variable definitions+ .Print out a global mutable variable definition+ &Print out a list of LLVM type aliases.+Print out an LLVM type alias.+"Print out a list of LLVM metadata.+&Print out an LLVM metadata definition.+)Print out a list of function definitions.+ Print out a function definition.Mm'Print out a function definition header.+)Print out a list of function declaration.+{Print out a function declaration. Declarations define the function type but don't define the actual body of the function.Mn Print out a list of LLVM blocks.MoCPrint out an LLVM block. It must be part of a function definition.MpPrint out an LLVM block label.MqPrint out an LLVM statement.MrPrint out an LLVM expression.MsShould always be a function pointer. So a global var of function type (since globals are always pointers) or a local var of pointer function type.Mt Blank line.MuExclamation point. ++ + + + + +++++++ ++ + + + + +++++++None^y))))))))))))))))))))))))))))))))))))))))))))))))))))))))))********** * * * * ***************#***** *!*"*$*%*&*'*(*)***+*,*-*.*/*0*1*2*3*4*5*6*7*8*9*:*;*<*=*>*?*@*A*B*C*D*E*F*H*G*I*J*K*L*M*N*O*P*Q*R*S*T*U*V*W*X*Y*Z*[*\*]*^*_*`*a*e*f*g*i*j*k*l*m*n*o*p*q*r*s*t*u*v*x*y*z*{*|*}*~**************************************************************************************++++ + + + + +++++++*****************&*'*(*)***+*,*-*.**%*************************************++****** *!*"*#*$************************** * * * ***)))))))))* *************)))))))))))))))))))))))))))))))))))))))))))))))))*A*B*C*D*E*/*0*1*2*3*4*5*6*7*8*9*:*;*<*=*>*?*@*L*M*N*O*P*Q*R*S*T*U*V*W*X*Y*Z*[*\*^*_*`*a*]*K*J*F*G*H*I*x*y*z*{*|*}*~**************u*j*i*l*k*n*p*m*o*q*r*s*t*v*g*e*f++ + + + ++++++ ++None3 +;Get the LlvmVar function variable storing the real register+;Get the LlvmVar function argument storing the real register+>A list of STG Registers that should always be considered alive+'STG Type Based Alias Analysis hierarchyMvId values The Mv node is the root (there can be more than one) of the TBAA hierarchy and as of LLVM 4.0 should *only* be referenced by other nodes. It should never occur in any LLVM instruction statement.+Id values The Mv node is the root (there can be more than one) of the TBAA hierarchy and as of LLVM 4.0 should *only* be referenced by other nodes. It should never occur in any LLVM instruction statement.+Id values The Mv node is the root (there can be more than one) of the TBAA hierarchy and as of LLVM 4.0 should *only* be referenced by other nodes. It should never occur in any LLVM instruction statement.+Id values The Mv node is the root (there can be more than one) of the TBAA hierarchy and as of LLVM 4.0 should *only* be referenced by other nodes. It should never occur in any LLVM instruction statement.+Id values The Mv node is the root (there can be more than one) of the TBAA hierarchy and as of LLVM 4.0 should *only* be referenced by other nodes. It should never occur in any LLVM instruction statement.+Id values The Mv node is the root (there can be more than one) of the TBAA hierarchy and as of LLVM 4.0 should *only* be referenced by other nodes. It should never occur in any LLVM instruction statement.+The TBAA metadata identifier+@Get the correct TBAA metadata information for this register type +++++++++++ +++++++++++Noner;+ The Llvm monad. Wraps LlvmEnv state as well as the IO monadMw LLVM versionMx Dynamic flagsMy Output bufferMzSupply of unique valuesM{Supply of fresh metadata IDsM|Global metadata nodesM}"Global functions so far, with typeM~;Globals that we had to alias, see [Llvm Forward References]M'Pointers to be added to llvm.used (see cmmUsedLlvmGens)M!Local variables so far, with typeM9Non-constant registers (alloca'd in the function prelude)+!LLVM Version Number+#An unresolved Label.Labels are unresolved when we haven't yet determined if they are defined in the module we are currently compiling, or an external one.+$.Top level LLVM Data (globals and type aliases)+%GUnresolved code. Of the form: (data label, data type, unresolved data)+&#Global registers live on proc entry+))Translate a basic CmmType to an LlvmType.+**Translate a Cmm Float Width to a LlvmType.++(Translate a Cmm Bit Width to a LlvmType.MGHC Call Convention for LLVM+,#Llvm Function type for Cmm function+-Llvm Function signature+.Alignment to use for functions+/ Alignment to use for into tables+0Section to use for a function+1A Function's arguments+2Llvm standard fun attributes+3]Convert a list of types to a list of function parameters (each with no parameter attributes)+4 Pointer width+5-The LLVM Version that is currently supported.MBLifting of IO actions. Not exported, as we want to encapsulate IO.+7Get initial Llvm environment.MGet environment (internal)MModify environment (internal)+8"Lift a stream into the LlvmM monad+99Clear variables from the environment for a subcomputation+:3Insert variables or functions into the environment.+;3Insert variables or functions into the environment.+<1Lookup variables or functions in the environment.+=1Lookup variables or functions in the environment.+>(Set a register as allocated on the stack+?2Check whether a register is allocated on the stack+@1Allocate a new global unnamed metadata identifier+A/Get the LLVM version we are generating code for+B+Get the platform we are generating code for+C+Get the platform we are generating code for+DEDumps the document if the corresponding flag has been set by the user+E.Prints the given contents to the output handle+FMarks a variable as "used"+G,Return all variables marked as "used" so farMsSaves that at some point we didn't know the type of the label and generated a reference to a type variable instead+H%Sets metadata node for a given unique+I#Gets metadata node for given unique+J Here we pre-initialise some functions that are used internally by GHC so as to make sure they have the most general type in the case that user code also uses these functions but with a different type than GHC internally. (Main offender is treating return type as void) instead of 'void *'). Fixes trac #5486.+KPretty print a '.+NCreate/get a pointer to a global value. Might return an alias if the value in question hasn't been defined yet. We especially make no guarantees on the type of the returned pointer.+O7Generate definitions for aliases forward-referenced by  getGlobalPtr.fMust be called at a point where we are sure that no new global definitions will be generated anymore!+P=Here we take a global variable definition, rename it with a $def, suffix, and generate the appropriate alias.2 + +!+"+#+$+%+&+'+(+)+*+++,+-+.+/+0+1+2+3+4+5+6+7+8+9+:+;+<+=+>+?+@+A+B+C+D+E+F+G+H+I+J+K+L+M+N+O+P2+(+'+&+%+$+#+"+!+5+6+ +7+8+9+<+:+>+?+=+;+A +B+C+D+E+F+G+J+@+H+I+)+*+++,+-+1+2+.+/+4+3+0+K+L+M+N+O+P+ MMM MMwMxMyMzM{M|M}M~MMMNoneV^|+[8Run the linker with some arguments and return the outputM Version of &System.Process.readProcessWithExitCode> that takes a key-value tuple to insert into the environment.+^Run the LLVM Optimiser+_Run the LLVM Compiler+`~Run the clang compiler (used as an assembler for the LLVM backend on OS X as LLVM doesn't support the OS X system assembler)+a<Figure out which version of LLVM we are running this sessionMBRun a command, placing the arguments in an external response file.This command is used in order to avoid overlong command line arguments on Windows. The command line arguments are first written to an external, temporary response file, and then passed to the linker via @filepath. response files for passing them in. See: 'https://gcc.gnu.org/wiki/Response_Files -https://ghc.haskell.org/trac/ghc/ticket/10777+r7Some platforms require that we explicitly link against libmV if any math-y things are used (which we assume to include all programs). See #14022.MstdoutM program path program argsaddition to the environment(exit_code, stdout, stderr)# o q p +V+W+X+Y+Z+[+\+]+^+_+`+a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t#+V+W+X+Z+Y+\+]+d+e+f+g+^+_+`+a+b+c+q+[+h+i+j +n+o+k+l+m+p o p q+r+s+tMMMMNoneΞMIThe string appended to a variable name to create its structure type alias+u4Pass a CmmStatic section to an equivalent Llvm code.M4Should a data in this section be considered constantM-Format the section type part of a Cmm SectionM-Format a Cmm Section into a LLVM section name+vHandle static dataM(Generate Llvm code for a static literal.@Will either generate the code or leave it unresolved if it is a ' which isn't yet known.+u+v+u+vNone2+wHeader code for LLVM modulesM2LLVM module layout description for the host target+xPretty print LLVM data code+yPretty print LLVM code+zThe section we are putting info tables and their entry code into, should be unique since we process the assembly pattern matching this.+w+x+y+z+w+y+x+zNone &'>?FQTV +*The result of joining OldFact and NewFact.+!Result is different than OldFact.+Result is the same as OldFact.MSort the blocks into the right order for analysis. This means reverse postorder for a forward analysis. For the backward one, we simply reverse that (see Note [Backward vs forward analysis]).,Note: We're using Hoopl's confusingly named M but AFAICS it returns the *reverse* postorder of the blocks (it visits blocks in the postorder and uses (:) to collect them, which gives the reverse of the visitation order).Mfconstruct a mapping from L -> block indices. If the fact for L changes, re-analyse the given blocks.MAfter some new facts have been generated by analysing a block, we fold this function over them to generate (a) a list of block indices to (re-)analyse, and (b) the new FactBase.+_Returns the result of joining the facts from all the successors of the provided node or block.+(Returns the joined facts for each label.+PFolds backward over all nodes of an open-open block. Strict in the accumulator.+{+|+}+~+++++++++++++++++|+}+~+++++++++{++++++MMM+|+}+~++++++++NoneQV| MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMNNNNNNNNNN N N N N NNNNNNNNNNNNNNNNNNN N!N"N#N$N%N&N'N(N)N*N+N,N-N.N/N0N1N2N3N4N5N6N7N8N9N:N;N<N=N>N?N@NANBNCNDNENFNGNHNINJNKNLNMNNNONPNQNRNSNTNUNVNWNXNYNZN[N\N]N^N_N`NaNbNcNdNeNfNgNhNiNjNkNlNmNnNoNpNqNrNsNtNuNvNwNxNyNzN{N|N}N~NNNNNNNNNNNNN+{+|+}+~+++++++++++++++None3+Common things that we can do with instructions, on all architectures. These are used by the shared parts of the native code generator, specifically the register allocators.+IGet the registers that are being used by this instruction. regUsage doesn't need to do any trickery for jumps and such. Just state precisely the regs read and written by that insn. The consequences of control flow transfers, as far as register allocation goes, are taken care of by the register allocator.+OApply a given mapping to all the register references in this instruction.+Checks whether this instruction is a jump/branch instruction. One that can change the flow of control in a way that the register allocator needs to worry about.+lGive the possible destinations of this jump instruction. Must be defined for all jumpish instructions.+Change the destination of this jump instruction. Used in the linear allocator when adding fixup blocks for join points.+5An instruction to spill a register into a spill slot.+6An instruction to reload a register from a spill slot.+?See if this instruction is telling us the current C stack delta+pCheck whether this instruction is some meta thing inserted into the instruction stream for other purposes.jNot something that has to be treated as a real machine instruction and have its registers allocated. eg, comments, delta, ldata, etc.+VCopy the value in a register to another one. Must work for all register classes.+fTake the source and destination from this reg -> reg move instruction or Nothing if it's not one+Make an unconditional jump instruction. For architectures with branch delay slots, its ok to put a NOP after the jump. Don't fill the delay slot with an instruction that references regs or you'll confuse the linear allocator.+XHolds a list of source and destination registers used by a particular instruction.Machine registers that are pre-allocated to stgRegs are filtered out, because they are uninteresting from a register allocation standpoint. (We wouldn't want them to end up on the free list!)kAs far as we are concerned, the fixed registers simply don't exist (for allocation purposes, anyway).+No regs read or written to.+JReturns the info table associated with the CmmDecl's entry point, if any.+Return the list of BlockIds in a CmmDecl that are entry points for this proc (i.e. they may be jumped to from outside this proc).+the reg to spillthe current stack deltaspill slot to use+the reg to reload.the current stack deltathe spill slot to use+source registerdestination register)_)`)a)b)++++++++++++++++++++++++++)a)b))_)`+++++++++++++++++++++++++++++++++++++None+%Get the integer format of this width.+#Get the float format of this width.+4Check if a format represents a floating point value.+Convert a Cmm type to a Format.+Get the Width of a Format.++++++++++++++++++++++++++++++++++++None1+8Get the standard name for the register with this number.+regSqueeze_class reg Calculuate the maximum number of register colors that could be denied to a node of this class due to having this reg as a neighbour.+MAll the allocatable registers in the machine, including register pairs.+"Get the regno for this sort of reg+"Get the regno for this sort of reg+"Get the regno for this sort of reg+"Get the regno for this sort of reg+"Get the regno for this sort of reg+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+.Some specific regs used by the code generator.+BProduce the second-half-of-a-double register given the first half.dAll the regs that the register allocator can allocate to, with the the fixed use regs removed.+XThe registers to place arguments for function calls, for some number of arguments.+;All all the regs that could possibly be returned by argRegs+$Make a virtual reg with this format.++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++None;+Get an AddrMode relative to the address in sp. This gives us a stack relative addressing mode for volatile temporaries and for excess call arguments.+Get an address relative to the frame pointer. This doesn't work work for offsets greater than 13 bits; we just hope for the best+=Convert a spill slot number to a *byte* offset, with no sign.+tThe maximum number of spill slots available on the C stack. If we use up all of the slots, then we're screwed.WWhy do we reserve 64 bytes, instead of using the whole thing?? -- BL 20090215++stack offset in words, positive or negative++++++++NoneAF+1A reg map where no regs are free to be allocated.+The initial set of free regs.+)Get all the free registers of this class.+Grab a register.+Release a register from allocation. The register liveness information says that most regs die after a C call, but we still don't want to allocate to some of them. +++++++++ ++++++++++++NoneD+regSqueeze_class reg Calculuate the maximum number of register colors that could be denied to a node of this class due to having this reg as a neighbour.3+++++++++++++++++++++++++++++,,,,,,,,,, , , , , ,,,,,,,,3+++++++++++++++++++++++++++++,,,,,,,,,, , , , , ,,,,,,,,++++++++++++++++++NoneF,,,,,,,,,,,,,,,,None&'QV^,4Useful for creating an index into an array, with a statically known offset. The type is the element type; used for making the multiplier,5CUseful for creating an index into an array, with an unknown offset.,YReturns True if the two STG registers overlap on the specified platform, in the sense that writing to one will clobber the other. This includes the case that the two registers are the same STG register. See Note [Overlapping global registers] for details.,ZReturns True if the STG register is used by the expression, in the sense that a store to the register might affect the value of the expression.We must check for overlapping registers and not just equal registers here, otherwise CmmSink may incorrectly reorder assignments that conflict due to overlap. See Trac #10521 and Note [Overlapping global registers].,alike ,`(, but the entry block always comes first,bLike ,a , but we strive to ensure that we order blocks so that the false case of a conditional jumps to the next block in the output list of blocks. This matches the way OldCmm blocks were output since in OldCmm the false case was a fallthrough, whereas in Cmm conditional branches have both true and false successors. Block ordering can make a big difference in performance in the LLVM backend. Note that we rely crucially on the order of successors returned for CmmCondBranch by the NonLocal instance for CmmNode defind in cmm/CmmNode.hs. -GBM,i1Extract all tick annotations from the given blockL,,, ,!,",#,$,%,&,',(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>,?,@,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,[,\,],^,_,`,a,b,c,d,e,f,g,h,iL,,,", ,#,!,&,$,(,-,),*,+,,,%,',.,1,0,3,2,/,7,8,:,;,9,>,=,@,?,<,4,5,6,A,O,F,G,H,J,I,D,E,B,C,L,K,M,N,Q,R,S,P,T,U,V,W,X,Y,Z,[,\,^,],_,c,`,d,a,b,g,e,h,f,iNone &';<=FTax(()))))None<FTV,w(A basic block with liveness information.,xNStash regs live on entry to each basic block in the info part of the cmm code.,z*Liveness information. The regs which die are ones which are no longer live in the *next* instruction in this sequence. (NB. if the instruction is a jump, these registers might still be live at the jump target(s) - you have to check the liveness at the destination block to find out).,{=registers that died because they were clobbered by something.,|?registers born in this instruction (written to for first time).,}=registers that died because they were read for the last time.,)An instruction with liveness information.,eThe register allocator also wants to use SPILL/RELOAD meta instructions, so we'll keep those here.,A real machine instruction,spill this reg to a stack slot,!reload this reg from a stack slot,5A top level thing which carries liveness information.,7map a function across all the basic blocks in this code,Imap a function across all the basic blocks in this code (monadic version),Imap a function across all the basic blocks in this code (monadic version),Slurp out the list of register conflicts and reg-reg moves from this top level thing. Slurping of conflicts and moves is wrapped up together so we don't have to make two passes over the same code when we want to build the graph.,For spill/reloads+SPILL v1, slot1 ... RELOAD slot1, v2If we can arrange that v1 and v2 are allocated to the same hreg it's more likely the spill/reload instrs can be cleaned and replaced by a nop reg-reg move.,4Strip away liveness information, yielding NatCmmDecl,Strip away liveness information from a basic block, and make real spill instructions out of SPILL, RELOAD pseudos along the way.,Erase Delta instructions.,Patch the registers in this code according to this register mapping. also erase reg -> reg moves when the reg is the same. also erase reg -> reg moves when the destination dies in this instr.,FPatch registers in this LiveInstr, including the liveness information.,FConvert a NatCmmDecl to a LiveCmmDecl, with empty liveness informationNHCheck ordering of Blocks The computeLiveness function requires SCCs to be in reverse dependent order. If they're not the liveness information will be wrong, and we'll get a bad allocation. Better to check for this precondition explicitly or some other poor sucker will waste a day staring at bad assembly code..,If we've compute liveness info for this code already we have to reverse the SCCs in each top to get them back to the right order so we can do it again.NComputing livenessnOn entry, the SCCs must be in "reverse" order: later blocks may transfer control to earlier ones only, else .aThe SCCs returned are in the *opposite* order, which is exactly what we want for the next pass.N:Annotate a basic block with register liveness information.NCCalculate liveness going forwards, filling in when regs are bornNoCalculate liveness going backwards, filling in when regs die, and what regs are live across each instructionNDSCCs of blocks that we're about to run the liveness determinator on.$BlockIds that fail the test (if any)#,w,x,y,z,{,|,},~,,,,,,,,,,,,,,,,,,,,,,,,,,#,,,,,,,,,,,,z,{,|,},~,x,y,w,,,,,,,,,,,,,,,,x,y,z,{,|,},~,,,,,,None,The register allocator state,gthe current mapping from basic blocks to the register assignments at the beginning of that block.,free machine registers, assignment of temps to locations,current stack delta,free stack slots for spilling,?unique supply for generating names for join point fixup blocks.,Record why things were spilled, for -ddrop-asm-stats. Just keep a list here instead of a map of regs -> reasons. We don't want to slow down the allocator if we're not going to emit the stats.,>Used to carry interesting stats out of the register allocator.,qReasons why instructions might be inserted by the spiller. Used when generating stats for -ddrop-asm-stats.,Rvreg was spilled to a slot so we could use its current hreg for another vreg,-vreg was moved because its hreg was clobbered,!vreg was loaded from a spill slot,,reg-reg move inserted during join to targets,,reg-mem move inserted during join to targets,_Where a vreg is currently stored A temporary can be marked as living in both a register and memory (InBoth), for example if it was recently loaded from a spill location. This makes it cheap to spill (no save instruction required), but we have to be careful to turn this into InReg if the value in the register is changed.,vreg is in a register,vreg is held in a stack slot,0vreg is held in both a register and a stack slot,Used to store the register assignment on entry to a basic block. We use this to handle join points, where multiple branch instructions target a particular label. We have to insert fixup code to make the register assignments from the different sources match up.,'Get the reg numbers stored in this Loc.,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,Nonez,JBuild a map of how many times each reg was alloced, clobbered, loaded etc.,+Count reg-reg moves remaining in this code.,Pretty print some RegAllocStats,,,,,,None,"The register allocator monad type.,7Run a computation in the RegM register allocator monad.N3Make register allocator stats from its final state.,<Record that a spill instruction was inserted, for profiling.,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,NNNone՚ ,Map of ,,0Records the expected cost to spill some regster.,An empty map of spill costs.,Add two spill cost infos.,Add two spill cost records.,7Slurp out information used for determining spill costs.For each vreg, the number of times it was written to, read from, and the number of instructions it was live on entry to (lifetime)N-Take all the virtual registers from this set.,&Choose a node to spill from this graphN Chaitins spill cost function is:cost = sum loadCost * freq (u) + sum storeCost * freq (d) u <- uses (v) d <- defs (v)MThere are no loops in our code at the momemnt, so we can set the freq's to 1.If we don't have live range splitting then Chaitins function performs badly if we have lots of nested live ranges and very few registers.v1 v2 v3 def v1 . use v1 . def v2 . . def v3 . . . use v1 . . . use v3 . . . use v2 . . use v1 .defs uses degree cost v1: 1 3 3 1.5 v2: 1 2 3 1.0 v3: 1 1 3 0.666v3 has the lowest cost, but if we only have 2 hardregs and we insert spill code for v3 then this isn't going to improve the colorability of the graph.When compiling SHA1, which as very long basic blocks and some vregs with very long live ranges the allocator seems to try and spill from the inside out and eventually run out of stack slots.zWithout live range splitting, its's better to spill from the outside in so set the cost of very long live ranges to zero,+Extract a map of register lifetimes from a ,.NUDetermine the degree (number of neighbors) of this node which have the same class.,`Show a spill cost record, including the degree from the graph and final calulated spill cost. ,,,,,,,,, ,,,,,,,,,NoneANCleaner state.N0Regs which are valid at the start of each block.NCollecting up what regs were valid across each jump. in the next pass we can collate these and write the results to sJumpValid.NMap of (slot -> blocks which reload from this slot) used to decide if whether slot spilled to will ever be reloaded from on this path.N6Spills and reloads cleaned each pass (latest at front)N>Spills and reloads that have been cleaned in this pass so far.NCleaner monad.NThe identification number of a spill slot. A value is stored in a spill slot when we don't have a free register to hold it.,;Clean out unneeded spill/reloads from this top level thing.NDo one pass of cleaning.NOClean out unneeded reload instructions, while walking forward over the code.N'Clean out unneeded reload instructions.Walking forwards across the code On a reload, if we know a reg already has the same value as a slot then we don't need to do the reload.N?Try and rewrite a reload instruction to something more pleasingNPClean out unneeded spill instructions, while walking backwards over the code.If there were no reloads from a slot between a spill and the last one then the slot was never read and we don't need the spill.SPILL r0 -> s1 RELOAD s1 -> r2 SPILL r3 -> s1 <--- don't need this spill SPILL r4 -> s1 RELOAD s1 -> r5WMaintain a set of "slots which were spilled to but not reloaded from yet"]Walking backwards across the code: a) On a reload from a slot, remove it from the set.a) On a spill from a slot If the slot is in set then we can erase the spill, because it won't be reloaded from until after the next spill.Cotherwise keep the spill and add the slot to the setnTODO: This is mostly inter-block we should really be updating the noReloads set as we cross jumps also..TODO: generate noReloads from liveSlotsOnEntryN@Combine the associations from all the inward control flow edges.NOSee if we have a reg with the same value as this slot in the association table.N$Construct the initial cleaner state.N(Remember the associations before a jump.NCheck if this is a reg store.NAn empty associationN,Add an association between these two things.N"Delete all associations to a node.N*Delete a single association edge (a -> b).N)Check if these two things are associated.NAFind the refl. trans. closure of the association from this point.NIntersect two associations.N!Iteration number for the cleaner.!Liveness annotated code to clean.N!the block that we're currently inCtwo store locations are associated if they have the same valueacc$instrs to clean (in backwards order)$cleaned instrs (in forward order)N!Slots live on entry to each block3Slots that have been spilled, but not reloaded fromacc#Instrs to clean (in forwards order)$Cleaned instrs (in backwards order),,NNNNNNNNNNNNone!w,<Spiller statistics. Tells us what registers were spilled.NSpill code generator state.N)Unique supply for generating fresh vregs.N:Spilled vreg vs the number of times it was loaded, stored.N)State monad for the spill code generator.,,Spill all these virtual regs to stack slots.TODO: See if we can split some of the live ranges instead of just globally spilling the virtual reg. This might make the spill cleaner's job easier.TODO: On CISCy x86 and x86_64 we don't nessesarally have to add a mov instruction when making spills. If an instr is using a spilled virtual we may be able to address the spill slot directly.N9Spill some registers to stack slots in a top-level thing.N5Spill some registers to stack slots in a basic block.NSpill some registers to stack slots in a single instruction. If the instruction uses registers that need to be spilled, then it is prefixed (or postfixed) with the appropriate RELOAD or SPILL meta instructions.NqAdd a RELOAD met a instruction to load a value for an instruction that writes to a vreg that is being spilled.NpAdd a SPILL meta instruction to store a value for an instruction that writes to a vreg that is being spilled.N}Add both RELOAD and SPILL meta instructions for an instruction that both reads and writes to a vreg that is being spilled.NORewrite uses of this virtual reg in an instr to use a different virtual reg.NCreate a new spiller state.N+Allocate a new unique in the spiller monad.,:Add a spill/reload count to a stats record for a register.N2Extract spiller statistics from the spiller state.,the codeavailable stack slotsthe regs to spillN/map of vregs to slots they're being spilled to.the top level thing.N/map of vregs to slots they're being spilled to.N/map of vregs to slots they're being spilled to.,,,,,,,,,,,,,NNNNNone,,.Do register coalescing on this top level thingFor Reg -> Reg moves, if the first reg dies at the same time the second reg is born then the mov only serves to join live ranges. The two regs can be renamed to be the same and the move instruction safely erased.N|Add a v1 = v2 register renaming to the map. The register with the lowest lexical name is set as the canonical version.NZDetermine the canonical name for a register by following v1 = v2 renamings in this map.,?Slurp out mov instructions that only serve to join live ranges.During a mov, if the source reg dies and the destiation reg is born then we can rename the two regs to the same thing and eliminate the move.,,,,None&'-Q,,,,NNNNone&'=9NGA more convenient way of accumulating LLVM statements and declarations.NValues which can be passed to N6 to configure its behaviour in certain circumstances.Currently just used for determining if a comparison should return a boolean (i1) or a word. See Note [Literals and branch conditions].NAn expression conversion return data: * LlvmVar: The var holding the result of the expression * LlvmStatements: Any statements needed to evaluate the expression * LlvmCmmDecl: Any global data needed for this expression,)Top-level of the LLVM proc Code generatorNGenerate code for a list of blocks that make up a complete procedure. The first block in the list is exepected to be the entry point and will get the prologue.NGenerate code for one blockN.Convert a list of CmmNode's to LlvmStatement'sN.Convert a CmmStmt to a list of LlvmStatement'sNBWrapper function to declare an instrinct function by function typeN<Declares an instrinct function by return and parameter typesN*Memory barrier instruction for LLVM >= 3.0N Foreign CallsNLGenerate a call to an LLVM intrinsic that performs arithmetic operation with overflow bit (i.e., returns a struct containing the actual result of the operation and an overflow bit). This function will also extract the overflow bit and zero-extend it (all the corresponding Cmm PrimOps represent the overflow "bit" as a usual Int or Word).NA helper function for genCallWithOverflow that handles generating the call to the LLVM intrinsic and extracting the result from the struct to LlvmVars.N(Create a function pointer from a target.N(Create a function pointer from a target.NConversion of call arguments.NConversion of call arguments.N6Cast a collection of LLVM variables to specific types.N6Cast a collection of LLVM variables to specific types.NGCast an LLVM variable to a specific type, panicing if it can't be done.N:Decide what C function to use to implement a CallishMachOpNTail function callsNCmmAssign operationlWe use stack allocated variables for CmmReg. The optimiser will replace these with registers when possible.NCmmStore operationNnCmmStore operation This is a special case for storing to a global register pointer offset such as I32[Sp+8].NNCmmStore operation Generic case. Uses casts and pointer arithmetic if needed.NUnconditional branchNConditional branchNHGenerate call to llvm.expect.x intrinsic. Assigning result to a new var.N Switch branchN'i1 type expected (condition scrutinee).NWord type expected (usual).NvConvert a CmmExpr to a list of LlvmStatements with the result of the expression being stored in the returned LlvmVar.NHandle CmmMachOp expressionsNHandle CmmMachOp expressions This is a specialised method that handles Global register manipulations like 'Sp - 16', using the getelementptr instruction.NfHandle CmmMachOp expressions This handles all the cases not handle by the specialised genMachOp_fast.NHandle CmmLoad expression.NxHandle CmmLoad expression. This is a special case for loading from a global register pointer offset such as I32[Sp+8].NWHandle Cmm load expression. Generic case. Uses casts and pointer arithmetic if needed.NHandle CmmReg expression. This will return a pointer to the stack location of the register. Throws an error if it isn't allocated on the stack.N]Return the value of a given register, as well as its type. Might need to be load from stack.N$Allocate a local CmmReg on the stackNGenerate code for a literalN=Find CmmRegs that get assigned and allocate them on the stackAny register that gets written needs to be allcoated on the stack. This avoids having to map a CmmReg to an equivalent SSA form and avoids having to deal with Phi node insertion. This is also the approach recommended by LLVM developers.On the other hand, this is unnecessarily verbose if the register in question is never written. Therefore we skip it where we can to save a few lines in the output and hopefully speed compilation up a bit.NhFunction epilogue. Load STG variables to use as argument for call. STG Liveness optimisation done here.N6A series of statements to trash all the STG registers.In LLVM we pass the STG registers around everywhere in function calls. So this means LLVM considers them live across the entire function, when in reality they usually aren't. For Caller save registers across C calls the saving and restoring of them is done by the Cmm code generator, using Cmm local vars. So to stop LLVM saving them as well (and saving all of them since it thinks they're always live, we trash them just before the call by assigning the undefy value to them. The ones we need are restored from the Cmm local var and the ones we don't need are fine to be trashed.N/Get a function pointer to the CLabel specified.aThis is for Haskell functions, function type is assumed, so doesn't work with foreign functions.NCreate a new local varN0Execute an expression, assigning result to a varNExpand CmmRegOffN0Convert a block id into a appropriate Llvm labelNCreate Llvm int LiteralN1Convert int type to a LLvmVar of word or i32 sizeNError functionsO Returns TBAA meta data by uniqueO)Returns TBAA meta data for given registerNPrimOpWidth of the operands.Actual arguments.#LLLVM types of the returned sturct.,,NONOONone&'L,(Expressions, used for unwind information, literal value,register plus offset,pointer dereferencing,zMaps registers to expressions that yield their "old" values further up the stack. Most interesting for the stack pointer Sp_, but might be useful to document saved registers, too. Note that a register's value will be J%= when the register's previous value cannot be reconstructed.,A label associated with an ,OVIntermediate data structure holding debug-relevant context information about a block.,IDebug information about a block of code. Ticks scope over nested blocks.,Entry label of containing proc, Hoopl label, Output label,Has an info table?,9The parent of this proc. See Note [Splitting DebugBlocks],Ticks defined in this block,Best source tick covering block,+Output position relative to other blocks. Nothing# means the block was optimized out- Nested blocks-Is this the entry block?-Extract debug data from a group of procedures. We will prefer source notes that come from the given module (presumably the module that we are currently compiling).O1Build a map of blocks sorted by their tick scopesThis involves a pre-order traversal, as we want blocks in rough control flow order (so ticks have a chance to be sorted in the right order).-bSets position and unwind table fields in the debug block tree according to native generated code.-9Converts debug blocks into a label map for easier lookups-Conversion of Cmm expressions to unwind expressions. We check for unsupported operator usages and simplify the expression as far as possible.,,,,,,,,,,,,,,,,,,,,,--------,,,,,,,,,,-------,,,,,,,,,,,-,,,,,,,,,,, ,,,,,,,,,--None- - --- - --None&'<VO:A mapping from block labels to the variables live on entryO&The variables live on entry to a block-The dataflow lattice-'Calculated liveness info for a CmmGraphO JOn entry to the procedure, there had better not be any LocalReg's live-in.----------None&'lO conflicts (r,e) node is False if and only if the assignment r = e' can be safely commuted past statement node.--O O O OOONone&'----OOONone-AValue of the srt field of an info table when using an StgLargeSRTOWReturns: 1. The bitmap (literal value or label) 2. Large bitmap CmmData if needed----- -!-"-#-$-%-&-'-(-)-*-+-,---.-/-0-1-2-3-4-5-6----- -!-"-#-$-%-&-'-(-)-*-+-,---.-/-0-1-6-2-3-4-5None"&' -7-8-9-:-;-<-=->-? -:-7-8-9-<-=->-;-?-7-8-9None&'-ATraverses the ), making sure that (# are suitable for code generation.-A-ANone&'-B-C-D-E-B-C-E-DNone&'NO$Ignore these node types for equalityOGiven a block map, ensure that all "target" blocks are covered by the same ticks as the respective "source" blocks. This not only means copying ticks, but also adjusting tick scopes where necessary.-F-FNonev-JvGiven a list of arguments, and a function that tells their types, return a list showing where each argument is passed-G-H-I-J-K-L-G-H-I-J-K-L-G-H-INone&'9 -XUnlabeled graph with tick scope-Y+CmmAGraph is a chunk of code consisting of:.ordinary statements (assignments, stores etc.)jumpslabelsout-of-line labelled blocksThe semantics is that control falls through labels and out-of-line blocks. Everything after a jump up to the next label is by definition unreachable code, and will be discarded.*Two CmmAGraphs can be stuck together with  *D, with the meaning that control flows from the first to the second.A -Y can be turned into a )X (closed at both ends) by providing a label for the entry point and a tick scope; see -a.-\.created a sequence "goto id; id:" as an AGraph-](creates an open AGraph from a given node-^)created a closed AGraph from a given node-_0A labelled code block; should end in a last node-`*allocate a fresh label for the entry point-a5use the given BlockId as the label of the entry point-gaA jump where the caller says what the live GlobalRegs are. Used for low-level hand-written Cmm.-q Construct a (7 node for the given register and unwinding expression.*-N-O-Q-R-P-S-U-T-V-W-X-Y-Z-[-\-]-^-_-`-a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w*-Y-X-S-T-U-V-W-Z-[-\-]-^-_-`-a-r-b-d-e-p-m-n-o-f-h-g-i-j-k-c-u-l-q-s-t-v-w-N-O-P-Q-R-N-O-P-Q-R-S-T-U-V-WNone&'-|An analysis to find live CAFs.-y-z-{-|-}-~---{-z-|--y-}-~--yOOOOONone&'ǤOWe map STG registers onto appropriate CmmExprs. Either they map to real machine registers or stored as offsets from BaseReg. Given a GlobalReg, get_GlobalReg_addr always produces the register table address for it.-zFixup global registers so that they assign to locations within the RegTable if they aren't pinned for the current target.--NoneFTϨ-$Top-level of the LLVM Code generatorO8Do LLVM code generation on all these Cmms data sections.OLLVM can't handle entry blocks which loop back to themselves (could be seen as an LLVM bug) so we rearrange the code to keep the original entry label which branches to a newly generated second label that branches back to itself. See: Trac #11649OHComplete LLVM code generation phase for a single top-level chunk of Cmm.O Generate meta data nodesO!'Marks variables as used where necessary^--^None)-kEvery node in an expression annotated with its (non-global) free variables, both Ids and TyVars, and type.-kEvery node in an expression annotated with its (non-global) free variables, both Ids and TyVars, and type.-mEvery node in a binding group annotated with its (non-global) free variables, both Ids and TyVars, and type.-hFind all locally-defined free Ids or type variables in an expression returning a non-deterministic set.O"Find all locally-defined free Ids or type variables in an expression returning a composable FV computation. See Note [FV naming conventions] in FV for why export it.-dFind all locally-defined free Ids or type variables in an expression returning a deterministic set.-qFind all locally-defined free Ids or type variables in an expression returning a deterministically ordered list.-2Find all locally-defined free Ids in an expression-RFind all locally-defined free Ids in an expression returning a deterministic set.-_Find all locally-defined free Ids in an expression returning a deterministically ordered list.-XFind all locally-defined free Ids in several expressions returning a deterministic set.-eFind all locally-defined free Ids in several expressions returning a deterministically ordered list.-nFind all locally-defined free Ids or type variables in several expressions returning a non-deterministic set.O#Find all locally-defined free Ids or type variables in several expressions returning a composable FV computation. See Note [FV naming conventions] in FV for why export it.-wFind all locally-defined free Ids or type variables in several expressions returning a deterministically ordered list.-4Find all locally defined free Ids in a binding group-=Finds free variables in an expression selected by a predicate-jFinds free variables in an expression selected by a predicate returning a deterministically ordered list.O$]Finds free variables in an expression selected by a predicate returning a deterministic set.-CFinds free variables in several expressions selected by a predicate-pFinds free variables in several expressions selected by a predicate returning a deterministically ordered list.O%cFinds free variables in several expressions selected by a predicate returning a deterministic set.O&Finds the free externalo names of an expression, notably including the names of type constructors (which of course do not show up in -).-Finds the free external# names of several expressions: see O& for details-orphNamesOfAxiom collects the names of the concrete types and type constructors that make up the LHS of a type family instance, including the family name itself.mFor instance, given `type family Foo a b`: `type instance Foo (F (G (H a))) b = ...` would yield [Foo,F,G,H].Used in the implementation of ":info" in GHCi.-ZThose variables free in the right hand side of a rule returned as a non-deterministic set-iThose variables free in the both the left right hand sides of a rule returned as a non-deterministic setO'`Those variables free in the both the left right hand sides of a rule returned as FV computationO(_Those variables free in the both the left right hand sides of rules returned as FV computation-dThose variables free in the both the left right hand sides of rules returned as a deterministic set-<Those variables free in the right hand side of several rules-tThis finds all locally-defined free Ids on the left hand side of a rule and returns them as a non-deterministic set-}This finds all locally-defined free Ids on the left hand side of a rule and returns them as a determinisitcally ordered listO)fThis finds all locally-defined free Ids on the left hand side of a rule and returns an FV computation--Free variables of a vectorisation declaration-Inverse function to --7Extract the vars free in an annotated expression's type-=Extract the type of an annotated expression. (This is cheap.)-$Extract the vars reported in a FVAnn-/Extract the type-level vars reported in a FVAnn- Annotate a !CG with its (non-global) free type and value variables at every tree node- Says which s are interesting- Says which s are interestingO$ Says which s are interestingO% Says which s are interesting5/----------------------------------------------------5-----------/------------------------------------------O*O+O,O-3None<^n*-LWhat to expect for an argument to a rebindable-syntax operator. Quite like , but allows for holes to be filled in by tcSyntaxOp. The callback called from tcSyntaxOp gets a list of types; the meaning of these types is determined by a left-to-right depth-first traversal of the - tree. So if you pass in >SynAny `SynFun` (SynList `SynFun` SynType Int) `SynFun` SynAny/you'll get three types back: one for the first -, the element) type of the list, and one for the last -". You don't get anything for the -O, because you've said positively that it should be an Int, and so it shall be.<This is defined here to avoid defining it in TcExpr.hs-boot.-Any type-<A rho type, deeply skolemised or instantiated as appropriate-6A list type. You get back the element type of the list- A function.- A known type.-|An expected type to check against during type-checking. See Note [ExpType] in TcMType, where you'll also find manipulators..Make an - suitable for checking..Like - but accepts a regular TcType.Like Q but for -.EFinds outermost type-family applications occuring in a type, after expanding synonyms. In the list (F, tys) that is returned we guarantee that tys matches F's arity. For example, given type family F a :: * -> * (arity 1) calling tcTyFamInsts on (Maybe (F Int Bool) will return (F, [Int]), not (F, [Int,Bool])This is important for its use in deciding termination of type instances (see Trac #11581). E.g. type instance G [Int] = ...(F Int  bigtype)... we don't need to take  bigtypeK into account when asking if the calls on the RHS are smaller than the LHS.@Check that a type does not contain any type family applications..dFind all variables bound anywhere in a type. See also Note [Scope-check inferred kinds] in TcHsType. Worker for splitDepVarsOfType. This might output the same var in both sets, if it's used in both a type and a kind. See Note [CandidatesQTvs determinism and order] See Note [Dependent type variables].Like splitDepVarsOfType, but over a list of types. ;True of both given and wanted flatten-skolems (fak and usk).!True of FlatSkol skolems only.1-Make a sigma ty where all type variables are >. That is, they cannot be used with visible type application..2rMake a sigma ty where all type variables are "specified". That is, they can be used with visible type application.9$Splits a forall type into a list of Is and the inner type. Always succeeds, even if it returns an empty list..;Like .9B, but splits off only named binders, returning just the tycovars..<Like .;$, but splits off only named binders..='Is this a ForAllTy with a named binder?.@"Split a sigma type into its parts..A<Split a sigma type into its parts, going underneath as many ForAllTy5s as possible. For example, given this type synonym: Ktype Traversal s t a b = forall f. Applicative f => (a -> f b) -> s -> f t if you called tcSplitSigmaTy on this type: 2forall s t a b. Each s t a b => Traversal s t a b then it would return .([s,t,a,b], [Each s t a b], Traversal s t a b). But if you instead called tcSplitNestedSigmaTys on the type, it would return D([s,t,a,b,f], [Each s t a b, Applicative f], (a -> f b) -> s -> f t)..DLike , but only returns the M..GLike , but returns J% if, ?the type is structurally not a type constructor application, or1the type is a function type (e.g. application of u), but we currently don't even enough information to fully determine its RuntimeRep variables. For instance, FunTy (a :: k) Int. By contrast  panics in the second case.The behavior here is needed during canonicalization; see Note [FunTy and decomposing tycon applications] in TcCanonical for details..JWSplit off exactly the specified number argument types Returns (Left m) if there are m] missing arrows in the type (Right (tys,res)) if the type looks like t1 -> ... -> tn -> res.M?Strips off n *visible* arguments and returns the resulting type.Y Just like .Xj, but will return True for types of different kinds as long as their non-coercion structure is identical..ZLike .X_, but returns information about whether the difference is visible in the case of a mismatch. Nothing : the types are equal  Just True> : the types differ, and the point of difference is visible  Just False= : the types differ, and the point of difference is invisibleO.Real worker for .X. No kind check!.[Like pickyEqTypeVis$, but returns a Bool for convenience.aHWhen inferring types, should we quantify over a given predicate? Generally true of classes; generally false of equality constraints. Equality constraints that mention quantified type variables and implicit variables complicate the story. See Notes [Inheriting implicit parameters] and [Quantifying over equality constraints].iLike .h, but also says J  for - types.s.Does a type represent a floating-point number?.t Is a type J3?.u Is a type a ?.vIs a  a  implicit parameter?(If so, return the name of the parameter..weDoes the given tyvar appear in the given type outside of any non-newtypes? Assume we're looking for a. Says "yes" for a, N a, b a, a b, b (N a). Says "no" for [a], Maybe a, T a, where N is a newtype and T is a datatype..xIs the equality a ~r ...a.... definitely insoluble or not? a ~r Maybe a -- Definitely insoluble a ~N ...(F a)... -- Not definitely insoluble -- Perhaps (F a) reduces to Int a ~R ...(N a)... -- Not definitely insoluble -- Perhaps newtype N a = MkN Int See Note [Occurs check error] in TcCanonical for the motivation for this function..zTrue of all Nominal equalities that are solidly insoluble This means all equalities *except* * Meta-tv non-SigTv on LHS * Meta-tv SigTv on LHS, tyvar on rightO.tcView, if you want unwrappingQ?---------'(>JKLMNOPQRSWXY\^_`acdefoqrwz{|~{~ -------------------------------------------------------------------.......... . . . . ................... .!.".#.$.%.&.'.(.).*.+.,.-.../.0.1.2.3.4.5.6.7.8.9.:.;.<.=.>.?.@.A.B.C.D.E.F.G.H.I.J.K.L.M.N.O.P.Q.R.S.T.U.V.W.X.Y.Z.[.\.].^._.`.a.b.c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.v.w.x.y.z.{.|.}.~............Q------.-----.--------------.------..--. . . . .. ...---------------------..-------.------..".$.&.,.#..!.. .%.*.'.-.../.(.+.)....3.1.2.0.5.6.7.8.:.;.9.<.?.>.I.H.K.L.M.J.F.G.C.D.E.N.O.P.Q.R.@.A.B.[.X.W.Y.Z.g.h.i.j.s.l.k.n.o.t.m.p.q.r.u.v.S.=.\.w.x.].^.z.y.}----.4._.`.c.d.a.b.e.f......----..............~('XY~RSPQWNO.T.U.V\{ML?>w|~z{ ^coaf_dq`er.{.|JK-.. --------------------------------------------------------0O/3None1 . Evidence for  CallStack implicit parameters..EvCsPushCall name loc stk represents a call to name, occurring at loc, in a calling context stk..Instructions on how to make a Typeable0 dictionary. See Note [Typeable evidence terms].Dictionary for  Typeable T where TF is a type constructor with all of its kind variables saturated. The [EvTerm] is Typeable" evidence for the applied kinds...Dictionary for Typeable (s t), given a dictionaries for s and t..Dictionary for Typeable (s -> t), given a dictionaries for s and t..%Dictionary for a type literal, e.g. Typeable "foo" or  Typeable 3 The . is evidence of, e.g.,  KnownNat 3 (see Trac #10348).5mkWpFuns [(ty1, wrap1), (ty2, wrap2)] ty_res wrap_res , where wrap1 :: ty1 "->" ty1' and wrap2 :: ty2 "->" ty2', wrap3 :: ty3 "->" ty3' and ty_res is either ty3 or ty3', gives a wrapper /(ty1' -> ty2' -> ty3) "->" (ty1 -> ty2 -> ty3'). Notice that the result wrapper goes the other way round to all the others. This is a result of sub-typing contravariance. The SDoc is a description of what you were doing when you called mkWpFuns..Do SCC analysis on a bag of .s./ Create a s that unwraps an implicit-parameter or overloaded-label dictionary to expose the underlying value. We expect the A to have the form `IP sym ty` or `IsLabel sym ty`, and return a  `co :: IP sym ty ~ ty` or `co :: IsLabel sym ty ~ Proxy# sym -> ty`. See also Note [Type-checking overloaded labels] in TcExpr./ Create a > that wraps a value in an implicit-parameter dictionary. See /.y@.............................................................................................................///y......................../..........................................................@...........................// ............ ........................... .........None+01<FTW/1Constraint type to bundle up the requirement for  on both the id and the / type for it/ Follow the id+, but never beyond Name. This is used in a HsMatchContext&, for printing messages related to a Match//Types that are not defined until after renaming/4Types that are not defined until after type checking/0used as place holder in PostTc and PostRn values////////////// /!////////// /!//////None+01;<=L>/2Ambiguous Field OccurrenceRepresents an *occurrence* of a field that is potentially ambiguous after the renamer, with the ambiguity resolved by the typechecker. We always store the  that the user originally wrote, and store the selector function after the renamer (for unambiguous occurrences) or the typechecker (for ambiguous occurrences).See Note [HsRecField and HsRecUpdField] in HsPat and Note [Disambiguating record fields] in TcExpr. See Note [Located RdrNames] in HsExpr/5Field OccurrenceHRepresents an *occurrence* of an unambiguous field. We store both the J the user originally wrote, and after the renamer, the selector function./7%See Note [Located RdrNames] in HsExpr/9Located Field Occurrence/:Haskell Constructor Details/>Constructor Declaration Field/?j : j/@See Note [ConDeclField names]/C%Located Constructor Declaration Field/DPromoted data types./GHaskell Tuple Sort/LHaskell Application Type/O Located Haskell Application Type/RHaskell Type Literal/U Haskell Type/Vj : j , j,jB For details on above see note [Api annotations] in ApiAnnotation/Xj : None/Yj : None/Zj : None/[j : j,/\j : j '[' , j ']'/]j : j '[:' , j ':]'/^j : j  '(' or '(#' , j  ')' or '#)'/_j : j '(#' , j '#)'@/`j : None/aj : j '(' , j ')'/b  (?x :: ty)j : j/c  ty1 ~ ty2j : j/d  (ty :: kind)j : j '(' , j,j ')'/ej : j '$(' , j ')'/fj : None/gj : j '{-# UNPACK' or '{-# NOUNPACK' , j '#-}' j '!'/hj : j '{' , j '}'/ij : None/jj : j "'[" , j ']'/kj : j "'(" , j ')'/lj : None/mj : None/qHaskell Type Variable Binder/sj : j , j, j/tyThese names are used early on to store the names of implicit parameters. They completely disappear after type-checking./v'Located Haskell Signature Wildcard Type/wLocated Haskell Wildcard Type/xLocated Haskell Signature Type/yHaskell Wildcard Binders/}Haskell Implicit Binders/)Located Haskell Quantified Type Variables/$Located Haskell Type Variable Binder/Located Haskell Kind/ Haskell Kind/Located Haskell Type/Haskell Context/Located Haskell Context/ Bang Type/Located Bang Type/ Does this /q' come with an explicit kind annotation?/Do all type variables in this / come with kind annotations?/0Convert a LHsTyVarBndr to an equivalent LHsType./YConvert a LHsTyVarBndrs to a list of types. Works on *type* variable only, no kind vars./cRetrieves the head of an HsAppsTy, if this can be done unambiguously, without consulting fixities./}Splits a [HsAppType name] (the payload of an HsAppsTy) into regions of prefix types (normal types) and infix operators. If $splitHsAppsTy tys = (non_syms, syms), then tys# starts with the first element of non_syms" followed by the first element of syms" followed by the next element of non_symsX, etc. It is guaranteed that the non_syms list has one more element than the syms list./ Version of /: that can also print an extra-constraints wildcard, e.g. _ => a -> Bool or (Show a, _) => a -> StringJ. This underscore will be printed when the 'Maybe SrcSpan' argument is a J& containing the location of the extra-constraints wildcard. A special function for this is needed, as the extra-constraints wildcard is removed from the actual context and type, and stored in a separate field, thus just printing the type will not print the extra-constraints wildcard./C May have j : j when in a list/Oj : j/j : j/ May have j : j when in a list/j : j/Original detailsOriginal result type         /2/3/4/5/6/7/8/9/:/;/</=/>/?/@/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/l/g/V/W/X/Y/Z/[/\/]/^/_/`/a/b/c/d/e/f/h/i/j/k/m/n/o/p/q/r/s/t/u/v/w/x/y/z/{/|/}/~/////////////////////////////////////////////////////////////////////////////˩/U/V/W/X/Y/Z/[/\/]/^/_/`/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/o////q/r/s///////}/~////y/z/{/|/x/v/w/G/H/I/J/K/D/E/F///R/S/T/t/u//L/M/N/O//         ///>/?/@/A/B/C///:/;/</=/5/6/7/8/9//2/3/4//////P/Q///////////////////////////////////////////////////2/3/4/5/6/7/8/:/;/</=/>/?/@/A/B/D/E/F/G/H/I/J/K/L/M/N/P/Q/R/S/T/U/V/W/X/Y/Z/[/\/]/^/_/`/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/o/q/r/s/t/u/y/z/{/|/}/~////////None+01;<=/Overloaded Literal Value/Integer-looking literals;/Frac-looking literals/String-looking literals/Haskell Overloaded Literal/Haskell Literal/ Character/Unboxed character/String/ Packed bytes/Genuinely an Int; arises from  TcGenDeriv, and from TRANSLATION/literal Int#0literal Word#0literal Int64#0literal Word64#0bGenuinely an integer; arises only from TRANSLATION (overloaded literals are done with HsOverLit)0bGenuinely a rational; arises only from TRANSLATION (overloaded literals are done with HsOverLit)0 Unboxed Float0Unboxed Double0 XpmPprHsLit pretty prints literals and is used when pretty printing pattern match warnings. All are printed the same (i.e., without hashes if they are primitive and not wrapped in constructors if they are boxed). This happens mainly for too reasons: * We do not want to expose their internal representation * The warnings become too messy///////////0000000//////000 #///////00000000 //////////00000 0 000 0 /////////// //////0000000None+01<]PJ0!Haskell Pattern Synonym Direction0Record Pattern Synonym Field0Haskell Pattern Synonym Details0Infix Pattern Synonym0Prefix Pattern Synonym0 Record Pattern Synonym0!!Type checker Specification Pragma0"The Id to be specialised, an wrapper that specialises the polymorphic function, and inlining spec for the specialised function0#*Located Type checker Specification Pragmas0$#Type checker Specialisation Pragmas0$ conveys  SPECIALISE/ pragmas from the type checker to the desugarer0%PSuper-specialised: a default method should be macro-expanded at every call site0'Fixity Signature0)Located Fixity Signature0*Signatures and pragmas0+An ordinary type signature f :: Num a => a -> aAfter renaming, this list of Names contains the named and unnamed wildcards brought into scope by this signature. For a signature _ -> _a -> Bool-, the renamer will give the unnamed wildcard _! a freshly generated name, e.g. _w. _w and the named wildcard _a are then both replaced with fresh meta vars in the type. Their names are stored in the type signature that brought them into scope, in this third field to be more specific.j : j , j0, A pattern synonym type signature ,pattern Single :: () => (Show a) => a -> [a]j : j , j,j j,j0-A signature for a class method False: ordinary class-method signature True: generic-default class method signature e.g. class C a where op :: a -> a -- Ordinary default op :: Eq a => a -> a -- Generic default No wildcards allowed herej : j , j0.A type signature in generated code, notably the code generated for record selectors. We simply record the desired Id itself, replete with its name, type and IdDetails. Otherwise it's just like a type signature: there should be an accompanying binding0/An ordinary fixity declaration  infixl 8 ***j : j , j00An inline pragma {#- INLINE f #-}j : j  '{-# INLINE' and '[' , j,j , j,j , j01A specialisation pragma "{-# SPECIALISE f :: Int -> Int #-}j : j, j '{-# SPECIALISE' and '[', j, j, j ']' and '#-}', j026A specialisation pragma for instance declarations only ${-# SPECIALISE instance Eq [Int] #-}L(Class tys); should be a specialisation of the current instance declarationj : j, j,j03$A minimal complete definition pragma ${-# MINIMAL a | (b, c | (d | e)) #-}j : j, j,j, j04+A "set cost centre" pragma for declarations {-# SCC funName #-}or &{-# SCC funName "cost_centre_name" #-}05A complete match pragma {-# COMPLETE C, D [:: T] #-}Used to inform the pattern match checker about additional complete matchings which, for example, arise from pattern synonym definitions.06Located Signature07Implicit parameter bindings.These bindings start off as (Left "x") in the parser and stay that way until after type-checking when they are replaced with (Right d), where "d" is the name of the dictionary holding the evidence for the implicit parameter.j : j09"Located Implicit Parameter Binding May have j : j when in a list0:#Haskell Implicit Parameter Bindings0<j : j, j,j j,j '{', j '}',Pattern Synonym binding0>Name of the pattern synonym0?See Note [Bind free vars]0@Formal parameter names0ARight-hand side0BDirectionality0CAbtraction Bindings Export0E)Any INLINE pragmas is attached to this Id0GXSee Note [ABExport wrapper] Shape: (forall abs_tvs. abs_ev_vars => abe_mono) ~ abe_poly0HSPECIALISE pragmas0I1Haskell Binding with separate Left and Right id's0JFunction-like Binding'FunBind is used for both functions f x = e) and variables  f = x -> e) and strict variables  !x = x + 1/Reason 1: Special case for type inference: see [.Reason 2: Instance decls can only have FunBinds, which is convenient. If you change this, you'll need to change e.g. rnMethodBinds'But note that the form f :: a->a = ...Q parses as a pattern binding, just like (f :: a -> a) = ... 6Strict bindings have their strictness recorded in the   of their  MatchContextr. See Note [Varieties of binding pattern matches] for details about the relationship between FunBind and PatBind.jsj), attached to each element of fun_matchesj,j, j,j,0KPattern BindingThe pattern is never a simple variable; That case is done by FunBind. See Note [Varieties of binding pattern matches] for details about the relationship between FunBind and PatBind.0LVariable BindingQDictionary binding and suchlike. All VarBinds are introduced by the type checker0MAbstraction Bindings0NAbstraction Bindings Signature0Oj : j , j,j , j j '{',j '}'0Q The payload0RJCoercion from the type of the MatchGroup to the type of the Id. Example: 1 f :: Int -> forall a. a -> a f x y = y Then the MatchGroup will have type (Int -> a' -> a') (with a free type variable a'). The coercion will take a CoreExpr of this type and convert it to a CoreExpr of type Int -> forall a'. a' -> a' Notice that the coercion captures the free a'.0SmAfter the renamer, this contains the locally-bound free variables of this defn. See Note [Bind free vars]0TTicks to put on the rhs, if any0WType of the GRHSs0XJTicks to put on the rhs, if any, and ticks to put on the bound variables.0ZLocated only for consistency0[True  =H inline this binding regardless (used for implication constraints only)0]Includes equality constraints0^AbsBinds only gets used when idL = idR after renaming, but these need to be idL's for the collect... code in HsUtil to have the right type0_aEvidence bindings Why a list? See TcInstDcls Note [Typechecking plan for instance declarations]0`Typechecked user bindings0eELocated Haskell Binding with separate Left and Right identifier types0fFLocated Haskell Bindings with separate Left and Right identifier types0gHaskell Binding0hLocated Haskell Bindings0iLocated Haskell Binding0jHaskell Value bindings with separate Left and Right identifier types (not implicit parameters) Used for both top level and nested bindings May contain pattern synonym bindings0kValue Bindings InYBefore renaming RHS; idR is always RdrName Not dependency analysed Recursive by default0lValue Bindings OutvAfter renaming RHS; idR can be Name or Id Dependency analysed, later bindings in the list may depend on earlier ones.0mHaskell Value Bindings0oDHaskell Local Bindings with separate Left and Right identifier typesBindings in a 'let' expression or a 'where' clause0pHaskell Value Bindings0q#Haskell Implicit Parameter Bindings0rEmpty Local Bindings0sLocated Haskell local bindings0tHaskell Local Bindings0OUsing SourceText in case the pragma was spelled differently or used mixed case0000000000 000!0"0#0$0&0%0'0(0)0*0504030201000/0.0-0,0+060708090:0;0<0=0B0A0@0?0>0C0D0H0G0F0E0I0N0M0L0K0J0O0d0c0b0a0`0_0^0]0\0[0Z0Y0X0W0V0U0T0R0Q0P0S0e0f0g0h0i0j0l0k0m0n0o0r0q0p0s0t0u0v0w0x0y0z0{0|0}0~00000000000000000000000000t0s0o0p0q0r0n0m0j0k0l0i0h0g0f0e0I0J0K0L0M0N0O0P0Q0R0S0T0U0V0W0S0X0Y0Z0[0\0]0^0_0`0\0]0a0b0c0d0C0D0E0F0G0H0<0=0>0?0@0A0B000u0v0w0x0y0z0{0|0}0~00000000:0;009070800060*0+0,0-0.0/0001020304050)0'0(0$0%0&0#0!0"000000000000000000000000000 000000000000000000000000000 0!0"0$0%0&0'0(0* 0+0,0-0.0/00010203040507080:0;0<0=0>0?0@0A0B0C0D0E0F0G0H0I0J0K0L0M0N0O0P0Q0R0S0T0U0V0W0S0X0Y0Z0[0\0]0^0_0`0\0]0a0b0c0d0j0k0l0o0p0q0rNone +01345<FTz/$Patternj : j0Haskell Record Fieldj : j,@For details on above see note [Api annotations] in ApiAnnotation0!Filled in by renamer when punning0Note [Punning]0Haskell Record Update Field0Haskell Record Field0#Located Haskell Record Update Field0Located Haskell Record Field0Located Haskell Record Field0Haskell Record FieldsSHsRecFields is used only for patterns and expressions (not data type declarations)0#Haskell Constructor Pattern Details0dWildcard Pattern The sole reason for a type on a WildPat is to support hsPatType :: Pat Id -> Type0Variable Pattern0Lazy Pattern ^ - j : j0As pattern ^ - j : j0AParenthesised pattern See Note [Parens in HsSyn] in HsExpr ^ - j : j '('&, j ')'0Bang pattern ^ - j : j0Syntactic Listj : j '['&, j ']'0Tuple sub-patternsj : j '(' or '(#', j ')' or '#)'0Anonymous sum patternj : j '(#', j '#)'0j : j '[:'&, j ':]'0Constructor Pattern In0Constructor Pattern Out0 View Pattern0&Splice Pattern (Includes quasi-quotes)0ALiteral Pattern Used for *non-overloaded* literal patterns: Int, Char, Int, Char, String, etc.0Natural Patternj : j O00 n+k pattern0Pattern with a type signature0Pattern with a type signature0Coercion PatternA/#/$000000000000000000000000000000000000000000000000000000000000000A/$00000000000000000000000000000/#0000000000000000000000000000000000/$000000000000000000000000000000000000None"#1Used in places where some invariant ensures that all these Ids are non-void; e.g. constructor field binders in case expressions. See Note [Post-unarisation invariants] in UnariseStg.1Used in places where some invariant ensures that all these arguments are non-void; e.g. constructor arguments. See Note [Post-unarisation invariants] in UnariseStg.12 Convert from 1 to )z.E_`11111111 1 1 1 1 1111111111111111111 1!1"1#1$1%1&1'1(1)1*1+1,1-1.1/101112131415161718191:1;1<1=1>1?1@1A1B1CH1 1*1(1)1_`111111111111 1"1!1#1$1%1&11 1'1,1-1.1/1711111111 1 1 1011;1+11111113121111=1>1?1618191:1<14151@1A1B1C1O1111O2O31111 1 1 1 O4O5O61O7O8O9O:O;O<11111None&'^1@The current tick scope. We will assign this to generated blocks.1Places blocks generated by the given code into a fresh (sub-)scope. This will make sure that Cmm annotations in our scope will apply to the Cmm blocks generated therein - but not the other way around.1EGenerate code into a fresh tick (sub-)scope and gather generated codec 1H1I1J1K1L1M1N1S1O1P1Q1R1T1U1V1W1X1Y1Z1[1\1]1^1_1`1a1b1c1d1e1f1g1h1i1j1k1l1m1n1o1p1q1r1s1t1u1v1w1x1y1z1{1|1}1~111111111111111111111111111111111111111111c1h1i1j1l1n1m1k1o1}1|1111111111111111111111111111111W1X1Y1T1U1V111111111p1I1J1K1L1H1r1u1v1q1w1x1y11s1t111~ 11Z1[1\1]1^1z1{1_1`1a1b1c1d1e1f1g1M1N1O1P1Q1R1S1I1J1K1L1M1N1O1P1Q1R1S1T1U1V1W1X1Y1Z1[1\1]1^1_1`1a1b1c1d1e1f1g1hO=1l9 1n9 NoneO>0lower bound (inclusive), upper bound (exclusive)O?Use signed comparisons4(,(,*,+,7,8,9,:,;,<,=,>,?,@,A,B,C,D,E,H,J,K,L,M,O,P,V,W,X111111111111111111111114111,*1,+11111111111(11,C,B,O,E,D,H,L,M,K,J,<,9,>,7,@,:,=,8,?,;,A,X,V,W1111,(11,PNone1.The profiling header words in a static closure1+Profiling header words in a dynamic closure11Initialise the profiling field of an update frame1pRecord the allocation of a closure. The CmmExpr is the cost centre stack to which to attribute the allocation.1Record the allocation of a closure (size is given by a CmmExpr) The size must be in words, because the allocation counter in a CCS counts in words.1Called when a closure is entered, marks the closure as having been "used". The closure is not an "inherently used" one. The closure is not IND2 because that is not considered for LDV profiling.111111111111111111111111111111111111111111NoneW1Does a computation in the FCode monad, with a current environment and a list of local declarations. Returns the resulting list of declarations.O@<Local declarations that are in scope during code generation.1An environment of named things.1:The environment contains variable definitions or blockids.1eHolds CmmLit(CmmLabel ..) which gives the label type, eg, RtsLabel, ForeignLabel, CmmLabel etc.1!A function name from this package1A blockid of some code or data.1OTakes the variable decarations and imports from the monad and makes an environment, which is looped back into the computation. In this way, we can have embedded declarations that scope over the whole procedure, and imports that scope over the entire module. Discards the local declaration contained within decl'1+Get the current environment from the monad.1+Get the current context name from the monad1 Set context name for a sub-parseOAgAdd a new variable to the list of local declarations. The CmmExpr says where the value is stored.OB2Add a new label to the list of local declarations.1.Create a fresh local variable of a given type.1Allocate a fresh label.1,Add add a local function to the environment.1Add an imported foreign label to the list of local declarations. If this is done at the start of the module the declaration will scope over the whole module.1Lookup the BlockId bound to the label with this name. If one hasn't been bound yet, create a fresh one based on the Unique of the name.1]Lookup the location of a named variable. Unknown names are treated as if they had been 'import'ed from the runtime system. This saves us a lot of bother in the RTS sources, at the expense of deferring some errors to link time.11Lift an FCode computation into the CmmParse monad1 data typename of variableregister holding the value1name of the functionpackage of the current module(2111111111111111111111111111111111111111111(21111111111111111OC11111None1Z112222222222 2 2 2 2 1Z11222222 2 2 2 2 2222Nonea222222222222222222222222222222222 222222222None2!static updateable2" updateable2;!size of the full header, in bytessize of the payload, in bytes!22 2!2"2#2$2%2&2'2(2)2*2+2,2-2.2/202122232425262728292:2;2<2=2>2?!22 2!2"2#292:2;2<2=2>2?26222$2%2&2'2(2-2)2*2.2,2+212/202324252728ODOEOFOGOHNoneY2@$Return multiple values to the sequelIf the sequel is Return  return (x,y)If the sequel is AssignTo [p,q]  p=x; q=y;2AemitCall conv fun args# makes a call to the entry-code of fun$, using the call/return convention conv , passing args3, and returning the results to the current sequel.OI*emitCallWithExtraStack conv fun args stack$ makes a call to the entry-code of fun#, using the call/return convention conv , passing args0, pushing some extra stack frames described by stack2, and returning the results to the current sequel.OJOJ takes a list of function arguments and prepares them for pushing on the stack for "extra" arguments to a function which requires fewer arguments than we currently have.2G1Just like mkVirtHeapOffsets, but for constructors2HJust like mkVirtConstrOffsets, but used when we don't have the actual arguments. Useful when e.g. generating info tables; we just need to know sizes of pointer and non-pointer fields.2222222222222@2A2B2C2D2E2F2G2H2I2J2K2I2A2@2B2J2K2D2C2F2G2H2E222222222222None2N!Low-level heap object allocation.2S lower-level version for CmmParseOK/The generic GC procedure; no params, no resultsOL;Create a CLabel for calling a garbage collector entry point2Nrepresentation of the object info pointer cost centrepayload!returns the address of the object1w1x1y2E2L2M2N2O2P2Q2R2S2T2U2V2W1x1w1y2E2R2T2V2U2W2S2P2Q2L2M2N2ONone2XCemit code for a foreign call, and return the results to the sequel.2]1Produce code to save the current thread state to  CurrentTSOOMcloseNursery dflags tsoK produces code to close the nursery. A local register holding the value of  CurrentTSO is expected for efficiency.6Closing the nursery corresponds to the following code:  tso = CurrentTSO; cn = CurrentNuresry; // Update the allocation limit for the current thread. We don't // check to see whether it has overflowed at this point, that check is // made when we run out of space in the current heap block (stg_gc_noregs) // and in the scheduler when context switching (schedulePostRunThread). tso->alloc_limit -= Hp + WDS(1) - cn->start; // Set cn->free to the next unoccupied word in the block cn->free = Hp + WDS(1); 2`3Produce code to load the current thread state from  CurrentTSOONopenNursery dflags tsoJ produces code to open the nursery. A local register holding the value of  CurrentTSO is expected for efficiency.6Opening the nursery corresponds to the following code:  tso = CurrentTSO; cn = CurrentNursery; bdfree = CurrentNuresry->free; bdstart = CurrentNuresry->start; // We *add* the currently occupied portion of the nursery block to // the allocation limit, because we will subtract it again in // closeNursery. tso->alloc_limit += bdfree - bdstart; // Set Hp to the last occupied word of the heap block. Why not the // next unocupied word? Doing it this way means that we get to use // an offset of zero more often, which might lead to slightly smaller // code on some architectures. Hp = bdfree - WDS(1); // Set HpLim to the end of the current nursery block (note that this block // might be a block group, consisting of several adjacent blocks. HpLim = bdstart + CurrentNursery->blocks*BLOCK_SIZE_W - 1; 2X2Y2Z2[2\2]2^2_2`2a 2X2Z2Y2[2\2]2_2`2a2^NoneFOOtInterpret the argument as an unsigned value, assuming the value is given in two-complement form in the given width. Example: asUnsigned W64 (-1) is 18446744073709551615.This function is used to work around the fact that many array primops take Int# arguments, but we interpret them as unsigned quantities in the code gen. This means that we have to be careful every time we work on e.g. a CmmInt literal that corresponds to the array size, as it might contain a negative Integer value if the user passed a value larger than 2^(wORD_SIZE_IN_BITS-1) as the Int# literal.2cDecide whether an out-of-line primop should be replaced by an inline implementation. This might happen e.g. if there's enough static information, such as statically know arguments, to emit a more efficient implementation inline.Returns J%S if this primop should use its out-of-line implementation (defined elsewhere) and J&^ together with a code generating function that takes the output regs as arguments otherwise.OP?Translate byte array prefetch operations into proper primcalls.OQGTranslate mutable byte array prefetch operations into proper primcalls.OR<Translate address prefetch operations into proper primcalls.OS:Translate value prefetch operations into proper primcalls.OT%helper to generate prefetch primcallsOUrTakes a register to return the newly allocated array in and the size of the new array in bytes. Allocates a new 'MutableByteArray#'.OVTakes a source  'ByteArray#'0, an offset in the source array, a destination 'MutableByteArray#', an offset into the destination array, and the number of bytes to copy. Copies the given number of bytes from the source array to the destination array.OWTakes a source 'MutableByteArray#'0, an offset in the source array, a destination 'MutableByteArray#', an offset into the destination array, and the number of bytes to copy. Copies the given number of bytes from the source array to the destination array.OXTakes a source  'ByteArray#'0, an offset in the source array, a destination 'Addr#'}, and the number of bytes to copy. Copies the given number of bytes from the source array to the destination memory region.OYTakes a source 'MutableByteArray#'0, an offset in the source array, a destination 'Addr#'}, and the number of bytes to copy. Copies the given number of bytes from the source array to the destination memory region.OZTakes a source 'Addr#', a destination 'MutableByteArray#', an offset into the destination array, and the number of bytes to copy. Copies the given number of bytes from the source memory region to the destination array.O[Takes a 'MutableByteArray#'v, an offset into the array, a length, and a byte, and sets each of the selected bytes in the array to the character.O\Allocate a new array.O]Takes a source 'Array#'0, an offset in the source array, a destination 'MutableArray#', an offset into the destination array, and the number of elements to copy. Copies the given number of elements from the source array to the destination array.O^Takes a source 'MutableArray#'0, an offset in the source array, a destination 'MutableArray#', an offset into the destination array, and the number of elements to copy. Copies the given number of elements from the source array to the destination array.O_Takes an info table label, a register to return the newly allocated array in, a source array, an offset in the source array, and the number of elements to copy. Allocates a new array and initializes it from the source array.O`Takes an info table label, a register to return the newly allocated array in, a source array, an offset in the source array, and the number of elements to copy. Allocates a new array and initializes it from the source array.OaTakes and offset in the destination array, the base address of the card table, and the number of elements affected (*not* the number of cards). The number of elements may not be zero. Marks the relevant cards as dirty.ObEmit an atomic modification to a byte array element. The result reg contains that previous value of the element. Implies a full memory barrier.OcBEmit an atomic read to a byte array that acts as a memory barrier.OdCEmit an atomic write to a byte array that acts as a memory barrier.OeEmit a call to memcpy.OfEmit a call to memmove.OgEmit a call to memset9. The second argument must fit inside an unsigned char.2c The primopThe primop argumentsO\return registerrepresentation of the array info pointerheader payload array sizeinitial elementOh copy function source arrayoffset in source arraydestination arrayoffset in destination arraynumber of elements to copyOi copy function source arrayoffset in source arraydestination arrayoffset in destination arraynumber of elements to copyOb Result regAtomic op (e.g. add)MutableByteArray#Index(Type of element by which we are indexing Op argument (e.g. amount to add)Oc Result regMutableByteArray#Index(Type of element by which we are indexingOdMutableByteArray#Index(Type of element by which we are indexingValue to writeOj Result regMutableByteArray#Index(Type of element by which we are indexing Old value New value2b2c2d2b2d2cNone"#&'^ Ok>the offset of Sp relative to the base on entry to this block.Olthe number of bytes of arguments in the area for this block Defn: the offset of young(L) relative to the base is given by (sm_sp - sm_args) of the StackMap for block L.OmjNumber of words of stack that we do not describe with an info table, because it contains an update frame.Onregs on the stackOoXcreate a sequence of assignments to establish the new StackMap, given the old StackMap.OpGiven a set of live registers and a StackMap, save all the registers on the stack and return the new StackMap and the assignments to do the saving.Oq[Manifest Sp: turn all the CmmStackSlots into CmmLoads from Sp. The block looks like this:zmiddle_pre -- the middle nodes Sp = Sp + sp_off -- Sp adjustment goes here last -- the last nodeEAnd we have some extra blocks too (that don't contain Sp adjustments)qThe adjustment for middle_pre will be different from that for middle_post, because the Sp adjustment intervenes.Or,Determine whether a stack check cannot fail.OsEliminate stores of the formSp[area+n] = r when we know that r is already in the same slot as Sp[area+n]. We could do this in a later optimisation pass, but that would involve a separate analysis and we already have the information to hand here. It helps clean up some extra stack stores in common cases.Note that we may have to modify the StackMap as we walk through the code using procMiddle, since an assignment to a variable in the StackMap will invalidate its mapping there.2e2f2e2fOtOuOvOwOxOkOlOmOnNone12lSet of visible orphan modules, according to what modules have been directly imported. This is based off of the dep_orphs field, which records transitively reachable orphan modules (modules that define orphan instances).2m2m represents the combination of the global type class instance environment, the local type class instance environment, and the set of transitively reachable orphan modules (according to what modules have been directly imported) used to test orphan instance visibility.2sA type-class instance. Note that there is some tricky laziness at work here. See Note [ClsInst laziness and the rough-match fields] for more details.2u Class name2vTop of type args2wis_dfun_name = idName . is_dfun.We use 2w for the visibility check, 2, which needs to know the DA which the dictionary is defined in. However, we cannot use the D attached to 2{ since doing so would mean we would potentially pull in an entire interface file unnecessarily. This was the cause of #12367.2~tA fuzzy comparison function for class instances, intended for sorting instances before displaying them to the user.2Collects the names of concrete types and type constructors that make up the head of a class instance. For instance, given `class Foo a b`:W`instance Foo (Either (Maybe Int) a) Bool` would yield [Either, Maybe, Int, Bool].Used in the implementation of ":info" in GHCi.The .@ is because of instance Foo a => Baz T where ... The decl is an orphan if Baz and T are both not locally defined, even if Foo *is* locally defined2JTest if an instance is visible, by checking that its origin module is in 2l2. See Note [Instance lookup and orphan instances]2zChecks for an exact match of ClsInst in the instance environment. We use this when we do signature checking in TcRnDriver2True when when the instance heads are the same e.g. both are Eq [(a,b)] Used for overriding in GHCi Obviously should be insenstive to alpha-renaming2Look up an instance in the given instance environment. The given class application must match exactly one instance and the match may not contain any flexi type variables. If the lookup is unsuccessful, yield 'Left errorMessage'.2See Note [Rules for instance lookup] ^ See Note [Safe Haskell Overlapping Instances] in TcSimplify ^ See Note [Safe Haskell Overlapping Instances Implementation] in TcSimplifyOybAdd a new solution, knocking out strictly less specific ones See Note [Rules for instance lookup]2the name of the class(the types which the class was applied tothe  of the dictionary bindingthe  of the dictionary.may this instance overlap?is this instance an orphan?>2i2j2k2l2m2n2o2p2q2r2s2t2u2v2w2x2y2z2{2|2}2~22222222222222222222222222>2j2i2s2t2u2v2w2x2y2z2{2|2}2k22222222222~22m2n2o2p2q2l2r222222222222222OzO{2m2n2o2p2q2s 2t2u2v2w2x2y2z2{2|2}None O|.Do we force the result to be representational?O}Do we apply a sym to the result?2ZoptCoercion applies a substitution to a coercion, *and* optimises it to reduce its sizeO~|Optimize a coercion, making no assumptions. All coercions in the lifting context are already optimized (and sym'd if nec'y)OGOptimize a coercion, knowing the coercion's role. No other assumptions.O=Optimize a coercion, knowing the coercion's non-Phantom role.O Optimize a non-phantom coercion.O Optimize a non-phantom coercion.OoOptimize a phantom coercion. The input coercion may not necessarily be a phantom, but the output sure will be.2Check to make sure that an AxInstCo is internally consistent. Returns the conflicting branch, if it exists See Note [Conflict checking with AxiomInstCo]O/Conditionally set a role to be representationalOcIf we require a representational role, return that. Otherwise, return the "default" role provided.OThe role of the input coercionO current roleO"default" role2222None +01345;<=2Role Annotation Declaration2j : j , j2#Located Role Annotation Declaration2Annotation Provenance2Annotation Declaration2j : j , j j j2Located Annotation Declaration2Warning pragma Declaration2"Located Warning pragma Declaration2Warning pragma Declarations2Located Warning Declarations2!Documentation comment Declaration2)Located Documentation comment Declaration2Vectorise Declaration2j : j , j,j2j : j&, j2j : j , j,j , j2j : j , j,j,2Located Vectorise Declaration2 Rule Binder2j : j, j,j2Located Rule Binder2Rule Declaration2j : j,j , j , j , j,j , j,2Located Rule Declaration2Rule Declarations2Located Rule Declarations2Foreign Declaration2j : j , j,j  , j2Located Foreign Declaration2Default Declaration2js : j , j,j2Located Default Declaration2Deriving Declaration2j : j  , j, j  , j ,   , j,j2Located Deriving Declaration2Instance Declaration2Located Instance Declaration2Class Instance Declaration2j : j , j , j,j,2j : j&, j,2"Located Class Instance Declaration2 Data Family Instance Declaration2j : j , j,j , j j,j , j2Fixity used in the declaration2(Located Data Family Instance Declaration3 Type Family Instance Declaration3j : j , j,3(Located Type Family Instance Declaration3Type Family EquationiOne equation in a type family instance declaration See Note [Type family instance declarations in HsSyn]3j : j3 Fixity used in the declaration3 Type Family Default Equation3 Type Family Instance Equation3 Haskell Type Patterns3$Located Type Family Default Equation3%Located Type Family Instance Equation3,Haskell data Constructor Declaration Details3 data T b = forall a. Eq a => MkT a b MkT :: forall b a. Eq a => MkT a b data T b where MkT1 :: Int -> T Int data T = Int MkT, Int | MkT2 data T a where Int MkT Int :: T Int js : j, j,j, j,j, j,j, j,jdata Constructor Declaration3The type after the :: 3A possible Haddock comment.3User-written context (if any)3 Arguments3$Located data Constructor Declaration3 newtype Blah ...3  data Blah ...3 A single deriving clause of a data declaration.j : j , j  , j ,   , j,j3!;The user-specified strategy (if any) to use when deriving 3".3"The types to derive.It uses /xs because, with -XGeneralizedNewtypeDerivingH, we can mention type variables that aren't bound by the datatype, e.g. data T b = ... deriving (C [a])&should produce a derived instance for  C [a] (T b).3$Haskell Deriving clause3%Haskell Data type Definition3&:Declares a data type or newtype, giving its constructors  data/newtype T a =  constrs! data/newtype instance T [a] =  constrs 3(Context3*Optional kind signature.(Just k) for a GADT-style data, or  data instance decl, with explicit kind sigAlways Nothing for H98-syntax decls3+Data constructorsFor data T a = T1 | T2 a the 3 s all have 3. For data T a where { T1 :: T a } the  LConDecls all have 3.3, Optional  'deriving' claues30J%L if we're in an hs-boot file and the user said "type family Foo x where .."31.If the user supplied an injectivity annotation it is represented using InjectivityAnn. At the moment this is a single injectivity condition - see Note [Injectivity annotation]. `Located name` stores the LHS of injectivity condition. `[Located name]` stores the RHS of injectivity condition. Example:.type family Foo a b c = r | r -> a c where ...,This will be represented as "InjectivityAnn r [a, c]"32j : j, j33Located Injectivity Annotation34type Family Declaration35j : j, j, j, j, j, j, j, j, j, j3<Located type Family Declaration3=type Family Result Signature3>j :3?j : j,j, j3@j : j,j, j, j3A$Located type Family Result Signature3BType or Class Group3GA type or class declaration.3H type/data family T :: *->*j : j, j, j,j, j,j, j,j, j,j, j3Itype declarationj : j, j,3Jdata declarationj : j, j, j, j,j j,3Kj : j , j,j , jThe tcdFDs will have j, j j3MType constructor3NEType variables; for an associated type these include outer binders3OFixity used in the declaration3PRHS of type declaration3Sdoes this have a CUSK?3T Context...3UFunctional deps3VMethods' signatures3WDefault methods3XAssociated types;3YAssociated type defaults3Z Haddock docs3[&Located Declaration of a Type or Class3\Splice Declaration3^Located Splice Declaration3_ Haskell GroupA 3m is categorised into a 3_" before being fed to the renamer.3mA Haskell Declaration3nType or Class Declaration3oInstance declaration3pDeriving declaration3qValue declaration3rSignature declaration3s 'default' declaration3tForeign declaration3uWarning declaration3vAnnotation declaration3wRule declaration3xVectorise declaration3y+Splice declaration (Includes quasi-quotes)3z!Documentation comment declaration3{Role annotation declaration3True  = argument is a data/newtype declaration.3!type or type instance declaration3 type class3type/data family declaration3type family declaration3open type family info3closed type family info3data family declaration3wDoes this declaration have a complete, user-supplied kind signature? See Note [Complete user-supplied kind signatures]3KDoes this family declaration have a complete, user-supplied kind signature?OFDoes this family declaration have user-supplied return kind signature?3-Maybe return name of the result type variable3 XType patterns (with kind and type bndrs) See Note [Family instance declaration binders]3 May have j : j when in a list3 May have j : j# when in a GADT constructor list3$ The optional deriving clauses of a data declaration. ClausesI is plural because one can specify multiple deriving clauses using the -XDerivingStrategies language extension. The list of 3#s corresponds to exactly what the user requested to derive, in order. If no deriving clauses were specified, the list is empty.3|When in a list this may havej : j34if associated, does the enclosing class have a CUSK? hij22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222223333333333 3 3 3 3 3333333333333333333 3!3"3#3$3%3&3'3(3)3*3+3,3-3/303.3132333435363738393:3;3<3=3>3?3@3A3B3C3F3D3E3G3H3I3J3K3L3M3N3O3P3Q3R3S3T3U3V3W3X3Y3Z3[3\3]3^3_3`3a3b3c3d3e3f3g3h3i3j3k3l3m3q3r3{3n3o3p3s3t3u3v3w3x3y3z3|3}3~333333333333333333333333333333333333333333m3n3o3p3q3r3s3t3u3v3w3x3y3z3{3|3%3&3'3(3)3*3+3,3$33 3!3"3#3G3H3I3J3K3L3M3N3O3P3Q3M3N3O3R3S3Q3T3M3N3O3U3V3W3X3Y3Z3Q3[3B3C3D3E3F33333333333333333333333435363738393:3;3<222222223333-3.3/3033333322222222333333 3 3 33 33 222222222222222222222222222333222222222233222hij3\3]3^2222222222222222332222333333333333333332222223222222222222222322233=3>3?3@3A31323333_3`3a3b3c3d3e3f3g3h3i3j3k3l3}3~33"2222222222222222222222222222222222222222222222 222222222222222222222222222222222222222333333333 3 3 333333333333333 3!3"3%3&3'3(3)3*3+3,3-3.3/3031323435363738393:3;3=3>3?3@3B3C3D3E3F3G3H3I3J3K3L3M3N3O3P3Q3M3N3O3R3S3Q3T3M3N3O3U3V3W3X3Y3Z3Q3\3]3_ 3`3a3b3c3d3e3f3g3h3i3j3k3l3m3n3o3p3q3r3s3t3u3v3w3x3y3z3{None +013<CVֆ/%Located Haskell Expression/&Syntax ExpressionSyntaxExpr is like 4Y, but it's filled in a little earlier, by the renamer. It's used for rebindable syntax.E.g. (>>=)4 is filled in before the renamer by the appropriate  for (>>=)H, and then instantiated by the type checker with its type args etcThis should desugar to csyn_res_wrap $ syn_expr (syn_arg_wraps[0] arg0) (syn_arg_wraps[1] arg1) ...Xwhere the actual arguments come from elsewhere in the AST. This could be defined using PostRn and PostTcA and such, but it's harder to get it all to work out that way. (4! is hard to write, for example.)/'Guarded Right-Hand Sides8GRHSs are used both for pattern bindings and for Matchesj : j , j,j , j,j j,j/)Haskell Splice/*;Haskell Command (e.g. a "statement" in an Arrow proc block)/+A Haskell expression.3Haskell Statement Context3Parallel array comprehension3 do { ... }3'mdo { ... } ie recursive do-expression3'do-notation in an arrow-command context3&A command-line Stmt in GHCi pat <- rhs3!Pattern guard for specified thing3A branch of a parallel stmt3A branch of a transform stmt3Haskell Match ContextmContext of a pattern match. This is more subtle than it would seem. See Note [Varieties of pattern matches].38A pattern matching on an argument of a function binding3Patterns of a lambda3)Patterns and guards on a case alternative3$Guards of a multi-way if alternative3Patterns of a proc3"A pattern binding eg [y] <- e = e3oRecord update [used only in DsExpr to tell matchWrapper what sort of runtime error message to generate]3=Pattern of a do-stmt, list comprehension, pattern guard, etc3!A Template Haskell pattern splice41A Template Haskell pattern quotation [p| (a,b) |]4A pattern synonym declaration4function binder of f4 fixing of f4Hwas the pattern banged? See Note [Varieties of binding pattern matches]4Arithmetic Sequence Information4 Haskell Bracket4Pending Type-checker Splice4Pending Renamer Splice4Haskell Spliced Thing-Values that can result from running a splice.4Haskell Spliced Expression4Haskell Spliced Type4Haskell Spliced Pattern4 &Finalizers produced by a splice with XSee Note [Delaying modFinalizers in untyped splices] in RnSplice. For how this is used.4"A splice can appear with various decorations wrapped around it. This data type captures explicitly how it was originally written, for use in the pretty printer.4#$( splice ) or $$( splice )4$$splice or $$splice4% bare splice4*Applicative Argument4-Parenthesised Statement Block426API Annotations when in qualifier lists or guards - j : j , j,j , j,j , j,j45452 represents an applicative expression built with  $ and  *. It is generated by the renamer, and is desugared into the appropriate applicative expression by the desugarer, but it is intended to be invisible in error messages.4For full details, see Note [ApplicativeDo] in RnExpr47j : j j '{',j '}',4:j : j4NGhci Statement4OGhci Located Statemnt4PGuard Statement4QGuard Located Statement4RExpression Statement4SExpression Located Statement4TCommand Statement4UCommand Located Statement4Vdo block Statement4W3Located Statement with separate Left and Right id's4XLocated do block Statement4YGuarded Right Hand Side.4[Located Guarded Right-Hand Side4] Guarded RHSs4^The where clause4e Located Match May have j : j when in a list4kHaskell Record Bindings4lHaskell Top-level Command4nTop-level command, introducing a new arrow. This may occur inside a proc (where the stack is empty) or as an argument of a command-forming operator.!Located Haskell Top-level Command4oHaskell Array Application Type4rj : j , j,j , j 4sj : j! '(|' , j" '|)'4uj : j# , j,4vj : j '(', j ')'4wj : j$ , j%,j '{' , j '}'4xj : j& , j , j,j , j',4yj : j , j '{' , j '}',j(4zj : j), j, j, j, j4|*Located Haskell Command (for arrow syntax)4}(Located Haskell Wildcard Type Expression4j : jHaskell Tuple Argument4 The argument4-The argument is missing, but this is its type4Located Haskell Tuple Argument4 is used for tuple sections (,a,) is represented by 3ExplicitTuple [Missing ty1, Present a, Missing ty3] Which in turn stands for (x:ty1 y:ty2. (x,a,y))4Variable4Unbound variable; also used for "holes" (_ or _x). Turned from HsVar to HsUnboundVar by the renamer, when it finds an out-of-scope variable or hole. Turned into HsVar by type checker, to support deferred type errors.4DAfter typechecker only; must be different HsVar for pretty printing4CVariable pointing to record selector Not in use after typechecking4GOverloaded label (Note [Overloaded labels] in GHC.OverloadedLabels) Just id means RebindableSyntax0 is in use, and gives the id of the in-scope  fromLabel&. NB: Not in use after typechecking42Implicit parameter (not in use after typechecking)4Overloaded literals4 Simple (non-overloaded) literals43Lambda abstraction. Currently always a single matchj : j# , j,4 Lambda-casej : j# , j$,j , j4 Application4Visible type applicationZExplicit type argument; e.g f @Int x y NB: Has wildcards, but no implicit quantificationj : j,4FOperator applications: NB Bracketed ops such as (+) come out as Vars.4DNegation operator. Contains the negated expression and the name of Oj : j*4.Parenthesised expr; see Note [Parens in HsSyn]4-Used for explicit tuples and sections thereofj : j , j4Used for unboxed sum typesj : j '(#' , j, j '#)',There will be multiple jK, (1 - alternative) before the expression, (arity - alternative) after it4j : j$ , j%,j '{' , j '}'4j : j& , j , j,j , j',4 Multi-way ifj : j& j,j,4let(rec)j : j , j '{' , j '}',j(4j : j), j, j, j, j4Syntactic list: [a,b,c,...]j : j '[', j ']'4)Syntactic parallel array: [:e1, ..., en:]j : j '[:', j,j, j j ':]'4Record constructionj : j '{' , j,j '}'4 Record updatej : j '{' , j,j '}'4,Expression with an explicit type signature.  e :: typej : j4Arithmetic sequencej : j '[', j,j, j ']'4&Arithmetic sequence for parallel array [:e1..e2:] or [:e1, e2..e3:]j : j '[:', j,j, j, j ':]'4j : j  '{-# SCC', j or j+, j '#-}'4j : j  '{-# CORE', j, j '#-}'4j : j , j,,j- , j,j.4j : j , j4proc notation for Arrowsj : j/ , j4j : j0,4j : j , j,j , j 4j : j! '(|' , j" '|)'4j : j , j '{-# GENERATED' , j,j , j1,j , j* , j,j1 , j , j '#-}'4j : j4j : j4j : j4RAn unbound variable; used for treating out-of-scope variables as expression holes4lAn (unqualified) out-of-scope variable, together with the GlobalRdrEnv with respect to which it is unbound4"A "true" expression hole (_ or _x)4'Command Syntax Table (for Arrow syntax)4Post-Type checking TablerWe use a PostTcTable where there are a bunch of pieces of evidence, more than is convenient to keep individually.4Post-Type checking ExpressionhPostTcExpr is an evidence expression attached to the syntax tree by the type checker (c.f. postTcType).4uThis is used for rebindable-syntax pieces that are too polymorphic for tcSyntaxOp (trS_fmap and the mzip in ParStmt)4dMake a 'SyntaxExpr Name' (the "rn" is because this is used in the renamer), missing its HsWrappers.4.Is there only one RHS in this list of matches?5"Should pattern match failure in a 3 be desugared using  MonadFail?/% May have j : j when in a list,/%/&4444/'4\4^4]/(4f4j4i4h4g/)4)4(4'4&/*4{4z4y4x4w4v4u4t4s4r/+4444444444444444444444444444444444444444444444444444444444444/,/-/.///0/13333333333334333333333444444 4444 44444 4 4 444444444444444 4!4"4%4$4#4*4,4+4-4.4/4140424:494847464544434M4L4K4J4I4H4G4F4E4D4C4B4A4@4?4>4=4<4;4N4O4P4Q4R4S4T4U4V4W4X4Y4Z4[4_4`4d4c4b4a4e4k4l4m4n4o4p4q4|4}4~44444444444444444444444444444444444444444444444444444444444444445555555555 >/%4444/&44444445444454/+4444444444444444444444444444444444444444444444444444444444444444445/1/044444}4~44444444|/*4r4s4t4u4v4w4x4y4z4{4o4p4q4n4l4m544444454k/(4f4g4h4i4j4e4_4`4a4b4c4d544444/'4\4]4^4[4Y4Z4/,/-44444X4W4V4U4T4S4R4Q4P4O4N42434445464748494:4;4<4=4>4?4@4A4B4C4D4E4F4G4H4I4J4K4L4M4/40414-4.4*4+4,5544444444/)4&4'4(4)4"4#4$4%5 44 4!5 44444444444444554/.4//444 4 4 4 4444454445544444 543333333333444445 433333333333455555555 555 /&4444/'4\4]4^/(4f4g4h4i4j/)4&4'4(4)/* 4r4s4t4u4v4w4x4y4z4{/+=44444444444444444444444444444444444444444444444444444444444443 333333333333333333334444444444 4 4 4 4 444444444444444444 4!4"4#4$4%4*4+4,4-4.4/404142434445464748494:4;4<4=4>4?4@4A4B4C4D4E4F4G4H4I4J4K4L4M4Y4Z4_4`4a4b4c4d4l4m4o4p4q4}4~444444None<FTV 5CWA simple case alternative with a single pattern, no binds, no guards; pre-typechecking5NLifts a "small" constructor into a "big" constructor by recursive decompositon5Split a list into lists that are small enough to have a corresponding tuple arity. The sub-lists of the result all have length <=  But there may be more than  sub-lists5_Converting a Type to an HsType RdrName This is needed to implement GeneralizedNewtypeDeriving.Note that we use B extensively, which generates Exact RdrNames rather than strings.5If any of the matches in the 0J are infix, the 0J is considered infix.5#Make a prefix, non-strict function 35Should we treat this as an unlifted bind? This will be true for any bind that binds an unlifted variable, but we must be careful around AbsBinds. See Note [Unlifted id check in isUnliftedHsBind]. For usage information, see Note [Strict binds check] is DsBinds.5*Is a binding a strict variable bind (e.g. !x = ...)?5Returns all the binding% names of the decl. The first one is55"Small" constructor function, of maximum input arity /Possible "big" list of things to construct from:Constructed thing made possible by recursive decomposition//595:5;5<5=5>5?5@5A5B5C5D5E5F5G5H5I5J5K5L5M5N5O5P5Q5R5S5T5U5V5W5X5Y5Z5[5\5]5^5_5`5a5b5c5d5e5f5g5h5i5j5k5l5m5n5o5p5q5r5s5t5u5v5w5x5y5z5{5|5}5~55555555555555555555555555555555555555555555555555555555555555555555555ŏ595>5?5@5C5:5;5<5=555A5O5555555B5_5M5N555F555D5E5j5k5l5o5r5p5q5s5~55555555555555555555I5J5K5f5g5P5Q5m5n5t5u5w5x5v5y5z5{5|5}55G5H5555//5i5h5555555555S5T5X5Y5Z5W5R5U5V5[5\5]5^5c5a5b5`5d5e5L55555555555555555555555555None+01<ȝ5Haskell ModuleEAll we actually declare here is the top-level structure for a module.5jsj,jj,j, jW for explicit braces and semi around hsmodImports,hsmodDecls if this style is used.5NothingP: "module X where" is omitted (in which case the next field is Nothing too)5 Export listNothing+: export list omitted, so export everythingJust [] : export nothing Just [...]: as you would expect...js : j% ,j5We snaffle interesting stuff out of the imported interfaces early on, adding that info to TyDecls/etc; so this list is often empty, downstream.51Type, class, value, and interface signature decls59reason/explanation for warning/deprecation of this modulejs : j% ,j5-Haddock module info and description, unparsedjs : j% ,jSTUVhijxzy{|}~         ////////////// /!/#/$000000000000000000000000000/%/&4444/'4\4]4^/(4f4g4h4i4j/)4&4'4(4)/*4r4s4t4u4v4w4x4y4z4{/+4444444444444444444444444444444444444444444444444444444444444/,/-/.///0/1/2/3/4/5/6/7/8/9/:/;/</=/>/?/@/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/l/g/V/W/X/Y/Z/[/\/]/^/_/`/a/b/c/d/e/f/h/i/j/k/m/n/o/p/q/r/s/t/u/v/w/x/y/z/{/|/}/~//////////////////////////////////////////////////////////////////////////////////////////////0000000000 000000000000 0!0"0#0$0%0&0'0(0)0*0+0,0-0.0/000102030405060708090:0;0<0=0>0?0@0A0B0C0D0E0F0G0H0I0O0J0K0L0M0N0S0P0Q0R0T0U0V0W0X0Y0Z0[0\0]0^0_0`0a0b0c0d0e0f0g0h0i0j0k0l0m0n0o0p0q0r0s0t0u0v0w0x0y0z0{0|0}0~000000000000000000000000000000000000000000000000000000000000022222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222223333333333 3 3 3 3 3333333333333333333 3!3"3#3$3%3&3'3(3)3*3+3,3-3/303.3132333435363738393:3;3<3=3>3?3@3A3B3C3F3D3E3G3H3I3J3K3L3M3N3O3P3Q3R3S3T3U3V3W3X3Y3Z3[3\3]3^3_3`3a3b3c3d3e3f3g3h3i3j3k3l3m3q3r3{3n3o3p3s3t3u3v3w3x3y3z3|3}3~333333333333333333333333333333333333333333333333333334333333333444444444 4 4 4 4 4444444444444444444 4!4"4#4$4%4*4+4,4-4.4/404142434445464748494:4;4<4=4>4?4@4A4B4C4D4E4F4G4H4I4J4K4L4M4N4O4P4Q4R4S4T4U4V4W4X4Y4Z4[4_4`4a4b4c4d4e4k4l4m4n4o4q4p4|4}4~44444444444444444444444444444444444444444444444444444444444444445555555555 595:5;5<5=5>5?5@5A5B5C5D5E5F5G5H5I5J5K5L5M5N5O5P5Q5R5S5T5U5V5W5X5Y5Z5[5\5]5^5_5`5a5b5c5d5e5f5g5h5i5j5k5l5m5n5o5p5q5r5s5t5u5v5w5x5y5z5{5|5}5~5555555555555555555555555555555555555555555555555555555555555555555555555555555 5555555555555555None<5SmkClassDecl builds a RdrClassDecl, filling in the names for tycon and datacon by deriving them from the name of the class. We fill in the names for the tycon and datacon corresponding to the class, by deriving them from the name of the class itself. This saves recording the names in the interface file (which would be equally good).5Function definitions are restructured here. Each is assumed to be recursive initially, and non recursive definitions are discovered by the dependency analyser.5JThis rather gruesome function is used mainly by the parser. When parsing: data T a = T | T1 Int"we parse the data constructors as types? because of parser ambiguities, so then we need to change the  type constr to a  data constrThe exact-name case can occur when parsing: data [] a = [] | a : [a]3For the exact-name case we return an original name.ONote [Sorting out the result type] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ In a GADT declaration which is not a record, we put the whole constr type into the res_ty for a ConDeclGADT for now; the renamer will unravel it once it has sorted out operator fixities. Consider for example C :: a :*: b -> a :*: b -> a :+: b Initially this type will parse as a :*: (b -> (a :*: (b -> (a :+: b))))Yso it's hard to split up the arguments until we've done the precedence resolution (in the renamer). On the other hand, for a record { x,y :: Int } -> a :*: b there is no doubt. AND we need to sort records out so that we can bring x,y into scope. So: * For PrefixCon we keep all the args in the res_ty * For RecCon we do not5`Transform btype_no_ops with strict_mark's into HsEqTy's (((~a) ~b) c) ~d ==> ((~a) ~ (b c)) ~ d5[Transform tyapps with strict_marks into uses of twiddle [~a, ~b, c, ~d] ==> (~a) ~ b c ~ dB5I5J5K5M5_55555555555555555555555555555555555555555555555556666666666 6 6 B5_5I5J5K5M555555555556555565555556666555555555555556 55555555555666 65556 555555555555None 6 Term equalities6ALiterals (simple and overloaded ones) for pattern match checking.6.Lifted expressions for pattern match checking.65Equality between literals for pattern match checking.6Lift a 6  to a 6 6 Expression J 6 Expression J!6'Check if an expression is lifted or notO"Check whether a literal is negated66Check whether a PmExpr is syntactically equal to term J .66Check whether a PmExpr is syntactically equal to term J!.O)Check whether a PmExpr is syntactically eOCheck whether a PmExpr is syntactically equal to (x == y). Since (==) is overloaded and can have an arbitrary implementation, we use the PmExprEq constructor to represent only equalities with non-overloaded literals where it coincides with a syntactic equality check.OCheck if a DataCon is (:).OWe return a boolean along with the expression. Hence, if substitution was a no-op, we know that the expression still cannot progress.6Substitute in a complex equality. We return (Left eq) if the substitution affected the equality or (Right eq) if nothing happened.OPretty print a pmexpr, but remember to prettify the names of the variables that refer to neg-literals. The ones that cannot be shown are printed as underscores.6 6 6666666666666666666 6!6"6#6666666666 6 666666666 66!6#6"666666666 NoneV%6&A map keyed by the 6*.6'PA list of conlikes which represents a complete pattern match. These arise from COMPLETE signatures.6)>The ConLikes that form a covering family (e.g. Nothing, Just)6*&The TyCon that they cover (e.g. Maybe)6+3Objects which have yet to be linked by the compiler6,An object file (.o)6-Static archive file (.a)6.3Dynamically linked library file (.so, .dll, .dylib)6/A byte-code object, lives only in memory. Also carries some static pointer table entries which should be loaded along with the BCOs. See Note [Grant plan for static forms] in StaticPtrTable.60DInformation we can use to dynamically link modules into the compiler62sTime at which this linkable was built (i.e. when the bytecodes were produced, or the mod date on the files)63The linkable module itself643Those files and chunks of code we have yet to link.4INVARIANT: A valid linkable always has at least one 6+ item. If this list is empty, the Linkable represents a fake linkable, which is generated in HscNothing mode to avoid recompiling modules.?ToDo: Do items get removed from this list when they get linked?68Mextra source files (e.g. from #includes). The lexer collects these from '#  file  line' pragmas, which the C preprocessor leaves behind. These files and their timestamps are stored in the .hi file, so that we can force recompilation if any of them change (#3589)6:Safe Haskell information for 6F Simply a wrapper around SafeHaskellMode to sepperate iface and flags6;Is an import a safe import?6<Vectorisation information for 6J; i.e, the vectorisation information propagated across module boundaries.NB: The field 6>q explicitly contains the workers of data constructors as well as class selectors  i.e., their mappings are noti implicitly generated from the data types. Moreover, whether the worker of a data constructor is in 6>} determines whether that data constructor was vectorised (or is part of an abstractly vectorised type constructor).6>/All variables in here have a vectorised variant6?All Ms in here have a vectorised variant; the name of the vectorised variant and those of its data constructors are determined by 2 and 33; the names of the isomorphisms are determined by 46@The vectorised form of all the M_s in here coincides with the unconverted form; the name of the isomorphisms is determined by 46CVectorisation information for 6, 6 and 6m; see also documentation at v5.*NB: The following tables may also include s, Ms and 6\s from imported modules, which have been subsequently vectorised in the current module.6E(f, f_v) keyed on f6F(T, T_v) keyed on T6G(C, C_v) keyed on C6Hset of parallel variables6I!set of parallel type constructors6JpThis is used to signal if one of my imports used HPC instrumentation even if there is no module-local HPC usage6K;Information about a modules use of Haskell Program Coverage6P*Is hpc used anywhere on the module *tree*?6QXIndicates whether a given module's source has been modified since it was last compiled.6Rthe source has been modified6Sthe source has not been modified. Compilation may or may not be necessary, depending on whether any dependencies have changed since we last compiled.6T=the source has not been modified, and furthermore all of its (transitive) dependencies are up to date; it definitely does not need to be recompiled. This is important for two reasons: (a) we can omit the version check in checkOldIface, and (b) if the module used TH splices we don't need to force recompilation.6UA single node in a 6c,. The nodes of the module graph are one of:A regular Haskell source moduleA hi-boot source module6WIdentity of the module6X1The module source either plain Haskell or hs-boot6Y5Location of the various files belonging to the module6ZTimestamp of source file6[#Timestamp of object, if we have one6\<Timestamp of hi file, if we *only* are typechecking (it is J%O otherwise. See Note [Recompilation checking when typechecking only] and #92436]Source imports of the module6^7Non-source imports of the module from the module *text*6_vThe parsed, nonrenamed source, if we have it. This is also used to support "inline module syntax" in Backpack files.6`$Filename of preprocessed source file6aCached flags from OPTIONS, INCLUDE and LANGUAGE$ pragmas in the modules source code6b-The actual preprocessed source, if we have it6cA ModuleGraph contains all the nodes from the home package (only). There will be a node for each source module, plus a node for each hi-boot module.IThe graph is not necessarily stored in topologically-sorted order. Use 6 and  7 to achieve this.6d:Accumulated statistics about what we are putting into the 6m!. "In" means stuff that is just readG from interface files, "Out" means actually sucked in and type-checked6mZInformation about other packages that we have slurped in by reading their interface files6o*In OneShot mode (only), home-package modules accumulate in the external package state, and are sucked in lazily. For these home-pkg modules (only) we need to record which are boot modules. We set this field after loading all the explicitly-imported interfaces, but before doing anything elseThe Cu part is not necessary, but it's useful for debug prints, and it's convenient because this field comes direct from 86pThe 6s for modules in external packages whose interfaces we have opened. The declarations in these interface files are held in the  eps_decls, 6s, 6t and  eps_rules$ fields of this record, not in the 7 , fields of the interface we have sucked in.What is in the PIT is: The ModuleFingerprint info Its exportsFixitiesDeprecations and warnings6q Cache for 7#. Ordinarily, we can rely on the 6p\ for this information, EXCEPT that when we do dependency analysis, we need to look at the 6A of our imports to determine what their precise free holes are (moduleFreeHolesPrecise). We don't want to repeatedly reread in the interface for every import, so cache it here. When the PIT gets filled in we can drop these entries.6rResult of typechecking all the external package interface files we have sucked in. The domain of the mapping is external-package modules6s The total 2r3 accumulated from all the external-package modules6t The total "}3 accumulated from all the external-package modules6u The total RuleEnv3 accumulated from all the external-package modules6v The total 6C3 accumulated from all the external-package modules6w The total 3 accumulated from all the external-package modules6x The total 6&3 accumulated from all the external-package modules6yaThe family instances accumulated from external packages, keyed off the module that declared them6z5Stastics about what was loaded from external packages6TRecords modules for which changes may force recompilation of this module See wiki: Ohttp://ghc.haskell.org/trac/ghc/wiki/Commentary/Compiler/RecompilationAvoidanceThis differs from Dependencies. A module X may be in the dep_mods of this module (via an import chain) but if we don't use anything from X it won't appear in our Usage6Module from another package6mModule from the current package | A file upon which the module depends, e.g. a CPP #include, or using TH's addDependentFile6-A requirement which was merged into this one.6#External package module depended on6Cached module fingerprint6)Was this module imported as a safe import6Name of the module6Entities we depend on, sorted by occurrence name and fingerprinted. NB: usages are for parent names only, e.g. type constructors but not the associated data constructors.6tFingerprint for the export list of this module, if we directly imported it (and hence we depend on its export list)6ZExternal file dependency. From a CPP #include or TH addDependentFile. Should be absolute.6$ of the file contents.6^Dependency information about ALL modules and packages below this one in the import hierarchy.(Invariant: the dependencies of a module M never includes M.0Invariant: none of the lists contain duplicates.6All home-package modules transitively below this one I.e. modules that this one imports, or that are in the dep_mods of those directly-imported modules6HAll packages transitively below this module I.e. packages to which this module's direct imports belong, or that are in the dep_pkgs of those modules The bool indicates if the package is required to be trusted when the module is imported as a safe import (Safe Haskell). See Note [RnNames . Tracking Trust Transitively]6ETransitive closure of orphan modules (whether home or external pkg)._(Possible optimization: don't include family instance orphans as they are anyway included in 6z. But then be careful about code which relies on dep_orphs having the complete list!) This does NOT include us, unlike  imp_orphs.6yTransitive closure of depended upon modules which contain family instances (whether home or external). This is used by checkFamInstConsistency%. This does NOT include us, unlike  imp_finsts9. See Note [The type family instance consistency story].6-Did this module originate from a *-boot file?O)Does this module define family instances?6<Records whether a module has orphans. An "orphan" is one of:An instance declaration in a module other than the definition module for one of the type constructors or classes in the instance headeA transformation rule in a module other than the one defining the function in the head of the ruleA vectorisation pragma6Fixity information for an P. We keep the OccName in the range so that we can generate an interface from it62Fixity environment mapping names to their fixities6 Warning information for a module6Nothing deprecated6Whole module deprecated6Some specific things deprecated6NClass that abstracts out the common ability of the monads in GHC to lookup a  in the monadic environment by Y. Provides a number of related convenience functions for accessing particular kinds of 6 A map from s to Es, constructed by typechecking local declarations or interface files6QBring the exports of a particular module (filtered by an import decl) into scope6fBring into scope the entire top-level envt of of this module, including the things imported into it.6}Interactive context, recording information about the state of the context in which statements are executed in a GHC session.6The 9 used to evaluate interative expressions and statements.6Each GHCi stmt or declaration brings some new things into scope. We give them names like interactive:Ghci9.T, where the ic_index is the '9'p. The ic_mod_index is incremented whenever we add something to ic_tythings See Note [The interactive package]6HThe GHCi top-level scope (ic_rn_gbl_env) is extended with these importsThis field is only stored here so that the client can retrieve it with GHC.getContext. GHC itself doesn't use it, but does reset it to empty sometimes (such as before a GHC.load). The context is set with GHC.setContext.6sTyThings defined by the user, in reverse order of definition (ie most recent at the front) See Note [ic_tythings]6 The cached  , built by 9q and updated regularly It contains everything in scope at the command line, including everything in ic_tythings69All instances and family instances created during this session. These are grabbed en masse after each update to be sure that proper overlapping is retained. That is, rather than re-check the overlapping each time we update the context, we just take the results from the instance code that already does that.6#Fixities declared in let statements6$The current default types, set by a  'default' declaration6 The stack of breakpoint contexts6#The monad that GHCi is executing in6SThe function that is used for printing results of expressions in ghci and -e mode.6xAn entry to be inserted into a module's static pointer table. See Note [Grand plan for static forms] in StaticPtrTable.6Foreign export stubs6We don't have any stubs6!There are some stubs. Parameters:?1) Header file prototypes for "foreign exported" functions@2) C stubs to use when calling "foreign exported" functions6A restricted form of 6 for code generation purposes6Module being compiled6Algebraic data types (including ones that started life as classes); generate constructors and info tables. Includes newtypes, just for the benefit of External Core6The tidied main bindings, including previously-implicit bindings for record and class selectors, and data constructor wrappers. But *not* data constructor workers; reason: we we regard them as part of the code-gen of tycons6Foreign export stubs6>Dependent packages, used to generate #includes for C code gen6%Program coverage tick box information6Module breakpoints6Static pointer table entries for static forms defined in the module. See Note [Grand plan for static forms] in StaticPtrTable6A ModGuts is carried through the compiler, accumulating stuff as it goes There is only one ModGuts at any time, the one for the module being compiled right now. Once it is compiled, a 6 and 6, are extracted and the ModGuts is discarded.6Module being compiled6Whether it's an hs-boot module6$For error messages from inner passes6What it exports6*What it depends on, directly or otherwise6$What was used? Used for interfaces.6Did we run a TH splice?6Top-level lexical environment6EFixities declared in this module. Used for creating interface files.6=TyCons declared in this module (includes TyCons for classes)6'Class instances declared in this module6(Family instances declared in this module6(Pattern synonyms declared in this module6\Before the core pipeline starts, contains See Note [Overall plumbing for rules] in Rules.hs6Bindings for this module6'Foreign exports declared in this module6(Files to be compiled with the C compiler6Warnings declared in the module6#Annotations declared in this module6Complete Matches6!Coverage tick boxes in the module6Breakpoints for the module6]Vectorisation declarations in this module (produced by desugarer & consumed by vectoriser)6-Pool of vectorised declarations in the module6 Class instance environment for  home-package% modules (including this one); c.f.  tcg_inst_env6&Type-family instance environment for  home-package% modules (including this one); c.f. tcg_fam_inst_env6Safe Haskell mode6^Do we need to trust our own package for Safe Haskell? See Note [RnNames . Trust Own Package]6$The name the module is imported with6#the source span of the whole import6whether this is a safe import6"whether this is an "hiding" import6'all the things the module could provide6"whether this is a qualified import6^If a module was "imported" by the user, we associate it with more detailed usage information 6H; a module imported by the system only gets used for usage information.6Records the modules directly imported by a module for extracting e.g. usage information, and also to give better error message6The 6/ is essentially a cache for information in the 6f for home modules only. Information relating to packages will be loaded into global environments in 6m.6PLocal type environment for this particular module Includes Ids, TyCons, PatSyns6"s for the instances in this module6Domain may include s from other modules6eAnnotations present in this module: currently they only annotate things also declared in this module6 Module vectorisation information6&Complete match pragmas for this module6AThe original names declared of a certain module that are exported6A 6 plus a 6> summarises everything we know about a compiled module. The 6 is the stuff *before* linking, and can be written out to an interface file. The 'ModDetails is after linking and can be completely recovered from just the 6.4When we read an interface file, we also construct a 6. from it, except that we explicitly make the 7  and a few other fields empty; as when reading we consolidate the declarations etc. into a number of indexed maps and environments in the 6m.6Name of the module we are for6Are we a sig of another mod?6Hash of the whole interface6Hash of the ABI only6<Hash of the important flags used when compiling this module6Whether this module has orphans7aWhether this module has family instances. See Note [The type family instance consistency story].7Boot? Signature?7zThe dependencies of the module. This is consulted for directly-imported modules, but not for anything else (hence lazy)7Usages; kept sorted so that it's easy to decide whether to write a new iface file (changing usages doesn't affect the hash of this module) NOT STRICT! we read this field lazily from the interface file It is *only* consulted by the recompilation checker7Exports Kept sorted by (mod,occ), to make version comparisons easier Records the modules that are the declaration points for things exported by this module, and the s of those things7Hash of export list7cModule required TH splices when it was compiled. This disables recompilation avoidance (see #481).7HFixities NOT STRICT! we read this field lazily from the interface file7HWarnings NOT STRICT! we read this field lazily from the interface file7 KAnnotations NOT STRICT! we read this field lazily from the interface file7 Type, class and variable declarations The hash of an Id changes if its fixity or deprecations change (as well as its type of course) Ditto data constructors, class operations, except that the hash of the parent class/tycon changes7 6Binds all the things defined at the top level in the original source code for this module. which is NOT the same as mi_exports, nor mi_decls (which may contains declarations for things not actually defined by the user). Used for GHCi and for inspecting the contents of modules via the GHC API only.(We need the source file to figure out the top-level environment, if we didn't compile this module from source then this field contains Nothing).1Strictly speaking this field should live in the 7/", but that leads to more plumbing.7 Sorted class instance7 Sorted family instances7 Sorted rules7RHash for orphan rules, class and family instances, and vectorise pragmas combined7Vectorisation information7Cached lookup for 77Cached lookup for 77Cached lookup for 7 . The Nothing in 7 means that the thing isn't in decls. It's useful to know that when seeing if we are up to date wrt. the old interface. The * is the parent of the name, if it has one.7:True if this program uses Hpc at any point in the program.7/Safe Haskell Trust information for this module.7QDo we require the package this module resides in be trusted to trust this module? This is used for the situation where a module is Safe (so doesn't require the package be trusted itself) but imports some trustworthy modules from its own package (which does require its own package be trusted). See Note [RnNames . Trust Own Package]7/The result of searching for an imported module.MNB: FindResult manages both user source-import lookups (which can result in DD) as well as direct imports for interfaces (which always result in ).7The module was found7#The requested package was not found7"_Error_: both in multiple packages7 Not found7&The 7& maps modules to the result of searching for that module. It records the results of searching for modules along the search path. On :load., we flush the entire contents of this cache.7(<data constructors not exported to ensure correct result type7)*The supported metaprogramming result types7/7Information about modules in the package being compiled71sThe basic loaded interface file: every loaded module has one of these, even if it is imported from another package721Extra information that has been created from the 6/ for the module, typically during typechecking73KThe actual artifact we would like to link to access things in this module.73 might be Nothing: If this is an .hs-boot modulecTemporarily during compilation if we pruned away the old linkable because it was out of date.After a complete compilation (:), all 73 fields in the 75 will be Just.When re-linking a module (;), we construct the 7/ by building a new 6 from the old 6 (only).74@Helps us find information about modules in the imported packages75;Helps us find information about modules in the home package77"A module name: search for the file78A filename: preprocess & parse it to find the module name. If specified, the Phase indicates how to compile this file (which phase to start from). Nothing indicates the starting phase should be determined from the suffix of the filename.79A compilation target.A target may be supplied with the actual text of the module. If so, use this instead of the file contents (this is for use in an IDE where the file hasn't been saved by the user yet).7;module or filename7<object code allowed?7=in-memory text buffer?7DHscEnv is like Session, except that some of the fields are immutable. An HscEnv is used to compile a single module from plain Haskell source code (after preprocessing) to either C, assembly or C--. Things like the module graph don't change during a single compilation.(Historical note: "hsc" used to be the name of the compiler binary, when there was a separate driver and compiler. To compile a single module, the driver would invoke hsc on the source code... so nowadays we think of hsc as the layer of the compiler that deals with compiling a single module.7FThe dynamic flag settings7G-The targets (or roots) of the current session7H'The module graph of the current session7I1The context for evaluating interactive statements7JIThe home package table describes already-compiled home-package modules,  excluding# the module we are compiling right now. (In one-shot mode the current module is the only home-package module, so hsc_HPT is empty. All other modules count as "external-package" modules. However, even in GHCi mode, hi-boot interfaces are demand-loaded into the external-package table.)7J is not mutable because we only demand-load external packages; the home package is eagerly loaded, module by module, by the compilation manager.0The HPT may contain modules compiled earlier by --makeE but not actually below the current module in the dependency graph.4(This changes a previous invariant: changed Jan 05.)7KInformation about the currently loaded external packages. This is mutable because packages will be demand-loaded during a compilation run as required.7LAs with 7K, this is side-effected by compiling to reflect sucking in interface files. They cache the state of external interface files, in effect.7M:The cached result of performing finding in the file system7N7Used for one-shot compilation only, to initialise the IfGblEnv. See < for =(. See also Note [hsc_type_env_var hack]7OBinteractive server process. Created the first time it is needed.7P?An error thrown if the GHC API is used in an incorrect fashion.7QXA source error is an error that is caused by one or more errors in the source code. A 7Ql is thrown by many functions in the compilation pipeline. Inside GHC these errors are merely printed via  Q, but API clients may treat them differently, for example, insert them into a list box. If you want the default behaviour, use the idiom: RhandleSourceError printExceptionAndWarnings $ do ... api calls that may fail ...The 7Q%s error messages can be accessed via 7]8. This list may be empty if the compiler failed due to -Werror ( ).See printExceptionAndWarningsS for more information on what to take care of when writing a custom error handler.7T$Status of a compilation to hard-code7`PPerform the given action and call the exception handler if the action throws a 7Q. See 7Q for more information.7aiGiven a bag of warnings, turn them into an exception if -Werror is enabled, or print them out otherwise.7c(Retrieve the ExternalPackageState cache.7f$Constructs an empty HomePackageTable7g%Constructs an empty PackageIfaceTable7t Find the 6 for a DL, searching in both the loaded home and external package module information7vFind all the instance declarations (of classes and families) from the Home Package Table filtered by the provided predicate function. Used in  tcRnImportsl, to select the instances that are in the transitive closure of imports from the currently compiled module.7wGet the combined VectInfo of all modules in the home package table. In contrast to instances and rules, we don't care whether the modules are "below" us in the dependency sense. The VectInfo of those modules not "below" us does not affect the compilation of the current module.7xAGet rules from modules "below" this one (in the dependency sense)OGGet annotations from modules "below" this one (in the dependency sense)OYGet things from modules "below" this one (in the dependency sense) C.f Inst.hptInstances7`Deal with gathering annotations in from all possible places and combining them into a single 7NOld-style accessor for whether or not the ModIface came from an hs-boot file.7-Lookups up a (possibly cached) fixity from a 6. If one cannot be found,  is returned instead.7WThe semantic module for this interface; e.g., if it's a interface for a signature, if 6 is p[A= A]:A, 7 will be  A.7:The "precise" free holes, e.g., the signatures that this 6 depends on.7Given a set of free holes, and a unit identifier, rename the free holes according to the instantiation of the unit identifier. For example, if we have A and B free, and our unit identity is p[A= C ,B=impl:B]%, the renamed free holes are just C.7Constructs an empty ModIface7Constructs cache for the 7 field of a 67Constructs an empty ModDetails7'Constructs an empty InteractiveContext.7RThis function returns the list of visible TyThings (useful for e.g. showBindings)7PGet the PrintUnqualified function based on the flags and this InteractiveContext7extendInteractiveContext is called with new TyThings recently defined to update the InteractiveContext to include them. Ids are easily removed when shadowed, but Classes and TyCons are not. Some work could be done to determine whether they are entirely shadowed, but as you could still have references to them (e.g. instances for classes or values of the type for TyCons), it's not clear whether removing them is even the appropriate behavior.7Add TyThings to the GlobalRdrEnv, earlier ones in the list shadowing later ones, and shadowing existing entries in the GlobalRdrEnv.7rCreates some functions that work out the best ways to format names for the user according to a set of heuristics.7Creates a function for formatting modules based on two heuristics: (1) if the module is the current module, don't qualify, and (2) if there is only one exposed package which exports this module, don't qualify.7Creates a function for formatting packages based on two heuristics: (1) don't qualify if the package in question is "main", and (2) only qualify with a unit id if the package ID would be ambiguous.7aA function which only qualifies package names if necessary; but qualifies all other identifiers.7Determine the  s brought into scope by another  other than itself. For example, Id's don't have any implicit TyThings as they just bring themselves into scope, but classes bring their dictionary datatype, type constructor and some selector functions into scope, just for a start!7Returns True if there should be no interface-file declaration for this thing on its own: either it is built-in, or it is part of some other declaration, or it is generated implicitly by some other declaration.76tyThingParent_maybe x returns (Just p) when pprTyThingInContext should print a declaration for p (albeit with some "..." in it) when asked to show x It returns the *immediate* parent. So a datacon returns its tycon but the tycon could be the associated type of a class, so it in turn might have a parent.7nThe Names that a TyThing should bring into scope. Used to build the GlobalRdrEnv for the InteractiveContext.7 Find the  for the given J by using all the resources at our disposal: the compiled modules in the 75: and the compiled modules in other packages that live in 6'. Note that this does NOT look up the H in the module being compiled: you have to do that yourself, if desired7As 7?, but with a marginally easier-to-use interface if you have a 7D7Get the M from a 4 if it is a type constructor thing. Panics otherwise7Get the  from a 2 if it is a coercion axiom thing. Panics otherwise7Get the 6 from a 4 if it is a data constructor thing. Panics otherwise7Get the B from a 5 if it is a data constructor thing. Panics otherwise7Get the  from a < if it is a id *or* data constructor thing. Panics otherwise7Constructs the cache for the 7 field of a 67Creates cached lookup for the 7 field of 67&Add stats for one newly-read interface7 Did this 6U originate from a hs-boot file?7MFind out if HPC is used by this module or any of the modules it depends upon76Is this an actual file on disk we can link in somehow?71Is this a bytecode linkable with no file on disk?7TRetrieve the filename of the linkable if possible. Panic if it is a byte-code object7QRetrieve the compiled byte-code if possible. Panic if it is a file-based linkable7`exception handleraction to perform10/.-EFGH &&&&&&&&&6&>6&6'6(6)6*6+6,6-6.6/606162636465666768696:6;6<6=6>6?6@6A6B6C6D6E6F6G6H6I6J6K6L6M6N6O6P6Q6R6S6T6U6V6W6X6Y6Z6[6\6]6^6_6`6a6b6c6d6e6f6g6h6i6j6k6l6m6n6w6r6o6p6q6s6t6u6v6x6y6z6{6|6}6~6666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666667777777777 7 7 7 7 7777777777777777777 7!7"7#7$7%7&7'7(7)7*7+7,7-7.7/707172737475767778797:7;7<7=7>7?7@7A7B7C7D7E7F7I7G7H7J7K7L7M7N7O7P7Q7R7S7T7U7V7W7X7Y7Z7[7\7]7^7_7`7a7b7c7d7e7f7g7h7i7j7k7l7m7n7o7p7q7r7s7t7u7v7w7x7y7z7{7|7}7~777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777D7E7F7G7H7I7J7K7L7M7N7O7c7&777777777 7!7"7#7$7%797:7;7<7=7677787d7e6c77T7U7V7W7X7Y7>7?7@7A7B7C7R7S7Z7[6666666666766666666666666666666666666666666666666666666766667666666666610/.-6U6V6W6X6Y6Z6[6\6]6^6_6`6a6b777777776Q6R6S6T 757/707172737f7i7k7l7m7n7o7p7q7j7r7u7v7x7w7h7y6m6n6o6p6q6r6s6t6u6v6w6x6y6z6d6e6f6g6h6i6j6k6l76747g7t77s6}6|6~6{7777)7*7+7,7-7.7(7z7{7|7}7~7'76666666666666677777777766677777666666667777777777 7 7 7 7 777777777777777777766677EFGH7777777777776777777777777777777666666666666666666666666666666776666676061626364776+6,6-6.6/&677776K6L6M6N6O6P776J&&&&&&&&&>6C6D6E6F6G6H6I6<6=6>6?6@6A6B77776:777776;65666768697Q7P7\7]7^7_7`7b7a6'6(6)6*6&77(6'6(6)6*6+6,6-6.6/606162636465666768696:O6<6=6>6?6@6A6B6C6D6E6F6G6H6I6K6L6M6N6O6P6Q6R6S6T6U 6V6W6X6Y6Z6[6\6]6^6_6`6a6b6d6e6f6g6h6i6j6k6l6m 6n6o6p6q6r6s6t6u6v6w6x6y6z66666666666666666666666666666666666666 6666666666666666666 6666666666666666666666666666666666666666666666666666 666666666666666667777777777 7 7 7 7 77777777777 77777777 7!7"7#7$7%7( OOOOOOOOOO7)7*7+7,7-7.7/70717273767778797:7;7<7=7>7?7@7A7B7C7D 7E7F7G7H7I7J7K7L7M7N7O7PO7QO7R7S7T7U7V7W7X7YNone%CKV]q7wThe plugin found a contradiction. The returned constraints are removed from the inert set, and recorded as insoluble.7The first field is for constraints that were solved. These are removed from the inert set, and the evidence for them is recorded. The second field contains new work, that should be processed by the constraint solver.8.Initialize plugin, when entering type-checker.8DSolve some constraints. TODO: WRITE MORE DETAILS ON HOW THIS WORKS.89Clean up after the plugin, when exiting the type-checker.8DFlag to see whether we're type-checking terms or kind-checking types8 wA thing that can be stored for error message generation only. It is stored with a function to zonk and tidy the thing.8: The thing that has type "actual"8QSee Note [SubGoalDepth]8RWhether or not one 8~ can rewrite another is determined by its flavour and its equality relation. See also Note [Flavours with roles] in TcSMonad8cA place for type-checking evidence to go after it is generated. Wanted equalities are always HoleDest; other wanteds are always EvVarDest.8dgbind this var to the evidence EvVarDest is always used for non-type-equalities e.g. class constraints8evfill in this hole with the evidence HoleDest is always used for type-equalities See Note [Coercion holes] in TyCoRep8}An expression or type hole8~OEither an out-of-scope variable or a "true" hole in an expression (TypedHoles)8(A hole in a type (PartialTypeSignatures)88} summarises what was imported from where, irrespective of whether the imported things are actually used or not. It is used: when processing the export list,4when constructing usage info for the interface file,to identify the list of directly imported modules for initialisation purposes and for optimised overlap checking of family instances,/when figuring out what things are really unused8'Domain is all directly-imported modulesTSee the documentation on ImportedModsVal in HscTypes for the meaning of the fields.We need a full ModuleEnv rather than a ModuleNameEnv here, because we might be importing modules of the same name from different packages. (currently not the case, but might be in the future).88Home-package modules needed by the module being compiledBIt doesn't matter whether any of these dependencies are actually used when compiling the module; they are listed if they are below it at all. For example, suppose M imports A which imports X. Then compiling M might not need to consult X.hi, but X is still listed in M's dependencies.8Packages needed by the module being compiled, whether directly, or via other modules in this package, or via modules imported from other packages.8 This is strictly a subset of imp_dep_pkgs and records the packages the current module needs to trust for Safe Haskell compilation to succeed. A package is required to be trusted if we are dependent on a trustworthy module in that package. While perhaps making imp_dep_pkgs a tuple of (UnitId, Bool) where True for the bool indicates the package is required to be trusted is the more logical design, doing so complicates a lot of code not concerned with Safe Haskell. See Note [RnNames . Tracking Trust Transitively]8Do we require that our own package is trusted? This is to handle efficiently the case where a Safe module imports a Trustworthy module that resides in the same package as it. See Note [RnNames . Trust Own Package]8YOrphan modules below us in the import tree (and maybe including us for imported modules)8bFamily instance modules below us in the import tree (and maybe including us for imported modules)8>IsGroupClosed describes a group of mutually-recursive bindings8+IdBindingInfo describes how an Id is bound.It is used for the following purposes: a) for static forms in TcExpr.checkClosedInStaticForm and b) to figure out when a nested binding can be generalised, in TcBinds.decideGeneralisationPlan.8?A typecheckable thing available in a local context. Could be 8 1, but also lexically scoped variables, etc. See TcEnv for how to retrieve a  given a .8Type alias for @; the convention is we'll use this for mutable bits of data in 9@ which are updated during typechecking and returned at the end.99 describes the top-level of the module at the point at which the typechecker is finished work. It is this structure that is handed on to the desugarer For state that needs to be updated during the typechecking phase and returned at end, use a 8 (= ).9Module being compiled9SIf a signature, the backing module See also Note [Identity versus semantic module]9 4What kind of module (regular Haskell, hs-boot, hsig)9 $Top level envt; used during renaming9 Types used for defaulting. Nothing => no default decl9 Just for things in this module9 NJust for things in this module See Note [The interactive package] in HscTypes9Global type env for the module we are compiling now. All TyCons and Classes (for this module) end up in here right away, along with their derived constructors, selectors.j(Ids defined in this module start in the local envt, though they move to the global envt during zonking)[NB: for what "things in this module" means, see Note [The interactive package] in HscTypes9Instance envt for all  home-package* modules; Includes the dfuns in tcg_insts9Ditto for family instances9And for annotations9Family instances we have to check for consistency. Invariant: each FamInst in the list's fi_fam matches the key of the entry in the E. This gets consumed by checkRecFamInstConsistencyA. See Note [Don't check hs-boot type family instances too early]9What is exported9Information about what was imported from where, including things bound in this module. Also store Safe Haskell info here about transative trusted packaage requirements.90What is defined in this module and what is used.9XRecords occurrences of imported entities See Note [Tracking unused binding and imports]9.Locally-defined top-level names to keep alive."Keep alive" means give them an Exported flag, so that the simplifier does not discard them as dead code, and so that they are exposed in the interface file (but not to export to the user).Some things, like dict-fun Ids and default-method Ids are "born" with the Exported flag on, for exactly the above reason, but some we only discover as we go. Specifically:,The to/from functions for generic data typesDTop-level variables appearing free in the RHS of an orphan rule2Top-level variables appearing free in a TH bracket9True  = Template Haskell syntax used.We need this so that we can generate a dependency on the Template Haskell package, because the desugarer is going to emit loads of references to TH symbols. The reference is implicit rather than explicit, so we have to zap a mutable variable.9True  =$ A Template Haskell splice was used.2Splices disable recompilation avoidance (see #481)9uLocations of the top-level splices; used for providing details on scope in error messages for out-of-scope variables9&Allows us to choose unique DFun names.9VThe requirements we merged with; we always have to recompile if any of these changed.9 Renamed decls, maybe. Nothing  = Don't retain renamed decls.9!"dependencies from addDependentFile9"'Top-level declarations from addTopDecls9#Foreign files emitted from TH.9$>Exact names bound in top-level declarations in tcg_th_topdecls9%#Template Haskell module finalizers.They are computations in the TcM monad rather than Q; because we set them to use particular local environments.9'Template Haskell state96Maybe Haddock header docs97True4 if any part of the prog uses hpc instrumentation.985Whether this module has a corresponding hi-boot file99CThe Name of the main function, if this module is the main module.9:Has the typechecker inferred this module as -XSafe (Safe Haskell) See Note [Safe Haskell Overlapping Instances Implementation], although this is used for more than just that failure case.9;9A list of user-defined plugins for the constraint solver.9<%The RealSrcSpan this module came from9=LWanted constraints of static forms. See Note [Constraints in static forms].9?9?\ describes the result of running the frontend of a Haskell module. Usually, you'll get a 9@, since running the frontend involves typechecking a program, but for an hs-boot merge you'll just get a ModIface, since no actual typechecking occurred.iThis data type really should be in HscTypes, but it needs to have a TcGblEnv which is only defined here.9XlengthP9Y replicateP9Z singletonP9[mapP9\filterP9]zipP9^ crossMapP9_(!:)9`emptyP9a(+:+)9b enumFromToP9cenumFromThenToP9w0Historical "type-checking monad" (now it's just 9}).9x+Historical "renaming monad" (now it's just 9}).9A 9 is a substitution on ^s that can be used to refine the identities of a hole while we are renaming interfaces (see  RnModIface). Specifically, a 9 for ns_module_name A, defines a mapping from {A.T} (for some  T) to some arbitrary other ."The most intruiging thing about a 9(, however, is how it's constructed. A 9 is *implied* by the exported Fs of the implementor of an interface: if an implementor of signature  H exports M.T-, you implicitly define a substitution from {H.T} to M.T. So a 9 is computed from the list of s that are exported by the implementation of a module, or successively merged together by the export lists of signatures which are joining together.PIt's not the most obvious way to go about doing this, but it does seem to work!gNB: Can't boot this and put it in NameShape because then we start pulling in too many DynFlags things.9Union two ImportAvailsThis function is a key part of Import handling, basically for each import we create a separate ImportAvails structure and then union them all together with this function.9#No signature or a partial signature9IMakes a new equality predicate with the same role as the given evidence.9Get the flavour of the given 89(Get the equality relation for the given 89@Returns free variables of constraints as a non-deterministic set9oReturns free variables of constraints as a deterministically ordered. list. See Note [Deterministic FV] in FV.OiReturns free variables of constraints as a composable FV computation. See Note [Deterministic FV] in FV.9nReturns free variables of a bag of constraints as a non-deterministic set. See Note [Deterministic FV] in FV.9vReturns free variables of a bag of constraints as a deterministically odered list. See Note [Deterministic FV] in FV.OrReturns free variables of a bag of constraints as a composable FV computation. See Note [Deterministic FV] in FV.9kReturns free variables of WantedConstraints as a non-deterministic set. See Note [Deterministic FV] in FV.9tReturns free variables of WantedConstraints as a deterministically ordered list. See Note [Deterministic FV] in FV.OoReturns free variables of WantedConstraints as a composable FV computation. See Note [Deterministic FV] in FV.OiReturns free variables of Implication as a composable FV computation. See Note [Deterministic FV] in FV.9A constraint is considered to be a custom type error, if it contains custom type errors anywhere in it. See Note [Custom type errors in constraints]9True if taking superclasses of givens, or of wanteds (to perhaps expose more equalities or functional dependencies) might help to solve this constraint. See Note [When superclasses help]9)Get the equality relation relevant for a 8Z9Get the role relevant for a 8Z9-Extract the flavour, role, and boxity from a 8Z9-Extract the flavour, role, and boxity from a 89+Take a CtLoc and moves it to the kind level:Make an 8 % that doesn't need tidying or zonking:8Retrieve the # of arguments in the error thing, if known:)Extract a suitable CtOrigin from a HsExpr: -Extract a suitable CtOrigin from a MatchGroup: -Extract a suitable CtOrigin from guarded RHSsO7Extract a suitable CtOrigin from a list of guarded RHSsOShort one-liners:;This function provides an escape for direct access to the 9w: monad. It should not be used lightly, and the provided 8 API should be favoured instead.: Access the . carried by the 8& during constraint solving. Returns J% if invoked during 8 or 8.10/.-6&6'6(6)6*77777888888888 88 8 8 8188 8/80888888888888888888 8!8"8#8$8%8&8'8(8)8*8+8,8-8.82838485868788898:8;8<8=8>8?8@8A8B8C8D8E8F8G8H8I8J8K8L8P8M8N8O8Q8R8S8U8T8V8X8W8Y8Z8[8\8]8_8^8`8b8a8c8d8e8f8g8h8i8j8k8l8m8o8q8t8w8n8p8r8s8u8v8x8y8z8{8|8}8~8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888889999999999 9 9 9 9 9999999999999999999 9!9"9#9$9%9&9'9(9)9*9+9,9-9.9/909192939495969798999:9;9<9=9>9?9@9A9B9C9D9E9F9G9H9I9J9K9L9M9N9O9P9Q9R9S9T9U9V9W9X9Y9Z9[9\9]9^9_9`9a9b9c9d9e9f9g9h9i9j9k9l9m9n9o9p9q9r9s9t9u9v9w9x9y9z9{9|9}9~999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999:::::::::: : : : : ::+9~9}9w9x9|9z9{89q9r9s9t9u9v99999 9 9 9 9 9999999999999999999 9!9"9#9$9%9&9'9(9)9*9+9,9-9.9/909192939495969798999:9;9<9=9>8888888888888889m9n9o9p9d9e9f9g9h9i9j9k9l99?9@8988888888899888899888888888888888888888888888888889999996'6(6)6*9y9E9F9G9H9I9J9K9L9M9N9O9P9Q9R9S9T9U9V9W9X9Y9Z9[9\9]9^9_9`9a9b9c9D9A9B9C6&77888888888888999899910/.-8888888888888888888888888888888888998888888888888888888888888999999999999999999999999999999999999999999999999998x8y8z8{8|9999999999999999999998l8m8n8o8p8q8r8s8t8u8v8w8f8g8h8i8j8k998Q99998K8L8M8N8O8P99999999998 8 8888888888888888888 8!8"8#8$8%8&8'8(8)8*8+8,8-8.8/808182838485868788898:::: : 8 8 ::888 ::: : 998;8<8=8>8?8@8A8B8C8D8E8F8G8H8I8J:::8Z8[8\8]8^8_8`8^8a8b8`8^8`8c8d8e999999998888877788: ::8V8W8X8Y8S8T8U98R9999999999888}8~8999999-777888888O888 8 8 8 .8 8888888888888888888 8!8"8#8$8%8&8'8(8)8*8+8,8-8.8/808182838485868788898:8;8<8=8>8?8@8A8B8C8D8E8F8G8H8I8J8K8L8M8N8O8P8QO8S8T8U8V8W8X8Y8Z 8[8\8]8^8_8`8^8a8b8`8^8`8c8d8e8f8g8h8i8j8k8l 8m8n8o8p8q8r8s8t8u8v8w8x8y8z8{8|8}8~888888888888888888888888888888888888888888 88888888888888888888888888888888 8888888888888888888888888888888888888888888888888889999999999 9 9 9 9 9999999999999999999 9!9"9#9$9%9&9'9(9)9*9+9,9-9.9/909192939495969798999:9;9<9=9>9?9@9A9B9C9E9F9G9H9I9J9K9L 9M9N9O9P9Q9R9S9T9U9V 9W9X9Y9Z9[9\9]9^9_9`9a9b9c9d9e9f9g9h9i9j9k9l9m9n9o9p9q9r9s9t9u9v99999uNone]OSubtract two natural numbers.O\Compute the exact logarithm of a natural number. The logarithm base is the second argument.ODivide two natural numbers.OgCompute the exact root of a natural number. The second argument specifies which root we are computing.OCompute the the n-th root of a natural number, rounded down to the closest natural number. The boolean indicates if the result is exact (i.e., True means no rounding was done, False means rounded down). The second argument specifies which root we are computing. OCompute the logarithm of a number in the given base, rounded down to the closest integer. The boolean indicates if we the result is exact (i.e., True means no rounding happened, False means we rounded down). The logarithm base is the second argument. tuwxv:7:8:9:::;:<:=:>:?:?tuvwx:7:9:::;:8:<:=:>None:[:\:]:]:\:[None;=V #:`*Setup the initial typechecking environment:aRun a 9w& action in the context of an existing GblEnv.:xDo it flag is true:XUpdate the external package state. Returns the second result of the modifier function.eThis is an atomic operation and forces evaluation of the modified EPS in order to avoid space leaks.:"Update the external package state.eThis is an atomic operation and forces evaluation of the modified EPS in order to avoid space leaks.:"A convenient wrapper for taking a MaybeErr MsgDoc a. and throwing an exception if it is an error.O3Trace when a certain flag is enabled. This is like :J but accepts a string as a label and formats the trace message uniformly.:Output a doc if the given  is set.0By default this logs to stdout However, if the `-ddump-to-file`3 flag is set, then this will dump output to a fileJust a wrapper for d:&Unconditionally dump some trace outputThe DumpFlag is used only to set the output filename for --dump-to-file, not to decide whether or not to output That part is done by the caller:*Like logInfoTcRn, but for user consumption:_Drop elements of the input that fail, so the result list can be shorter than the argument list:2The accumulator is not updated if the action fails:Succeeds if applying the argument to all members of the lists succeeds, but nevertheless runs it on all arguments, to collect all errors.:RAdd a fixed message to the error context. This message should not do any tidying.:@Add a message to the error context. This message may do tidying.:Add a fixed landmark message to the error context. A landmark message is always sure to be reported, even if there is a lot of context. It also doesn't count toward the maximum number of contexts reported.: Variant of :1 that allows for monadic operations and tidying.:FDisplay a warning if a condition is met. and the warning is enabled:(Display a warning if a condition is met.:(Display a warning if a condition is met.:)Display a warning in the current context.:%Display a warning in a given context.:2Display a warning for the current source location.:.Display a warning for a given source location.:KDisplay a warning, with an optional flag, for the current source location.O?Display a warning, with an optional flag, for a given location.:Get a ] that includes mappings for all vars free in the given type. Useful when tidying open types.:5Throw out any constraints emitted by the thing_inside; When generating an out-of-scope error message for a variable matching a binding in a later inter-splice group, the typechecker uses the splice locations to provide details in the message about the scope of that binding.;jAdds the given modFinalizers to the global environment and set them to use the current local environment.;Mark that safe inference has failed See Note [Safe Haskell Overlapping Instances Implementation] although this is used for more than just that failure case.;.Figure out the final correct safe haskell mode;9Switch instances to safe instances if we're in Safe mode.;Run an 9{= (top-level interface monad) computation inside an existing 9}; (typecheck-renaming monad) computation by initializing an 9m based on 9.;.Initialize interface typechecking, but with a 9' to apply when typechecking top-level s (see lookupIfaceTop)'%10/.-     6&6'6(6)6*77777888888888 88 8 8 8188 8/80888888888888888888 8!8"8#8$8%8&8'8(8)8*8+8,8-8.82838485868788898:8;8<8=8>8?8@8A8B8C8D8E8F8G8H8I8J8K8L8P8M8N8O8Q8R8S8U8T8V8X8W8Y8Z8[8\8]8_8^8`8b8a8c8d8e8f8g8h8i8j8k8l8m8o8q8t8w8n8p8r8s8u8v8x8y8z8{8|8}8~8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888889999999999 9 9 9 9 9999999999999999999 9!9"9#9$9%9&9'9(9)9*9+9,9-9.9/909192939495969798999:9;9<9=9>9?9@9A9B9C9D9E9F9G9H9I9J9K9L9M9N9O9P9Q9R9S9T9U9V9W9X9Y9Z9[9\9]9^9_9`9a9b9c9d9e9f9g9h9i9j9k9l9m9n9o9p9q9r9s9t9u9v9w9x9y9z9{9|9}9~999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999:::::::::: : : : : :::`:a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z:{:|:}:~:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::;;;;;;;;;; ; ; ; ; ;;;;;;;;;;;;;;;;;;; :`:a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z:{:|:}:~::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::;;;;;;;;;; ; ; ; ; ;;;;;;;;;;;;;;;;;;; :NoneN^ L;.BEmits a new Wanted. Deals with both equalities and non-equalities.;/Emits a new equality constraint;0WCreates a new EvVar and immediately emits it as a Wanted. No equality predicates here.;4Put a value in a coercion hole;5Is a coercion hole filled in?;6IRetrieve the contents of a coercion hole. Panics if the hole is unfilled;79Retrieve the contents of a coercion hole, if it is filled;8yCheck that a coercion is appropriate for filling a hole. (The hole itself is needed only for printing. NB: This must be lazy in the coercion, as it's used in TcHsSyn in the presence of knots. Always returns the checked coercion, but this return value is necessary so that the input coercion is forced only when the output is forced.;9Make an -. suitable for inferring a type of kind * or #.;<Extract a type out of an ExpType, if one exists. But one should always exist. Unless you're quite sure you know what you're doing.;=4Extract a type out of an ExpType. Otherwise, panics.;>0Returns the expected type when in checking mode.;?NReturns the expected type when in checking mode. Panics if in inference mode.;@[Turn a (Infer hole) type into a (Check alpha), where alpha is a fresh unification variable;AUExtracts the expected type if there is one, or generates a new TauTv if there isn't.;FGiven a list of []., skolemize the type variables, returning a substitution mapping the original tyvars to the skolems, and the list of newly bound skolems. See also tcInstSkolTyVars' for a precondition. The resulting skolems are non-overlappable; see Note [Overlap and deriving] for an example where this matters.;IGive fresh uniques to a bunch of TyVars, but they stay as TyVars, rather than becoming TcTyVars Used in FamInst.newFamInst, and Inst.newClsInst;JCGive fresh uniques to a bunch of CoVars Used in FamInst.newFamInst;ZxCreate a tyvar that can be a lifted or unlifted type. Returns alpha :: TYPE kappa, where both alpha and kappa are fresh;gtcGetGlobalTyCoVars returns a fully-zonked set of *scoped* tyvars free in the environment. To improve subsequent calls to the same function it writes the zonked set back into the environment. Note that this returns all variables free in anything (term-level or type-level) in scope. We thus don't have to worry about clashes with things that are not in scope, because if they are reachable, then they'll be returned here.O}Zonk a type without using the smart constructors; the result type is available for inspection within the type-checking knot.;iZonk a type and call . on it. Works within the knot.;vaA suitable TyCoMapper for zonking a type inside the knot, and before all metavars are filled in.;xZonk: a coercion -- really, just zonk any types in the coercion;~Make an 8  storing a type.;Make an 8 1 storing a type, with some extra args known about;@According to the rules around representation polymorphism (see  1https://ghc.haskell.org/trac/ghc/wiki/NoSubKinds), no binder can have a representation-polymorphic type. This check ensures that we respect this rule. It is a bit regrettable that this error occurs in zonking, after which we should have reported all errors. But it's hard to see where else to do it, because this can be discovered only after all solving is done. And, perhaps most importantly, this isn't really a compositional property of a type system, so it's not a terrible surprise that the check has to go in an awkward spot.;C%How to instantiate the type variablesType to instantiate1Result (type vars, preds (incl equalities), rho)p----------..::;&;';(;);*;+;,;-;.;/;0;1;2;3;4;5;6;7;8;9;:;;;<;=;>;?;@;A;B;C;D;E;F;G;H;I;J;K;L;M;N;O;P;Q;R;S;T;U;V;W;X;Y;Z;[;\;];^;_;`;a;b;c;d;e;f;g;h;i;j;k;l;m;n;o;p;q;r;s;t;u;v;w;x;y;z;{;|;};~;;;;;;;;;p.-----;V;W;X;Z;Y;&;';a;P;N;L;Q;T;O;R;S-----.;;;:;9;=;<;A;>;?;@;B;U;);(;2;*;+;,;-;.;/;0;1::;3;4;5;6;7;8;\;];^;[;_;M;`;C;F;G;H;D;E;K;I;J;};;~;;;;;f;{;m;|;k;h;l;i;j;d;e;b;c;y;z;w;o;x;n;v;p;q;r;u;s;t;g;;;;None< P;;;;NoneN ]OA ZonkEnv carries around several bits. The UnboundTyVarZonker just zaps unbouned meta-tyvars to Any (as defined in zonkTypeZapping), except on the LHS of rules. See Note [Zonking the LHS of a RULE].The (TyCoVarEnv TyVar) and is just an optimisation: when binding a tyvar or covar, we zonk the kind right away and add a mapping to the env. This prevents re-zonking the kind at every occurrence. But this is *just* an optimisation.The final (IdEnv Var) optimises zonking for Ids. It is knot-tied. We must be careful never to put coercion variables (which are Ids, after all) in the knot-tied env, because coercions can appear in types, and we sometimes inspect a zonked type in this module.<Confused by zonking? See Note [What is zonking?] in TcMType.O!Extend the knot-tied environment.!/5>5C5q588;;;;;;;;;;;;;;;;;;;;;;;55>/5C5q;;!88;;;;;;;;;;;;;;;OONone^ s;qThe state of the term oracle (includes complex constraints that cannot progress unless we get more information).OThe environment of the oracle contains 1. A Bool (are there any constraints we cannot handle? (PmExprOther)). 2. A substitution we extend with every step and return as a result.;The type of substitutions.;`Check whether a constraint (x ~ BOT) can succeed, given the resulting state of the term oracle.OBCheck whether a variable is in the free variables of an expression;=Flatten the DAG (Could be improved in terms of performance.).;Initial state of the oracle.;%Solve a complex equality (top-level).OSolve a complex equality.OEExtend the substitution and solve the (possibly updated) constraints.;When we know that a variable is fresh, we do not actually have to check whether anything changes, we know that nothing does. Hence, ;/ simply extends the substitution, unlike what O does.OSimplify a complex equality.OtSimplify an expression. The boolean indicates if there has been any simplification or if the operation was a no-op.O@Simplify an equality expression. The equality is given in parts.O:Apply an (un-flattened) substitution to a simple equality.O3Apply an (un-flattened) substitution to a variable.;6Apply an (un-flattened) substitution to an expression.;&External interface to the term oracle.;Type of a PmLit6 6 666666666666666 6!6"6#;;;;;;;;;;6666666666 6 ;666!66"66 6#;;;;;;6;;;None u';;;;None$ [ ;fOutput should be to a temporary file: we're going to run more compilation steps on this output later.;We want a persistent file, i.e. a file in the current directory derived from the input filename, but with the appropriate extension. eg. in "ghc -c Foo.hs" the output goes into ./Foo.o.;The output must go into the specific outputFile in DynFlags. We don't store the filename in the constructor as it changes when doing -dynamic-too.;only the DynFlags change in the HscEnv. The DynFlags change at various points, for example when we read the OPTIONS_GHC pragmas in the Cpp phase.;kthe ModLocation. This is discovered during compilation, in the Hsc phase where we read the module header.;additional object files resulting from compiling foreign code. They come from two sources: foreign stubs, and add{C,Cxx,Objc,Objcxx}File from template haskell;Stop just before this phase;!basename of original input source;!basename of original input source; its extension;%says where to put the pipeline output;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;NoneQV ;A function that atomically updates the name cache given a modifier function. The second result of the modifier function will be the result of the IO action.; Look up the  for a given D and . Consider alternately using ; if you're in the 9z monad and D is simply that of the 6 you are typechecking.;Set the D of a .;6Look up a top-level name from the current Iface module%%;;;;;;;;;;;;;;;;;;;;;;;;;;;%%;;;;;;;;;;;;;;;;;;;;None OSubstitution on {A.T}&. We enforce the invariant that the  of keys of this map have F hole (meaning that if we have a hole substitution, the keys of the map are never affected.) Alternately, this is isomorphic to Map (C, ) .;Create an empty 9i (i.e., the renaming that would occur with an implementing module with no exports) for a specific hole mod_name.; Create a 97 corresponding to an implementing module for the hole mod_name that exports a list of s.;Given an existing 9, merge it with a list of s with Backpack style mix-in linking. This is used solely when merging signatures together: we successively merge the exports of each signature until we have the final, full exports of the merged signature.What makes this operation nontrivial is what we are supposed to do when we want to merge in an export for M.T when we already have an existing export {H.T}. What should happen in this case is that {H.T} should be unified with M.T@: we've determined a more *precise* identity for the export at  T.FNote that we don't do unrestricted unification: only name holes from ns_mod_name ns are flexible. This is because we have a much more restricted notion of shaping than in Backpack'14: we do shaping *as* we do type-checking. Thus, once we shape a signature, its exports are *final* and we're not allowed to refine them further,;%The export list associated with this 9G (i.e., what the exports of an implementing module which induces this 9 would be.);Given a !, substitute it according to the 9! implied substitution, i.e. map {A.T} to M.T&, if the implementing module exports M.T.;Like ;, but returns Nothing if no substitution works.OThe D of any s a 9 has action over.OSubstitute names in a .OSubstitute names in an ^. This has special behavior for type constructors, where it is sufficient to substitute the  to induce a substitution on .OSet the D of a  FieldSelectorO Merges to  lists together, assuming the s have already been unified (O).OUnify two lists of "s, given an existing substitution subst, with only name holes from flexi( unifiable (all other name holes rigid.)O Unify two "s, given an existing substitution subst, with only name holes from flexi( unifiable (all other name holes rigid.)O Unify two "s, given an existing substitution subst, with only name holes from flexi( unifiable (all other name holes rigid.)O Unify a name h which 4 with another name, given an existing substitution subst, with only name holes from flexi) unifiable (all other name holes rigid.) 99999;;;;;; 99999;;;;;;None] OEnvironment for O monads.;[What we have is a generalized ModIface, which corresponds to a module that looks like p[A= AK]:B. We need a *specific* ModIface, e.g. p[A=q():A]:B (or maybe even p[A= BP]:B) which we load up (either to merge it, or to just use during typechecking).Suppose we have:p[A= A]:M ==> p[A=q():A]:MSubstitute all occurrences of  A with q():A (renameHoleModule). Then, for any Name of form {A.T}, replace the Name with the Name according to the exports of the implementing module. This works even for p[A= BR]:M, since we just read in the exports of B.hi, which is assumed to be ready now. This function takes an optional 9, which can be used to further refine the identities in this interface: suppose we read a declaration for {H.T} but we actually know that this should be Foo.T; then we'll also rename this (this is used when loading an interface to merge it into a requirement.);Rename just the exports of a 6?. Useful when we're doing shaping prior to signature merging.ORun a computation in the O monad.OThe key function. This gets called on every Name embedded inside a ModIface. Our job is to take a Name from some generalized unit ID p[A= A, B= Ba], and change it to the correct name for a (partially) instantiated unit ID, e.g. p[A=q[]:A, B= B].%There are two important things to do:If a hole is substituted with a real module implementation, we need to look at that actual implementation to determine what the true identity of this name should be. We'll do this by loading that module's interface and looking at the mi_exports.However, there is one special exception: when we are loading the interface of a requirement. In this case, we may not have the "implementing" interface, because we are reading this interface precisely to "merge it in".External case: p[A= B]:A (and thisUnitId is something else) We are loading this in order to determine B.hi! So don't load B.hi to find the exports.Local case: p[A= A]:A (and thisUnitId is p[A= A}]) This should not happen, because the rename is not necessary in this case, but if it does we shouldn't load A.hi!Compare me with  tcIfaceGlobal!ORename an implicit name, e.g., a DFun or coercion axiom. Here is where we ensure that DFuns have the correct module as described in Note [rnIfaceNeverExported].O Rename an '?, with special handling for an associated dictionary function.;;;;;;;;OOOOOOONone ;Given a data constructor in the heap, find its Name. The info tables for data constructors have a field which records the source name of the constructor as a Ptr Word8 (UTF-8 encoded string). The format is: Package:Module.NamekWe use this string to lookup the interpreter's internal representation of the name using the lookupOrig.;;None gHooks can be used by GHC API clients to replace parts of the compiler pipeline. If a hook is not installed, GHC uses the default built-in behaviour<<<<<<<;;;;;<<;;;;;<<<<<<<<<;;;;;<<<<<<< O;;;;;<<<<<<<NoneQV!e < -A function called to log warnings and errors.< BA monad transformer to add GHC specific features to another monad.GNote that the wrapped monad must support IO and handling of exceptions.< The Session is a handle to the complete state of a compilation session. A compilation session consists of a set of modules constituting the current program or library, the context for interactive evaluation, and various caches.<A minimal implementation of a <j. If you need a custom monad, e.g., to maintain additional state consider wrapping this monad or using < .<:A monad that has all the features needed by GHC API calls.In short, a GHC monadallows embedding of IO actions,can log warnings,/allows handling of (extensible) exceptions, andmaintains a current session.If you do not use < or < , make sure to call 5 before any call to the GHC API functions can occur.<+Call the argument with the current session.<#Grabs the DynFlags from the Session<WSet the current session to the result of applying the current session to the argument.<3Call an action with a temporarily modified Session.<(A monad that allows logging of warnings.<Reflect a computation in the < monad into the I monad.>You can use this to call functions returning an action in the < monad inside an Ib action. This is needed for some (too restrictive) callback arguments of some library functions: libFunc :: String -> (Int -> IO a) -> IO a ghcFunc :: Int -> Ghc a ghcFuncUsingLibFunc :: String -> Ghc a -> Ghc a ghcFuncUsingLibFunc str = reifyGhc $ \s -> libFunc $ \i -> do reflectGhc (ghcFunc i) s<pPrint the error message and all warnings. Useful inside exception handlers. Clears warnings after printing.< < < < < <<<<<<<<<<<<<<<<<<<<<<<< < < <<<<< <<<<<<< << < < < <<<<<<<None"#V!~<.3Run a command in the interpreter's context. With -fexternal-interpreterq, the command is serialized and sent to an external iserv process, and the response is deserialized (hence the Binary constraint). With -fno-external-interpreter' we execute the command directly here.S and do something with it. Overloaded because this is used from TcM as well as IO.<0Execute an action of type IO [a] , returning s for each of the results.<3Execute an action of type IO ()<4Execute an action of type  IO String<5Execute an action of type String -> IO String<6gAllocate and store the given bytes in memory, returning a pointer to the memory in the remote process.<84Create a set of BCOs that may be mutually recursive. success Just err_msg => failure?D!P $ HsLet (snd $ unLoc $2) $4) (mj AnnLet $1:mj AnnIn $3 :(fst $ unLoc $2)) } #This adds an AnnLet annotation for let, an AnnIn for in, as well as any annotations that may arise in the binds. This will include open and closing braces if they are used to delimit the let expressions.P4Add all [AddAnn] to an AST element wrapped in a JustP4Add all [AddAnn] to an AST element wrapped in a JustPiAdd a list of AddAnns to the given AST element, where the AST element is the result of a monadic actionPOAdd a list of AddAnns to the AST element, and return the element as a OrdListP4Synonyms for AddAnn versions of AnnOpen and AnnCloseP4Synonyms for AddAnn versions of AnnOpen and AnnCloseP eGiven a list of the locations of commas, provide a [AddAnn] with an AnnComma entry for each SrcSpanP!!Given a list of the locations of '|'>s, provide a [AddAnn] with an AnnVbar entry for each SrcSpanP"?Get the location of the last element of a OrdList, or noSrcSpanP#jAdd a semicolon annotation in the right place in a list. If the leading list is empty, add it to the tail <<<<<<<<<<<<< <<<<<<<<<<<<<P$P%P&P'P(P)P*P+P&9 P'9 None!<#Parse the imports of a source file. Throws a 7Q if parsing fails.<6Parse OPTIONS and LANGUAGE pragmas of the source file. Throws a 7Q5 if flag parsing fails (including unsupported flags.)<6Parse OPTIONS and LANGUAGE pragmas of the source file. Throws a 7Q5 if flag parsing fails (including unsupported flags.)<4Complain about non-dynamic flags in OPTIONS pragmas. Throws a 7QK if the input list is non-empty claiming that the input flags are unknown.< Parse this.LFilename the buffer came from. Used for reporting parse error locations.KThe original source filename (used for locations in the function result)8The source imports, normal imports, and the module name.< Input fileParsed options, if any.< Input Buffer)Source filename. Used for location info.Parsed options.<<<<<<<<<<<<None":h%<TRecover the type of a well-typed Core expression. Fails when applied to the actual !7 expression as it cannot really be said to have a type<4Returns the type of the alternatives right hand side<[Returns the type of the first alternative, which should be the same as for all alternatives<Is this expression levity polymorphic? This should be the same as saying (isKindLevPoly . typeKind . exprType) but much faster.<A more efficient version of "b when we have several arguments. The first argument is just for debugging, and gives some context<nWrap the given expression in the coercion safely, dropping identity coercions and coalescing nested coercions<ZWraps the given expression in the source annotation, dropping the annotation if possible.<<Strip ticks satisfying a predicate from top of an expression<aStrip ticks satisfying a predicate from top of an expression, returning the remaining expression<RStrip ticks satisfying a predicate from top of an expression, returning the ticks<sCompletely strip ticks satisfying a predicate from an expression. Note this is O(n) in the size of the expression!<bindNonRec x r b produces either: let x = r in bor: case r of x { _DEFAULT_ -> b }&depending on whether we have to use a case or let" binding for the expression (see <). It's used by the desugarer to avoid building bindings that give Core Lint a heart attack, although actually the simplifier deals with them perfectly well. See also ><Tests whether we have to use a case rather than let7 binding for this expression as per the invariants of !C: see CoreSyn#let_app_invariant<qThis guy constructs the value that the scrutinee must have given that you are in one particular branch of a case<$Extract the default case alternative<jFind the case alternative corresponding to a particular constructor: panics if no such constructor exists<bMerge alternatives preserving order; alternatives in the first argument shadow ones in the second<Given: )case (C a b x y) of C b x y -> ...nWe want to drop the leading type argument of the scrutinee leaving the arguments to match against the pattern<<' returns True of an expression that is:[Safe to evaluate even if normal order eval might not evaluate the expression at all, orSafe not- to evaluate even if normal order would do soIt is usually called on arguments of unlifted type, but not always In particular, Simplify.rebuildCase calls it on lifted types when a 'case' is a plain LI. See the example in Note [exprOkForSpeculation: case expressions] belowPrecisely, it returns True iff: a) The expression guarantees to terminate, b) soon, c) without causing a write side effect (e.g. writing a mutable variable) d) without throwing a Haskell exception e) without risking an unchecked runtime exception (array out of bounds, divide by zero)For exprOkForSideEffects( the list is the same, but omitting (e).uNote that exprIsHNF implies exprOkForSpeculation exprOkForSpeculation implies exprOkForSideEffectsSee Note [PrimOp can_fail and has_side_effects] in PrimOp and Note [Implementation: how can_fail/has_side_effects affect transformations];As an example of the considerations in this test, consider: -let x = case y# +# 1# of { r# -> I# r# } in Ebeing translated to: 3case y# +# 1# of { r# -> let x = I# r# in E }We can only do this if the y + 1Y is ok for speculation: it has no side effects, and can't diverge or raise an exception.<<' returns True of an expression that is:[Safe to evaluate even if normal order eval might not evaluate the expression at all, orSafe not- to evaluate even if normal order would do soIt is usually called on arguments of unlifted type, but not always In particular, Simplify.rebuildCase calls it on lifted types when a 'case' is a plain LI. See the example in Note [exprOkForSpeculation: case expressions] belowPrecisely, it returns True iff: a) The expression guarantees to terminate, b) soon, c) without causing a write side effect (e.g. writing a mutable variable) d) without throwing a Haskell exception e) without risking an unchecked runtime exception (array out of bounds, divide by zero)For exprOkForSideEffects( the list is the same, but omitting (e).uNote that exprIsHNF implies exprOkForSpeculation exprOkForSpeculation implies exprOkForSideEffectsSee Note [PrimOp can_fail and has_side_effects] in PrimOp and Note [Implementation: how can_fail/has_side_effects affect transformations];As an example of the considerations in this test, consider: -let x = case y# +# 1# of { r# -> I# r# } in Ebeing translated to: 3case y# +# 1# of { r# -> let x = I# r# in E }We can only do this if the y + 1Y is ok for speculation: it has no side effects, and can't diverge or raise an exception.P,FTrue of dyadic operators that can fail only if the second arg is zero!<:exprIsHNF returns true for expressions that are certainly already evaluated to headA normal form. This is used to decide whether it's ok to change: case x of _ -> einto: e-and to decide whether it's safe to discard a L. So, it does notF treat variables as evaluated, unless they say they are. However, it does treat partial applications and constructor applications as values, even if their arguments are non-trivial, provided the argument type is lifted. For example, both of these are values: &(:) (f x) (map f xs) map (...redex...)because L& on such things completes immediately.3For unlifted argument types, we have to be careful: C (f x :: Int#)Suppose f x diverges; then C (f x)1 is not a value. However this can't happen: see CoreSyn#let_app_invariant`. This invariant states that arguments of unboxed type must be ok-for-speculation (or trivial).< Similar to <| but includes CONLIKE functions as well as data constructors. Conlike arguments are considered interesting by the inliner.P-Returns true for values or value-like expressions. These are lambdas, constructors / CONLIKE functions (as determined by the function argument) or PAPs.<Can we bind this !C at the top level?<@A cheap equality test which bales out fast! If it returns TrueS the arguments are definitely equal, otherwise, they may or may not be equal. See also <<9Cheap expression equality test, can ignore ticks by type.<Returns True3 of expressions that are too big to be compared by <<PFinds differences between core expressions, modulo alpha and renaming. Setting top means that the IdInfo6 of bindings will be checked for differences as well.<-Finds differences between core bindings, see diffExpr.The main problem here is that while we expect the binds to have the same order in both lists, this is not guaranteed. To do this properly we'd either have to do some sort of unification or check all possible mappings, which would be seriously expensive. So instead we simply match single bindings as far as we can. This leaves us just with mutually recursive and/or mismatching bindings, which we then speculatively match by ordering them. It's by no means perfect, but gets the job done well enough.P.Find differences in IdInfoJ. We will especially check whether the unfoldings match, if present (see  diffUnfold).P/PFind differences in unfoldings. Note that we will not check for differences of IdInfof in unfoldings, as this is generally redundant, and can lead to an exponential blow-up in complexity.P0)Add location information to diff messages<GThis function is called only on *top-level* right-hand sides. Returns TrueW if the RHS can be allocated statically in the output, with no thunks involved at all.<True if the type has no non-bottom elements, e.g. when it is an empty datatype, or a GADT with non-satisfiable type parameters, e.g. Int :~: Bool. See Note [Bottoming expressions]GSee Note [No alternatives lint check] for another use of this function.=-collectMakeStaticArgs (makeStatic t srcLoc e) yields Just (makeStatic, t, srcLoc, e).Returns Nothing for every other expression.=JDoes this binding bind a join point (or a recursive group of join points)?<Case alternative constructor!Things bound by the pattern match*The type arguments to the case alternative<BType constructor of scrutinee's type (used to prune possibilities)And its type arguments imposs_consF: constructors known to be impossible due to the form of the scrutinee Alternatives="""<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<===<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<""<"<<<<<<<<==None"<==P1P2P3P4P5P6P7None^"AsP8NDecide whether some bindings should be made into join points or not. Returns J! if they can't be join points. Note that it's an all-or-nothing decision, as if multiple binders are given, they're assumed to be mutually recursive.1See Note [Invariants for join points] in CoreSyn.======P9P:P;P<P=P>P?P@PAPBPCPDPEPFPGPHPI PJPKPLPMPNPOPPPQPRNone")= 1Bind a binding group over an expression, using a let or case as appropriate (see CoreSyn#let_app_invariant)=Bind a list of binding groups over an expression. The leftmost binding group becomes the outermost group in the resulting expression=XConstruct an expression which represents the application of one expression to the other=Construct an expression which represents the application of a number of expressions to another. The leftmost expression in the list is applied first Respects the let/app invariant by building a case expression where necessary See CoreSyn Note [CoreSyn let/app invariant]=Construct an expression which represents the application of a number of expressions to that of a data constructor expression. The leftmost expression in the list is applied first=Make a wildcard binder4. This is typically used when you need a binder that you expect to use only at a *binding* site. Do not use it at occurrence sites because it has a single, fixed unique, and it's very easy to get into difficulties with shadowing. That's why it is used so little. See Note [WildCard binders] in SimplEnv=Create a lambda where the given expression has a number of variables bound over it. The leftmost binder is that bound by the outermost lambda in the result= Create a !C" which will evaluate to the given Int= Create a !C" which will evaluate to the given Int= Create a !C which will evaluate to the a Word with the given value= Create a !C" which will evaluate to the given Word= Create a !C" which will evaluate to the given Integer= Create a !C" which will evaluate to the given Natural'TODO: should we add LitNatural to Core?= Create a !C" which will evaluate to the given Float= Create a !C" which will evaluate to the given Double=  Create a !C" which will evaluate to the given Char=! Create a !C" which will evaluate to the given String=" Create a !CA which will evaluate to a string morally equivalent to the given  FastString=$oBuild a small tuple holding the specified variables One-tuples are flattened; see Note [Flattening one-tuples]=%~Build the type of a small tuple that holds the specified variables One-tuples are flattened; see Note [Flattening one-tuples]=&qBuild a small tuple holding the specified expressions One-tuples are flattened; see Note [Flattening one-tuples]='Build a small unboxed tuple holding the specified expressions, with the given types. The types must be the types of the expressions. Do not include the RuntimeRep specifiers; this function calculates them for you. Does not5 flatten one-tuples; see Note [Flattening one-tuples]=(%Make a core tuple of the given boxity=)mBuild a big tuple holding the specified variables One-tuples are flattened; see Note [Flattening one-tuples]=+|Build the type of a big tuple that holds the specified variables One-tuples are flattened; see Note [Flattening one-tuples]=,oBuild a big tuple holding the specified expressions One-tuples are flattened; see Note [Flattening one-tuples]=-Build the type of a big tuple that holds the specified type of thing One-tuples are flattened; see Note [Flattening one-tuples]=.The unit expression=/=0 is like =/E but one-tuples are NOT flattened (see Note [Flattening one-tuples])Builds a selector which scrutises the given expression and extracts the one name from the list given. If you want the no-shadowing rule to apply, the caller is responsible for making sure that none of these names are in scope.If there is just one 7 in the tuple, then the selector is just the identity.0If necessary, we pattern match on a "big" tuple.=0Builds a selector which scrutises the given expression and extracts the one name from the list given. If you want the no-shadowing rule to apply, the caller is responsible for making sure that none of these names are in scope.If there is just one 7 in the tuple, then the selector is just the identity.0If necessary, we pattern match on a "big" tuple.=1PS is like =1E but one-tuples are NOT flattened (see Note [Flattening one-tuples])Like =/7 but for tuples that are guaranteed never to be "big". pmkSmallTupleSelector [x] x v e = [| e |] mkSmallTupleSelector [x,y,z] x v e = [| case e of v { (x,y,z) -> x } |]PSLike =/7 but for tuples that are guaranteed never to be "big". pmkSmallTupleSelector [x] x v e = [| e |] mkSmallTupleSelector [x,y,z] x v e = [| case e of v { (x,y,z) -> x } |]=2A generalization of =/?, allowing the body of the case to be an arbitrary expression.;To avoid shadowing, we use uniques to invent new variables./If necessary we pattern match on a "big" tuple.=3As =2M, but for a tuple that is small enough to be guaranteed not to need nesting.=5 Makes a list [] for lists of the specified type=6 Makes a list (:) for lists of the specified type=7OMake a list containing the given expressions, where the list has the given type=8Make a fully applied PT expression=9Make a build6 expression applied to a locally-bound worker function=:&Makes a Nothing for the specified type=;/Makes a Just from a value of the specified type=/The $s to pattern match the tuple againstThe  to select,A variable of the same type as the scrutinee ScrutineeSelector expression=0The $s to pattern match the tuple againstThe  to select,A variable of the same type as the scrutinee ScrutineeSelector expression=2-For inventing names of intermediate variables)The tuple identifiers to pattern match onBody of the case,A variable of the same type as the scrutinee Scrutinee=3The tuple argsBody of the case,A variable of the same type as the scrutinee Scrutinee=8Element type of the listFold result typeCons! function expression for the foldNil expression for the fold#List expression being folded acress=9!Type of list elements to be built+Function that, given information about the Qs of the binders for the build worker function, returns the body of that worker@= = = = = =================== =!="=#=$=%=&='=(=)=*=+=,=-=.=/=0=1=2=3=4=5=6=7=8=9=:=;=<===>=?=@=A=B=C=D=E=F=G=H@= ========== ========== =!="=#= = = =4=$=%=&='=(=.=)=*=+=-=,=1=3=/=0=2=5=6=7=8=9=:=;=<===H=>=B=A=@=E=D=C=?=G=F= = = =4=4None"r"=J$An environment for substituting for s=K'A substitution environment, containing , , and  substitutions.6Some invariants apply to how you use the substitution: in_scope_invariant* The in-scope set contains at least those s and s that will be in scope after applying the substitution to a term. Precisely, the in-scope set must be a superset of the free vars of the substitution range that might possibly clash with locally-bound variables in the thing being substituted in. apply_once% You may apply the substitution only oncecThere are various ways of setting up the in-scope set such that the first of these invariants hold:?Arrange that the in-scope set really is all the things in scope@Arrange that it's the free vars of the range of the substitutionoMake it empty, if you know that all the free vars of the substitution are fresh, and hence can't possibly clash=QFind the in-scope set: see CoreSubst#in_scope_invariant=RRemove all substitutions for s and Bs that might have been built up while preserving the in-scope set=SAdd a substitution for an  to the =K:: you must ensure that the in-scope set is such that the CoreSubst#in_scope_invariant3 is true after extending the substitution like this=TAdds multiple  substitutions to the =K : see also =S=UAdd a substitution for a  to the =K The b *must* be a real TyVar, and not a CoVar You must ensure that the in-scope set is such that the CoreSubst#in_scope_invariant5 is true after extending the substitution like this.=VAdds multiple  substitutions to the =K : see also =U=WAdd a substitution from a  to a  to the =K:: you must ensure that the in-scope set is such that the CoreSubst#in_scope_invariant3 is true after extending the substitution like this=XyAdd a substitution appropriate to the thing being substituted (whether an expression, type, or coercion). See also =S, =U, =W=ZAdd a substitution as appropriate to each of the terms being substituted (whether expressions, types, or coercions). See also =X.=[Find the substitution for an  in the =K=\Find the substitution for a  in the =K=_Simultaneously substitute for a bunch of variables No left-right shadowing ie the substitution for (x y. e) a1 a2 so neither x nor y scope over a1 a2=aAdd the J to the in-scope set, but do not remove any existing substitutions for it=bAdd the U to the in-scope set: as a side effect, and remove any existing substitutions for it=cAdd the  s to the in-scope set: see also =b=dOptimized version of =cE that can be used if you are certain all the things being added are s and hence none are s or s=f"Apply a substitution to an entire !C1. Remember, you may only apply the substitution once: see CoreSubst#apply_oncecDo *not* attempt to short-cut in the case of an empty substitution! See Note [Extending the Subst]=h"Apply a substitution to an entire !A$, additionally returning an updated =K2 that should be used by subsequent substitutions.=i"Apply a substitution to an entire !A$, additionally returning an updated =K2 that should be used by subsequent substitutions.=jDe-shadowing the program is sometimes a useful pre-pass. It can be done simply by running over the bindings with an empty substitution, because substitution returns a result that has no-shadowing guaranteed.(Actually, within a single type* there might still be shadowing, because =u@ is a no-op for the empty substitution, but that's probably OK.) Aug 09wThis function is not used in GHC at the moment, but seems so short and simple that I'm going to leave it here=kSubstitutes a " for another one according to the =K- given, returning the result and an updated =K3 that should be used by subsequent substitutions. NM is preserved by this process, although it is substituted into appropriately.=lApplies =k to a number of s, accumulating a new =K left-to-right=m,Substitute in a mutually recursive group of s=nVery similar to =k , but it always allocates a new E for each variable in its output. It substitutes the IdInfo though.=oApplies =n to a number of 8s, accumulating a final substitution from left to right=r$Clone a mutually recursive group of s=uSee =wSee =xSubstitute into some N! with regard to the supplied new .=ySubstitutes for the s within an unfolding=zSubstitutes for the s within an unfolding=|Substitutes for the  s within the  WorkerInfo given the new function PU"Substitution to use for the IdInfo Substitution and Id to transform-Transformed pair NB: unfolding may be zapped9>=J=K=L=M=N=O=P=Q=R=S=T=U=V=W=X=Y=Z=[=\=]=^=_=`=a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=p=q=r=s=t=u=v=w=x=y=z={=|=}=~=9=K=L>=J=j=|=}=u=w=g=f=i=h=z=y=[=\={==~=x=N=O=P=_=Q=M=S=T=V=X=Z=Y=R=a=b=c=d=`=e=v=U=W=]=^=k=l=m=s=t=q=p=n=o=r=K=LNone"====PVPWPXPYPZNone# =[manifestArity sees how many leading value lambdas there are, after looking through casts=!An approximate, fast, version of =P[hThe Arity returned is the number of value args the expression can be applied to without doing much work=hThe Arity returned is the number of value args the expression can be applied to without doing much work= etaExpand n e1 returns an expression with the same meaning as e, but with arity n.Given: e' = etaExpand n eWe should have that: ty = exprType e = exprType e'P\<Apply the eta info to a local binding. Mostly delegates to P] and P^.P^:Apply the eta info to a binder's RHS. Only interesting for a join point, where we might have this: join j :: a -> [a] -> [a] j x = xs -> x : xs in jump j z Eta-expanding produces this: ys -> (join j :: a -> [a] -> [a] j x = xs -> x : xs in jump j z) ys Now when we push the application to ys inward (see Note [No crap in eta-expanded code]), it goes to the body of the RHS of the join point (after the lambda x!): ys -> join j :: a -> [a] j x = x : ys in jump j z Note that the type and arity of j have both changed.P]Apply the eta info to a local binder. A join point will have the EtaInfos applied to its RHS, so its type may change. See comment on etaInfoAppRhs for an example. See Note [No crap in eta-expanded code] for why all this is necessary.=~Split an expression into the given number of binders and a body, eta-expanding if necessary. Counts value *and* type binders.=,Result should have this number of value argsExpression to expand =========== ===========P_P`PaPbPcPdPePfPgPhNone# =+Returns Just (bndr,rhs) if the binding is a join point: If it's a JoinId, just return it If it's not yet a JoinId but is always tail-called, make it into a JoinId and return it. In the latter case, eta-expand the RHS if necessary, to make the lambdas explicit, as is required for join points]Precondition: the InBndr has been occurrence-analysed, so its OccInfo is valid=Returns Just (dc, [t1..tk], [x1..xn])R if the argument expression is a *saturated* constructor application of the form dc t1..tk x1 .. xn=, where t1..tk are the *universally-qantified* type args of dc ============ ============PiPjPkPlPmPnNone# Po1The size of an candidate expression for unfoldingPp Size foundPq2Arguments cased herein, and discount for each suchPr?Size to subtract if result is scrutinised by a case expression=Make an unfolding that may be used unsaturated (ug_unsat_ok = unSaturatedOk) and that is reported as having its manifest arity (the number of outer lambdas applications will resolve before doing any work).=XMake an unfolding that will be used once the RHS has been saturated to the given arity.Ps)Finds a nominal size of a string literal.PtThe size of a function callPu"The size of a jump to a join pointPtnumber of value args"number of value args that are voidPunumber of value args"number of value args that are void"!F!T!==============================="!T!F!==========================================PoPvPwPpPqPrNoneQV#%PxCheck if there is comparison with minBound or maxBound, that is always true or false. For instance, an Int cannot be smaller than its minBound, so we can replace such comparison with False.Py3Ensure the given Integer is in the target Int rangePz4Ensure the given Integer is in the target Word rangeP{]Create an Int literal expression while ensuring the given Integer is in the target Int rangeP|^Create a Word literal expression while ensuring the given Integer is in the target Word range=zMatch the scrutinee of a case and potentially return a new scrutinee and a function to apply to each literal alternative.======P}P~PPPPPPNone#%}==PPPPPPPNone#%========== None#== Used to make !n for an 1 defined in the module being compiled. See also !n=IFind the "top" free names of several expressions. Such names are either: cThe function finally being applied to in an application chain (if that name is a GlobalId: see Var#globalvslocal), orThe TyCon if the expression is a cThis is used for the fast-match-check for rules; if the top names don't match, the rest can'tPruleCantMatch tpl actual returns True only if actual definitely can't match tpl by instantiating tplV. It's only a one-way match; unlike instance matching we don't consider unification.Notice that [_$_] )ruleCantMatch [Nothing] [Just n2] = FalseR Reason: a template variable can be instantiated by a constant Also: )ruleCantMatch [Just n1] [Nothing] = False Reason: a local variable v in the actuals might [_$_]=Make a " containing a number of !n!s, suitable for putting into an IdInfo=MGather all the rules for locally bound identifiers from the supplied bindings=The main rule matching function. Attempts to apply all (active) supplied rules to this instance of an application in a given context, returning the rule applied and the resulting expression if successful.=iReport partial matches for rules beginning with the specified string for the purposes of error reportingP0Target; can have more elements than the template=Rule activation test Rule patternDatabase of rulesBindings to check inResulting check message================================PPPPPPPPPPPPPPPPPPwNone#AnData Constructor BoxerP.Unpack/Strictness decisions from source modulePWrappers+Workers and representation following UnpackStrictness decisions%n=opqr=============================="==q=p=======n==r============o====n=PPP!NoneN#RTP@A mapping from binders to the Ids they were expanded/renamed to.x :-> MultiVal [a,b,c] in rhoiiff x's typePrimRep is not a singleton, or equivalently x's type is an unboxed tuple, sum or void.x :-> UnaryVal x'\iff x's RepType is UnaryRep or equivalently x's type is not unboxed tuple, sum or void.MSo x :-> MultiVal [a] in rho means x is represented by singleton tuple.*x :-> MultiVal [] in rho means x is void.mINVARIANT: OutStgArgs in the range only have NvUnaryTypes (i.e. no unboxed tuples, sums or voids)P:Extend the environment, checking the UnariseEnv invariant.PUMake alternatives that match on the tag of a sum (i.e. generate LitAlts for the tag)P:Build a unboxed sum term from arguments of an alternative.Example, for ( x | ) :: ( ( ) | Int  ) we call mkUbxSum ( _ | ) [ ( ), Int ] [ voidPrimId ] which returns  1#, rubbish P:MultiVal a function argument. Never returns an empty list.PIMultiVal a DataCon argument. Returns an empty list when argument is void.==PPP"None#T5POptional Stg-to-Stg passes.PDWhich optional Stg-to-Stg passes to run. Depends on flags, ways etc.==PPPPzNone#T!&'()*+,-=====>>>>>>>>>> > > > > >>>>>>!)===*=>-,='(>+>>>&>> >>>> > > > >>>>>>#None#[%>This list is used to ensure that when you say "Prelude.map" in your source code, or in an interface file, you get a Name with the correct known key (See Note [Known-key names] in PrelNames)P.Check the known-key names list of consistency.>Given a  lookup its associated ) if it corresponds to a known-key thing.>Is a  known-key? ====>>>>>>>>> >>>====>>>>>>$None#[>>>>>>%None#^PGenerate Cmm code for a tick. Depending on the type of Tickish, this will either generate actual Cmm instrumentation code, or simply pass on the annotation as a  CmmTickish.> > PPPNone#_A1>!>">#>$>!1>">#>$&None;=De#dPGiven an info table, decide what the entry convention for the proc is. That is, for an INFO_TABLE_RET we want the return convention, otherwise it is a NativeNodeCall.PGenerate a source note spanning from "a" to "b" (inclusive), then proceed with parsing. This allows debugging tools to reason about locations in Cmm code.>%>%PPPPPPPPPPPPPP9 P9 'None#e>&>&(NoneV_#g>-Read an interface file>.Write an interface fileP:Initial ram buffer to allocate for writing interface files >'>(>)>*>+>,>->.>/>0 >.>->/>0>*>+>,>'>(>)PPPPPPPP>'>(>)>*>+>,)None"##l>3Produce a fingerprint of a DynFlags> value. We only base the finger print on important fields in DynFlags= so that the recompilation checker can use this fingerprint.NB: The D parameter is the D3 recorded by the *interface* file, not the actual D according to our .>3>3*None#m&>4>5>4>5PPPPPPPPPPNone#m;<Loads a system interface and throws an exception if it fails>@'Load the interface corresponding to an importS directive in source code. On a failure, fail in the monad with an error message.>ALike >@, but returns a .>B.Load interface directly for a fully qualified D. (This is a fairly rare operation, but in particular it is used to load orphan modules in order to pull their instances into the global package table and to handle some operations in GHCi).>C,Load interfaces for a collection of modules.>DLoads the interface for a given Name. Should only be called for an imported name; otherwise loadSysInterface may not find the interface>E'Loads the interface for a given Module.PAn 9| function to load the home interface for a wired-in thing, so that we're sure that we see its instance declarations and rules See Note [Loading instances for wired-in things]>FLoads a user interface and throws an exception if it fails. The first parameter indicates whether we should import the boot variant of the modulePA wrapper for >H% that throws an exception if it failsPReturns True if a 6 comes from an external package. In this case, we should NOT load it into the EPS; the entities should instead come from the local merged signature interface.PThis is an improved version of >K6 which can also handle the case when a user requests p[A= B]:M$ but we only have an interface for p[A= A]:M (the indefinite interface. If we are not trying to build code, we load the interface we have, *instantiating it* according to how the holes are specified. (Of course, if we're actually building code, this is a hard error.)In the presence of holes, P has an important invariant: to load module M, its set of transitively reachable requirements must have an up-to-date local hi file for that requirement. Note that if we are loading the interface of a requirement, this does not apply to the requirement itself; e.g., p[A= A]:A does not require A.hi to be up-to-date (and indeed, we MUST NOT attempt to read A.hi, unless we are actually typechecking p.)>ITCompute the signatures which must be compiled in order to load the interface for a D6. The output of this function is always a subset of +; it is more precise because in signature p[A= A,B= B]:BG, although the free holes are A and B, B might not depend on A at all!sIf this is invoked on a signature, this does NOT include the signature itself; e.g. precise free module holes of p[A= A,B= B]:B never includes B.>O'Read binary interface, and print it out;><>=>>>?>@>A>B>C>D>E>F>G>H>I>J>K>L>M>N>O>P>Q><>=>>>?>B>C>@>A>D>E>H;>F>G>K>L>J>M>I>P>N>Q>O+None;<=#>Make a name for the dict fun for an instance decl. It's an *external* name, like other top-level names, and hence must be made with newGlobalBinder.>Special case of >. to generate dict fun name for a single TyCon.ZEFGH8888888889;g>S>T>U>V>W>X>Y>Z>[>\>]>^>_>`>a>b>c>d>e>f>g>h>i>j>k>l>m>n>o>p>q>r>s>t>u>v>w>x>y>z>{>|>}>~>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ZEFGH888888888>Z>[>\>]>>>>>>S>T>U>V>W>X>Y>n>o>m>l>p>_>`>e>d>a>b>c>g>i>h>f>^>z>y>{>|>>>~>>>>>>}>t>r>w>v>u>s>x>>>>>>q>j>k>>;g>>9>>>>>>>>>>S>T>U>V>W>X>Y>Z>[>\>],None%N#+>!Replaces all bindings of the form 'b = /\ ... -> makeStatic location valuewith Ob = /\ ... -> StaticPtr key (StaticPtrInfo "pkg key" "module" location) value3where a distinct key is generated for each binding.UIt also yields the C stub that inserts these bindings into the static pointer table.>sptModuleInitCode module fps. is a C stub to insert the static entries of module into the static pointer table.fpsZ is a list associating each binding corresponding to a static entry with its fingerprint.>>>>-None#5>kThe monad used by Core-to-Core passes to access common state, register simplification statistics and so on>'A description of the plugin pass itself>Just n  =b float lambdas to top level, if doing so will abstract over n or fewer value variables Nothing  = float all lambdas to top level, regardless of how many free variables Just 0 is the vanilla case: float a lambda iff it has no free vars>True  =N float constants to top level, even if they do not escape a lambda>True  = float out over-saturated applications based on arity information. See Note [Floating over-saturated applications] in SetLevels>%Allow floating to the top level only.PLift an  operation into >>Lift an I operation into > while consuming its >>4The original name cache is the current mapping from D and OccName to a compiler-wide unique >Get all annotations of a given type. This happens lazily, that is no deserialization will take place until the [a] is actually demanded and the [a] can also be empty (the UniqFM is not filtered).TThis should be done once at the start of a Core-to-Core pass that uses annotations.See Note [Annotations]>6Get at most one annotation of a given type per Unique.>%Output a String message to the screen>Output a message to the screen>BOutput an error to the screen. Does not cause the compiler to die.>BOutput an error to the screen. Does not cause the compiler to die.>GOutput a fatal error to the screen. Does not cause the compiler to die.>GOutput a fatal error to the screen. Does not cause the compiler to die.>8Output a string debugging message at verbosity level of -v or higher>2Outputs a debugging message at verbosity level of -v or higher>Show some labelled 8 if a particular flag is set or at a verbosity level of -v -ddump-most or higher>Attempt to convert a Template Haskell name to one that GHC can understand. Original TH names such as those you get when you use the 'foo syntax will be translated to their equivalent GHC name exactly. Qualified or unqualified TH names will be dynamically bound to names in the module being compiled, if possible. Exact TH names will be bound to the name they represent, exactly.e >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>e>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>> >PPPPPPPPPPPPPPPP>>>>>>>>>>>>>>>>>>>PPPPPPP>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>.None#PA Pk is a binding along with a cached set containing its free variables (both type variables and dictionaries)?JSpecialise calls to type-class overloaded functions occuring in a program.P.Specialise a set of calls to imported bindingsP Construct a P from a !AP!Identify the free variables of a !APFlatten a set of "dumped" PBs, and some other binding pairs, into a single recursive binding.=??=PPPPPQQQQQQQQQQ Q Q Q Q QQQQQ/None#>>>>>?????? ?!?"?#?$?????? >?"?$?#?!>>>>QQQQQQ?QQ0None#"?-A substitution result.B??+?,?-?.?/?0?1?2?3?4?5?6?7?8?9?:?;?<?=?>???@?A?B?C?D?E?F?G?H?I?J?K?L?M?N?O?P?Q?R?S?T?U?V?W?X?Y?Z?[?\?]?^?_?`?a?b?c?d?e?f?g?h?i?j?kB?>?=???2?3?4?5?6?7?8?9?:?1?;?<?@?A?B?J?K?C?E?D?I?H??-?.?/?0?L?]?`?_?^?c?d?e?f?b?a?h?i?g?k?j?,?N?Z?P?R?Q?V?F?S?U?\?M?X?+?O?[?W?T?G?YQQQQ?,Q?-?.?/?0?2?3?4?5?6?7?8?9?:1None#D?o?p?q?r?s?t?u?v?w?x?y?z?{?|?}?~????????????????????????????????????????????????????H??????????????????????????????????~????????????????u?v?w?x?y?z?{?|?}?o?p?q?r?s?t?????????o?p?q?r?s?t?u?v?w?x?y?z?{?|?}?~????????????????????????2None#Q Push a TickIt context outwards past applications and cases, as long as this is a non-scoping tick, to let case and application optimisations apply.Q!.a "friendly name" to build the new binder fromQ".a "friendly name" to build the new binder from??????3None^#$????????????????????????????????????????Q#Q$Q%Q&Q'Q(Q)Q*????????None#z is the core compiler plugin data type. Try to avoid constructing one of these directly, and just modify some fields of ?\ instead: this is to try and preserve source-code compatibility when we add fields to this.PNonetheless, this API is preliminary and highly likely to change in the future.?Modify the Core pipeline that will be used for compilation. This is called as the Core pipeline is built for every module being compiled, and plugins get the opportunity to modify the pipeline in a nondeterministic order.?YAn optional typechecker plugin, which may modify the behaviour of the constraint solver.?`Command line options gathered from the -PModule.Name:stuff syntax are given to you as this type?Default plugin: does nothing at all! For compatibility reasons you should base all your plugin definitions on this default value. ???????? ?????????????4None#-??Q+Q,Q-Q.5None#Q/TTrue if it's a bad idea to float bindings into this RHS Preconditio: rhs :: rhs_ty??Q0Q16None^$ ? Lookup an Exact RdrNameX. See Note [Looking up Exact RdrNames]. This adds an error if the name cannot be found.Q2 Lookup an Exact RdrNameY. See Note [Looking up Exact RdrNames]. This never adds an error, but it may return one.@Like @ -, but with a more informative result if the ! happens to be a record selector:8Nothing -> name not in scope (no error reported)iJust (Left x) -> name uniquely refers to x, or there is a name clash (reported)Just (Right xs) -> name refers to one or more record selectors; if overload_ok was False, this list will be a singleton.@,Lookup a name in relation to the names in a ?@@ returns (True, fixity) if it finds a K in a local environment or from an interface file. Otherwise, it returns (False, fixity) (e.g., for unbound s or .s without user-supplied fixity declarations).@]Look up the fixity of a (possibly ambiguous) occurrence of a record field selector. We use Q3 so that we can specifiy the 6 as the field label, which might be different to the  of the selector  if DuplicateRecordFieldsn is in use (Trac #1173). If there are multiple possible selectors with different fixities, generate an error.@2GCalled from the typechecker (TcErrors) when we find an unbound variableQ4IGenerate helpful suggestions if a qualified name Mod.foo is not in scope.@;wMake a map from selector names to field labels and parent tycon names, to be used when reporting unused record fields.Q5$Should we report the fact that this  is unused? The  may differ from  due to DuplicateRecordFields.@:description of thing we're looking up, like "type family"@#The standard namePossibly a non-standard namek????????????????????????????????????@@@@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@ @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@@@A@B@C@Dk???@@@ @@@@ @ @ @ @@?@1@2@<???????@@@@@@@?@@@@$@#@%@"@@@@@@@&@'@)@*?@@+@(@,?@@@ @!@-@/@.@0@?@A@3@4@5@6@9@:@7@8@;@@@@=@>??????????????????????@D@C@B??????????????????????Q6Q7Q8Q9???????7NoneV$+Q:9Name of an operator in an operator application or sectionQ;A normal identifierQ<Prefix negationQ=An unbound indentifierQ>.A (possibly ambiguous) record field occurrence@IFinds free type and kind variables in a type, without duplicates, and without variables that are already in scope in LocalRdrEnv NB: this includes named wildcards, which look like perfectly ordinary type variables at this pointQ?8When the NamedWildCards extension is enabled, partition_nwcs removes type variables that start with an underscore from the FreeKiTyVars in the argument and returns them in a separate list. When the extension is disabled, the function returns the argument and empty list. See Note [Renaming named wild cards]Q@(In what contexts are wildcards permittedQA?Ensures either that we're in a type or that -XTypeInType is set@TSimply bring a bunch of RdrNames into scope. No checking for validity, at all. The binding location is taken from the location on each name.@X#Extract all wild cards from a type.QB=Look up the fixity for an operator name. Be careful to use @; for (possibly ambiguous) record fields (see Trac #13132).@dExtracts free type and kind variables from types in a list. When the same name occurs multiple times in the types, only the first occurrence is returned and the rest is filtered out. See Note [Kind and type-variable binders]@eExtracts free type and kind variables from types in a list. When the same name occurs multiple times in the types, all occurrences are returned.@f@Removes multiple occurrences of the same name from FreeKiTyVars.QAtypeQC>kind var *occurrences*, from which intent to bind is inferred?type* variables, for type/kind misuse check for -XNoTypeInType7passed new kv_names, and any other names used in a kind#@F@G@H@I@J@K@L@M@N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@_@`@a@b@c@d@e@f@g@h#@N@L@M@Q@P@O@J@H@F@G@K@W@X@Y@R@Z@[@\@]@^@_@V@S@U@T@I@c@d@e@f@g@h@`@a@bQDQEQFQGQ:Q;Q<Q=Q>QHQIQJQKQLQMQNQOQPQQ8NoneQV$-o@A@m@o@n@p@q@r@s@t@u@v@w@x@y@z@{@|@}@~@@@x@w@z@{@q@y@v@t@u@|@m@n@o@p@}@r@s@~@@A@@m@n@o@p@qQRQS@rQTQU9None$Z^$=@Process Import Decls. See QV for a description of what the return types represent. Note: Do the non SOURCE ones first, so that we get a helpful warning for SOURCE ones that are unnecessaryQV#Given a located import declaration decl from this_mod1, calculate the following pieces of information:  An updated , where all unresolved 2 in the entity lists have been resolved into s,A  representing the new identifiers that were brought into scope (taking into account module qualification and hiding),8M summarizing the identifiers that were imported by this declaration, and A boolean 6J4 which is true if the imported module used HPC.@Calculate the 8> induced by an import of a particular interface, but without 8.QW7Given an import/export spec, construct the appropriate s.QXIWarn the user about top level binders that lack type signatures. Called afterI type inference, so that we can report the inferred type of the function @@@@@@@@@@ @@@@@@@@@@QYQZQ[Q\Q]Q^Q_Q`:None$QV$DQa!Also captures the current contextQb,Used in export lists to lookup the children.QcGiven a resolved name in the children export list and a parent. Decide whether we are allowed to export the child with the parent. Invariant: gre_par == NoParent See note [Typing Pattern Synonym Exports]QcType constructorKEither a a) Pattern Synonym Constructor b) A pattern synonym selector@@@@QdQeQfQgQhQiQjQkQlQmQnQo;NoneV$E;????????@@@@@@@@@@@@@@@@@@@@@@@@????????<NoneV$s Qp0'InstDeclFreeVarsMap is an association of an InstDecl with FreeVars. The FreeVarsr are the tycon names that are both a) free in the instance declaration b) bound by this group of typeclassinstance decls@ rnSourceDecl "renames" declarations. It simultaneously performs dependency analysis and precedence parsing. It also does the following error checks:Checks that tyvars are used properly. This includes checking for undefined tyvars, and tyvars in contexts that are ambiguous. (Some of this checking has now been moved to module  TcMonoTypeI, since we don't have functional dependency information at this point.)1Checks that all variable occurrences are defined. Checks the (..)$ etc constraints in the export list.wBrings the binders of the group into scope in the appropriate places; does NOT assume that anything is in scope alreadyQqFor Windows DLLs we need to know what packages imported symbols are from to generate correct calls. Imported symbols are tagged with the current package, so if they get inlined across a package boundry we'll still know where they're from.Qr8Warn about non-canonical typeclass instance declarationsA "non-canonical" instance definition can occur for instances of a class which redundantly defines an operation its superclass provides as well (c.f. Qs/). In such cases, a canonical instance is one where the subclass inherits its method implementation from its superclass instance (usually the subclass has a default method implementation to that effect). Consequently, a non-canonical instance occurs when this is not the case.See also descriptions of checkCanonicalMonadInstances and checkCanonicalMonoidInstancesQtRenames role annotations, returning them as the values in a NameEnv and checks for duplicate role annotations. It is quite convenient to do both of these in the same place. See also Note [Role annotations in the renamer]Qu Construct an InstDeclFreeVarsMap by eliminating any Names from the FreeVars" which are *not* the binders of a TyClDecl.QvGet the  LInstDecls which have empty FreeVars sets, and the InstDeclFreeVarsMapj with these entries removed. We call (getInsts tcs instd_map) when we've completed the declarations for tcs. The call returns (inst_decls, instd_map'), where inst_decls are the instance declarations all of whose free vars are now defined instd_map' is the inst-decl map with tcs- removed from the free-var setQwRename injectivity annotation. Note that injectivity annotation is just the part after the "|". Everything that appears before it is renamed in rnFamDecl.QxiBrings pattern synonym names and also pattern synonym selectors from record pattern synonyms into scope.Qw.Type variables declared in type family headResult signatureInjectivity annotation@@@@@@None$x;/Rename a splice pattern. See Note [rnSplicePat]@The splice data to be loggedQy]Returns the result of running a splice and the modFinalizers collected during the execution.5See Note [Delaying modFinalizers in untyped splices].@Moutputs splice information for 2 flags which have different output formats: `-ddump-splices` and `-dth-dec-file`;;;;@@@@@@@@@@;;@;;@@@@@@@@@@@@@@@NoneV^$:^Rename some StmtsQzHA tree of statements using a mixture of applicative and bind constructs.Q{The s of return and pure. These may not be  returnName and pureName due to RebindableSyntax.Q|like :^8 but applies a post-processing step to the renamed StmtsQ}Hmaybe rearrange statements according to the ApplicativeDo transformationQ~.strip the FreeVars annotations from statementsQIs this a context where we respect RebindableSyntax? but ListComp/PArrComp are never rebindable Neither is ArrowExpr, which has its own desugarer in DsArrowsQSrearrange a list of statements using ApplicativeDoStmt. See Note [ApplicativeDo].QRTurn a sequence of statements into an ExprStmtTree using a heuristic algorithm. O(n^2)Q[Turn a sequence of statements into an ExprStmtTree optimally, using dynamic programming. O(n^3)QaTurn the ExprStmtTree back into a sequence of statements, using ApplicativeStmt where necessary.QDivide a sequence of statements into segments, where no segment depends on any variables defined by a statement in another segment.QFind a "good" place to insert a bind in an indivisible segment. This is the only place where we use heuristics. The current heuristic is to peel off the first group of independent statements and put the bind after those.QMBuild an ApplicativeStmt, and strip the "return" from the tail if necessary.nFor example, if we start with do x <- E1; y <- E2; return (f x y) then we get do (E1[x] | E2[y]); f x yKthe LastStmt in this case has the return removed, but we set the flag on the LastStmt to indicate this, so that we can print out the original statement correctly in error messages. It is easier to do it this way rather than try to ignore the return later in both the typechecker and the desugarer (I tried it that way first!).QPGiven the statements following an ApplicativeStmt, determine whether we need a join or not, and remove the return if necessary.QJust e, if the expression is return e or  return $ e , otherwise Nothing:^7How to rename the body of each statement (e.g. rnLExpr) StatementsRif these statements scope over something, this renames it and returns the result.Q|7How to rename the body of each statement (e.g. rnLExpr)postprocess the statements StatementsRif these statements scope over something, this renames it and returns the result.Q'How to rename the body of the statement The statement0Rename the stuff that this statement scopes overQ the "tail"free variables of the tailQThe argsTrue  = need a joinThe body statements:^:_@:_@:^QzQQQQ{QQQ=NoneZ$Ѣ @7everything is up to date, recompilation is not required@@The .hs file has been touched, or the .o/.hi file does not exist@The .o/.hi files are up to date, but something else has changed to force recompilation; the String says what (one-line summary)@make an interface from the results of typechecking only. Useful for non-optimising compilation, or where we aren't generating any object code at all ( ).Q1Add fingerprints for top-level declarations to a 6.$See Note [Fingerprinting IfaceDecls]QRetrieve the orphan hashes 7s for a list of modules (in particular, the orphan modules which are transitively imported by the current module).eQ: Why do we need the hash at all, doesn't the list of transitively imported orphan modules suffice?A: If one of our transitive imports adds a new orphan instance, our export hash must change so that modules which import us rebuild. If we just hashed the [Module], the hash would not change even when a new instance was added to a module that already had an orphan instance.iQ: Why don't we just hash the orphan hashes of our direct dependencies? Why the full transitive closure?!A: Suppose we have these modules:module A where instance Show (a -> b) where module B where import A -- ** module C where import A import B)Whether or not we add or remove the import to A in B affects the orphan hash of B. But it shouldn't really affect the orphan hash of C. If we hashed only direct dependencies, there would be no way to tell that the net effect was a wash, and we'd be forced to recompile C and everything else.QCreates cached lookup for the 7 \ field of ModIface Hackily, we use "module" as the OccName for any module-level annotations@Top level function to check if the version of an old interface file is equivalent to the current source file the user asked us to compile. If the same, we can avoid recompilation. We return a tuple where the first element is a bool saying if we should recompile the object file and the second is maybe the interface file, where Nothng means to rebuild the interface file not use the exisitng one.Q$Check if a module is still the same version..This function is called in the recompilation checker after we have determined that the module M being checked hasn't had any changes to its source file since we last compiled M. So at this point in general two things may have changed that mean we should recompile M: * The interface export by a dependency of M has changed. * The compiler flags specified this time for M have changed in a manner that is significant for recompilation. We return not just if we should recompile the object file but also if we should rebuild the interface file.QWCheck if an hsig file needs recompilation because its implementing module has changed.QCheck the flags haven't changedQGiven the usage information extracted from the old M.hi file for the module being compiled, figure out whether M needs to be recompiled. @@@@@@@@@@@ @@@@@@@@@@@@@@@QQQQQQQQQ>None$ۀ@Pretty-prints a "8 (type/data family instance) with its defining location.@Pretty-prints a  with its defining location.@Pretty-prints the L header. For functions and data constructors the function is equivalent to @Z but for type constructors and classes it prints only the header part of the declaration.@Pretty-prints a  in context: that is, if the entity is a data constructor, record selector, or class method, then the entity's parent declaration is pretty-printed with irrelevant parts omitted.@Like @!, but adds the defining location.@Pretty-prints a .@@@@@@@@@@@@@@?None&'%:QType of functions that use error message and a list of axioms to build full error message (with a source location) for injective type families.Q0Smart constructor that establishes the invariant@)Check family instance consistency, given: The list of all modules transitively imported by us which define a family instance (these are the ones we have to check for consistency), andThe list of modules which we directly imported (these specify the sets of family instance defining modules which are already known to be consistent).See Note [Checking family instance consistency] for more details, and Note [The type family instance consistency story] for the big picture.This function doesn't check ALL instances for consistency, only ones that aren't involved in recursive knot-tying loops; see Note [Don't check hs-boot type family instances too early]. It returns a modified 9B that has saved the instances that need to be checked later; use @ to check those.@Given a M that has been incorporated into the type environment (the knot is tied), if it is a type family, check that all deferred instances for it are consistent. See Note [Don't check hs-boot type family instances too early]@If co :: T ts ~ rep_ty then: +instNewTyCon_maybe T ts = Just (rep_ty, co)nChecks for a newtype, and for being saturated Just like Coercion.instNewTyCon_maybe, but returns a TcCoercion@Like @l, but returns the arguments back if there is no data family to unwrap. Returns a Representational coercion@Converts a data family type (eg F [a]) to its representation type (eg FList a) and returns a coercion between the two: co :: F [a] ~R FList a.@@F gets rid of top-level newtypes, potentially looking through newtype  instances.It is only used by the type inference engine (specifically, when solving representational equality), and hence it is careful to unwrap only if the relevant data constructor is in scope. That's why it get a GlobalRdrEnv argument.It is careful not to unwrap data/newtype instances if it can't continue unwrapping. Such care is necessary for proper error messages.TIt does not look through type families. It does not normalise arguments to a tycon.If the result is Just (rep_ty, (co, gres), rep_ty), then co : ty ~R rep_ty gres are the GREs for the data constructors that had to be in scopeQCheck whether a new open type family equation can be added without violating injectivity annotation supplied by the user. Returns True when this is possible and False if adding this equation would violate injectivity annotation.@HBuild a list of injectivity errors together with their source locations.QReturn a list of type variables that the function is injective in and that do not appear on injective positions in the RHS of a family instance declaration. The returned Pair includes invisible vars followed by visible onesQ,Is type headed by a type family application?Q`If a RHS is a bare type variable return a set of LHS patterns that are not bare type variables.Q?Build injecivity error herald common to all injectivity errors.QQBuild error message for a pair of equations violating an injectivity annotation.QRBuild error message for equation with injective type variables unused in the RHS.QUBuild error message for equation that has a type family call at the top level of RHSQwBuild error message for equation that has a bare type variable in the RHS but LHS pattern is not a bare type variable.@(Type family for which we generate errors1Currently checked equation (represented by axiom)Injectivity annotationList of injectivity conflicts "|@@@@@@@@@@@@ "|@@@@@@@@@@@@QQ@None% @@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@ANoneN^%!*@RInstantiate all outer type variables and any context. Never looks through arrows.@Instantiate all outer v binders and any context. Never looks through arrows or specified type variables. Used for visible type application.@qThis is used to instantiate binders when type-checking *types* only. See also Note [Bidirectional type checking]@JThis is used to instantiate binders when type-checking *types* only. The  VarEnv KindN gives some known instantiations. See also Note [Bidirectional type checking]@Used only in *types*Q This takes a ~# b and returns a ~~ b.Q This takes a ~# b and returns a ~ b.Q This takes a ~R# b and returns  Coercible a b.999;*;+>k@@@@@@@@@@@@@@@@@@@@@@@@@@@@;*;+@@@@@@@>k@@@@@999NoneNV^%7 :4Use this instead of J% when calling :6Z without a good "thing" (where the "thing" has the "actual" type passed in) This has an ' instance, avoiding amgiguity problems.@ Variant of @e that works when supplied only part (that is, to the right of some arrows) of the full function type@qCall this variant when you are in a higher-rank situation and you know the right-hand type is deeply skolemised.ASometimes we don't have a  HsExpr Name' to hand, and this is more convenient.AyInfer a type using a fresh ExpType See also Note [ExpType] in TcMType Does not attempt to instantiate the inferred typeA rTake an "expected type" and strip off quantifiers to expose the type underneath, binding the new skolems for the  thing_inside. The returned . has type specific_ty -> expected_ty.A  Variant of A  that takes an ExpTypeQapply sym iff swappedQFill in a meta-tyvarA-Breaks apart a function kind into its pieces.:6If present, has type ty1@of the actual type!If present, it has type ty_actualAof the actual typeof the expected typeA 3These are only ever used for scoped type variables./The expression has type: spec_ty -> expected_tyQtv to fill in, tv :: k1 ty2 :: k2kind_co :: k2 ~N k1&:: tv ~N ty2 (= ty2 |> kind_co ~N ty2)A$# of args remaining, only for errorstype, only for errors function kindco :: old_kind ~ arg -> res&:4:5:6@@@@@@@@@@@@@AAAAAAAAAA A A A A AAAAAAAA&AAA A @AAAA@A A :6A:5:4AA AAAA@@@@@@@AAAAA@@@@@@@@QQQBNoneDV%>9A[Takes a list of custom printers with a explicit recursion knot and a term, and returns the output of the first successful printer, or the default printerQTerm Reconstruction traceQuReturns the instantiated type scheme ty', and the mapping from new (instantiated) -to- old (skolem) type variablesGAAAAAAAA A!A"A#A$A%A&A'A(A)A-A*A,A+A.A/A9A1A0A:A2A3A4A5A6A7A8A;A=A<A>A?A@AEACAAABAFADAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZA[A\A]A^A_NA]A^A_A;A<A=A>A?A@AAABACADAAAEAFAAACAGAAABAHAAAHAIAJAKAMANALATAPAOAXAYAUA!A"A#A$A%A&A'AVAAAAAAA AWAZA[A\AA(A)A*A+A,A-A.AQA/A0A1A2A3A4A5A6A7A8A9A:ARASAAAAAAA A!A"A#A$A%A&A'A(A)A*A+A,A-A.A/ A0A1A2A3A4A5A6A7A8A9A:A;A<A=A>A?A@AAABACADAAAEAFAAACAGAAABAHAAAHCNoneV%U QhAn error Report collects messages categorised by their importance. See Note [Error report] for details.AdeReport unsolved goals as errors or warnings. We may also turn some into deferred run-time errors if `-fdefer-type-errors` is on.Ae`Report *all* unsolved goals as errors, even if -fdefer-type-errors is on However, do not make any evidence bindings, because we don't have any convenient place to put them. See Note [Deferring coercion errors to runtime] Used by solveEqualities for kind equalities (see Note [Fail fast on kind errors] in TcSimplify] and for simplifyDefault.AfReport all unsolved goals as warnings (but without deferring any errors to run-time). See Note [Safe Haskell Overlapping Instances Implementation] in TcSimplifyQ,Report unsolved goals as errors or warnings.Q(Put a doc into the important msgs block.Q+Put a doc into the relevant bindings block.QVThis function tries to reconstruct why a "Coercible ty1 ty2" constraint is left over.QExpand type synonyms in given types only enough to make them as similar as possible. Returned types are the same in terms of used type synonyms.To expand all synonyms, see .See ExpandSynsFail tests in tests testsuitetestsAtypecheck/should_fail for some examples of how this should work.AdAeAfAgAhAdAeAfAgAhQ QQQQQQQQQQQQQQQQQQQQQQQDNoneFT%kAzKSee Note [Safe Haskell Overlapping Instances Implementation] in TcSimplifyAReturns Given constraints that might, potentially, match the given pred. This is used when checking to see if a Given might overlap with an instance. See Note [Instance and Given overlap] in TcInteract.A"Remove inert constraints from the Au?, for use when a typechecker plugin wishes to discard a given.A-Look up a dictionary inert. NB: the returned 8ZI might not match the input exactly. Note [Use loose types in inert set].A)Look up a solved inert. NB: the returned 8ZM might not match the input exactly. See Note [Use loose types in inert set].AThis variant of A} will keep solving, even when only Deriveds are left around. It also doesn't return any evidence, as callers won't need it.A-This can deal only with equality constraints.Q.Mark variables as used filling a coercion holeBEqualities onlyBEqualities onlyB&Good for equalities and non-equalitiesB Make a new E of the given type, bound (in the monad's EvBinds) to the given termB-Emit a new Wanted equality into the work-listBMake a new equality CtEvidenceB#qChecks if the depth of the given location is too much. Fails if it's too big, with an appropriate error message.B %How to instantiate the type variablesType to instantiate1Result (type vars, preds (incl equalities), rho)B#type being reduced -AoApAqArAsAtAuAvA}AwAyAzAxA{A|A~AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBB B B B B BBBBBBBBBBBBBBBBBBB B!B"B#B$B%AAAAAAAAAAAAAAAAAAAAAAArAAAAAAAAAAAAAAAAAAAAAAoApAqB B B BBBBBBBB"BAAABBBBBBBBBBB B!B#AAAAAAAAAAAA~AAAAAuAvAwAxAyAzA{A|A}AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAsAAAAAAAAAAtAAAAAAAAABBAAABBBBBBB B -AAAAAAAAAABAAAA AB$B%AAAoApAqArQQQQQQQQQAuAvAwAxAyAzA{A|A}A~AAAAAAAAAAAENone%%~o Q,The result of flattening a tyvar "one step".Q;The inert set doesn't make the tyvar equal to anything elseQThe tyvar flattens to a not-necessarily flat other type. co :: new type ~r old type, where the role is determined by the FlattenEnvQThe Q monad is a wrapper around ArC with the following extra capabilities: (1) it offers access to a QV; and (2) it maintains the flattening worklist. See Note [The flattening work list].Q Change the  in a Q.Q Change the B/ in a Q.Q_Use when flattening kinds/kind coercions. See Note [No derived kind equalities] in TcCanonicalQLike Q), but assumes that every role is nominal.QFlatten a coercion. Really, just flatten the types that it coerces between and then use transitivity. See Note [Flattening coercions]B/B0B1B2B3B4B/B0B1B2B3B4QQQQQQB/B0B1QQQQQQQFNone%3QCompare types for equality, while zonking as necessary. Gives up as soon as it finds that two types are not equal. This is quite handy when some unification has made two types in an inert wanted to be equal. We can discover the equality without flattening, which is sometimes very expensive (in the case of type functions). In particular, this function makes a ~20% improvement in test case perfcompilerT5030.Returns either the (partially zonked) types in the case of inequality, or the one type in the case of equality. canEqReflexive is a good next step in the Q case. Returning Q is always safe.NB: This does *not* look through type synonyms. In fact, it treats type synonyms as rigid constructors. In the future, it might be convenient to look at only those arguments of type synonyms that actually appear in the synonym RHS. But we're not there yet.QhDecompose a type application. All input types must be flat. See Note [Canonicalising type applications]<We're able to unwrap a newtype. Update the bits accordingly.QdBreak apart an equality over a casted type looking like (ty1 |> co1) ~ ty2 (modulo a swap-flag)QCall when canonicalizing an equality fails, but if the equality is representational, there is some hope for the future. Examples in Note [Use canEqFailure in canDecomposableTyConApp]Q@Call when canonicalizing an equality fails with utterly no hope.QCanonicalise a CFunEqCan. We know that the arg types are already flat, and the RHS is a fsk, which we must *not* substitute. So just substitute in the LHSQ%Solve a reflexive equality constraintQ :: ty1 ~ ty2ty1 :: ty1 ~ ty1'ty2ty2, with type synonymsQthe evidence to homogenise original LHS original RHS.how to build the homogenised constraint; the 8 is the new RHS B9B;B:B<B=B>B?B@BA B<B@B=BAB9B:B;B?B>B9B:B;Q0GNone%"QOIndicates if Instance met the Safe Haskell overlapping instances safety check.See Note [Safe Haskell Overlapping Instances] in TcSimplify See Note [Safe Haskell Overlapping Instances Implementation] in TcSimplifyQGRepresents collections of constraints generated by typechecker pluginsQ]Original inputs to the plugins with solved/bad constraints removed, but otherwise unmodifiedQConstraints solved by pluginsR,Constraints reported as insoluble by pluginsR"New constraints emitted by pluginsR9A solved triple of constraints, with evidence for wantedsRCA triple of (given, derived, wanted) constraints to pass to pluginsRExtract the (inert) givens and invoke the plugins on them. Remove solved givens from the inert set and emit insolubles, but return new work produced so that BD( can feed it back into the main solver.RGiven a bag of (flattened, zonked) wanteds, invoke the plugins on them and produce an updated bag of wanteds (possibly with some new work) and a bag of insolubles. The boolean indicates whether BE< should feed the updated wanteds back into the main solver.RzStarting from a triple of (given, derived, wanted) constraints, invoke each of the typechecker plugins in turn and return%the remaining unmodified constraints,"constraints that have been solved,#constraints that are insoluble, and new work.FNote that new work generated by one plugin will not be seen by other plugins on this pass (but the main constraint solver will be re-invoked and they will see it later). There is no check that new work differs from the original constraints supplied to the plugin: the plugin itself should perform this check if necessary.R,Assumes that we've checked that this is the Typeable4 class, and it was applied to the correct argument.RRepresentation for a type ty of the form  arg -> ret.R <Representation for type constructor applied to some kinds. R { has ensured that this application results in a type of monomorphic kind (e.g. all kind variables have been instantiated).R Representation for TyCon applications of a concrete kind. We just use the kind itself, but first we must make sure that we've instantiated all kind- polymorphism, but no more.BDBEBFBDBEBFR R R RRRRRRRQRQQRRHNone%|BI8How should we choose which constraints to quantify over?BJKApply the monomorphism restriction, never quantifying over any constraintsBKySee Note [TcRnExprMode] in TcRnDriver, the :type +d case; this mode refuses to quantify over any defaultable constraintBLIQuantify over any constraint that satisfies TcType.pickQuantifiablePredsBP{Type-check a thing that emits only equality constraints, then solve those constraints. Fails outright if there is trouble.RDefault any remaining  CallStack constraints to empty  CallStacks.RLike ;e, but in the TcS monad.ABIBJBKBLBMBNBOBPBQBRBSBTBUBVBWBXBYBZBUBIBJBKBLBVBQBSBOBNBMBRBPBWBTBYBXBZABIBJBKBLINone%N%[ B\jExtra information about the parent instance declaration, needed when type-checking associated types. The _ is the enclosing class, the [TyVar] are the type variable of the instance decl, and and the  VarEnv Type/ maps class variables to their instance types.B^'The kind expected in a certain context.B_a specific kindB`any kind will doBasomething of the form TYPE _R2See Note [Validity checking of HasField instances]BnDo validity checks on a type family equation, including consistency with any enclosing class instance head, termination, and lack of polytypes.BpCheck a list of binders to see if they make a valid telescope. The key property we're checking for is scoping. For example: > data SameKind :: k -> k -> * > data X a k (b :: k) (c :: SameKind a b) Kind inference says that a's kind should be k. But that's impossible, because k isn't in scope when a is bound. This check has to come before general validity checking, because once we kind-generalise, this sort of problem is harder to spot (as we'll generalise over the unbound k in a's type.) See also Note [Bad telescopes].BqLike Bq, but returns the zonked tyvarsBrAfter inferring kinds of type variables, check to make sure that the inferred kinds any of the type variables bound in a smaller scope. This is a skolem escape check. See also Note [Bad telescopes].RWhen this says True:, ignore this class constraint during a termination checkRTidy before printing a typeR Family tycon%Type variables of the family instanceType patterns from instanceBnof the type familybound tyvars in the equationbound covars in the equation type patternsrhsBrvars to check (zonked)vars out of scopesuffix to error message----------------------B\B]B^B_B`BaBbBcBdBeBfBgBhBiBjBkBlBmBnBoBpBqBrBs-B]---------------------BbBcB^B_B`BaBeBfBoBiBhBjBdB\BlBmBnBgBkBpBqBrBsB]RRRRB^B_B`BaJNone<V%R showString :: String -> ShowSR!(showsPrec :: Show a => Int -> a -> ShowSR"shows :: Show a => a -> ShowSR#This variant of R$ puts an  number of wildcards before the "=" in the empty-data-decl case. This is necessary if the function has a higher-rank type, like foldl. (See derivingshould_compileT4302)R%0A table of postfix modifiers for unboxed values.R&Lookup  in an association list.R'eMake a top-level binder name for an auxiliary binding for a parent name See Note [Auxiliary binders]BtBuBvBwBxByBzB{B|B}B~BBBBBBBBBBBBxBtBuBvBwByBzB{B|B}BB~BBBBBBBBBBR(R)R*R+R,R-BtBuBvBwR.R/R0R1KNoneV%sBDoes not contain variableBThe variable itselfB$The variable itself, contravariantlyB Function typeB Tuple typeB(Type app, variable only in last argumentB.Type app, variable other than in last argumentB Forall typeBVariable to look for How to foldType to processBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB BBBBBBBBBR2R3R4R5R5LNone<NV& R6See documentation of R7; that function uses the fields of this type to interpret the structure of a type when that type is considered as an argument to a constructor that is being represented with Rep1.R7 argTyFold3 implements a generalised and safer variant of the arg function from Figure 3 in  (http://dreixel.net/research/pdf/gdmh.pdf. arg is conceptually equivalent to: arg t = case t of _ | isTyVar t -> if (t == argVar) then Par1 else Par0 t App f [t'] | representable1 f && t' == argVar -> Rec1 f App f [t'] | representable1 f && t' has tyvars -> f :.: (arg t') _ -> Rec0 twhere argVar_ is the last type variable in the data type declaration we are finding the representation for. argTyFold is more general than arg because it uses R6. to abstract out the concrete invocations of Par0, Rec0, Par1, Rec1, and :.:. argTyFold is safer than arg because argN would lead to a GHC panic for some data types. The problematic case is when t0 is an application of a non-representable type f to argVar: App f [argVar] is caught by the _% pattern, and ends up represented as Rec0 t. This type occurs free in the RHS of the eventual Rep1s instance, which is therefore ill-formed. Some representable1 checks have been relaxed, and others were moved to canDoGenerics1.R8.Variant of foldr1 for producing balanced listsBBBBBBBBBBBBBBR6R9R:R;R<R=R>R?R@RARBRCBBBRDRERFRGMNone&BA list of wanted B constraints (B2) alongside any corresponding given constraints (B*) and locally quantified type variables (B).In most cases, B will be empty, as most deriving mechanisms (e.g., stock and newtype deriving) do not require given constraints. The exception is DeriveAnyClassw, which can involve given constraints. For example, if you tried to derive an instance for the following class using DeriveAnyClass: class Foo a where bar :: a -> b -> String default bar :: (Show a, Ix b) => a -> b -> String bar = show baz :: Eq a => a -> a -> Bool default baz :: Ord a => a -> a -> Bool baz x y = compare x y == EQ Then it would generate two Bs, one for each method: [ ThetaOrigin { to_tvs = [b] , to_givens = [] , to_wanted_origins = [Show a, Ix b] } , ThetaOrigin { to_tvs = [] , to_givens = [Eq a] , to_wanted_origins = [Ord a] } ] BA - annotated with the origin of the constraint 8 9, and whether or the constraint deals in types or kinds.BThe newtype rep type+BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB+BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB BBBBBBBBBBNNone&(CRHLike B, but used only in the case of DeriveAnyClass, which gathers its constraints based on the type signatures of the class's methods instead of the types of the data constructor's field.See Note [Gathering and simplifying constraints for DeriveAnyClass] for an explanation of how these constraints are used to determine the derived instance context.RIGiven instance (wanted) => C inst_ty , simplify wanted, as much as possible. Fail if not possible.RI C inst_tyC, head of the instance we are deriving. Only used for SkolemInfo.The tyvars bound by inst_ty.Given and wanted constraints1Needed constraints (after simplification), i.e. [].BBBB?None&( ????? &10/.-RJRKRLRMRNROPOJNMLKIHGFEDCBA@?>=<;:98765432LK   O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~                              ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l     MCGHFBIKJDELNOPQRSTUVWYXZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ !"#$%&'()*+,-./01234567?@ABCDGFEHI,-.JKLMN      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuv?EFGH      !"#$%&'()*+,-./0M"""""""""""""N"""""""""""OPQRhijklmonpsqrtuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCD     !"#$%&'()*+,-./0123456789:;<=>?@ABC    = > ? @ A B C D E F G H I X Y Z [ \ ] ^ _ ` a b c d e h f g i j k l m n o q p r s t u v w x y z { | } ~  m n o p q r s t u v w x y z { | } ~                            ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N                           ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  FGHIJMNOPQRSUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`hiljkmo$%&'()*+/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWx      !"#$%&'()*+,-.45    6789:;<=>?@Aw      !"#$%&'()*+,-./0234156789:;<=>?@AMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~stuvwxyz{|}~      !"#$/=>@ABCDIJLMNOPQRSTUVWZ[\]^_abcghijklmnoprstuvwxyz|}~     8:9;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopvxyz{|}~                       ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G!*!,!+!-!.!3!1!4!7!/!0!2!5!6!8!9!:!;!<!=!>!?!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"""""""""" " " " " """"""""""""""""""" "!"""#"$"%"&"'"(")"*"""""""""""""""""""""""""""""""""""""""""""""""##### # # ################## #!#"###$#%#&#'#(#)#*#+#,#-#.#/#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o#p#q#r#s#t######################################################################################################################$$$&&&&&&&&&6&>----------------------------------------------------6&6'6(6)6*6+6,6-6.6/606162636465666768696:6;6<6=6>6?6@6A6B6C6D6E6F6G6H6I6J6K6L6M6N6O6P6Q6R6S6T6U6V6W6X6Y6Z6[6\6]6^6_6`6a6b6c6d6e6f6g6h6i6j6k6l6m6n6w6r6o6p6q6s6t6u6v6x6y6z6{6|6}6~6666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666667777777777 7 7 7 7 7777777777777777777 7!7"7#7$7%7&7'7(7)7*7+7,7-7.7/707172737475767778797:7;7<7=7>7?7@7A7B7C7D7E7F7I7G7H7J7K7L7M7N7O7P7Q7R7S7T7U7V7W7X7Y7Z7[7\7]7^7_7`7a7b7c7d7e7f7g7h7i7j7k7l7m7n7o7p7q7r7s7t7u7v7w7x7y7z7{7|7}7~77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<=== = = = = =================== =!="=#=$=%=&='=(=)=*=+=,=-=.=/=0=1=2=3=4=5=6=7=8=9=:=;=<===>=?=@=A=B=C=D=E=F=G=H=J=K=L=M=N=O=P=Q=R=S=T=U=V=X=Y=Z=[=\=]=^=_=`=a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=p=q=r=u=v=w=x=y=z={=|=}=~=================>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>???ONone&RPAllow  makeStatic to occur anywhere.RQAllow  makeStatic calls at the top-level only.RR Reject any  makeStatic occurrence.RSSee Note [Checking StaticPtrs]RT1Checks the RHS of bindings. It only differs from RU8 in that it doesn't reject occurrences of the function  makeStatic( when they appear at the top level and 'lf_check_static_ptrs == AllowAtTopLevelZ, and for join points, it skips the outer lambdas that take arguments to the join point.See Note [Checking StaticPtrs].BGThis checks whether a pass correctly looks through debug annotations ( SourceNote). This works a bit different from other consistency checks: We check this by running the given task twice, noting all differences between the results.RVRun the given pass without annotations. This means that we both set the debugLevel setting to 0 in the environment as well as all annotations from incoming modules. BBBBBBBBBB BBBBBBBBBBRW RXRYRZR[R\R]R^R_R`RaRbRcRdReRPRQRRRfRgRhRiRSRjRkRlRmRnRoRpPNone^&2Rq.This environment is used for three operations: fTo support cloning of local Ids so that they are all unique (see item (6) of CorePrep overview).VTo support beta-reduction of runRW, see Note [runRW magic] and Note [runRW arg].To let us inline trivial RHSs of non top-level let-bindings, see Note [lazyId magic], Note [Inlining in CorePrep] and Note #12076(CorePrep inlines trivial CoreExpr not IdRr%See Note [Floating Ticks in CorePrep]Rs Convert a !C so it satisfies RtW, without producing any floats (any generated floats are immediately let-bound using Ru). Generally you want this, esp. when you've reached a binding form (e.g., a lambda) and floating any further would be incorrect.Rv Convert a !C so it satisfies Rt; also produce a list of Rwg which are being propagated upwards. In fact, this function is used in only two cases: to implement Rs~ (which is what you usually want), and in the case when a let-binding is in a case scrutinee--here, we can always float out:Acase (let x = y in z) of ... ==> let x = y in case z of ...RxIs an argument okay to CPE?Ry Helper for B and BRz+Like wrapFloats, but only wraps tick floatsBBBBBBBBBBR{R|R}RqR~RRRRRRwRRRRRrRRRRQNone%&BBBBBBRRRNone&PBBBBSNoneD&;BBBBBBBBBBBBBCCCCCCCCCC C C C C CCCCCCCCCCCCCCCCCCC C!C"C#C$C%C&C'C(C)C*C+C,C-;BBBBBBBBBBBBBCCCCCCCCCC C C C C CCCCCCCCCCCCCCCCCCC C!C"C#C$C%C&C'C(C)C*C+C,C-B0BBBBBBBBBBBBCCCCCCCCCC C C C C CCCCCCCCCCCCCCCCCCC C!C"C#C$C%C&C'C(C)C*C+C, None"#D&ZC0bFinds external references. Remember to remove the names defined by this group of BCOs themselvesUVWC0C1C2C3C1C2C0WUVC3RRRRRRRRRRRRRRRRTNone"#NZ&C:Get the  associated with the given name.4May cause loading the module that contains the name. Throws a . if loading fails or the name cannot be found.C;$Temporarily extend the linker state.C<$Display the persistent linker state.C=,Initialise the dynamic linker. This entails*a) Calling the C initialisation procedure,6b) Loading any packages specified on the command line,Lc) Loading any packages specified on the command line, now held in the -l options in v_Opt_l,d) Loading any .o/.dll7 files specified on the command line, now held in ldInputs, e) Loading any MacOS frameworks.NOTE: This function is idempotent; if called more than once, it does nothing. This is useful in Template Haskell, where we call it before trying to link.C?Link a single expression,  includingE first linking packages and modules that this expression depends on.Raises an IO exception (A) if it can't find a compiled version of the dependents to link.R!Useful to apply to the result of RCB8Unloading old objects ready for a new compilation sweep.The compilation manager provides us with a list of linkables that it considers "stable", i.e. won't be recompiled this time around. For each of the modules current linked in memory,zif the linkable is stable (and it's the same one -- the user may have recompiled the module on the side), we keep it,otherwise, we unload it.?we also implicitly unload all temporary bindings at this point.CCLink exactly the specified packages, and their dependents (unless of course they are already linked). The dependents are linked automatically, and it doesn't matter what order you specify the input packages.CBThe linkables to *keep*. C7C8C9C:C;C<C=C>C?C@CACBCC C:C<C?C@CBC;C8C9C7CCC=CAC>RRRRRRRRRRRRRRUNone"#D&hR/Indicate if the calling convention is supported&)CDCE&)CDCERRR RRRRRRRRRRRRRRRRVNone&+COMonadic because it makes a Name for the coercion TyCon We pass the Name of the parent TyCon, as well as the TyCon itself, because the latter is part of a knot, whereas the former is not.CU Make the ! for this MCR Univ and req Ex and provArgument types Result type,Field labels for a record pattern synonym CMCNCOCPCQCRCSCTCU CPCQCRCMCSCOCNCTCUNoneZ&RReturns true if an 'X is for data T (an abstract data type)R Merge two 'Xs together, preferring a non-abstract one. If both are non-abstract we pick one arbitrarily (and check for consistency later.)R Merge two Hs of 'Xs by .CWOThis is a very interesting function. Like typecheckIface, we want to type check an interface file into a ModDetails. However, the use-case for these ModDetails is different: we want to compare all of the ModDetails to ensure they define compatible declarations, and then merge them together. So in particular, we have to take a different strategy for knot-tying: we first speculatively merge the declarations to get the "base" truth for what we believe the types will be (this is "type computation.") Then we read everything in relative to this truth and check for compatibility.During the merge process, we may need to nondeterministically pick a particular declaration to use, if multiple signatures define the declaration (R). If, for all choices, there are no type synonym cycles in the resulting merged graph, then we can show that our choice cannot matter. Consider the set of entities which the declarations depend on: by assumption of acyclicity, we can assume that these have already been shown to be equal to each other (otherwise merging will fail). Then it must be the case that all candidate declarations here are type-equal (the choice doesn't matter) or there is an inequality (in which case merging will fail.)YUnfortunately, the choice can matter if there is a cycle. Consider the following merge:{signature H where { type A = C; type B = A; data C } signature H where { type A = (); data B; type C = B } If we pick  type A = CU as our representative, there will be a cycle and merging will fail. But if we pick  type A = () as our representative, no cycle occurs, and we instead conclude that all of the types are unit. So it seems that we either (a) need a stronger acyclicity check which considers *all* possible choices from a merge, or (b) we must find a selection of declarations which is acyclic, and show that this is always the "best" choice we could have made (ezyang conjectures this is the case but does not have a proof). For now this is not implemented.mIt's worth noting that at the moment, a data constructor and a type synonym are never compatible. Consider:signature H where { type Int=C; type B = Int; data C = Int} signature H where { export Prelude.Int; data B; type C = B; }:This will be rejected, because the reexported Int in the second signature (a proper data type) is never considered equal to a type synonym. Perhaps this should be relaxed, where a type synonym in a signature is considered implemented by a data type declaration which matches the reference of the type synonym.CXTypecheck a signature 6[ under the assumption that we have instantiated it under some implementation (recorded in 7?) and want to check if the implementation fills the signature.0This needs to operate slightly differently than CV because (1) we have a 9r, from the exports of the implementing module, which we will use to give our top-level declarations the correct s even when the implementor provided them with a reexport, and (2) we have to deal with DFun silliness (see Note [rnIfaceNeverExported]);True  =# discard IdInfo on IfaceId bindingsR,For associated type/data family declarationsTrue  =# discard IdInfo on IfaceId bindings;;;;;;;><>=>>CVCWCXCYCZC[><>=>>CYCVCWCX;;;;;;;CZC[WNoneNQV^'EbRInfo about the context in which we're checking a type. Currently, differentiates only between types and kinds, but this will likely grow, at least to include the distinction between patterns and not-patterns.Cf%Type-check a visible type applicationRShould we generalise the kind of this type signature? We *should* generalise if the type is closed or if NoMonoLocalBinds is set. Otherwise, nope. See Note [Kind generalisation plan]R`Check and desugar a type, returning the core type and its possibly-polymorphic kind. Much like  tcInferRho at the expression level.RxInfer the kind of a type and desugar. This is the "up" type-checker, as described in Note [Bidirectional type checking]RCall R/ and check its result against an expected kind.CmApply a type of a given kind to a list of arguments. This instantiates invisible parameters as necessary. However, it does *not* necessarily apply all the arguments, if the kind runs out of binders. Never calls AU; when the kind runs out of binders, this stops processing. This takes an optional  VarEnv Kind which maps kind variables to kinds. These kinds should be used to instantiate invisible kind variables; they come from an enclosing class for an associated type/data family. This version will instantiate all invisible arguments left over after the visible ones. Used only when typechecking type/data family patterns (where we need to instantiate all remaining invisible parameters; for example, consider +type family F :: k where F = Int; F = Maybe. We need to instantiate the k.)RSee comments for CmK. But this version does not instantiate any remaining invisible arguments.CnQApplies a type to a list of arguments. Always consumes all the arguments, using A} as necessary. If you wish to apply a type to a list of HsTypes, this is your function. Used for type-checking types only.R#Instantiate a type to have at most n invisible arguments.Cr Kind-check a /x. If the decl under consideration has a complete, user-supplied kind signature (CUSK), generalise the result. Used in getInitialKind (for tycon kinds and other kinds) and in kind-checking (but not for tycon kinds, which are checked with tcTyClDecls). See also Note [Complete user-supplied kind signatures] in HsDecls.-This function does not do telescope checking.CtConvenient specializationR'New unification variable for a wildcardR^Produce a tyvar of the given name (with the kind provided, or otherwise a meta-var kind). If the name is already in scope, return the scoped variable, checking to make sure the known kind matches any kind provided. The second return value says whether the variable is in scope (True) or not (False). (Use this for associated types, for example.)CxBring tycon tyvars into scope. This is used during the "kind-checking" pass in TcTyClsDecls. (Never in getInitialKind, never in the "type-checking"/desugaring pass.) Never emits constraints, though the thing_inside might.Cy Used for the type variables of a type or class decl on the second full pass (type-checking/desugaring) in TcTyClDecls. This is *not* used in the initial-kind run, nor in the "kind-checking" pass. Accordingly, everything passed to the continuation is fully zonked. (tcTyClTyVars T [a,b] thing_inside) where T : forall k1 k2 (a:k1 -> *) (b:k1). k2 -> * calls thing_inside with arguments [k1,k2,a,b] [k1:*, k2:*, Anon (k1 -> *), Anon k1] (k2 -> *) having also extended the type environment with bindings for k1,k2,a,bNever emits constraints.uThe LHsTyVarBndrs is always user-written, and the full, generalised kind of the tycon is available in the local env.CfMake an appropriate message for an error in a function argument. Used for both expressions and types.Rargument typesof these kinds expected kind of the whole tupleCm the functionfunction kind's binderspossibly, kind info (see above)args](instantiating subst, un-insted leftover binders, typechecked args, untypechecked args, n)R the function function kind's binders (zonked)possibly, kind info (see above)argsnumber to start arg counter atCnFunction (for printing only)Function (could be knot-tied)Function kind (zonked)Args(f args, result kind)R nthe typeits kindThe inst'ed type with kindCrof the thing being checkedTrue  =0 the TyCon being kind-checked can be unsaturatedTrue  =" the decl being checked has a CUSKTrue  =% the decl is an open type/data familyTrue  =Q all the hsq_implicit are *kind* vars (will give these kind * if -XNoTypeInType))The result kind, possibly with other infoA suitably-kinded TcTyConCudThing inside returns the set of variables bound in the scope. See Note [Scope-check inferred kinds]jreturns augmented bound vars No cloning: returned TyVars have the same Name as the incoming LHsTyVarBndrsRdThing inside returns the set of variables bound in the scope. See Note [Scope-check inferred kinds]returns augmented bound vars:---------------------BPC\C]C^C_C`CaCbCcCdCeCfCgChCiCjCkClCmCnCoCpCqCrCsCtCuCvCwCxCyCzC{C|C}C~C:C`CaCbC_C{C\C]C^CdCcCeCf---------------------CsCtCuCwCxCyCzCqCrChCgCjCiClCkCoCpCnCmBPCvC~C|C}CRRRXNone'H?R.If there are no wildcards, return a LHsSigType(888888888888888888888899CCCCCCCCCCCCCCCC*88888888888888888888888899CCCCCCCCCCCCCCCCYNone<NQV'L9C A variant of C that takes a custom originR:Convenient wrapper for calling a matchExpectedXXX functionC(origin to use if the type needs inst'ing CCCCCCCCCCC CCCCCCCCCCCCCCRRRRRRRRRRRZNone'MCC[None<QV'NRHWarn the user about polymorphic local binders that lack type signatures. CCCCCCCCC CCCCCCCCCRRRRRRRRRRRRRRR\None"#K'~R&A monad within which we will generate KindRep+s. Here we keep an environment containing KindRepIs which we've already generated so we can re-use them opportunistically.RMaps kinds to KindRepW bindings. This binding may either be defined in some other module (in which case the Maybe (LHsExpr Id will be J%T) or a binding which we generated in the current module (in which case it will be J& the RHS of the binding).Rof TyConR To construct TrName,s The various TyCon and DataCons of KindRepR A group of Ms in need of type-rep bindings.RBuild exported KindRep% bindings for the given set of kinds.RModule's typerep bindingRPackage name fingerprintRModule name fingerprintRThe Ms in need of bindings kindsRInformation we need about a M/ to generate its representation. We carry the 4 in order to share it between the generation of the TyCon and KindRep bindings.CGenerate the Typeable bindings for a module. This is the only entry-point of this module and is invoked by the typechecker driver in  tcRnSrcDecls.1See Note [Grand plan for Typeable] in TcTypeable.R6Generate TyCon bindings for a set of type constructorsR<Generate bindings for the type representation of a wired-in Ms defined by the virtual GHC.Prim] module. This is where we inject the representation bindings for these primitive types into  GHC.Types2See Note [Grand plan for Typeable] in this module.RThis is the list of primitive M*s for which we must generate bindings in  GHC.Types+. This should include all types defined in GHC.Prim.8The majority of the types we need here are contained in . However, not all of them: in particular unboxed tuples are absent since we don't want to include them in the original name cache. See Note [Built-in syntax and the OrigNameCache] in IfaceEnv for more.RKCollect various tidbits which we'll need to generate TyCon representations.R-Lookup the necessary pieces to construct the  trNameLiti. We do this so we can save the work of repeating lookups when constructing many TyCon representations.S%Make Typeable bindings for the given M.S^Here is where we define the set of Typeable types. These exclude type families and polytypes.SIs a particular  representable by Typeablef? Here we look for polytypes and types containing casts (which may be, for instance, a type family).S We generate KindReps for a few common kinds in  GHC.Types, so that they can be reused across modules.SPerformed while compiling  GHC.Types to generate the built-in KindReps.SRun a R and add the produced KindRep#s to the typechecking environment.SProduce or find a KindRep for the given kind.S%Construct the right-hand-side of the KindRep for the given ! and in-scope kind variable set.S!Produce the right-hand-side of a TyCon representation.S"the kinds to generate bindings forSin-scope kind variablesthe kind we want a KindRep forSin-scope kind variablesthe kind we want a KindRep forRHS expressionSthe M we are producing a binding forits KindRepCCRS S S S S RRSSSSSSSSSRSRRRRRRSSS]None'0SA monad for type synonym cycle checking, which keeps track of the TyCons which are known to be acyclic, or a failure message reporting that a cycle was found.S Test if a 8 is acyclic, short-circuiting if we've seen it already.CChecks if any of the passed in Ms have cycles. Takes the B of the home package (as we can avoid checking those TyCons: cycles never go through foreign packages) and the corresponding LTyClDecl Name for each M(, so we can give better error messages.CCCCCCCCCCCCCCCCSSSS S!S"S#SS$S%None<'pS& PatSyn NamePatSyn type (UniBidirExplicitBidir) Whether infixPattern of the PatSynPattern arguments and types Pattern type<Selector names ^ Whether fields, empty if not record PatSynS'Visible field labels;";#;$;%C;%;$;#C;"None<NQV^'S(When the MatchGroup has multiple RHSs, convert an Infer ExpType in the expected type into TauTvs. See Note [Case branches must never infer a non-tau type]S)Type-check a MatchGroup.:P:QCCCCCCCCCCCCCCCC:PC:QCCCCCCCCCCCCCCCCCCC^NoneNQV'CCS*S+S,_NoneKVZ]' S-Given a 6. of an instantiated signature (note that the 6G must be knot-tied consistently with the actual implementation) and a  constructed from the implementor of this interface, verify that the actual implementation actually matches the original interface.Note that it is already assumed that the implementation *exports* a sufficient set of entities, since otherwise the renaming and then typechecking of the signature 6 would have failed.S. Checks if a 2s is "defined". In general, for hsig files we can't assume that the implementing file actually implemented the instances (they may be reexported from elsewhere). Where should we look for the instances? We do the same as we would otherwise: consult the EPS. This isn't perfect (we might conclude the module exports an instance when it doesn't, see #9422), but we will never refuse to compile something.S/KReturn this list of requirement interfaces that need to be merged to form mod_name, or [] if this is not a requirement.C For a module modname of type   , determine the list of extra "imports" of other requirements which should be considered part of the import of the requirement, because it transitively depends on those requirements by imports of modules from other packages. The situation is something like this:Ounit p where signature A signature B import A&unit q where dependency p[A= A,B= B-] signature A signature BAlthough q's B does not directly import A, we still have to make sure we process A first, because the merging process will cause B to indirectly import A. This function finds the TRANSITIVE closure of all such imports we need to make.CC, but in a convenient form for GhcMake and  TcRnDriver.CGiven a B, make sure it is well typed. This is because unit IDs come from Cabal, which does not know if things are well-typed or not; a component may have been filled with implementations for the holes that don't actually fulfill the requirements..INVARIANT: the UnitId is NOT a InstalledUnitIdCETop-level driver for signature instantiation (run when compiling an hsig file.)CCTop-level driver for signature merging (run after typechecking an hsig file).S0 The list of s of *non-exported* 'Xs which this 'X may refer to. A non-exported 'X1 should be kept after thinning if an *exported* 'X (or 7 , perhaps) refers to it; we can't decide to keep it by looking at the exports of a module after thinning. Keep this synchronized with  rnIfaceDecl.CGiven a local 6), merge all inherited requirements from S/) into this signature, producing a final 9? that matches the local signature and all required signatures.CETop-level driver for signature instantiation (run when compiling an hsig file.)S1Check if module implements a signature. (The signature is always un-hashed, which is why its components are specified explicitly.)CGiven 9, instantiate a 6 from the indefinite library to use the actual implementations of the relevant entities, checking that the implementation matches the signature. CCCCCCCCCC CCCCCCCCCCNone;<='CRun a 9y action inside the 9w monad.CRun a 9y action inside the I monad.S25Build a set of desugarer environments derived from a 9.CRun a 9y& action in the context of an existing 6C(Get in-scope type constraints (pm check)C(Add in-scope type constraints (pm check)C(Get in-scope term constraints (pm check)C(Add in-scope term constraints (pm check)CxIncrease the counter for elapsed pattern match check iterations. If the current counter is already over the limit, failC<Reset the counter for pattern match check iterations to zeroCUEmit a warning for the current source location NB: Warns whether or not -Wxyz is setCDEmit a warning only if the correct WarnReason is set in the DynFlagsC\Issue an error, but return the expression for (), so that we can continue reporting errors.S3QAttempt to load the given module and return its exported entities if successful.D The COMPLETE* pragams provided by the user for a given M.D=Fail with an error message if the type is levity polymorphic.DRCheck an expression for levity polymorphism, failing if it is levity polymorphic.DRuns the thing_inside. If there are no errors, then returns the expr given. Otherwise, returns unitExpr. This is useful for doing a bunch of levity polymorphism checks and then avoiding making a core App. (If we make a core App on a levity polymorphic argument, detecting how to handle the let/app invariant might call isUnliftedType, which panics on a levity polymorphic type.) See #12709 for an example of why this machinery is necessary.S4Run a 9y' with DPH things in scope if necessary.S5%Extend the global environment with a & containing the exported entities of,@A iff '-XParallelArrays' specified (see also S6).BC iff  '-fvectorise' specified.S7If '-XParallelArrays'< given, we populate the builtin table for desugaring those.D Populate 9T from 9S.DGet a name from Data.Array.Parallel for the desugarer, from the 9T/ component of the global desugerar environment.DLookup a name exported by BC or BCA. Panic if there isn't one, or if it is defined multiple times.DLookup a name exported by BC or BC, returning J%; if it's not defined. Panic if it's defined multiple times.c'% 9A9B9C9D9V9W9X9Y9Z9[9\9]9^9_9`9a9b9c9y:p:v:w:y::CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCDDDDDDDDDD D D D D DDDDDDDc9yCCCCC :y:v:w:p'%CCCCCCCCCCD::CDDDDDDD9V9W9X9Y9Z9[9\9]9^9_9`9a9b9cDDD9D9A9B9CD D D CCCCCCD CCCCCCDD DCCCCCCCCCCCCCCDDDCCCCCCCCCCCNone<NV':S!Slightly more general version of :TR that allows the caller to specify the shape of the result of the syntax operator:TbTypecheck a syntax operator The operator is always a variable at this stage (i.e. renamer output)S85A data type to describe why a variable is not closed.S9UType-check the arguments to a function, possibly including visible type applicationsS:=Checks if the given name is closed and emits an error if not.%See Note [Not-closed error messages].:T"shape of syntax operator argumentsoverall result typeType check any argumentsS9'The function itself (for err msgs only))the (uninstantiated) type of the function"the origin for the function's typethe args the herald for matchActualFunTys8(a wrapper for the function, the tc'd args, result type)S;shape it is expected to havecheck the arguments@returns a wrapper :: (type of right shape) "->" (type passed in)S<argument shapes result shapecheck the argumentsreturns a wrapper to be applied to the original function, wrappers to be applied to arguments and a wrapper to be applied to the overall expression------.:R:S:T:U:V:W:X:Y:ZDDD:Z:X:Y:V:W:UD:T:S------.:RDDS8S=S>S?`None%'DDaNone'D)Check that the type has the form (IO t) or (t) , and that t satisfies the given predicate. When calling this function, any newtype wrappers (should) have been already dealt with by normaliseFfiType.cWe also check that the Safe Haskell condition of FFI imports having results in the IO monad holds.DDDDD D!D"D#D$D%D&D'D(D)D*D+D,D-DD$DDD!D&D D"D#D(D)DD*D+D,D-D%D'dNone(qDa%Use -XStrict to add a ! or remove a ~Examples: ~pat => pat -- when -XStrict (even if pat = ~pat') !pat => !pat -- always pat => !pat -- when -XStrict pat => pat -- otherwiseDbUnconditionally make a /$ strict.DWticks to add, possibly The pattern(Expression to which the pattern is bound~Id the rhs is bound to, for desugaring strict binds (see Note [Desugar Strict binds] in DsBinds) and all the desugared bindsDaOriginal patternDbOriginal patternBanged pattern5CCCCCCCCCD7D8D:D9D;D<D=D>D?D@DADBDCDDDEDFDGDHDIDJDKDLDMDNDODPDQDRDSDTDUDVDWDXDYDZD[D\D]D^D_D`DaDb5CCCCD@DACCCCCD7D8D9D:D;D<DDDCDEDFDGDHDLDMDODBDNDPDQDRDJDIDSDTDUDVDKDYDXDZD[D\D]D^DWD=D>D?D_D`DaDbD7D8D9D:D;D<eNoneV( DcDdDeDfDgDhDiDjDkDlDmDn DcDdDeDlDiDjDkDnDmDfDgDhfNoneFT( S@+Represent result signature of a type familySARepresent result signature using a Maybe Kind. Used with data families, where the result signature can be either missing or a kind but never a named result variable.SB1Represent injectivity annotation of a type familySC Represent a type variable binderSD#Represent a kind wrapped in a MaybeSE:Construct Core expression for Nothing of a given type nameSF5Construct Core expression for Nothing of a given typeSG:Store given Core expression in a Just of a given type nameSH5Store given Core expression in a Just of a given typeSE%Name of the TyCon of the element typeSFThe element typeSG%Name of the TyCon of the element typeSHThe element typeDoDoSISJgNone(WDpDqDrDsDpDqDrDshNone(DtDuDvDwDxDtDuDvDwDxiNone(DyDyjNone(&tDz}Desugar top level binds, strict binds are treated like normal binds since there is no good time to force before first usage.D{Desugar all other kind of bindings, Ids of strict binds are returned to later be forced in the binding group body, see Note [Desugar Strict binds]SK7Desugar a single binding (or group of recursive binds).SLyThis is where we apply INLINE and INLINABLE pragmas. All we need to do is to attach the unfolding information to the Id.5Other decisions about whether to inline are made in calcUnfoldingGuidance_ but the decision about whether to then expose the unfolding in the interface file is made in QD using this information.SM Returns a CoreExpr :: TypeRep tySKThe Ids of strict binds, to be forced in the body of the binding group see Note [Desugar Strict binds] and all bindings and their desugared right hand sides.SN EvTerm for  Typeable ty The type tyReturn CoreExpr :: TypeRep ty namely  typeRep# dictI Remember that typeRep# :: forall k (a::k). Typeable k a -> TypeRep a DzD{D|D}D~DDDD DzD{D~D|DDDDD}kNone(&DDDDlNone&'-FN(3ISO^The arity of a pattern/pattern vector is the number of top-level patterns that are not guardsSPEither a list of patterns that are not covered, or their type, in case we have no patterns at hand. Not having patterns at hand can arise when handling EmptyCase expressions, in two cases:JThe type of the scrutinee is a trivially inhabited type (like Int or Char)4The type of the scrutinee cannot be reduced to WHNF.-In both these cases we have no inhabitation candidates for the type at hand, but we don't want to issue just a wildcard as missing. Instead, we print a type annotated wildcard, so that the user knows what kind of patterns is expected (e.g. (_ :: Int), or (_ :: F Int), where F Int does not reduce).SQPattern check resultRedundant clauses?Not-covered clauses (or their type, if no pattern is available)Clauses with inaccessible RHSMore details about the classification of clauses into useful, redundant and with inaccessible right hand side can be found here: 7https://ghc.haskell.org/trac/ghc/wiki/PatternMatchCheckSR4When we learned that a given match group is completeSS9From the original definition of the type constructor.STFrom a user-provided COMPLETE pragmaSUTerm and type constraints to accompany each value vector abstraction. For efficiency, we store the term oracle state instead of the term constraints. TODO: Do the same for the type constraints?SVValue Vector AbstractionsSWThe empty pattern check resultSX:Non-exhaustive empty case with unknown/trivial inhabitantsD$Check a single pattern binding (let)SY$Check a single pattern binding (let)D*Check a matchgroup (case, functions, etc.)SZCheck a matchgroup (case, functions, etc.). To be called on a non-empty list of matches. For empty case expressions, use checkEmptyCase' instead.S[Check an empty case expression. Since there are no clauses to process, we only compute the uncovered set. See Note [Checking EmptyCase Expressions] for details.S\Generate all inhabitation candidates for a given type. The result is either (Left ty), if the type cannot be reduced to a closed algebraic type (or if it's one trivially inhabited, like Int), or (Right candidates), if it can. In this case, the candidates are the singnature of the tycon, each one accompanied by the term- and type- constraints it gives rise to. See also Note [Checking EmptyCase Expressions]S]IA fake guard pattern (True <- _) used to represent cases we cannot handleS^ECheck whether a guard pattern is generated by the checker (unhandled)S_ Generate a canFail" pattern vector of a specific typeS`,Create an empty list pattern of a given typeSa)Create a (non-overloaded) literal patternSb%Translate an overloaded literal (see tidyNPat in deSugar/MatchLit.hs)Sc{Translate a list of patterns (Note: each pattern is translated to a pattern vector but we do not concatenate the results).SdTranslate a constructor patternSe8Translate a list of guard statements to a pattern vectorSf)Check whether a pattern can fail to matchSg&Translate a guard statement to PatternShTranslate let-bindingsSiTranslate a pattern guardSjTranslate a boolean guardSkGet the type out of a PmPat. For guard patterns (ps <- e) we use the type of the first (or the single -WHEREVER IT IS- valid to use?) patternSlvGenerate a value abstraction for a given constructor (generate fresh variables of the appropriate type for arguments)SmCreate a guard patternSn9Create a term equality of the form: `(False ~ (x ~ lit))`So/Create a term equality of the form: `(x ~ lit)`SpUCreate a term equality of the form: `(x ~ x)` (always discharged by the term oracle)Sq+Generate a variable pattern of a given typeSr6Generate many variable patterns, given a list of typesSsGenerate a fresh  of a given typeSttGenerate a fresh term variable of a given and return it in two forms: * A variable pattern * A variable expressionSu)Convert a value abstraction an expressionSvuConvert a pattern vector to a list of value abstractions by dropping the guards (See Note [Translating As Patterns])SwConvert a pattern to a list of value abstractions (will be either an empty list if the pattern is a guard pattern, or a singleton list in all other cases) by dropping the guards (See Note [Translating As Patterns])SxKCheck whether a data constructor is the only way to construct a data type.Sy{For a given conlike, finds all the sets of patterns which could be relevant to that conlike by consulting the result type.lThese come from two places. 1. From data constructors defined with the result type constructor. 2. From COMPLETEF pragmas which have the same type as the result type constructor.Sz7Check whether a set of type constraints is satisfiable.S{%Compute the arity of a pattern vectorS|Compute the arity of a patternS}Lift a pattern matching action from a single value vector abstration to a value set abstraction, but calling it on every vector and the combining the results.S~jGenerate the initial uncovered set. It initializes the delta with all term and type constraints in scope.SfIncrease the counter for elapsed algorithm iterations, check that the limit is not exceeded and call SSfIncrease the counter for elapsed algorithm iterations, check that the limit is not exceeded and call SSfIncrease the counter for elapsed algorithm iterations, check that the limit is not exceeded and call SSMatching function: Check simultaneously a clause (takes separately the patterns and the list of guards) for exhaustiveness, redundancy and inaccessibility.SCheck the list of guardsSWWorker function: Implements all cases described in the paper for all three functions (covered,  uncovered and  divergent) apart from the Guard cases which are handled by SSFInitialise with default values for covering and divergent information.SCTake the tail of all value vector abstractions in the uncovered setSRPrepend a value abstraction to all value vector abstractions in the uncovered setS"Given a data constructor of arity a^ and an uncovered set containing value vector abstractions of length `(a+n)`, pass the first nj value abstractions to the constructor (Hence, the resulting value vector abstractions will have length `n+1`)SGet the union of two covered, uncovered and divergent value set abstractions. Since the covered and divergent sets are represented by a boolean, union means computing the logical or (at least one of the two is non-empty).SFAdd a value vector abstraction to a value set abstraction (uncovered).S"Set the divergent set to not emptyS2Set the divergent set to non-empty if the flag is J DGenerate equalities when checking a case expression: case x of { p1 -> e1; ... pn -> en } When we go deeper to check e.g. e1 we record two equalities: (x ~ y), where y is the initial uncovered when checking (p1; .. ; pn) and (x ~ p1).DGenerate a simple equality when checking a case expression: case x of { matches } When checking matches we record that (x ~ y) where y is the initial uncovered. All matches will have to satisfy this equality.DCheck whether any part of pattern match checking is enabled (does not matter whether it is the redundancy check or the exhaustiveness check).SApply a term substitution to a value vector abstraction. All VAs are transformed to PmExpr (used only before pretty printing).SWrap up the term oracle's state once solving is complete. Drop any information about unhandled constraints (involving HsExprs) and flatten (height 1) the substitution.SBIssue all the warnings (coverage, exhaustiveness, inaccessibility)ScIssue a warning when the predefined number of iterations is exceeded for the pattern match checkerSICheck whether the exhaustiveness checker should run (exhaustiveness only)SLDenotes whether an exhaustiveness check is supported, and if so, via which  u it's controlled. Returns J% if check is not supported.SValue Set AbstractionsSPattern VectorsSValue AbstractionsSPatternsDDDDDDDDDD SPSSSQSSSSSSSSSSSSRSSSTSSSSSSSUSSSSSVSSSSSSSSSSSSSSSSSSSSbNone(mD.D/D0D1DD1DD0D/D.S SSSSSSSSSSSmNone$(GS'the desugared rhs of the bind statement S in (>>=) :: Q -> (R -> S) -> TDDDDDDnNone(DDSSSSSSSScNone^(D5 Variant of D4 that ensures that the result is not levity polymorphic. This should be used when the resulting expression will be an argument to some other function. See Note [Levity polymorphism checking] in DsMonad See Note [Levity polymorphism invariants] in CoreSynS4The longest list length which we will desugar using build.This is essentially a magic number and its setting is unfortunate rather arbitrary. The idea here, as mentioned in Note [Desugaring explicit lists], is to avoid deforesting large static data into large(r) code. Ideally we'd want a smaller threshold with larger consumers and vice-versa, but we have no way of knowing what will be consuming our list in the desugaring impossible to set generally correctly.0The effect of reducing this number will be that buildP fusion is applied less often. From a runtime performance perspective, applying build more liberally on "moderately" sized lists should rarely hurt and will often it can only expose further optimization opportunities; if no fusion is possible it will eventually get rule-rewritten back to a list). We do, however, pay in compile time.D2D3D4D5D6DcDD6D4D5D2DDcD3oNone(DrConstruct default instances for any associated types that aren't given a user definition Returns [] or singleton DDDDDDDDDDD DDDDDDDDDDDpNone(D%Stuff needed to process a datatype's  `deriving` clausesDUThe data tycon for normal datatypes, or the *representation* tycon for data familiesD error contextDExtract  `deriving`2 clauses of proper data type (skips data families)S Process a  `deriving` clauseDDDDDDDDDDDDDDDDDDDSSSrNoneN^(ծSCMaybe return a list of Bools that say whether a type family was declared injective in the corresponding type arguments. Length of the list is equal to the number of arguments (including implicit kind/coercion arguments). True on position N means that a function is injective in its Nth argument. False means it is not.SFrom information about a source datacon definition, extract out what the universal variables and the GADT equalities should be. See Note [mkGADTVars].S9Check for ill-scoped telescopes in a tycon. For example: idata SameKind :: k -> k -> * -- this is OK data Bad a (c :: Proxy b) (d :: Proxy a) (x :: SameKind b d)The problem is that bG should be bound (implicitly) at the beginning, but its kind mentions a^, which is not yet in scope. Kind generalization makes a mess of this, and ends up including a twice in the final tyvars. So this function checks for duplicates and, if there are any, produces the appropriate error message.SFamily TyCon (not knot-tied)DefaultsType checked RHSD$the family name, for error msgs only!the patterns, for error msgs onlythe RHSthe expected kindSThe tycon varsThe datacon varsIThe matching between the template result type and the actual result typeiThe univ. variables, the GADT equalities, and a subst to apply to the GADT equalities and existentials.CDDDDDDDDDDDDDDCDDDDDDDDDDDDqNone(ٞDUse DerivInfo for data family instances (produced by tcInstDecls1), datatype declarations (TyClDecl), and standalone deriving declarations (DerivDecl) to check and process all derived class instances.DDDDDDNoneKVZ]) :OrCompares two things for equivalence between boot-file and normal code, reporting an error if they don't match up.D3How should we infer a type? See Note [TcRnExprMode]D"Instantiate the type fully (:type)D&Do not instantiate the type (:type +v)D#Default the type eagerly (:type +d)S9A plan is an attempt to lift some code into the IO monad.D1Top level entry point for typechecker and renamerSdRuns TH finalizers and renames and typechecks the top-level declarations that they could introduce.DTCompares the two things for equivalence between boot-file and normal code. Returns Nothing on success or !Just "some helpful info for user"; failure. If the difference will be apparent to the user,  Just empty is perfectly suitable.S%Combines two potential error messagesS9If the test in the first parameter is True, succeed with Nothing'; otherwise, return the provided checkSRun the check provided for every pair of elements in the lists. The provided SDoc should name the element type, in the plural.S9If the test in the first parameter is True, succeed with Nothing'; otherwise, fail with the given SDoc.SA more perspicuous name for Nothing, for  checkBootDecl and friends.SRWarn on local definitions of names that would clash with future Prelude elements.A name clashes if the following criteria are met: 1. It would is imported (unqualified) from Prelude 2. It is locally defined in the current module 3. It has the same literal name as the reference function 4. It is not identical to the reference functionSGet the unqualified name of the function to use as the "main" for the main module. Either returns the default name or the one configured on the command line with -main-isDThe returned [Id] is the list of new Ids bound by this statement. It can be used to extend the InteractiveContext via extendInteractiveContext.`The returned TypecheckedHsExpr is of type IO [ () ], a list of the bound values, coerced to ().SbTry the plans in order. If one fails (by raising an exn), try the next. If one succeeds, take it.STypecheck (and lift4) a stmt entered by the user in GHCi into the GHCi  environment.By lift and 'environment we mean that the code is changed to execute properly in an IO monad. See Note [Interactively-bound Ids in GHCi] in HscTypes for more details. We do this lifting by trying different ways (plansX) of lifting the code into the IO monad and type checking each plan until one succeeds.ScTypecheck the statements given and then return the results of the statement in the form 'IO [()]'.SAGenerate a typed ghciStepIO expression (ghciStep :: Ty a -> IO a)D-tcRnExpr just finds the type of an expressionD)ASSUMES that the module is either in the 75 or is a package module with an interface on disk. If neither of these is true, then the result will be an error indicating the interface could not be found.D8Find all the Names that this RdrName could mean, in GHCi:OTrue  =& an hs-boot file (could also be a sig)SInstances of this ... should also be instances of this :M:N:OCCCCCCCDDDDDDDDDDDDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDCCCCCCCD:M:O:NDDDDS0sNone) D"Main entry point to the desugarer.DDDDtNone)+D0Holds the names of the types and functions from BC" that are used by the vectoriser.DPArrayDPDataDPDatasDPRDPRDPReprDPADPADPADPAD replicatePDDreplicatePD_Int# etc.DemptyPDDemptyPD_Int# etc.D packByTagPDDpackByTagPD_Int# etc.D combinePDDcombine2PD_Int# etc.DScalarDmap, zipWith, zipWith3DVoidDvoidDfromVoidD Sum2 .. Sum3DWrapDpvoidDpvoidsD:->DclosureD liftedClosureD$:D liftedApplyDclosure1 .. closure3DSel2DSels2D lengthSels2D replicate2EtagsSel2E!elementsSel2_0 .. elementsSel_2_1ElcS)Get an element from one of the arrays of D4. Panic if the indexed thing is not in the array.SGet an entry from one of a E of D.. Panic if the named item is not in the array.S4Name of the selector we've used, for panic messages.Field selector for the D.Index into the array.?DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEEEEE E E E E EEEEEEEEEE?EEEEEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEE E E E E EEEEEEEEEED)DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEuNone)!}E6Create the initial map of builtin types and functions.EDGet the mapping of names in the Prelude to names in the DPH library.SALookup a variable given its name and the module that contains it.SLike S but wrap the  in a !C.S Lookup a M in BC-, given its name. Panic if there isn't one.S Lookup some  in BC, given its name.S Lookup a  in BC, given its name.EEEEENone)!=DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEE E E E E EEEEEEEEEEEE=EDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEE E E E E EEEEEEEEEEEEvNone)SrE9The global environment: entities that exist at top-level.EJ 3 implies to avoid vectorisation as far as possible.EZMapping from global variables to their vectorised versions  aka the /vectorisation map/.EThe domain of E.TThis information is not redundant as it is impossible to extract the domain from a  (which is keyed on uniques alone). Moreover, we have mapped variables that do not involve parallelism  e.g., the workers of vectorised, but scalar data types. In addition, workers of parallel data types that we could not vectorise also need to be tracked.EMapping from global variables that have a vectorisation declaration to the right-hand side of that declaration and its type and mapping variables that have NOVECTORISE declarations to J%.E Mapping from TyCons to their vectorised versions. The vectorised version will be identical to the original version if it is not changed by vectorisation. In any case, if a tycon appears in the domain of this mapping, it was successfully vectorised.E!dType constructors whose definition directly or indirectly includes a parallel type, such as '[::]'.ONB: This information is not redundant as some types have got a mapping in E  (to a type other than themselves) and are still not parallel. An example is '(->)'. Moreover, some types have *not* got a mapping in E N (because they couldn't be vectorised), but still contain parallel types.E"3Mapping from DataCons to their vectorised versions.E#&Mapping from TyCons to their PA dfuns.E$&Mapping from TyCons to their PR dfuns.E%FExternal package inst-env & home-package inst-env for class instances.E&GExternal package inst-env & home-package inst-env for family instances.E'KHoisted bindings  temporary storage for toplevel bindings during code gen.E(The local environment.E*EMapping from local variables to their vectorised and lifted versions.E+In-scope type variables.E,-Mapping from tyvars to their PA dictionaries.E-XLocal binding name. This is only used to generate better names for hoisted expressions.E.2Indicates what scope something (a variable) is in.E1"Create an empty local environment.E2%Create an initial global environment.We add scalar variables and type constructors identified by vectorisation pragmas already here to the global table, so that we can query scalarness during vectorisation, and especially, when vectorising the scalar entities' definitions themselves.E36Extend the list of global variables in an environment.E4)Extend the list of type family instances.E5/Set the list of PA functions in an environment.E6/Set the list of PR functions in an environment.E71Compute vectorisation information that goes into 63 (and is stored in interface files). The incoming vectInfo is that from the 7D and 6n. The outgoing one contains only the declarations for the currently compiled module; this includes variables, type constructors, and data constructors referenced in VECTORISE pragmas, even if they are defined in an imported module.;The variables explicitly include class selectors and dfuns.EEE&EEEEE E!E"E#E$E%E'E(E)E*E+E,E-E.E0E/E1E2E3E4E5E6E7E.E/E0E(E)E*E+E,E-E1EEEEEEE E!E"E#E$E%E&E'E2E3E4E5E6E7E EEEEEE E!E"E#E$E%E&E'E(E)E*E+E,E-E.E/E0wNone)lE;Vectorisation can either succeed with new envionment and a value, or return with failure (including a description of the reason for failure).E>;Lift a desugaring computation into the vectorisation monad.E?Throw a  % saying we can't vectorise something.E@Like fromJust, but   on Nothing.EALike E@ but in a S.EB4Output a trace message if -ddump-vt-trace is active.EC4Output a trace message if -ddump-vt-trace is active.ED%Dump the given program conditionally.EE'Dump the given program unconditionally.EF'Return some result saying we've failed.EGLike EG, but also emit some trace message to stderr.EHIf J  then carry on, otherwise fail.EILike EH7 but if we fail then emit some trace message to stderr.EJIf J 0 then return the first argument, otherwise fail.EK"Try some vectorisation computaton.If it succeeds then return J& the result; otherwise, return J%# after emitting a failure message.EL"Try some vectorisation computaton.If it succeeds then return J& the result; otherwise, return J%% without emitting a failure message.EMIf J&' then return the value, otherwise fail.ENLike EM) but emit a message to stderr if we fail.EOTry the first computation,,if it succeeds then take the returned value,Uif it fails then run the second computation instead while emitting a failure message.EPTry the first computation,,if it succeeds then take the returned value,Wif it fails then run the second computation instead without emitting a failure message.EQ$Fixpoint in the vectorisation monad.E8E9E:E;E<E=E>E?E@EAEBECEDEEEFEGEHEIEJEKELEMENEOEPEQE;E<E=E8E9E:E>E?E@EAEBECEDEEEFEGEHEIEJELEKEMENEPEOEQE8E9E:E;E<E=xNone)EW.Project something from the global environment.EX(Set the value of the global environment.EY:Update the global environment using the provided function.EZ2Should we avoid as much vectorisation as possible?'Set by '-f[no]-vectorisation-avoidance'E[KAdd a mapping between a global var and its vectorised version to the state.E\:Remove the mapping of a variable in the vectorisation map.E]9Check whether a variable has a vectorisation declaration.GThe first component of the result indicates whether the variable has a  NOVECTORISEX declaration. The second component contains the given type and expression in case of a  VECTORISE declaration.E^)Get the set of global parallel variables.E_Get the set of all parallel type constructors (those that may embed parallelism) including both both those parallel type constructors declared in an imported module and those declared in the current module.E`&Determine the vectorised version of a Ma. The vectorisation map in the global environment contains a vectorised version if the original M embeds any parallel arrays.Ea+Add a mapping between plain and vectorised Ms to the global environment.nThe second argument is only to enable tracing for (mutually) recursively defined type constructors, where we must note pull at the vectorised type constructors (because that would pull too early at the recursive knot).Eb+Add a mapping between plain and vectorised Ms to the global environment.Ec0Get the set of all vectorised type constructors.Ed#Lookup the vectorised version of a 6 from the global environment.Ee-Add the mapping between plain and vectorised 6s to the global environment.Ef Lookup the PAA dfun of a vectorised type constructor in the global environment.Eg>Associate vectorised type constructors with the dfun of their PA& instances in the global environment.EWEXEYEZE[E\E]E^E_E`EaEbEcEdEeEfEgEhEWEXEYEZE[E\E]E^E_E`EaEbEcEdEeEfEgEhyNone)[EiEjEkEiEjEkzNone) El-Project something from the local environment.EmSet the local environment.En3Update the environment using the provided function.EonPerform a computation in its own local environment. This does not alter the environment of the current state.Ep4Perform a computation in an empty local environment.Eq=Get the name of the local binding currently being vectorised.EraRun a vectorisation computation in a local environment, with this id set as the current binding.Es.Lookup a PA tyvars from the local environment.Et%Add a tyvar to the local environment.EuGAdd mapping between a tyvar and pa dictionary to the local environment.Ev1Get the set of tyvars from the local environment. ElEmEnEoEpEqErEsEtEuEv ElEmEnEoEpEqErEsEtEuEv{None)& EwSCreate a localised variant of a name, using the provided function to transform its .EIf the name external, encode the original name's module into the new 1. The result is always an internal system name.Ey%Produce the vectorised variant of an a with the given vectorised type, while taking care that vectorised dfun ids must be dfuns again.Force the new name to be a system name and, if the original was an external name, disambiguate the new name with the module name of the original.Ez5Make a fresh instance of this var, with a new unique.E{3Make a fresh exported variable with the given type.E|uMake a fresh local variable with the given type. The variable's name is formed using the given string as the prefix.E}Make several fresh local variables with the given types. The variable's names are formed using the given string as the prefix.E~ Make a new local dummy variable.EtMake a fresh type variable with the given kind. The variable's name is formed using the given string as the prefix.E3Make a fresh coercion variable with the given kind. EwExEyEzE{E|E}E~EE EwExEyEzE{E|E}E~EE|None)E Run a vectorisation computation.E(Lift a desugaring computation using the D into the vectorisation monad.E+Project something from the set of builtins.ELift a function using the D into the vectorisation monad.EKLookup the vectorised, and if local, also the lifted version of a variable.@If it's in the global environment we get the vectorised version.OIf it's in the local environment we get both the vectorised and lifted version.EuMark the given variable as parallel  i.e., executing the associated code might involve parallel array computations.E[Mark the given type constructor as parallel  i.e., its values might embed parallel arrays.LE8E9E:E;E<E=E>E?E@EAEBECEDEEEFEGEHEIEJEKELEMENEOEPEQEWEXEYEZE[E\E]E^E_E`EaEbEcEdEeEfEgEhEiEjEkElEmEnEoEpEqErEsEtEuEvEwExEyEzE{E|E}E~EEEEEEEEEEEEEEEEEE}None)EFrom a list of type constructors, extract those that can be vectorised, returning them in two sets, where the first result list must be' vectorised and the second result list  need not be vectorised. The third result list are those type constructors that we cannot convert (either because they use language extensions or because they dependent on type constructors for which no vectorised version is available).NB: In order to be able to vectorise a type constructor, we require members of the depending set (i.e., those type constructors that the current one depends on) to be vectorised only if they are also parallel (i.e., appear in the second argument to the function)."The first argument determines the conversion status* of external type constructors as follows:3tycons which have converted versions are mapped to J <tycons which are not changed by vectorisation are mapped to J!mtycons which haven't been converted (because they can't or weren't vectorised) are not elements of the mapSGCollect the set of TyCons used by the representation of some data type.S4Collect the set of TyCons that occur in these types.S2Collect the set of TyCons that occur in this type.E%type constructor vectorisation status tycons involving parallel arrays,type constructors that need to be classifiedEE~None)#E:Contains the vectorised and lifted versions of some thing.E&Get the vectorised version of a thing.E"Get the lifted version of a thing.EJApply some function to both the vectorised and lifted versions of a thing.SCCombine vectorised and lifted versions of two things componentwise.E&Get the type of a vectorised variable.E6Wrap a vectorised variable as a vectorised expression.E2Wrap a vectorised type as a vectorised expression.EMake a vectorised note.E(Make a vectorised non-recursive binding.E$Make a vectorised recursive binding.E!Make a vectorised let expression.E%Make a vectorised lambda abstraction.2The lifted version also binds the lifting context lc.E3Apply an expression to a set of argument variables.JThe lifted version is also applied to the variable of the lifting context.E!Var bound to the lifting context.#Parameter vars for the abstraction.Body of the abstraction.EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEENone)EMake an application of the Wrap type constructor.E4Make an application of the closure type constructor.EMake an application of the PRepr type constructor.EMake an application of the PData tycon to some argument.EMake an application of the PDatas tycon to some argument.E+Checks if a type constructor is defined in C (e.g., 'Int#'); if so, returns it.E6Make a representational coercion to some builtin type.E%Apply the constructor wrapper of the Wrap newtype.E%Strip the constructor wrapper of the Wrap newtype.E%Apply the constructor wrapper of the PData newtype instance of Wrap.E%Strip the constructor wrapper of the PData newtype instance of Wrap.E%Apply the constructor wrapper of the PDatas newtype instance of Wrap.E%Strip the constructor wrapper of the PDatas newtype instance of Wrap.E$Get the representation tycon of the PData data family for a given type.ZThis tycon does not appear explicitly in the source program  see Note [PData TyCons] in FG: #pdataReprTyCon {Sum2} = {PDataSum2} The type for which we look up a PData instance may be more specific than the type in the instance declaration. In that case the second component of the result will be more specific than a set of distinct type variables.E$Get the representation tycon of the PData* data family for a given type constructor.+For example, for a binary type constructor TH, we determine the representation type constructor for 'PData (T a b)'.E$Get the representation tycon of the PDatas* data family for a given type constructor.+For example, for a binary type constructor TI, we determine the representation type constructor for 'PDatas (T a b)'.E Unwrap a PData representation scrutinee.E$Get the representation tycon of the PRepr type family for a given type.EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEENone*EsConstruct the PA argument type for the tyvar. For the tyvar (v :: *) it's just PA v. For (v :: (* -> *) -> *) it's Eforall (a :: * -> *). (forall (b :: *). PA b -> PA (a b)) -> PA (v a)E#Get the PA dictionary for some typeE,Produce code that refers to a method of the PA class.S Given a type ty, return the PR dictionary for PRepr ty.E Given a type tyA, its PRepr synonym tycon and its type arguments, return the PR PRepr ty. Suppose we have: %type instance PRepr (T a1 ... an) = t#which is internally translated into type :R:PRepr a1 ... an = t%and the corresponding coercion. Then, JprDictOfPReprInstTyCon (T a1 ... an) :R:PRepr u1 ... un = PR (T u1 ... un) Note that ty is only used for error messagesENGet the PR dictionary for a type. The argument must be a representation type.S`Apply a tycon's PR dfun to dictionary arguments (PR or PA) corresponding to the argument types.EEEEEEEEEENone* EVectorise under the PA? dictionary variables corresponding to a set of type arguments.dThe dictionary variables are new local variables that are entered into the local vectorisation map.<The purpose of this function is to introduce the additional PAJ dictionary arguments that are needed when vectorising type abstractions.EDetermine the number of PAU dictionary arguments required for a set of type variables (depends on their kinds).E4Apply a expression to its type arguments as well as PA' dictionaries for these type arguments.EGApply a vectorised expression to a set of type arguments together with PA( dictionaries for these type arguments.EEEEEEEENone*E6Records whether we should inline a particular binding.E%Add to the arity contained within an E , if any.E Says to always inline a binding.EjHoist a polymorphic vectorised expression into a new top-level binding (representing a closure function).The hoisted expression is parameterised by (1) a set of type variables and (2) a set of value variables that are passed as conventional type and value arguments. The latter is implicitly extended by the set of PA. dictionaries required for the type variables. EEEEEEEEEE EEEEEEEEEEEEENone*#EMake a closure.EMake a closure application.EBuild a set of n closures corresponding to an n^-ary vectorised function. The length of the list of types of arguments determines the arity.[In addition to a set of type variables, a set of value variables is passed during closure  constructiona. In contrast, the closure environment and the arguments are passed during closure application.EType of the argument.Type of the result.Type of the environment.The function to apply.The environment to use.EType of the argument.Type of the result.Closure to apply.Argument to use.E2Type variables passed during closure construction.-Variables passed during closure construction.Variables in the environment.Type of the arguments.Type of result.S2Type variables passed during closure construction.-Variables passed during closure construction.Variables in the environment.Type of the closure argument.Type of the result.EEEEEENone*1$E@Collect all consecutive value binders that are not dictionaries.E!An empty array of the given type.E6Produce an array containing copies of a given element.EmSelect some elements from an array that correspond to a particular tag value and pack them into a new array. ZpackByTagPD Int# [:23, 42, 95, 50, 27, 49:] 3 [:1, 2, 1, 2, 3, 2:] 2 ==> [:42, 50, 49:]ECombine some arrays based on a selector. The selector says which source array to choose for each element of the resulting array.ELike E5 but use the lifting context in the vectoriser state.E(Number of copies in the resulting array.Value to replicate.E Element type. Source array.Length of resulting array.'Tag values of elements in source array.)The tag value for the elements to select.E Element typeLength of resulting array Selector.Arrays to combine.:E|EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE|None*=EVectorise a type constructor. Unless there is a vectorised version (stripped of embedded parallel arrays), the vectorised version is the same as the original.E5Produce the vectorised and lifted versions of a type.zNB: Here we are limited to properly handle predicates at the toplevel only. Anything embedded in what is called the body_ty5 below will end up as an argument to the type family PData.EVectorise a type.For each quantified var we need to add a PA dictionary out the front of the type. So forall a. C a => a -> a turns into forall a. PA a => Cv a => a :-> aSEAdd quantified vars and dictionary parameters to the front of a type.EEEEEENoneN*FcE:Vectorise a binder variable, along with its attached type.EZVectorise a binder variable, along with its attached type, but give the result a new name.EDVectorise a binder then run a computation with that binder in scope.EYVectorise a binder, give it a new name, then run a computation with that binder in scope.EBVectorise some binders, then run a computation with them in scope.ECVectorise a variable, producing the vectorised and lifted versions.EEConstants are lifted by replication along the integer context in the E87 state for the number of elements in the result array.EEEEEEEEEEEEEENone*ME@Vectorise some (possibly recursively defined) type constructors.S$Vectorise a single type constructor.TKVectorise a class method. (Don't enter it into the vectorisation map yet.)T Convert a  to a *, which discards the name field in the DefMeth constructor of the DefMeth.T'Vectorise the RHS of an algebraic type.TKVectorise a data constructor by vectorising its argument and return types..EENone*UEbConvert a vectorised expression such that it computes the non-vectorised equivalent of its value.OFor functions, we eta expand the function and convert the arguments and result:TCheck that the type is neutral under type vectorisation  i.e., all involved type constructor are not altered by vectorisation as they contain no parallel arrays.TpCheck that this type constructor is not changed by vectorisation  i.e., it does not embed any parallel arrays.E!The type of the original binding.)Expression giving the closure to use, eg $v_foo.EENone*oE>Describes the representation type of a data constructor field.EDescribes the representation type of the fields / components of a constructor. If the data constructor has multiple fields then we bundle them together into a generic product type.EData constructor has no fields.E$Data constructor has a single field.E$Data constructor has several fields.E0Representation tycon for the product (eg Tuple2)E5PData version of the product tycon (eg PDataTuple2)EWPDatas version of the product tycon (eg PDatasTuple2s) Not all lifted backends use PDatas.ETypes of each field.E,Generic representation types for each field.E8Describes the representation type of a data constructor.EDescribes the generic representation of a data type. If the data type has multiple constructors then we bundle them together into a generic sum type.E#Data type has no data constructors.E#Data type has a single constructor.E$Data type has multiple constructors.E*Representation tycon for the sum (eg Sum2)EPData version of the sum tycon (eg PDataSum2) This TyCon doesn't appear explicitly in the source program. See Note [PData TyCons].E2PDatas version of the sum tycon (eg PDatasSum2)E,Type of the selector (eg Sel2)E-Type of multi-selector (eg Sel2s)E2Function to get the length of a Sels of this type.EType of each data constructor.E6Generic representation types of each data constructor.EEDetermine the generic representation of a data type, given its tycon.E*Yield the type of this sum representation.EQYield the original component type of a data constructor component representation.EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE EEEEEEEEEEENone*tF<Build the PData instance tycon for a given type constructor.F=Build the PDatas instance tycon for a given type constructor.T8Flatten a SumRepr into a list of data constructor types.FFFFNone*TdThis says how to build the PR superclass and methods of PA Recall the definition of the PA class: f class class PR (PRepr a) => PA a where toPRepr :: a -> PRepr a fromPRepr :: PRepr a -> a toArrPRepr :: PData a -> PData (PRepr a) fromArrPRepr :: PData (PRepr a) -> PData a toArrPReprs :: PDatas a -> PDatas (PRepr a) fromArrPReprs :: PDatas (PRepr a) -> PDatas a T Build the toRepr method of the PA class.T  Build the  fromPRepr method of the PA class.T  Build the  toArrRepr method of the PA class.T  Build the  fromArrPRepr method for the PA class.T  Build the  toArrPReprsa instance for the PA class. This converts a PData of elements into the generic representation.TVectorised TyCon$Coercion to the representation TyConPData TyConPDatas TyCon&Description of generic representation.Instance function.FFFFNone*[FIBuild the PA dictionary function for some type and hoist it to top level.]The PA dictionary holds fns that convert values to and from their vectorised representations.T@Recall the definition: class PR (PRepr a) => PA a where toPRepr :: a -> PRepr a fromPRepr :: PRepr a -> a toArrPRepr :: PData a -> PData (PRepr a) fromArrPRepr :: PData (PRepr a) -> PData a toArrPReprs :: PDatas a -> PDatas (PRepr a) fromArrPReprs :: PDatas (PRepr a) -> PDatas aPExample: df :: forall a. PR (PRepr a) -> PA a -> PA (T a) df = /a. (c:PR (PRepr a)) (d:PA a). MkPA c ($PR_df a d) ($toPRepr a d) ... $dPR_df :: forall a. PA a -> PR (PRepr (T a)) $dPR_df = .... $toRepr :: forall a. PA a -> T a -> PRepr (T a) $toPRepr = ... The "..." stuff is filled in by buildPAScAndMethods @F#tycon of the type being vectorised.ACoercion between the type and its vectorised representation.PData instance tyconPDatas instance tycon2representation used for the type being vectorised.*name of the top-level dictionary function.FFNone*F=Vectorise type constructor including class type constructors.FFNoneN*߮ F HVectorise a polymorphic expression that forms a *non-recursive* binding.Return J%^ if the expression is scalar; otherwise, the first component of the result (which is of type T O) indicates whether the expression is parallel (i.e., whether it is tagged as T).wWe have got the non-recursive case as a special case as it doesn't require to compute vectorisation information twice.F AVectorise a recursive group of top-level polymorphic expressions.Return J%d if the expression group is scalar; otherwise, the first component of the result (which is of type T T) indicates whether the expressions are parallel (i.e., whether they are tagged as T).TLVectorise a polymorphic expression annotated with vectorisation information.wThe special case of dictionary functions is currently handled separately. (Would be neater to integrate them, though!)TVectorise an expression.TsVectorise an expression that *may* have an outer lambda abstraction. If the expression is marked as encapsulated (TJ), vectorise it as a scalar computation (using a generalised scalar zip)._We do not handle type variables at this point, as they will already have been stripped off by  vectPolyExpr. We also only have to worry about one set of dictionary arguments as we (1) only deal with Haskell 2011 and (2) class selectors are vectorised elsewhere.T+Vectorise type and dictionary applications.These are always headed by a variable (as we don't support higher-rank polymorphism), but may involve two sets of type variables and dictionaries. Consider, $class C a where m :: D b => b -> a The type of m4 is 'm :: forall a. C a => forall b. D b => b -> a'.TVectorise the body of a dfun.MDictionary computations are special for the following reasons. The application of dictionary functions are always saturated, so there is no need to create closures. Dictionary computations don't depend on array values, so they are always scalar computations whose result we can replicate (instead of executing them in parallel).NB: To keep things simple, we are not rewriting any of the bindings introduced in a dictionary computation. Consequently, the variable case needs to deal with cases where binders are in the vectoriser environments and where that is not the case.F nVectorise an expression of functional type, where all arguments and the result are of primitive types (i.e., L>, T, T# etc., which have instances of the Scalar type class) and which does not contain any subcomputations that involve parallel arrays. Such functionals do not require the full blown vectorisation transformation; instead, they can be lifted by application of a member of the zipWith family (i.e., T, J, zipWith3', etc.)Dictionary functions are also scalar functions (as dictionaries themselves are not vectorised, instead they become dictionaries of vectorised methods). We treat them differently, though see "Note [Scalar dfuns]" in  Vectorise.F NVectorise a dictionary function that has a 'VECTORISE SCALAR instance' pragma.]In other words, all methods in that dictionary are scalar functions  to be vectorised with F >. The dictionary "function" itself may be a constant, though.NB: You may think that we could implement this function guided by the struture of the Core expression of the right-hand side of the dictionary function. We cannot proceed like this as F | must also work for *imported* dfuns, where we don't necessarily have access to the Core code of the unvectorised dfun.Here an example  assume, class Eq a where { (==) :: a -> a -> Bool } instance (Eq a, Eq b) => Eq (a, b) where { (==) = ... } {-# VECTORISE SCALAR instance Eq (a, b) }IThe unvectorised dfun for the above instance has the following signature: 1$dEqPair :: forall a b. Eq a -> Eq b -> Eq (a, b)QWe generate the following (scalar) vectorised dfun (liberally using TH notation): $v$dEqPair :: forall a b. V:Eq a -> V:Eq b -> V:Eq (a, b) $v$dEqPair = /\a b -> \dEqa :: V:Eq a -> \dEqb :: V:Eq b -> D:V:Eq $(vectScalarFun True recFns [| (==) @(a, b) ($dEqPair @a @b $(unVect dEqa) $(unVect dEqb)) |]) NB: * '(,)' vectorises to '(,)'  hence, the type constructor in the result type remains the same. * We share the '$(unVect di)' sub-expressions between the different selectors, but duplicate the application of the unvectorised dfun, to enable the dictionary selection rules to fire.TLIf we process the RHS of a binding, whether that binding should be inlined%Whether the binding is a loop breaker,Expression to vectorise; must have an outer !1F  Original dfunT'Should the RHS of a binding be inlined?&Whether the binding is a loop breaker.Body of abstraction.F F F F F F F F TTTTTTT None*eFVectorise a single module.TMake the vectorised version of this top level binder, and add the mapping between it and the original to the state. For some binder foo the vectorised version is $v_fooNOTE: TN *MUST* be lazy in inline and expr because of how it is used inside of EQ in T.T uProject out the vectorised version of a binding from some closure, or return the original body if that doesn't work.TName of the binding.2Whether it should be inlined, used to annotate it. RHS of binding, used to set the !T of the returned .Name of the vectorised binding.T !Name of the original binding (eg foo)*Name of vectorised version of binding (eg $vfoo)!The original body of the binding.FFNone*FFFFFFFFFFFFNone*FFNone*e FF T!T"T#T$T%T&T'T(T)T*T+T,T-T.T/T0T1T2T3T4T5T6T7T8T9T:T;T<T=T>T?T@TATBTCTD TETFTGTHTITJTKTLTMTNTOTPNone*#TQ(If given the RHS of a let-binding, this TQc determines whether we should process the binding up (body before rhs) or down (rhs before body).We use LetDown if there is a chance to get a useful strictness signature. This is the case when there are manifest value lambdas or the binding is a join point (hence always acts like a function, not a value).TR@Extend an environment with the strictness IDs attached to the idFFTSTTTUTVTWTXTYNone*FF FF Safe*F6maybeFlipCond c returns Just c'= if it is possible to flip the arguments to the conditional c", and the new condition should be c'.F!F"F#F$F%F&F'F(F)F*F+F,F-F.F/F0F1F2F3F4F5F6F!F"F#F$F%F&F'F(F)F*F+F,F-F.F/F0F1F2F3F4F5F6F!F"F#F$F%F&F'F(F)F*F+F,F-F.F/F0F1F2None*FLregSqueeze_class reg Calculuate the maximum number of register colors that could be denied to a node of this class due to having this reg as a neighbour.FU&The complete set of machine registers.FVTake the class of a register.FW.Get the name of the register with this number.FCthese are the regs which we cannot assume stay alive over a C call.FR3desired stack offset in bytes, positive or negativeVF8F:F9F;F<F=F>F?F@FAFBFCFDFEFFFGFHFIFJFKFLFMFNFOFPFQFRFSFTFUFVFWFXFYFZF[F\F]F^F_F`FaFbFcFdFeFfFgFhFiFjFkFlFmFnFoFpFqFrFsFtFuFvFwFxFyFzF{F|F}F~FFFFFFFFFFFFFFFVFLFMFBFCFDFEFFFGFHFIFJFKFNFOF?F@FAFPFRFTFFFFFUFVFWF;F<F=F>F8F9F:FQFXFYFZF[F\F]F^F_F`FaFbFcFdFeFSFfFgFhFiFjFkFlFmFnFoFpFqFrFsFtFuFvFwFxFyFzF{F|F}F~FFFFFFFFFFFF8F9F:F;F<F=F>F?F@FAFB FCFDFEFFFGFHFIFJFKNone+FFFFNone+GFFFFFFFFFFFFNoneFT+ TZHReturns which registers are read and written as a (read, written) pair.T[8Is this register interesting for the register allocator?T\~Applies the supplied function to all registers in instructions. Typically used to change virtual registers to real registers.T]Make a spill instruction.T^ Make a spill reload instruction.T_?See if this instruction is telling us the current C stack deltaT`Make a reg-reg move instruction. On SPARC v8 there are no instructions to move directly between floating point and integer regs. If we need to do that then we have to go via memory.TaCheck whether an instruction represents a reg-reg move. The register allocator attempts to eliminate reg->reg moves whenever it can, by assigning the src and dest temporaries to the same real register.Tb)Make an unconditional branch instruction.F-Instruction instance for x86 instruction set.hFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFhFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFTcTdFFFFFFFFFFUFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFNone+CTeOutput the ELF .size directive.Tf@Print section header and appropriate alignment for that section.Tg7Print appropriate alignment for the given section type.FGGGGGFGGGGGNone+5UGISPARC instruction set. Not complete. This is only the ones we need.G/Register or immediateG2iCheck if a RI represents a zero value. - a literal zero - register %g0, which is always zero.G3^Calculate the effective address which would be used by the corresponding fpRel sequence.G4+Code to shift the stack pointer by n words.G5EAn instruction that will cause the one after it never to be exectutedThregUsage returns the sets of src and destination registers used by a particular instruction. Machine registers that are pre-allocated to stgRegs are filtered out, because they are uninteresting from a register allocation standpoint. (We wouldn't want them to end up on the free list!) As far as we are concerned, the fixed registers simply don't exist (for allocation purposes, anyway).Ti\Interesting regs are virtuals, or ones that are allocatable by the register allocator.TjJApply a given mapping to tall the register references in this instruction.Tk[Make a spill instruction. On SPARC we spill below frame pointer leaving 2 words/spillTl Make a spill reload instruction.Tm?See if this instruction is telling us the current C stack deltaTnMake a reg-reg move instruction. On SPARC v8 there are no instructions to move directly between floating point and integer regs. If we need to do that then we have to go via memory.ToCheck whether an instruction represents a reg-reg move. The register allocator attempts to eliminate reg->reg moves whenever it can, by assigning the src and dest temporaries to the same real register.Tp)Make an unconditional branch instruction.G6"instance for sparc instruction setTkregister to spillcurrent stack deltaspill slot to useTlregister to load intocurrent stack deltaspill slot to use1+GG G+G,GGG G G GGGGGG#G-G.G*G GGGGGGGGGGGGGG G!G"G$G%G&G'G(G)G/G0G1G2G3G4G51G/G0G1G2G3G4G5GGGG G G G G GGGGGGGGGGGGGGGGGGG G!G"G#G$G%G&G'G(G)G*G+G,G-G.+G(GGG G G G G GGGGGGGGGGGGGGGGGGG G!G"G#G$G%G&G'G(G)G*G+G,G-G.G/G0G1None+7G7G8G9G:G;G<G=G>G7G8G9G:G;G<G=G>G7G8G9None+FPTqPretty print a register.TrPretty print a register name, based on this register number. The definition has been unfolded so we get a jump-table in the object code. This function is called quite a lot when emitting the asm file..GB0Pretty print a format for an instruction suffix.TsbPretty print a format for an instruction suffix. eg LD is 32bit on sparc, but LDD is 64 bit.TtPretty print a condition code.TuPretty print an address mode.GC Pretty print an immediate value.TvPretty print a section / segment header. On SPARC all the data sections must be at least 8 byte aligned incase we store doubles in them.Tw7Print appropriate alignment for the given section type.GDPretty print a data item.GEPretty print an instruction.TxPretty print a RITy#Pretty print a two reg instruction.Tz%Pretty print a three reg instruction.T{1Pretty print an instruction of two regs and a ri.G?G@GAGBGCGDGEG?G@GAGEGBGCGDNone+GDGGEnforce intra-block invariants.GGGGNone+NGH9Expand out synthetic instructions in this top level thingT|/Expand out synthetic instructions in this blockT}Expand out some instructionsT~In the SPARC instruction set the FP register pairs that are used to hold 64 bit floats are refered to by just the first reg of the pair. Remap our internal reg pairs to the appropriate reg.-For example: ldd [%l1], (%f0 | %f1)'gets mapped to ldd [$l1], %f0T(The the high partner for this float reg.GHGHNone+[`GICode to produce a result into a register. If the result must go in a specific register, it comes out as Fixed. Otherwise, the parent can decide which register to put it in.GL,Holds code that references a memory address.GNa.k.a  Register64{ Reg is the lower 32-bit temporary which contains the result. Use getHiVRegFromLo to find the other VRegUnique.fRules of this simplified insn selection game are therefore that the returned Reg may be modifiedGP#Condition codes passed up the tree.GRGRs are the insn sequences generated by the insn selectors. They are really trees of insns to facilitate fast appending, where a left-to-right traversal yields the insns in the correct order.GS&Change the format field in a Register.GTGrab the Reg for a CmmReg GIGKGJGLGMGNGOGPGQGRGSGTGU GRGPGQGNGOGLGMGIGJGKGSGTGUGIGJGKGLGMGNGOGPGQNone+l4GV9Holds interesting statistics from the register allocator.GZInitial code, with liveness.G[The initial, uncolored graph.G\/Information to help choose which regs to spill.G](Code we tried to allocate registers for.G^The regs that were coalesced.G_Spiller stats.G`#Code with spill instructions added.GaCoalesced and colored graph.GbCode with coalescings applied.Gc"Code with vregs replaced by hregs.Gd-Code with unneeded spill/reloads cleaned out.Ge Final code.Gf0Spill/reload/reg-reg moves present in this code.Gg;Do all the different analysis on this list of RegAllocStatsGhJDump a table of how many spill loads / stores were inserted for each vreg.GiDDump a table of how long vregs tend to live for in the initial code.GjJDump a table of how many conflicts vregs tend to have in the initial code.GkjFor every vreg, dump it's how many conflicts it has and its lifetime good for making a scatter plot.Gl Count spillreloadJreg-reg moves. Lets us see how well the register allocator has done.Gkglobal register conflict graphGVGWGXGYGZG[G\G]G^G_G`GaGbGcGdGeGfGgGhGiGjGkGlGmGVGWGXGYGZG[G\G]G[G^G_G\G`G]G[GaG^GbGcGdGeGfGgGhGiGjGkGlGmGVGWGXGYGZG[G\G]G[G^G_G\G`G]G[GaG^GbGcGdGeGfNoneV+T5The maximum number of build/spill cycles we'll allow.It should only take 3 or 4 cycles for the allocator to converge. If it takes any longer than this it's probably in an infinite loop, so it's better just to bail out and report a bug.Go7The top level of the graph coloring register allocator.T;Perform solver iterations for the graph coloring allocator.We extract a register confict graph from the provided cmm code, and try to colour it. If that works then we use the solution rewrite the code with real hregs. If coloring doesn't work we add spill code and try to colour it again. After T iterations we give up.TFBuild a graph from the liveness and coalesce information in this code.TlAdd some conflict edges to the graph. Conflicts between virtual and real regs are recorded as exclusions.TpAdd some coalesence edges to the graph Coalesences between virtual and real regs are recorded as preferences.TCPatch registers in code using the reg -> reg mapping in this graph.Go#registers we can use for allocationset of available spill slots.)code annotated with liveness information.Ecode with registers allocated and stats for each stage of allocationT4Number of solver iterations we've already performed.GFunction for calculating whether a register is trivially colourable.$Free registers that we can allocate.!Free stack slots that we can use.!Current regalloc stats to add to.$Liveness annotated code to allocate.GoGoNone+lT5Get the registers that are being used by this instruction. regUsage doesn't need to do any trickery for jumps and such. Just state precisely the regs read and written by that insn. The consequences of control flow transfers, as far as register allocation goes, are taken care of by the register allocator.TJApply a given mapping to all the register references in this instruction.TChecks whether this instruction is a jump/branch instruction. One that can change the flow of control in a way that the register allocator needs to worry about.TChecks whether this instruction is a jump/branch instruction. One that can change the flow of control in a way that the register allocator needs to worry about.TyChange the destination of this jump instruction. Used in the linear allocator when adding fixup blocks for join points.T5An instruction to spill a register into a spill slot.GOThe size of a minimal stackframe header including minimal parameter save area.T&The maximum number of bytes required to spill a register. PPC32 has 32-bit GPRs and 64-bit FPRs, while PPC64 has 64-bit GPRs and 64-bit FPRs. So the maximum is 8 regardless of platforms unlike x86. Note that AltiVec's vector registers are 128-bit wide so we must not use this to spill them.G<The number of spill slots available without allocating more.TThe number of bytes that the stack pointer should be aligned to. This is 16 both on PPC32 and PPC64 at least for Darwin, and Linux (see ELF processor specific supplements).T=Convert a spill slot number to a *byte* offset, with no sign.T?See if this instruction is telling us the current C stack deltaTQCopy the value in a register to another one. Must work for all register classes.TMake an unconditional jump instruction. For architectures with branch delay slots, its ok to put a NOP after the jump. Don't fill the delay slot with an instruction that references regs or you'll confuse the linear allocator.TaTake the source and destination from this reg -> reg move instruction or Nothing if it's not oneG Instruction instance for powerpcPGpGxGGGqGrGsGtGGGGGGGGG~GGuGGGGGGGGGGGGvGwGyGzG{G|G}GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGPGGGGGpGqGrGsGtGuGvGwGxGyGzG{G|G}G~GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGpGGqGrGsGtGuGvGwGxGyGzG{G|G}G~GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGNone+ZGGGGGGGGGGGGGGNone+T7Print appropriate alignment for the given section type.GGNone+ GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGTG GGGGGGGGGGNone+]GGGGGGNone+G,Generate code to reference a memory address.Gexpr producing an addressGGNone+G(Code to assign a 64 bit value to memory.G,Code to assign a 64 bit value to a register.G6Get the value of an expression into a 64 bit register.G&expr producing the destination address expr producing the source value.Gthe destination registerexpr producing the source valueGGGGGGNone+- G*Make code to evaluate a 32 bit expression.GfThe dual to getAnyReg: compute an expression into a register, but we don't mind which one it is.Tsign extend and widenTFor nop word format conversions we set the resulting value to have the required size, but don't need to generate any actual code.T)Generate an integer division instruction.TDo an integer remainder.NOTE: The SPARC v8 architecture manual says that integer division instructions _may_ generate a remainder, depending on the implementation. If so it is _recommended_ that the remainder is placed in the Y register.@The UltraSparc 2007 manual says Y is _undefined_ after division.The SPARC T2 doesn't store the remainder, not sure about the others. It's probably best not to worry about it, and just generate our own remainders.T(Coerce a integer value to floating pointT(Coerce a floating point value to integerNOTE: On sparc v9 there are no instructions to move a value from an FP register directly to an int register, so we have to use a load/store.TCCoerce a double precision floating point value to single precision.TBCoerce a single precision floating point value to double precisionTwidth of source expressionwidth of resultsource expressionGGGGNone+ TdSays what we we have to add to our 'PIC base register' in order to get the address of a label. GGGGGGGGGGGHH GGGGGGGGGGGHHTTTTGGGGGGGNone&'Z+H T+Memory addressing modes passed up the tree.TRegister's passed up the tree. If the stix code forces the register to live in a pre-decided machine register, it comes out as Fixed#; otherwise, it comes out as Any>, and the parent can decide which register to put it in.Ta.k.a  Register64{ Reg is the lower 32-bit temporary which contains the result. Use getHiVRegFromLo to find the other VRegUnique.fRules of this simplified insn selection game are therefore that the returned Reg may be modifiedT#Condition codes passed up the tree.HHs are the insn sequences generated by the insn selectors. They are really trees of insns to facilitate fast appending, where a left-to-right traversal yields the insns in the correct order.TConvert F instructions into F) instructions to capture changes in the spM register. See Note [What is this unwinding business?] in Debug for details.TGrab the Reg for a CmmRegT Check whether an integer will fit in 32 bits. A CmmInt is intended to be truncated to the appropriate number of bits, so here we truncate it to Int64. This is important because e.g. -1 as a CmmInt might be either -1 or 18446744073709551615.T(Convert a BlockId to some CmmStatic dataTfThe dual to getAnyReg: compute an expression into a register, but we don't mind which one it is.TLike T, but on 32-bit use simple register addressing (i.e. no index register). This stops us from running out of registers on x86 when using instructions such as cmpxchg, which can use up to three virtual registers and one fixed register.HHHHHHHHTTTTTTTTTNone&'+ HTop level code generationTDo code generation on a single block of CMM code. code generation may introduce new basic block boundaries, which are indicated by the NEWBLOCK instruction. We must split up the instruction stream into basic blocks again. Also, we extract LDATAs here too.T2Convert some Cmm statements to SPARC instructions.T(Convert a BlockId to some CmmStatic dataTXGenerate code to calculate an argument, and move it into one or two integer vregs.TzMove args from the integer vregs into which they have been marshalled, into %o0 .. %o5, and the rest onto the stack.THAssign results returned from the call into their destination regs.TDGenerate a call to implement an out-of-line floating point operationT:Decide what C function to use to implement a CallishMachOpGRHH HH GRNone&'+TRegister's passed up the tree. If the stix code forces the register to live in a pre-decided machine register, it comes out as Fixed#; otherwise, it comes out as Any>, and the parent can decide which register to put it in.H H s are the insn sequences generated by the insn selectors. They are really trees of insns to facilitate fast appending, where a left-to-right traversal yields the insns in the correct order.H H s are the insn sequences generated by the insn selectors. They are really trees of insns to facilitate fast appending, where a left-to-right traversal (pre-order?) yields the insns in the correct order.TGrab the Reg for a CmmRegT(Convert a BlockId to some CmmStatic dataTOCompute an expression into a register, but we don't mind which one it is.H H H H H H TTTTTTTTTTTTTTTTTNone+lH HHHHHHH HHHHHHH HNone+HHHHHHHHHHHHHHHHNone+fHHHH H!H"HHHH H!H"HHHH H!None,#H'For a jump instruction at the end of a block, generate fixup code so its vregs are in the correct regs for its destination.T.Construct a graph of register/spill movements.1Cyclic components seem to occur only very rarely.We cut some corners by not handling memory-to-memory moves. This shouldn't happen because every temporary gets its own stack slot.TdExpand out the destination, so InBoth destinations turn into a combination of InReg and InMem.TGenerate fixup code for a particular component in the move graph This component tells us what values need to be moved to what destinations. We have eliminated any possibility of single-node cycles in expandNode above.T(Move a vreg between these two locations.H'nmaps the unique of the blockid to the set of vregs that are known to be live on the entry to each block.id of the current block,branch instr on the end of the source block.Tnmaps the unique of the blockid to the set of vregs that are known to be live on the entry to each block.acc blocks of fixup code.id of the current block,branch instr on the end of the source block.&branch destinations still to consider.Tsource of movedestination of moveTcurrent C stack delta.%unique of the vreg that we're moving.source location.destination location.move instruction.H'H'NoneV,*TDo register allocation on some basic blocks. But be careful to allocate a block in an SCC only if it has an entry in the block map or it is the first block.T*Do register allocation on this basic blockTmLoad the freeregs and current reg assignment into the RegM state for the basic block with this BlockId.T-Do allocation for a sequence of instructions.T'Do allocation for a single instruction.TQMark all these real regs as allocated, and kick out their vreg assignments.T:Calculate a new location after a register has been loaded.T=Load up a spilled temporary if we need to (read from memory).T entry points&live regs on entry to each basic block$instructions annotated with "deaths"T entry points&live regs on entry to each basic block$instructions annotated with "deaths"T&live regs on entry to each basic block"block to do register allocation onblock with registers allocatedT2map of what vregs are live on entry to each block./accumulator for instructions already processed.%accumulator for blocks of fixup code.'id of the current block, for debugging..liveness annotated instructions in this block.T2map of what vregs are love on entry to each block./accumulator for instructions already processed.*the id of the current block, for debugging9the instr to have its regs allocated, with liveness info.,,,,,,,,,,,,,,,,,,,,,,,,,,,,H(H(TTTTNone,-H)Language ID used for Haskell.H}.Mapping of registers to DWARF register numbersH~2Virtual register number to use for return address.VH)H*H+H,H-H.H/H0H1H2H3H4H5H6H7H8H9H:H;H<H=H>H?H@HAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRHSHTHUHVHWHXHYHZH[H\H]H^H_H`HaHbHcHdHeHfHgHhHiHjHkHlHmHnHoHpHqHrHsHtHuHvHwHxHyHzH{H|H}H~VH)H-H0H3H4H+H2H.H,H*H1H/H5H7H6H8H9H:H;H<H=H>H?H@HAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHSHRHTHUHVHWHXHYHZH[H\H]H^H_H`HaHbHcHeHdHfHgHhHiHjHkHlHmHnHoHpHqHrHsHtHuHvHwHxHyHzH{H|H}H~None,nG&HIUnwind instructions for a block. Will become part of the containing FDE.HLthese unwind points must occur in the same order as they occur in the blockHlUnwind instructions for an individual procedure. Corresponds to a "Frame Description Entry" (FDE) in DWARF.H%List of blocks. Order must match asm!HxInformation about unwind instructions for a procedure. This corresponds to a "Common Information Entry" (CIE) in DWARF.HA DWARF address range. This is used by the debugger to quickly locate which compilation unit a given address belongs to. This type assumes a non-segmented address-space.T;Abbreviation codes used for encoding above records in the  .debug_info section.T)Pseudo, used for marking the end of listsHGIndividual dwarf records. Each one will be encoded as an entry in the  .debug_info section.H)label of DIE belonging to the parent tickT1Generate assembly for the given abbreviation codeHUAbbreviation declaration. This explains the binary encoding we use for representing H1. Be aware that this must be updated along with H.H Generate assembly for DWARF dataTtPrints assembler data corresponding to DWARF info records. Note that the binary format of this is parameterized in  abbrevDecls and has to be kept in synch.T'Close a DWARF info record with childrenH4Print assembler directives corresponding to a DWARF .debug_aranges address table entry.HHeader for the  .debug_frame section. Here we emit the "Common Information Entry" record that etablishes general call frame parameters and the default stack layout.TWrites a "Frame Description Entry" for a procedure. This consists mainly of referencing the CIE and writing state machine instructions to describe how the frame base (CFA) changes.TGenerates unwind information for a block. We only generate instructions where unwind information actually changes. This small optimisations saves a lot of space, as subsequent blocks often have the same unwind information.T+Get DWARF register ID for a given GlobalRegT~Generate code for setting the unwind information for a register, optimized using its known old value in the table. Note that Sp/ is special: We see it as synonym for the CFA.T'Print the register number of the given (7' as an unsigned LEB128 encoded number.TBGenerates a DWARF expression for the given unwind expression. If spIsCFA is true, we see Sp0 as the frame base CFA where it gets mentioned.TGGenerate code for re-setting the unwind information for a register to  undefinedH)Align assembly at (machine) word boundaryH1Assembly for a single byte of constant DWARF dataH(Assembly for a two-byte constant integerT"Assembly for a constant DWARF flagH*Assembly for 4 bytes of dynamic DWARF dataT+Assembly for 4 bytes of constant DWARF dataHaAssembly for a DWARF word of dynamic data. This means 32 bit, as we are generating 32 bit DWARF.HoAssembly for a machine word of dynamic data. Depends on the architecture we are currently generating code for.HPrints a number in "little endian base 128" format. The idea is to optimize for small numbers by stopping once all further bytes would be 0. The highest bit in every byte signals whether there are further bytes to read.HSame as  pprLEBWord, but for a signed numberT{Generates a dynamic null-terminated string. If required the caller needs to make sure that the string is escaped properly.T>Generate a string constant. We take care to escape the string.T%Escape a single non-unicode characterHGenerate an offset into another section. This is tricky because this is handled differently depending on platform: Mac Os expects us to calculate the offset using assembler arithmetic. Linux expects us to just reference the target directly, and will figure out on their own that we actually need an offset. Finally, Windows has a special directive to refer to relative offsets. Fun.T4the register to produce an unwinding table entry for&the old and new values of the register/HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH3HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHTTTTTTTTHHHHHHHHHHHHHHHHHHHHNone,} H Generate DWARF/debug informationTBuild an address range entry for one proc. With split sections, each proc needs its own entry, since they may get scattered in the final binary. Without split sections, we could make a single arange based on the first/last proc.TEHeader for a compilation unit, establishing global format parametersTCCompilation unit footer, mainly establishing size of debug sectionsTSplits the blocks by procedures. In the result all nested blocks will come from the same procedure as the top-level block. See Note [Splitting DebugBlocks] for details.T/Generate DWARF info for a procedure debug blockTGenerate DWARF info for a blockTrGenerates the data for the debug frame section, which encodes the desired stack unwind behaviour for the debuggerT8Generates unwind information for a procedure debug blockHHNone&'V,TuData accumulated during code generation. Mostly about statistics, but also collects debug data for DWARF generation.UNative code generated, for statistics. This might hold a lot of data, so it is important to clear this field as early as possible if it isn't actually required.Ubsee Note [Unwinding information in the NCG] and Note [What is this unwinding business?] in Debug.HJgiven the instruction sequence of a block, produce a list of the block's ,ts See Note [What is this unwinding business?] in Debug and Note [Unwinding information in the NCG] in this module.U,Do native code generation on all these cmms.HComplete native code generation phase for a single top-level chunk of Cmm. Dumping the output of each stage along the way. Global conflict graph and NGC statsU6Compute unwinding tables for the blocks of a procedureU Build a doc for all the imports.Hthe cmm to generate code for!sequence number of this top thingU+the native code generated for the procedure?unwinding tables for all points of all blocks of the procedureHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHUUT UUUU U U U U UHHHHHHHHHHHHHHHHNone,<H8additional files to be compiled with with the C compilerHHHHNoneDZ,ېUVlog warning in the monad, and if there are errors then throw a SourceError exception.UThrow some errors.H<Deal with errors and warnings returned by a compilation stepIn order to reduce dependencies to other parts of the compiler, functions outside the "main" parts of GHC return warnings and errors as a parameter and signal success via by wrapping the result in a J$_ type. This function logs the returned warnings and propagates errors as exceptions (of type 7Q)./This function assumes the following invariants: {If the second result indicates success (is of the form 'Just x'), there must be no error messages in the first result.If there are no error messages, but the second result indicates failure there should be warnings in the first result. That is, if the action failed, it must have been due to the warnings (i.e., -Werror).UBlike ioMsgMaybe, except that we ignore error messages and return J% instead.H+Lookup things in the compiler's environmentHRename some import declarationsH+parse a file, returning the abstract syntaxUFIf the renamed source has been kept, extract it. Dump it if requested.HHRename and typecheck a module, additionally returning the renamed syntaxH$Convert a typechecked module to CoreHMake a 6` from the results of typechecking. Used when typechecking only, as opposed to full compilation.UThis function runs GHC's frontend with recompilation avoidance. Specifically, it checks if recompilation is needed, and if it is, it parses and typechecks the input module. It does not write out the results of typechecking (See compileOne and hscIncrementalCompile).HGiven a 6U+, parses and typechecks it, returning the 9 resulting from type-checking.UCheck that the safe imports of the module being compiled are valid. If not we either issue a compilation error if the module is explicitly using Safe Haskell, or mark the module as unsafe if we're in safe inference mode.UValidate that safe imported modules are actually safe. For modules in the HomePackage (the package the module we are compiling in resides) this just involves checking its trust type is Safe or  Trustworthy. For modules that reside in another package we also must check that the external pacakge is trusted. See the Note [Safe Haskell Trust Check] above for more information.WThe code for this is quite tricky as the whole algorithm is done in a few distinct phases in different parts of the code base. See RnNames.rnImportDecl for where package trust dependencies for a module are collected and unioned. Specifically see the Note [RnNames . Tracking Trust Transitively] and the Note [RnNames . Trust Own Package].H&Check that a module is safe to import.We return True to indicate the import is safe and False otherwise although in the False case an exception may be thrown first.HGReturn if a module is trusted and the pkgs it depends on to be trusted.U.Is a module trusted? If not, throw or log errors depending on the type. Return (regardless of trusted or not) if the trust type requires the modules own package be trusted and a list of other packages required to be trusted (these later ones haven't been checked) but the own package trust has been.U'Check the list of packages are trusted.U>Set module to unsafe and (potentially) wipe trust information.Make sure to call this method to set a module to inferred unsafe, it should be a central and single failure method. We only wipe the trust information when we aren't in a specific Safe Haskell mode.While we only use this for recording that a module was inferred unsafe, we may call it on modules using Trustworthy or Unsafe flags so as to allow warning flags for safety to function correctly. See Note [Safe Haskell Inference].U.Figure out the final correct safe haskell modeHCompile to hard-code.H9Compile a stmt all the way to an HValue, but don't run itWWe return Nothing to indicate an empty statement (or comment only), not a parse error.H9Compile a stmt all the way to an HValue, but don't run itWWe return Nothing to indicate an empty statement (or comment only), not a parse error.HCompile a declsHCompile a declsH|Load the given static-pointer table entries into the interpreter. See Note [Grand plan for static forms] in StaticPtrTable.H*Typecheck an expression (but don't run it)HSFind the kind of a type Currently this does *not* generalise the kinds of the type UKeep renamed source?UKeep renamed source?HJust f  = _stub.c is fH The statement The source Starting lineHThe parsed statementH The statementH The statement The source Starting lineHThe expressionHNormalise the typeThe type as a string-Resulting type (possibly normalised) and kind87T7U7V7W7X7YDDDDHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH8HHH7T7U7V7W7X7YHHHHHHHHHHHHHHHHHHHHHHHHDDDDHHHHHHHHHHHHHHHHHHHNone "#&'.;=DV^,:@(Releases the external interpreter state.USForce the contents of the Serialized value so weknow it doesn't contain any bottomsU8Adds a mod finalizer reference to the local environment.Uvcommunicate with a remotely-running TH computation until it finishes. See Note [Remote Template Haskell] in librariesghci GHCi/TH.hs.U+Read a value of type QResult from the iservURetrieve (or create, if it hasn't been created already), the remote TH state. The TH state is a remote reference to an IORef QState living on the server, and we have to pass this to each RunTH call we make.>The TH state is stored in tcg_th_remote_state in the TcGblEnv.U Annotate (with TH.SigT) a type if the first parameter is True and if the type contains a free variable. This is used to annotate type patterns for poly-kinded tyvars in reifying class and type instances. See #8953 and th/T8953.U!zFor every type variable in the input, report whether or not the tv is poly-kinded. This is used to eventually feed into U .:@:A:B:C:D:E:F:G:H:I:J:K:LHH:L:J:K:I:G:F:E:D:B:H:CHH:A:@None"#DZ-U",Finds the enclosing top level function name U#=Update fixity environment in the current interactive context.Idefault ExecOptionsI3Run a statement in the current interactive context.IVRun some declarations and return any user-visible names that were brought into scope.I 'Set the interactive evaluation context.m(setContext imports) sets the ic_imports field (which in turn determines what is in scope at the prompt) to imports>, and constructs the ic_rn_glb_env environment to reflect it.We retain in scope all the things defined at the prompt, and kept in ic_tythings. (Indeed, they shadow stuff from ic_imports.)I Get the interactive evaluation context, consisting of a pair of the set of modules from which we take the full top-level scope, and the set of modules from which we take just the exports respectively.IReturns True[ if the specified module is interpreted, and hence has its full top-level scope available.I>Looks up an identifier in the current interactive context (for :info) Filter the instances by the ones whose tycons (or clases resp) are in scope (qualified or otherwise). Otherwise we list a whole lot too many! The exact choice of which ones to show, and which to hide, is a judgement call. (see Trac #1581)I=Returns all names in scope in the current interactive contextI Returns all \s in scope in the current interactive context, excluding any that are internally-generated.I:Parses a string as an identifier, and returns the list of Gs that the identifier can refer to in the current interactive context.IReturns True! if passed string is a statement.IReturns True, if passed string has an import declaration.IReturns True+ if passed string is an import declaration.IReturns True' if passed string is a declaration but  not a splice.I@Get the type of an expression Returns the type as described by DIGet the kind of a typeIeParse an expression, the parsed expression can be further processed and passed to compileParsedExpr.I?Compile an expression, run it and deliver the resulting HValue.I?Compile an expression, run it and deliver the resulting HValue.IYCompile an parsed expression (before renaming), run it and deliver the resulting HValue.IACompile an expression, run it and return the result as a Dynamic.I a statement (bind or expression)X%%%%%%%%%%%%%%%%%%%&&&&&&&&&& & & & & &&A;A=A<A>A?A@AEACAAABAFADAGAHHHHIIIIIIIIII I I I I IIIIIIIIIIIIIIIIIII I!I"I#_%%%%%%%%%%%%%%%%%%I& & & & &&I%&&&&&&IIIIIIII&&&& I I HHIHIII I I IIIIIIIII IIIIIIA;A<A=A>A?A@AAABACADAAAEAFAAACAGAAABAHAAAHI"I!I#U$U%None$Z-KH I$sJust preprocess a file, put the result in a temp. file (used by the compilation manager during the summary phase).eWe return the augmented DynFlags, because they contain the result of slurping in the OPTIONS pragmasI%CompileFCompile a single module, under the control of the compilation manager.This is the interface between the compilation manager and the compiler proper (hsc), where we deal with tedious details like reading the OPTIONS pragma from the source file, converting the C or assembly that GHC produces into an object file, and compiling FFI stub files.@NB. No old interface can also mean that the source has changed.U&:Run a compilation pipeline, consisting of multiple phases.This is the interface to the compilation pipeline, which runs a series of compilation steps on a single source file, specifying at which stage to stop.The DynFlags can be modified by phases in the pipeline (eg. by OPTIONS_GHC pragmas), and the changes affect later phases in the pipeline.U'2pipeLoop runs phases until we reach the stop phaseI,/Computes the next output filename after we run  next_phase. Like I-, but it operates in the ;9 monad (which specifies all of the ambient information.)I-wComputes the next output filename for something in the compilation pipeline. This is controlled by several variables:  !: the last phase to be run (e.g.  stopPhasen). This is used to tell if we're in the last phase or not, because in that case flags like -o may be important.;: is this intended to be a ; or ;K build output? Temporary files just go in a fresh temporary name.J33: what was the basename of the original input file?: the obvious thing 8: the phase we want to determine the output filename of.Maybe ModLocation: the  of the module we're compiling; this can be used to override the default output of an object file. (TODO: do we actually need this?)I.wEach phase in the pipeline returns the next phase to execute, and the name of the file in which the output was placed.We must do things dynamically this way, because we often don't know what the rest of the phases will be until part-way through the compilation: for example, an {- OPTIONS -fasm -} at the beginning of a source file can change the latter stages of the pipeline from taking the LLVM route to using the native code generator.U(Return the "link info" stringSee Note [LinkInfo section]I6BWhat phase to run after one of the backend code generators has runU)Find out path to  ghcversion.h fileI$filename and starting phaseI%!summary for module being compiled module N ...... of Mold interface, if we have oneold linkable, if we have one'the complete HomeModInfo, if successfulI&!summary for module being compiled module N ...... of Mold interface, if we have oneold linkable, if we have one 'the complete HomeModInfo, if successfulU& When to stopCompilation environment$Input filename (and maybe -x suffix))original basename (if different from ^^^)Output filename*A ModLocation, if this is a Haskell moduleforeign objects(final flags, output filename)U* When to startCompilation environmentInput filename*A ModLocation, if this is a Haskell moduleforeign objects, if we have one(final flags, output filename)I.Run this phasename of the input file.for convenience, we pass the current dflags in);;;;;;;;;;;;;;;;;;;;;;I$I%I&I'I(I)I*I+I,I-I.I/I0I1I2I3I4I5I6)I*I+I2I$I%I&I';;;;;;;;;;;;;;;;;;I,I-;;I6I/;;I.I3I0I1I4I(I)I5NoneVZ-UI8T  indicating if a module is a boot module or not. We need to treat boot modules specially when building compilation graphs, since they break cycles. Regular source files and signature files are treated equivalently.U+?The graph of modules to compile and their corresponding result U, and U-.U-Each module is given a unique U-) to redirect compilation messages to. A J%U value contains the result of compilation, and denotes the end of the message queue.I;>Describes which modules of the module graph need to be loaded.I<&Load all targets and its dependencies.I=0Load only the given module and its dependencies.I>KLoad only the dependencies of the given module, but not the module itself.I?rPerform a dependency analysis starting from the current targets and update the session with the new module graph.(Dependency analysis entails parsing the importE directives and may therefore require running certain preprocessors.Note that each 6U in the module graph caches its  . These  are determined by the current session  and the OPTIONS and LANGUAGEA pragmas of the parsed module. Thus if you want changes to the 6 to take effect you need to call this function again.I@Try to load the program. See I; for the different modes.+This function implements the core of GHC's --make mode. It preprocesses, compiles and loads the specified modules, avoiding re-compilation wherever possible. Depending on the target (see  C) compiling and loading may result in files being created on disk. Calls the <> after each compiling each module, whether successful or not.Throw a 7Q if errors are encountered before the actual compilation starts (e.g., during dependency analysis). All other errors are reported using the <.IAGeneralized version of I@ which also supports a custom H (for reporting progress) and 6c! (generally produced by calling I?.U.Finish up after a load.U/DForget the current program, but retain the persistent info in HscEnvU0Discard the contents of the InteractiveContext, but keep the DynFlags. It will also keep ic_int_print and ic_monad if their names are from external packages.U1mIf there is no -o option, guess the name of target executable by using top-level source file name as a base.U2Prune the HomePackageTable+Before doing an upsweep, we can throw away:For non-stable modules:all ModDetails, all linked codeJall unlinked code that is out of date with respect to the source fileThis is VERY IMPORTANT otherwise we'll end up requiring 2x the space at the end of the upsweep, because the topmost ModDetails of the old HPT holds on to the entire type environment from the previous compilation.U3XReturn (names of) all those in modsDone who are part of a cycle as defined by theGraph.U4 UnloadingU5|Stability tells us which modules definitely do not need to be recompiled. There are two main reasons for having stability:zavoid doing a complete upsweep of the module graph in GHCi when modules near the bottom of the tree have not changed.to tell GHCi when it can load object code: we can only load object code for a module when we also load object code fo all of the imports of the module. So we need to know that we will definitely not be recompiling any of these modules, and we can use the object code.nThe stability check is as follows. Both stableObject and stableBCO are used during the upsweep phase later.  stable m = stableObject m || stableBCO m stableObject m = all stableObject (imports m) && old linkable does not exist, or is == on-disk .o && date(on-disk .o) > date(.hs) stableBCO m = all stable (imports m) && date(BCO) > date(.hs) ,These properties embody the following ideas:if a module is stable, then:pif it has been compiled in a previous pass (present in HPT) then it does not need to be compiled or re-linked.~if it has not been compiled in a previous pass, then we only need to read its .hi file from disk and link it to produce a 6.uif a modules is not stable, we will definitely be at least re-linking, and possibly re-compiling it during the U6W. All non-stable modules can (and should) therefore be unlinked before the U6.Note that objects are only considered stable if they only depend on other objects. We can't link object code against byte code.Note that even if an object is stable, we may end up recompiling if the interface is out of date because an *external* interface has changed. The current code in GhcMake handles this case fairly poorly, so be careful.U7Build a U+j out of a list of strongly-connected modules, also returning the first, if any, encountered module cycle.IB Tests if an  9 is a boot file, primarily for constructing elements of U8.U9(The entry point to the parallel upsweep.!See also the simpler, sequential U6.U6 The upsweepmThis is where we compile each module in the module graph, in a pass from the bottom to the top of the graph.DThere better had not be any cyclic groups here -- we check for them.U:Compile a single module. Always produce a Linkable for it if successful. If no compilation happened, return the old Linkable.U;Given a non-boot ModSummary msC of a module, for which there exists a corresponding boot file in graph, return the set of modules which transitively depend on this boot file. This function is slightly misnamed, but its name "getModLoop" alludes to the fact that, when getModLoop is called with a graph that does not contain ms (non-parallel case) or is an SCC with hs-boot nodes dropped (parallel-case), the modules which depend on the hs-boot file are typically (but not always) the modules participating in the recursive module loop. The returned list includes the hs-boot file.Example: let g represent the module graph: C.hs A.hs-boot imports C.hs B.hs imports A.hs-boot A.hs imports B.hs genModLoop A.hs g == Just [A.hs-boot, B.hs, A.hs]mIt would also be permissible to omit A.hs from the graph, in which case the result is [A.hs-boot, B.hs]Example: A counter-example to the claim that modules returned by this function participate in the loop occurs here:let g represent the module graph: C.hs A.hs-boot imports C.hs B.hs imports A.hs-boot A.hs imports B.hs D.hs imports A.hs-boot genModLoop A.hs g == Just [A.hs-boot, B.hs, A.hs, D.hs]iArguably, D.hs should import A.hs, not A.hs-boot, but a dependency on the boot file is not illegal.IC$Topological sort of the module graph Calculate SCCs of the module graph, possibly dropping the hi-boot nodes The resulting list of strongly-connected-components is in topologically sorted order, starting with the module(s) at the bottom of the dependency graph (ie compile them first) and ending with the ones at the top.'Drop hi-boot nodes (first boolean arg)?Falsea: treat the hi-boot summaries as nodes of the graph, so the graph must be acyclicTrue: eliminate the hi-boot nodes, and instead pretend the a source-import of Foo is an import of Foo The resulting graph has no hi-boot nodes, but can be cyclicU<If there are {- SOURCE -} imports between strongly connected components in the topological sort, then those imports can definitely be replaced by ordinary non-SOURCE imports: if SOURCE were necessary, then the edge would be part of a cycle.U=Downsweep (dependency analysis)Chase downwards from the specified root set, returning summaries for all home modules encountered. Only follow source-import links.We pass in the previous collection of summaries, which is used as a cache to avoid recalculating a module summary if the source is unchanged.The returned list of [ModSummary] nodes has one node for each home-package module, plus one for any hs-boot files. The imports of these nodes are all there, including the imports of non-home-package modules.U>IReturns the dependencies of the ModSummary s. A wrinkle is that for a {- SOURCE 8-} import we return *both* the hs-boot file *and* the source file as "dependencies". That ensures that the list of all relevant modules always contains B.hs if it contains B.hs-boot. Remember, this pass isn't doing the topological sort. It's just gathering the list of all relevant ModSummariesIELike IF, but for SOURCE imports.IF2All of the (possibly) home module imports from a 6U; that is to say, each of these module names could be a home import if an appropriately named file existed. (This is in contrast to package qualified imports, which are guaranteed not to be home imports.)I?excluded modulesallow duplicate rootsU90The number of workers we wish to run in parallelU? The module we wish to compile-The map of home modules and their result MVar:The list of all module loops within the compilation graph.The thread-local DynFlags The messager/The callback for cleaning up intermediate files>The semaphore for limiting the number of simultaneous compiles7The MVar that synchronizes updates to the global HscEnv The old HPT  Lists of stable objects and BCOs The index of this module The total number of modules The result of this compileU6!HPT from last time round (pruned)#stable modules (see checkStability)"How to clean up unwanted tmp filesMods to do (the worklist)Returns: 3A flag whether the complete upsweep was successful.The 7D in the monad has an updated HPT*A list of modules which succeeded loading.ICDrop hi-boot nodes? (see below)Root module name. If Nothing, use the full graph.U@Starting phaseCCI7I8I9I:I;I<I=I>I?I@IAIBICIDIEIFIGIHIII?I@IAI;I<I=I>ICIEIFI8I9I:IGIBCCIHIIIDI7I8I9I:U-UAI;I<I=I>None$NVZ.n<IN"Container for information about a D.IO.A CoreModule consists of just the fields of a 6 that are needed for the I interface.IQ Module nameIR2Type environment for types declared in this moduleIS DeclarationsITSafe Haskell modeIX~The result of successful desugaring (i.e., translation to core). Also contains all the information of a typechecked module.I\NThe result of successful typechecking. It also contains the parser result.Ic!The result of successful parsing.IpInstall some default exception handlers and run the inner computation. Unless you want to handle exceptions yourself, you should wrap this around the top level of your program. The default handlers output the error message(s) to stderr and exit cleanly.IqMThis function is no longer necessary, cleanup is now done by runGhc/runGhcT.IrRun function for the < monad.0It initialises the GHC session and warnings via Iuk. Each call to this function will create a new session which should not be shared among several threads."Any errors not handled inside the <) action are propagated as IO exceptions.IsRun function for <  monad transformer.0It initialises the GHC session and warnings via Iuk. Each call to this function will create a new session which should not be shared among several threads.IuInitialise a GHC session.If you implement a custom <z you must call this function in the monad run function. It will initialise the session variable and clear all warnings.The first argument should point to the directory where GHC's library files reside. More precisely, this should be the output of ghc --print-libdirj of the version of GHC the module using this API is compiled with. For portability, you should use the  ghc-paths package, available at  ,http://hackage.haskell.org/package/ghc-paths.UBThe binutils linker on ARM emits unnecessary R_ARM_COPY relocations which breaks tables-next-to-code in dynamically linked modules. This check should be more selective but there is currently no released version where this bug is fixed. See  5https://sourceware.org/bugzilla/show_bug.cgi?id=16177 and 7https://ghc.haskell.org/trac/ghc/ticket/4210#comment:29Iv#Updates both the interactive and program DynFlags in a Session. This also reads the package database (unless it has already been read), and prepares the compilers knowledge about packages. It can be called again to load new packages: just add new package flags to (packageFlags dflags).\Returns a list of new packages that may need to be linked in using the dynamic linker (see  linkPackages) as a result of new package flags. If you are not doing linking or doing static linking, you can ignore the list of packages returned.IwSets the program i. Note: this invalidates the internal cached module graph, causing more work to be done the next time I@ is called.IxaSet the action taken when the compiler produces a message. This can also be accomplished using Iw , but using Ix- avoids invalidating the cached module graph.IyReturns the program .IzSet the e used to evaluate interactive expressions. Note: this cannot be used for changes to packages. Use Iv, or Iw and then copy the  / into the interactive DynFlags.I{Get the * used to evaluate interactive expressions.UCYChecks the set of new DynFlags for possibly erroneous option combinations when invoking Iv@ and friends, and if found, returns a fixed copy (if possible).I} Sets the targets for this session. Each target may be a module name or a filename. The targets correspond to the set of root modules for the program/library. Unloading the current program is achieved by setting the current set of targets to be empty, followed by I@.I~"Returns the current set of targetsIAdd another target.IRemove a targetIQAttempts to guess what Target a string refers to. This function implements the --make(/GHCi command-line syntax for filenames:Rif the string looks like a Haskell source filename, then interpret it as suchVif adding a .hs or .lhs suffix yields the name of an existing file, then use that/otherwise interpret the string as a module nameIInform GHC that the working directory has changed. GHC will flush its cache of module locations, since it may no longer be valid.Note: Before changing the working directory make sure all threads running in the same session have stopped. If you change the working directory, you should also unload the current program (set targets to empty, followed by load).I Return the 6U! of a module with the given name.1The module must be part of the module graph (see 7H and 6c9). If this is not the case, this function will throw a 7P.lThis function ignores boot modules and requires that there is only one non-boot module with the given name.IParse a module. Throws a 7Q on parse error.I%Typecheck and rename a parsed module. Throws a 7Q if either fails.IDesugar a typechecked module.I3Load a module. Input doesn't need to be desugared.iA module must be loaded before dependent modules can be typechecked. This always includes generating a 6 and, depending on the  #, may also include code generation.This function will always cause recompilation and will always overwrite previous compilation results (potentially files on disk).IOThis is the way to get access to the Core bindings corresponding to a module.  compileToCore parses, typechecks, and desugars the module, then returns the resulting Core module (consisting of the module name, type declarations, and function declarations) if successful.IbLike compileToCoreModule, but invokes the simplifier, so as to return simplified and tidied Core.I Get the module dependency graph.I>Determines whether a set of modules requires Template Haskell.Note that if the session's  enabled Template Haskell when I? was called, then each module in the returned module graph will have Template Haskell enabled whether it is actually needed or not.IReturn True  == module is loaded.I8Return the bindings for the current interactive session.I9Return the instances for the current interactive session.I#Request information about a loaded DI2The list of top-level entities defined in a moduleImReturns the instances defined by the specified module. Warning: currently unimplemented for package modules.I!Retrieve module safe haskell modeITLooks up a global name: that is, any top-level name in any visible module. Unlike If, lookupGlobalName does not use the interactive context, and therefore does not require a preceding I .I"get the GlobalRdrEnv for a sessionIGRetrieve all type and family instances in the environment, indexed by f. Each name's lists will contain every instance in which that name is mentioned in the instance head.Iprint a 0, adding parentheses if the name is an operator.I9Return module source as token stream, including comments.SThe module must be in the module graph and its source must be available. Throws a 7Q on parse error.I.Give even more information on the source than IB This function allows reconstructing the source completely with I.IGiven a source location and a StringBuffer corresponding to this location, return a rich token stream with the source associated to the tokens.I/Take a rich token stream such as produced from If and return source code almost identical to the original code (except for insignificant whitespace.)ITakes a C and possibly a BN, and consults the filesystem and package database to find the corresponding D+, using the algorithm that is used for an import declaration.ILike If, but differs slightly when the module refers to a source file, and the file has not been loaded via I@. In this case, I/ will throw an error (module not loaded), but I_ will check to see whether the module can also be found in a package, and if so, that package DM will be returned. If not, the usual module-not-found error will be thrown.IBCheck that a module is safe to import (according to Safe Haskell).{We return True to indicate the import is safe and False otherwise although in the False case an error may be thrown first.IGReturn if a module is trusted and the pkgs it depends on to be trusted.I.Set the monad GHCi lifts user statements into.;Checks that a type (in string form) is an instance of the GHC.GHCi.GHCiSandboxIOO type class. Sets it to be the GHCi monad if it is, throws an error otherwise.I.Get the monad GHCi lifts user statements into.I Returns the  for a . The 2 may refer to any entity known to GHC, including s defined using runStmt.I&A pure interface to the module parser.IrSee argument to Iu.The action to perform.IsSee argument to Iu.The action to perform.I6Haskell module source text (full Unicode is supported) the flags#the filename (for source locations)                            ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k lMFGHNBCDFGEFGH   $%&'()*+,-./0STUV\]^_`abchij#$ m n o p q                           ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N xzy{|}~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~6:?t|          ! , 3 6 >"##&#'#+#,#/#1#6#8#:#F%%%%%%%%%%%%%%%%%%%%&&&&&&&&&& & & & & &&&&&&&&&&&////////////// /!/#/$000000000000000000000000000/%/&4444/'4\4]4^/(4f4g4h4i4j/)4&4'4(4)/*4r4s4t4u4v4w4x4y4z4{/+4444444444444444444444444444444444444444444444444444444444444/,/-/.///0/1/2/3/4/5/6/7/8/9/:/;/</=/>/?/@/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/l/g/V/W/X/Y/Z/[/\/]/^/_/`/a/b/c/d/e/f/h/i/j/k/m/n/o/p/q/r/s/t/u/v/w/x/y/z/{/|/}/~//////////////////////////////////////////////////////////////////////////////////////////////0000000000 000000000000 0!0"0#0$0%0&0'0(0)0*0+0,0-0.0/000102030405060708090:0;0<0=0>0?0@0A0B0C0D0E0F0G0H0I0O0J0K0L0M0N0S0P0Q0R0T0U0V0W0X0Y0Z0[0\0]0^0_0`0a0b0c0d0e0f0g0h0i0j0k0l0m0n0o0p0q0r0s0t0u0v0w0x0y0z0{0|0}0~00000000000000000000000000000000000000000000000000000000000002s22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222223333333333 3 3 3 3 3333333333333333333 3!3"3#3$3%3&3'3(3)3*3+3,3-3/303.3132333435363738393:3;3<3=3>3?3@3A3B3C3F3D3E3G3H3I3J3K3L3M3N3O3P3Q3R3S3T3U3V3W3X3Y3Z3[3\3]3^3_3`3a3b3c3d3e3f3g3h3i3j3k3l3m3q3r3{3n3o3p3s3t3u3v3w3x3y3z3|3}3~333333333333333333333333333333333333333333333333333334333333333444444444 4 4 4 4 4444444444444444444 4!4"4#4$4%4*4+4,4-4.4/404142434445464748494:4;4<4=4>4?4@4A4B4C4D4E4F4G4H4I4J4K4L4M4N4O4P4Q4R4S4T4U4V4W4X4Y4Z4[4_4`4a4b4c4d4e4k4l4m4n4o4q4p4|4}4~44444444444444444444444444444444444444444444444444444444444444445555555555 595:5;5<5=5>5?5@5A5B5C5D5E5F5G5H5I5J5K5L5M5N5O5P5Q5R5S5T5U5V5W5X5Y5Z5[5\5]5^5_5`5a5b5c5d5e5f5g5h5i5j5k5l5m5n5o5p5q5r5s5t5u5v5w5x5y5z5{5|5}5~55555555555555555555555555555555555555555555555555555555555555555555555555555556U6V6W6X6Y6Z6[6\6]6^6_6`6a6b6c666666666667777777777 7 7 7 7 7777777777767778797:7;7<7=7D7`7< < <<<<<<<@DDDDDHHIIIIIIIII I I I IIIIIIIIIIIIIIIIIII I#I;I<I=I>I?I@ICIIINIOIPIQIRISITIUIVIWIXIYIZI[I\I]I^I_I`IaIbIcIdIeIfIgIhIiIjIlIkImInIoIpIqIrIsItIuIvIwIxIyIzI{I|I}I~IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIpIqIt<< <<<7DIrIsIu<7`I                           ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l                           ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N\]^_`abc I|<IvIyIwIxI{Iz797:7;7<7=767778 I}I~IIII?I@I;I<I=I>666#$<< IIIIIIcIdIeIfIgIhI\I]I^I_I`IaIbIXIYIZI[IUIWIVIjIkIlImInIoImIkIlIoIiIOIPIQIRISITII6c6U6V6W6X6Y6Z6[6\6]6^6_6`6a6b7IIIICINIIIIIIIIIIIII666666667777777777 7 7 7 7 7777777777 m n o p qI& & & & &&I%&&&&&&IIIII I IIIIIIIIIIIIIIII IIDDDDIIIIIIIIIDIIII&&&& %%%%%%%%%%%%%%%%IHI I HIII#I&&&&&&&&&%%%IIBDFGGFCI##8#:#'#,#/#+#1#6#FI#&MFGHFGHFGHFGFGFGHFGHG|tNF6 3I?: ! > 6 , 2s222@"EFGH   &'%$*+()-.,/0IIIII$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ !"#IIINUDUEUFUGUHUIUJUKIOIPIQIRISITIXIYIZI[I\I]I^I_I`IaIbIcIdIeIfIgIhULIiIjIkIlImUMInUNIoNone.IIUOUPUQURUSUTNoneD.VIThe :print & friends commandsUUoGive names, and bind in the interactive environment, to all the suspensions included (inductively) in a termIIIIIINone;=Z.UV&Backpack environment. NB: this has a <  and not an 7D&, because we are going to update the 7D as we go.UW The sessionUX,The filename of the bkp file we're compilingUY2Table of source units which we know how to compileUZ{When a package we are compiling includes another package which has not been compiled, we bump the level and compile that.U[Backpack monad is a <7 which also maintains a little extra state beyond the < , c.f. UV.U\9Tiny enum for all types of Backpack operations we may do.U]SA compilation operation which will result in a runnable executable being produced.U^PA type-checking operation which produces only interface files, no object files.U_NA compilation operation which produces both interface files and object files.I'Entry point to compile a Backpack file.U`LCreate a temporary Session to do some sort of type checking or compilation.Ua\Compute the dependencies with instantiations of a syntactic HsUnit; e.g., wherever you see dependency p[A= A] in a unit file, return the B corresponding to p[A= A]. The  include_sigs4 parameter controls whether or not we also include dependency signature" declarations in this calculation..Invariant: this NEVER returns InstalledUnitId.UbGet the current UV.Uc:Get the nesting level, when recursively compiling modules.UdApply a function on  on an 7DUeRun a U[0 computation, with the nesting level bumped one.UfUpdate the EPS from a <(. TODO move to appropriate library spot.UgGet the EPS from a <.UhRun U[ in <.UiIPrint a compilation progress message, but with indentation according to level (for nested compilation).Uj Creates a H? for Backpack compilation; this is basically a carbon copy of H but calling Ui, which handles indentation.Uk for Backpack messages; here we usually want the module to be qualified (so we can tell how it was instantiated.) But we try not to qualify packages so we can use simple names for them.Ul2Message when we initially process a Backpack unit.Um,Message when we instantiate a Backpack unit.Un(Message when we include a Backpack unit.UoGThis is our version of GhcMake.downsweep, but with a few modifications: Every module is required to be mentioned, so we don't do any funny business with targets or recursively grabbing dependencies. (We could support this in principle).GWe support inline modules, whose summary we have to synthesize ourself.iWe don't bother trying to support GhcMake for now, it's more trouble than it's worth for inline modules.Up\Up until now, GHC has assumed a single compilation target per source file. Backpack files with inline modules break this model, since a single file may generate multiple output files. How do we decide to name these files? Should there only be one output file? This function our current heuristic, which is we make a "fake" module and use that.Uq>Create a new, externally provided hashed unit id from a hash.IIUVUrUWUXUYUZU\U]U^U_UsHIJHKLHKMHKNHIOHKPQRHSTHUHVWHVXHVYHVZH[\H]^H]_H`aHbcHbdHbeHbeHfgHhiHjkHjlHjmHnoHpqHrsHtuHtvHtwHtHjxHjyHUHz{H|}HK~7      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~              !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!""""""""""""############################## # # # # ################### #!#"###$#%#&#'#(#)#*#+#,#-#.#/#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o#p#q#r#s#t$$%q%r%s%t%u%v%w%x%y%z%{%|%u%v%w%x%y%~%%%&&&&&z&{&|&}&~&&&&&&'''''''^''''i''''()))))   * * * *********************** *!*"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK+L+++++M+N+O+P+Q+R+S+T+U+V+W+X+Y+Z+[+\+]+^+_+`+a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z,{,{,|,},~,,,,,-------               .........///////////////////////////////////////////////////////////////////////      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~1203333444444444444444444444445555555555555555566666666666666666666677777777777777888888888889999999999999999999999 9 9 9 9 9999999999999999999 9!9"9#9$9%9&9'9(9)9*9+9,9-9.9/909192939495969798999:9;9<9=9>9?9@9A9B9C9D9E9F9G9H9I9J9K9L:M:::N:O:P:Q;R;S;S;T;U;V;W;X<Y<Z<[<\<]<^<_<`<a<b<c<d<e=f=g=h=i=j=k=l=m=n=o=p=q=r=s=s=t=u=v=w=x=y=q=z={=|=}=~==========$=%============================================================================e============================================================= = = = = =================== =!="=#=$=%=&='=(=)=*=+=,=-=.=/=0=1=2=3=4=5=6=7=8=9=:=;=<===>=?=@=A=B=C=D=E=F=G=H=I=J=K=L=M=N=O=P=Q=R=S=T=U=V=W=X=Y=Z=[=\=]=^=_=`=a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=p=q=r=s=t=u=v=w=x=y=z={=|=}=~============>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>???????????????????????????@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ AAA A A A A A A A A A A A A A A A A !A "A #A $A %A &A 'A (A )A *A +A ,A -A .A /A 0A 1A 2A 3A 4A 5A 6A 7B 8B 8B 9B :B ;B <B =B >B ?B @B @B AB BB CB DB ECCC FC GC HC IC JC KC LC MC NC OC PC QC RC SC TC UC VC WC XC YC ZC [C \C ]C ^C _C `C aC bC cC dC eC fC gC hC iC jC kC lC mC nC oC pC qDDD rD sD tD uD vD wD xD yD zD {D |D }D ~D D D D D D D D E EEE E E E E E E E E E E E E E E E E E E E E E FFF F F F F F F G G G G GIGIG GFG G G G G G G G G G G G G G G G G H H H H H H III I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I J K K L L L L L L L L L L L L L L L L L L L L L L L L M N N N N N N N N N NNN N}N{N N N N N N N N N N N N N N N N N N N N N N N N N N N !N "N #N $N %N &N 'N (N )N *N +N ,N -N .N /N 0N 1N 2N 3N 4N 5N 6N 7N 8N 9N :N ;N <N =N >N ?N @N AN BN CN DN EN FN GN HN IN JN KN LN MN NN ON PN QN RN SN TN UN VN WN XN YN Z, [, \, ], ^, _, `, a, a, b, c, c, d, e,|, f, g, g, h, i, j, j, k, l, m, n, o, p, q, r, s, t, u,,, v, v, w, x, y, z, {, |, }, ~, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , O O O                    ! " # $P %Q &Q &Q 'Q 'Q (Q )Q )Q *Q +Q ,Q -Q .Q /Q 0Q 1Q 1Q 2Q 3Q 4Q 5Q 6Q 7QQQ 8Q 9Q :Q ;Q <Q =Q >Q ?Q @Q AQ BQ CQ DQ EQ FQ GQ HQ IQ JQ KQ LQ MQ NQ OQ PQ QQ RQ SQ TQ UQ VQ WQ XQ YQ ZQ [Q \Q ]Q ^RRRmR _R `R aR bR cR dR eR fR gR hR iR jR kR lR mR nR oR pR qR rR sR tR uR vR wSS xS yS zS {S |S }S ~S S S S S S S S S SS S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S S  8  @ TTT T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T U U U U U U U U UU U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U " " " " " " " " !" "" #" $" %" &" '" (" )" *" +" +" ," -" ." /" 0" 1" 0" 2" 2" 3" 3" 4" 5" 6" 7" 8" 9" :" ;" <" =" >" ?" @" A" B" C" D" E" F" G" H" I" J" K" L" M" N" O" P" Q" R" R" S" T" U" U" V" W" X" Y" Z" [" \" ]" ^" _" `" a" b" c" d" e" f" g" g" h" i" j" k" l" m" n" o" p" q" r" s" t" u" v" w" x" y" z" {" |" }" ~" " " " " " " " " " " " " " " " " " " " " " " " " " " """ " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " !" "" #" $" %" &" '" (" )" *" +" ," -" ." /" 0" 1" 2" 3" 4" 5" 6" 7" 8" 9" :" ;" <" =" >" ?" @" A" B" C" D" E" F" G" H" I" J" K" L" M" N" O" P" Q" R" S" T" U" V" W" X" Y" Z" [" \" ]" ^" _" `" a" b" c" d" e" f" g" h" i" j" k" l" m" n" o" p" q" r" s" t" u" v" w" x" y" z" {" |" }" ~" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " """""""""" " " " " """"""""""""""""""" "!"""#"$"%"&"'"(")"*"+","-"."/"0"1"2"3"4"5"6"7"8"9":";"<"=">"?"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" " " " " """"""""""""""""""" "!"""#"$"%"&"'"(")"*"+","-"."/"0"1"2"3"4"5"6"7"8"9":";"<"=">"?"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~""""""""""""""""""""""""""""""""VVVVVVVVWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWXXXXXXXX      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh234ijklmnopqrstuvwxyz{|}~YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYZZZZZZZZZZZZZZZZZZZZZ Z Z Z Z ZZZZZ[[[[[[[\\\\\\\\\\\ \!\"\#\$\%\&\'](])](]*]+],]-].]/]0]1]2]3]4]5]6]7]8]9]9]:];]<]=]>]?]@]A]B]C]D]E]F]G]H]I]J]K]L]M]N]O]P]Q]R]S]T]U]V]W^X^Y^Z_[_\_]_^___`_a_a_b_c_d_e_f_g_h_i_j_k_l_m_n_o_p q q  r s t u v w x y z { | } ~                 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<----------------------------------------------------------` a a a b bbbbbbbbbbbbbbbbbbbbb b!b"b#b$b%b&b'b(b)b*b+b,b-b.b/b0b1b2b3b4b5b6b7b8b9b:b;b<b=b>b?b@bAbBbCbDbEbFbGbHbIbJbKbLbMbNbObPbQbRbSbTbUbVbWcXcYcZc[c\c]c^c_c`cacbcccdcecfcgchcicjckcldmdndodpdqdrdsdtdudvdwdxdydzd{d|d}d~ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd d d d d dddddddddddddddddee e!e"e#e$e%e&e'fff(f)f*f+f,g-g.ggg/g0g1g2g3g4g5g6g7g8g9g:g;g<g=g>g?g@gAhBhChDhEhFhGhGhHhIhJhKhLhMhNhOhPhQhRhShThUhVhWhXhYhZh[h\h]hhh^h_h`hahbhchdhehfhghhhihjhkhlhmhnhohphqhrhshthuhvhwhxhyhzh{h|h}h~hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO O O O O OOOOOOOOOOOOOOOOOOO O!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?O@OAOBOCODOEOFOGOHOIOJOKOLOMONOOOPOQOROSOTOUOVOWOXOYOZO[O\O]O^O_O`OaObOcOdOeOfOgOhOiOjOkOlOmOnOoOpOqOrOsOtOuOvOwOxOyOzO{O|O}O~OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO O O O O OOOOOOOOOOOOOOOOOOO O!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?O@OAOBOCODOEOFOGOHOIOJOKOLOMONOOOPOQOROSOTOUOVOWOXOYOZO[O\O]O^O_O`OaObOcOdOeOfOgOhOiOjOkOlOmOnOoOpOqOrOsOtOuOvOwOxOyOzO{O|O}O~OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO O O O O OOOOOOOOOOOOOOOOOOO O!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?O@OAOBOCODOEOFOGOHOIOJOKOLOMONOOOPOQOROSOTOUOVOWOXOYOZO[O\O]O^O_O`OaObOcOdOeOfOgOhOiOjOkOlOmOnOoOpOqOrOsOtOuOvOwOxOyOzO{O|O}O~OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO O O O O OOOOOOOOOOOOOOOOOOO O!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?O@OAOBOCODOEOFOGOHOIOJOKOLOMONOOOPOQOROSOTOUOVOWOXOYOZO[O\O]O^O_O`OaObOcOdOeOfOgOhOiOjOkOlOmOnOoOpOqOrOsOtOuOvOwOxOyOzO{O|O}O~OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii i i i i iiiiiiiiiiiiiiiiiii i!i"i#i$i%i&i'i(i)i*i+i,i-i.i/i0i1i2i3i4i5i6i7i8i9i:i;i<i=i>i?i@iAiBiCiDiEiFiGiHiIiJiKiLiMiNiOiPiQiRiSiTiUiViWiXiYiZi[i\i]i^i_i`iaibicidieifigihiiijikiliminioipiqirisitiuiviwixiyizi{i|i}i~iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii i i i i iiiiiiiiiiiiiiiiiii i!i"i#i$i%i&i'i(i)i*i+i,i-i.i/i0i1i2i3i4i5i6i7i8i9i:i;i<i=i>i?i@iAiBiCiDiEiFiGiHiIiJiKiLiMiNiOiPiQiRiSiTiUiViWiXiYiZi[i\i]i^i_i`iaibicidieifigihiiijikiliminioipiqirisitiuiviwixiyizi{i|i}i~iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiijjjjjjjjjjjjjjjjjjjjjjj$jjj"jjj.jjjj1jjjjjjjjj j)jjj'jj jjjjjjjjj&jj(jjj#jjjjj*jjjj%jj!jjj,j-jjjjjjjj/jjjjjjjjjj0j jjjjjjjjjjj+jjjjjjjjj jjjjjjjjjjjjjjjjjjjjjjjjjjjkkkkkkkkkkkkkk k k k k kkkkkkkkkkkkkkkkkkkk k!k"k#k$k%k&k'k(k)k*k+k,k-k.k/k0k1k2k3k4k5k6k7k8k9k:k;k<k=k>k?k@kAkBkCkDkEkFkGkHkIkJkKkLkMkNkOkPkQkRkSkTkUkVkWkXkYkZk[k\k]k^k_k`kakbkckdkekfkgkhkikjkkklkmknkokpkqkrksktkukvkwkxkykzk{k|k}k~kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkklllllllllmmmmmmmmmm mmmmmmmm m m m m mmmmmmmmmmmmmmmmmmmm m!m"m#m$m%m&m'm(m)m*m+m,m-m.m/m0m1m2m3m4m5m6m7m8m9m:m;m<m=m>m?m@mAmBmCmDmEmFmGmHmImJmKmLmMmNmOmPmQmRmSmTmUnVnWnXnYnZn\n]n^n_n`nanbncndnenfngnhninjnknlnmnnnonpnqnrnsntnunvnwnxnynzn{n|n}n~nnoooooopppppppppppppppqqqqqrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss s s s s s222222222222222222 2!2"2#2$2%2&2'2(2)2*2+2,2-t.t/t0t1t2t3ttt4t5t6t7t8t9t:t;t<t=t>t?t@tAtBtCtDtEtFtGtHtItJtKtLtMtNtOtP)Q)R)S)T)U)V)W)X)Y)Z)[)\)])^)_)`)a)b)c)d)e)f)g)h)i)j)k)l)m)n)o)p)q)r)s)t)u)v)w)x)y)z){)|)})~))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ) ) ) ) ))))))R)))))000000000 0!0"0#0$u%v&v'v(v)v*v+v,vvv-v.v/v0v1v2v3v4v5v6v7v8v9v:v;v<v=v>v?v@vAvBvCvDvEvFvGvHvIvJvKvLvMvNvOvPvQvRvSvTvUvVvWvXvXvYvZv[v\v]v^v_v`vav`v,vbvcvdvevfvgvhvivjvkvlvmvnvovpvqvrvsvtvuvvvuvwvxvyvxv(vzv{v|v}v~vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvwwwwwxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyy y y y y yyyyyyyyyyyyyyyyyyy y!y"y#y$y%y&y'y(y)y*y+y,y-y.y/y0y1y2y3y4y5y6y7y8y9y:y;y<y=y>y?y@yAyByCyDyEyFyGyHyIyJyKyLyMyNyOyPyQyRySyTyUyVyWyXyYyZy[y\y]y^y_y`yaybyczdzezfzgzhzizjzk{{{l{m{n{o{p{{q{r{{{s{t{u{vwxyz{|}~| | | | | ||||||||||||||||||| |!|"|#|$|%|&|'|(|)||*|+|,|-|.|/|0|1|2|3|4|5|6|7|8|9|:|;|<|=|>|?|@|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|[|\|]|^|_|`|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|{|||}|~||||||||||||||||||||||||||||||||||||||||||||||1111111111110000000000000000000000000000000000000000000000000000000000000000000000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 !0 "0 #0 $0 %0 &0 '0 (0 )0 *0 +0 ,0 -0 .0 /0 00 10 20 30 40 50 60 70 80 90 :0 ;0 <0 =0 >0 ?0 @0 A0 B0 C0 D0 E0 F0 G0 H0 I0 J0 K0 L0 M0 N0 O0 P0 Q0 R0 S0 T0 U0 V0 W0 X0 Y0 Zo [o \o ]o ^o _o `o ao bo co do eo fo go ho io jo ko lo m}}} n} o} p} q} r} s} t} u} v} w} x} y} z} {} |} }} ~} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2!2!2!2!2!2!2!2!~!~! ~! ~! ~! ~! ~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~! ~!!~!"~!#~!$~!%~!&~!'~!(~!)~!*~!+~!,~!-~!.p!/p!0p!1p!2p!3p!4p!5p!6p!7p!8p!9p!:p!;p!<p!=p!>p!>p!?p!@p!Ap!Bp!Cp!Dp!Ep!Fp!Gp!Hp!Ip!Jp!Kp!Lp!Mp!Np!Op!Pp!Qp!Rp!Sp!Tp!Up!Vp!Wp!Xp!Yp!Zp![p!\p!]p!^p!_p!`p!ap!bp!cp!dp!ep!fp!gp!hp!ip!jp!kp!lp!mp!np!op!pp!qp!rp!sp!tp!up!vp!wp!xp!yp!zp!{p!|p!}p!~p!p!p!p!p!p!p!p!p!p!p!p!p!p!p!p!p!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"""""""""" " " " " """"""""""""""""""" "!"""#"$"%"&"'"(")"*"+","-"."/"0"1"2"3"4"5"6"7"8"9":";"<"=">"?"@"A"B"C"D"E"F"G"Hq"Iq"Jq"Kq"Lq"Mq"Nq"Oq"Pq"Qq"Rq"Sq"Tq"Uq"Vq"Wq"Xq"Yq"Z"["\"]"^"_"`#"a$"b"c"d"e"f"g"h"i"j"k"l"m"n"o"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""m"""""""02"""""""""""""""""""""""""########## # # # # ################### #!#"###$#%#&#'#(#)#*#+#,#-#.#/#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~#######################################??##################################################:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#::#: :#:#:#:#:#:#:#:#:$:$:$:$:$:$:$:$:$:$ :$ :$ :$ :$ :$:$:$:$:$:$:$:$:$:$:$:$:$:$:$:$:$:$:$ :$!:$":$#$$$%$&$'$($);<$*8$+$,$-$.$/$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o$p$q$r$s$t$u$v$w$x$y$z${$|$}$~$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n$n%n%n%n%n%n%n%n%n%n% n% n% n% n% n%n%n%n%n%n%n%n%n%n%n%n%n%n%n%$%$%$%$%$% $%!$%"$%#$%$$%%$%&$%'$%($%)$%*$%+$%,$%-$%.$%/$%0$%1$%2$%3$%4$%5$%6$%7$%8$%9$%:$%;$%<$%=$%>$%?$%@$%A$%B$%C$%D$%E$%F$%G$%H$%I$%J$%K$%L$%M$%N$%O$%P$%Q$%R$%S$%T$%U$%V$%W$%X$%Y$%Z$%[$%\$%]$%^$%_$%`$%a$%b$%c$%d$%e$%f$%g$%h$%i$%j$%k$%l$%m$%n$%o$%p$%q$%r$%s$%t$%u$%v$%w$%x$%y$%z$%{$%|$%}$%~$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$%$&$&$&$&$&$&$&$&$&$& $& $& $& $& $&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$& $&!$&"$&#$&$$&%$&&$&'$&($&)$&*$&+$&,$&-$&.$&/$&0$&1$&2$&3$&4$&5$&6$&7$&8$&9$&:$&;$&<$&=$&>$&?$&@$&A$&B$&C$&D$&E$&F$&G$&H$&I$&J$&K$&L$&M$&N$&O$&P$&Q$&R$&S$&T$&U$&V$&W$&X$&Y$&Z$&[$&\$&]$&^$&_$&`$&a$&b$&c$&d$&e$&f$&g$&h$&i$&j$&k$&l$&m$&n$&o$&p$&q$&r$&s$&t$&u$&v$&w$&x$&y$&z$l$&{$&|$&}$&~$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&$&&&&&&&&&&''''''''''' ' ' ' ' '''''''''''''''''''''' '!'"'"'#'$'%'&'''(')'*'+'+','-'.'/'0'1'2'3'4'5'6'7'8'8'9':';'<'='>'?'?'@'A'A'B'B'C'D'E'F'G'H'I'J'K'L'M'N'O'P'Q'R'S'T'U'V'W'X'Y'Z'['\']'^'_'`'a'b'c'd'e'f'g'h'i'j'k'l'm'n'o'p'q'r's't'u'v'w'x'y'z'{'|'}'~''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''v'''''''''''''''''(((((((((( ( ( ( ( ( (((((((((((((((((((((( ( (!("(#($(%(&('((()(*(+(,(-(.(/(0(1(2(3(4(5(6(7(8(9(:(;(<(=(>(>(?(@(A(B(C(D(E(E(F(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z([(\(](^(_(`(a(b(c(d(e(f(g(h(i(j(k(l(m(n(o(p(q(r(s(t(u(v(w(x(y(z({(|(}(~((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((()))))))))) ) ) ) ) ))))))))))))))))))) )!)")#)$)%)&)')()))*)+),)-).)/)0)1)2)3)4)5)6)7)8)9):);)<)=)>)?)@)A)B)C)D)E)F)G)H)I)I)J)K)L)M)N)O)P)Q)R)R)S)T)U)V)W)X)Y)Z)[)\)])^)_)`)a)S)b)_d)c)d)e)f)g)h)i)j)k)l)m)n)o)p)q)r)s)t)u)v)w)x)y)z){)|)})~))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))c))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))********** * * * * ******************* *!*"*#*$*%*&*'*'*(*)***+*,*-*.*/*0*0*1*2*3*4*5*6*7*8*9*:*;*:*<*=*<*>*>*?*@*A*B*C*D*E*F*G*H*I*J*K*L*M*N*O)Z*P*Q*R*S*Q*T*U*V*W*X*Y*Z*[*\*]*^*_*`*a*b*c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s*t*u*v*w*x*y*z*{*|*}*~**********************************************************************************q************************************************++++++++++ + + + + ++++++++++++++++++++ +!+"+#+$+%+&+'+(+)+*+++,+-+.+/+0+1+2+3+4+5+6+7+8+9+:+;+<+=+>+?+@+A+B+C+D+E+F+G+H+I+J+K+L+M+N+O+P+Q+R+S+T+U+V+W+X+Y+Z+[+\+]+^+_+`+a+b+c+d+d+e+f+g+h+i+j+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z+{+|"+}+~++++++++++++++++"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++,,,,,,,,,, , , , , ,,,,,,,,,,,,,,,,,,, ,!,",#,$,%,&,',(,),*,+,,,-,.,/,0,1,2,3,3,4,5,6,7,8,9,9,:,:,;,<,=,>,?,@,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W*],X,Y,Z,[,\,],^,_,`,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,{,|,},~,,,,,,,,,,,,,,,,,,,,,*s*t*u*e*f*g*h*i*j*k*l*m*n*o*p,,,,j,k,,*q*r*v,,,,,,i,h,,,,q,,{,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,----------- - )Q- - - -------------------- -!-"-#-$-%-&-'-(-(-)-*-+-,---.-/-0*-1-2-3-4-5-6-7-8-9-:-;-<-=->-?-@-A-B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U-V-W-X-Y-Z-Z-[-\-]-^-_-`-a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-r-s-s-t-u-v-w-x-y-z-{-|-}-~----------------------------------------------------------------------------+----------L--------------------------------------------.......... . . . . ................... .!.".#.$.%.&.'.(.).*.+.,.-.../.03.13.23.33.43.53.63.63.73.83.93.:3.;3.<3.=3.>3.?3.@3.A3.B3.C3.D3.E3.F3.G3.H3.I3.J3.K3.L3.M3.N3.O3.P3.Q3.R3.S3.T3.U3.V3.W3.X3.Y3.Z3.[3.\3.]3.^3._3.`3.a3.b3.c3.d3.e3.f3.g3l3.h3.i3.j3.k3.l3.m3.n3.o3.p3.q3.r3.s3.t3.u333.v3.w3.x3.y3.z3.{3.|3.}3.~3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3.3/3/3/3/3/3/3/3/3// / / / / ///////////// / ////////// /!/!/"/#/$/%/%/&/'/(/)/*/+/,/-/.///0/1/2/3/4/5/6/7/8/9/:/;/</=/>/?/@/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z/[/\/]/^/_/`/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/{/|/}/~////////////////////////////)//////////////////////////////////////////////////////////////////////////////////////////////////////////0000000000 0 0 0 0 0000000000000000000 0!0"0#0$0%0&0'0(0)0*0+0,0-0.0/000102030405060708090:0;0<0=0>0?0@0A0B0C0D0E0F0G0H0I0J0K0L0M0N0O0P0Q0R0S0T0U0V0W0X0Y0Z0[0\0]0^0_0`0a0b0c0d0e0f0g0h0i0j0k0l0m0n0o0p0q0r0s0t0u0v0w0x0y0z0{0|0|0}0~000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001111111111 1 1 1 1 111111111111111111111 1!1"1#1$1%1&1'1(1)1*1+1,1-1.1/101112131415161718191:1;1<1=1>1?1@1A1B1C1D1E1F1G1H1I1J1K1L1M1N1O1P1Q1R1S1T1U1V1W1X1Y1Z1[1\1]1^1_1`1a1b1c1d1e1f1g1h1i1j1j1k1l1m1n1o1p1q1r1s1t1u1v1w1x1y1z1{1|1}1~111111111111111111111111111111111111111111111111111+111111111111111111111111111111111111111111111111111111111111111111111111111111112222222222 2 2 2 2 2222222222222222222 2!2"2#2$2%2&2'2(2)2*2+2,2-2.2/202122&232425262728292:2;2<2=2>2?2@2A11111111112B2C2D2E2F2G2H2I2J2K2L2M2N2O2P2Q2R2S2T2U2V2W2X2Y2Z2[2\2]2^2_2`2a2b2c2d2e2f2g2h2i2j2k2l2m2n2o2p2q2r2s2t2u2v2w2x2y2z2{2|2}2~22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222233333333333 3 3 3 3 33333333333333333333333 3!3"3#3$3%3&3'3(3)3*3+3,3,3-3.3/30313233343435363738393:3;3;3<3=3>3?3?3@3A3B3C3D3E3F3G3H3I3J3K3L3M3N3O3P3Q3R3S3T3U3V3W3X3X3Y3Z3[3\3]3]3^3_3`3a3b3c3d3e3f3g3h3h3i3j3j3k3l3m3n3o3p3q3r3s3t3u3v3w3w3x3y3z3{3|3}3~333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333334444444444 4 4 4 4 4444444444444444444 4!4"4#4$4%4&4'4(4)4*4+4,4-4.4/404142o434445464748494:4;4<4=4>4?4@4A4B4C4C4D4E4F4G4H4I4I4J4K4L4M4N4O4O4P4Q4R4S4T4U4V4W4X4Y4Z4[4[4\4]4^4_4`4a4b4c4d4e4f4g4h4i4j4k4l4m4n4o4p4q4r4s4t4u4v4w4x4y4z4{4|4}4~4444444444/44bb44444444444444444444444444444444444444440W444/444444444444444444444444;44444444444444444444444444444/44444444444444444444'j444445555555555 5 5 5 5 5555555555555555555 5!5"5#5$5%5&5'5(5)5*5+5,5-5.5/505152535455565758595:5;5<5=5>5?5@5A5B5C5D5E5F5G5H5I5J5K5L5M5N5O5P5Q5R5S5T5U5V5W5X5Y5Z5[5\5]5^5_5`5a5b5c5d5e5f5g5h5i5j5k5l5m5n5o5p5q5r5s5t5u5v5w5x5y5z5{5|5}5~55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555556666666666 6 6 6 6 6666666666666666666 6!6"6#6$6%6&6'6(6)6*6+6,6-6.6/606162636465666768696:6;6<6=6>6?6@6A6B6C6D 6E 6F 6F 6G 6H 6I 6J 6K 6L 6M 6N 6O 6P 6Q 6R 6S 6S 6T 6U 6V 6W 6X 6Y 6Y 6Z 6[ 6\ 6] 6^ 6_ 6_ 6` 6a 6b 6c 6d 6e 6f 6f 6g 6h 6i 6j 6k 6k 6l 6m 6n 6n 6o 6p 6q 6r 6s 6t 6u 6v 6w 6x 6y 6z 6{ 6| 6| 6} 6~ 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 2 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7! 7" 7# 7$ 7% 7& 7' 7( 7) 7* 7+ 7, 7- 7. 7/ 70 71 72 73 74 75 76 77 78 79 7: 7; 7< 7< 7= 7> 7? 7@ 7A 7B 7C 7D 7E 7E 7F 7G 7H 7I 7I 7J 7K 7L 7M 7N 7N 7O 7P 7Q 7R 7S 7T 7U 7V 7W 7X 7Y 7Z  {  { 7[ 7\ 7] 7^ 7_ 7` 7a 7b 7c 7d 7e 7f 7g 7h 7i 7j 7k 7l 7m 7n 7o 7p 7q 7r 7s 7t 7u 7v 7w 7x 7y 7z 7{ 7| 7} 7~ 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 8 8 8 88888888 8 8 8 8 88888888888888888888 8!8"8#8$8%8&8'8(8)8*8+8,8-8.8/808182838485868788898:8;8<8=8>8?8@8A8B8C8D8E8F8G8H8I8J8K8L8M8N8O8O8P8Q8R8S8T8U8V8W8X8Y8Z8[8\8]8^8_8`8a8b8c8d8e8f8g8h8i8j8k8l8m8n8o8p8q8r8s8t8u8v8w8x8y8z8{8|8}8~88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888999==9999999 9 <9 9 9 9999999999999999999 9!9"9#9$9%9&9'9(9)9*9+9,9-9.9/909192939495969798999:9;9<9=9>9?9@9@9A9B9C9D9E9F9F9G9H9I9J9K9L9M9N9O9O9P9Q9R9S9T9U9V9W9X9Y9Z9[9\9\9]9^9_9`9a9b9c9d9d9e9f24249g9h9i9j9k9l9m9n9o9p9q9r9s9t9u9v9w9x9y9z9{9|9}9~999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999:::::::::: : : : : ::::::::::::::::::: :!:":#:$:%:&:':(u:)u:*u:+u:,u:-u:.u:/u:0u:1:2:3:4:5:6:7:8:9:::;:<:=:>:?:@:A:B:C:D:E:F:G:H:I:J:K:L:M:N:O:P:Q:R:S:T:U:V:W:X:Y:Z:[:\:]:^:_:`:a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x1:y:z:{:|:}:~::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::;;;;;;;;;; ; ; ; ; ;;;;;;;;;;;;;;;;;;; ;!;";#;$;%;&;';(;);*;+;,;-;.;/;0;1;2;3;4;5;6;7;8;9;:;;;<;=;>;?;@;A;B;C;D;E;F;G;H;I;J;K;L;M;N;O;P;Q;R;S;T;U;V;W;X;Y;Z;[;\;];^;_;`;a;b;c;d;e;f;g;h;i;j;k;l;m;n;o;p;q;r;s;t;u;v;w;x;y;z;{;|;};~;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<<<<<<<<<< < < < < <<<<<<<<<<'<<<<<<<<< <<<<<<<<<<<<<<<<<<<<<========== = = = = ==================== =!="=#=$=%=&;='=(=)=*=+=,=-=.=/=0=1=2=3=4=5=6=7=8=9=:=;=<===>=?=@=A=B=C=D=E=F=G=H=I=J=K=L=M=N=O=P=Q=R=S=T=U=V=W=X=Y=Z=[=\=]=^=_=`=a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=p=q=r=s=t=u=v=w=x=y=z={=|=}=~====================== = = = = = = = = = = = = = = = =w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=!=!="=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=#=#=#=#=#=#=#=#=#=$=$=$=%=====&='=(=(=(=(=(=(=(=(=(=(=(=(=)=*=*=*=*=*=*>*>*>>>>>>>> > > > > >>>>>>>>>>>>+>+>+>+>+>+>+>+> +> +>!+>"+>#+>$+>%+>&+>'+>(+>)+>*+>++>,+>-+>.+>/+>0+>1+>2+>3+>4+>5+>6+>7+>8+>9+>:+>;+><+>=+>>+>?+>@+>A+>B+>C+>D+>E+>F+>G+>H+>I+>J+>K+>L+>M+>N+>O+>P+>Q+>R+>S+>T+>U+>V+>W+>X+>Y+>Z+>[+>\+>]+>^+>_+>`+>a+>b+>c,>d,>e->f-"->g->h->i->j->k->l->m->n->o->p->q->r->s->t->u->v->w->x->y->z->z->{->|->}->~->->->->->->->->->->->->->->->->->->->->->->->->->->->->--P->->->->->->->->->->->->->->->->->->-:-:->->->->->->->-->-->->-->--->->->->->->->->->->->->->->->->->.>.>.>.>.<.>.>.>.>.>.>.>/>/>/>/>/>/>/>/>/>/>/>/>/>/>/>/>0>0>0>0>0>0>0>00000>0>0>0>0>0>0>0>0>0>0>0>0=%000>0>0>0>0>0>0>0=$0>0>0?0?0?0?0?0?0?0?0?0? 0? 0? 0? 0? 0?0?0?0?0?0?0?0?0?0?0?0?0=@00000?0?0?11?1?1?1? 1?!1?"1?"1?#1?$1?%1?&1?'1?(1?)1?*1?+1?,1?-1?.1?/1?01?11?21?31?41?51?61?71?81?91?:1?;1?<1?=1?>1??1?@1?A1?B1?C1?D1?E1?F1?G1?H1?I1?J1?K1?L1?M1?N1?O1?P1?Q1?R1?S1?T1?U1?V1?W1?X1?Y1?Z1?[1?\1?]1?^1?_1?`1?a2?b2?c2?d3?e3?f3?g3?h3?i3?j3?k3?k3?l3?m3?n3?o3?p3?q3?r3?s3?t3?u3?v3?w3?x3?y3?z3?{R?|Q?}?~???4?4?5?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6.D6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7@7@7@7@7@7@7@7@7@7@ 7@ 7@ 7@ 7@ 7@7@7@7@7@7@7@8@8@8@8@8@8@8@8@8@8@8@8@ 8@!8@"8@#8@$8@%8@&8@'8@(8@)8@*8@+9@,9@-9@.9@/9@09@19@29@39@49@5:@6:@7:@8:@9:@:;@;;@<;@=;@>;@?;@@;@A;@B;@C;@D;@E;@F<@G<@H<@I@J@J@K@L@M@N@O@P@Q@R@S=@T=@U=@V=@W=@X=@Y=@Z=@[=@\=@]=@^=@_=@`=@a=@b>#>@c>@d>@e>@f>@g>@h?@i?@j?@k?@l?@m?@n?@o?@p?@q?@r?@s?@t?@u?@v?@w@@x@@y@@z@@{@@|@@}@@~@@@@@@@@@@@@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B-B@B@B@BBBBB@B@B@B@B@B@B@B@B@BCB@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@BB@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@C@CACACACACACACACACACA DA DA DA DA DADADADADADADADADADADADADADADADADADADA DA!DA"DA#DA$DA%DA&DA'DA(DA)DA*DA+DA,DA-DA.DA/DA0DA1DA2DA3DA4DA5DA6DA7DA8DA9DA:DA;DA<DA=DA>DA?DA@DAADABDACDADDAEDAFDAGDAHDAIDAJDAKDALDAMDANDAODAPDAQDARDASDATDAUDAVDAWDAXDAYDAZDA[DA\DA]DA^DA_DA`DAaDAbDAcDAdDAeDAfDAgDAhDAiDAjDAkDAlDAmDAnDAoDApDAqDArDAsDAtDAuDAvDAwDAxDAyD:D:D:D:DAzD:DA{D:DA|DA}DA~DADADAD:XD:ZD:]D>)D>;D?D?DADADADAD;AD;ZD;[D;gD;fD;^D;jD;aD;`DADAD@DAD;?DADADAD;2D;6DADADADADADADADADAD:D;DADADADADADADAD;DADADADADADADADADADADADADADADADADAEAEAEAEAEAEAEAEAEAEAFAFAF?/FAFAFAFAFAFAFAFAGAGAGAGAGAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAJAJAJAJAJAJAJAJAJAJAJAJAJAJAJAJBJBJBJBJBJBJBJBKBKB KB KB KB KB KBKBKBKBKBKBKBKBKBKBLBLBLBLBLBLBLBMBMBMB MB!MB"MB#MB#MB$MB%MB&MB'MB(MB)MB*MB+MB,MB-MB.MB/MB0MB1MB2MB3MB4MB5MB6MB7MB8MB9MB:MB;MB<MB=MB>MB?MB@MBAMBBMBCMBDMBEMBFMBGMBHMBIMBJMBKNBLNBMOBNOBOOOBPOBQOBROBSOBTOBUOBVOBWOBXO'O'O'OBYPBZPB[PB\PB]PB^PB_PB`P?QBaQBbQBcQBdQBeQBfRBgRBhSBiSBjSBkSBlSBmSBnSBoSBpSBqSBrSBsSBtSBuSBvSBwSBxSBySBzSB{SB|SB}SB~SBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSB B B B B B B BTBTBTBTBTBTBTBTBTBTBTBTBTBUBUBUBUBUBUBUBUBUBVBVBVBVBVBVBVBVBVBBBBBBBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBXBXBXBXBXBXBXBXBXBXBXCXCXCXCXCXCYCYCYCYC YC YC YC YC YCYCYCYCZC[C[C[C[C[C[C[C[C[C[C\C\C\C\C ]C!]C"]C#]C$]C%]C&]C']C(]C)]C*]C+]C,]C-]C.C/C0C1C2C3C4C5C6C7C8C9C:C;C<C=C>C?^C@_CA_CB_CC_CD_CE_CF_CG_CH_CI_CJCKCLCMCNCOCOCPCQCRCSCTCUCUCVCWCXCYCZC[C\C]C^C_C`CaCbCcCdCeCfCgChCiCjCkClCmCnCoCpCqCrCsCtCuCvCwCxCyCzC{C|C}C~CCCCCCCCC>bCCCCC`CaCaCaCaCaCaCaCaCaCaCaCaCaCaCaCaCaCaCbCbCbCbCcCcCcCcCcCd4+dCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCeCeCeCeCeCeCeCeCeCeCeCeCfCgCgCgCgChChChChChCiCjCjCjCjCjCjCjCjCjCkCkClClClClClClClClClClClDlDlDlDlDlDlDlDlDbD mD mD mD nD cDoDoDoDoDoDoDoDoDoDoDoDpDpDpDpDpDpDpDpD qD!rD"rD#rD$rD%rD&rD'rD(rD)rD*rD+rD,rD-rD.qD/qD0D1D2D3D4D5D6D7D8D9D:D;D<D=D>D?D@DADBDCDDDEDFsDGsDHtDItDItDJtDKtDLtDMtDNtDOtDPtDQtDRtDStDTtDUtDVtDWtDXtDYtDZtD[tD\tD]tD^tD_tD`tDatDbtDctDdtDetDftDgtDhtDitDjtDktDltDmtDntDotDptDqtDrtDstDttDutDvtDwtDxtDytDztD{tD|t$tD}tD~tDtDtDtDtDtDtDuDuDv5v5vDvDvDvDvDvDvDvDvDvDvDvDvDvDvDvDvDvDvDv+vDvDvDvDvDvDvDvDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDwDxDxDxDxDxDxDxDxDxDx6xDxDxDx6xDxDxDxDyDyDyDzDzDzDzDzDzDzDzDzDzDzD{D{D{D{D{D{D{D{D{D{D|D|D|D|D|D|D|D|D}D~D~D~D~"~D~D~D~D~D~D~D~D~D~D~D~D~EEEE1EEEEEE E E E E EEEEEEEEEEEEEEEEEooEE E!E"E#E$E%E&E'E(E)E*E+E,E-E.E/E0E1E2E3E4E5E6E7E8E9E:E;E<E=E>E?E@EAEBECEDEEEFEGEHEIEJEKELEMENEOEOEPEQERESET5EUEVEWEXEYEZE[E\E]E^E_E`EaEbEcEdEeEfEgEhEiEjEkElEmEnEoEpEqErEsEtEuEvEwExEyEzE{E|E}E~EEEqrstuvwxyz{|uwEEEE~EEEEEEEE*sEE*e*f*g*h*i*j*k*l*m*n,j,k*q*r*vE,E,,,i,hEEEEEEEEEEEEEEEEEEEEEEEEE,,EEEEEEEEEEEEEEEEEEEEE,,E,E,,,EEEEEEEEEEEEEEEE-EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEFFFFFFFFFF F F F F FFFFFFFFBFFFFFFFFFFF F!F"F#F$F%,F&F'F(F)F*F+F,F-F.F/F0F1F2F3-EEEEF4F5EEF6F7F8F9F:F;EF<EF=EF>F?F@FAFBEFCFDFEFFFFGFHFIFJFKFLFMBFFFNFOFPFQFRFSFTF,EFUFVF(F)F*F+FWF-FXF.F/F0F1F2F3FYFZF[F\F]F^F^F_F_F`F`FaFbFcFd-(FeFfFgFhFiFjFkFlFmFnFoFpFqFrFsFt-;FuFvFwFxFyFzF{F|-EEEEF4F}F~F5FFFFFFFFFBFFFFEFFFFFFFFFFFFFEEFEFEFFFuEFFFAFFFFDFJFGFFCFHFEFFFFFFFFFEFFNFOFPF%F'F,FF,EFUF(F)F*F+F-F3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFaFFFFFFaFF,,,,,,,,,,,,,,,,FFFFF,FFFFFF|FFFFFFFFFFFFGGGGGGGGGG G G G G GGGGGGGGGGGGGGGGGGG G!G"G#G$G%G&G'G(G)G*G+G,G-G.G/G0G1G2G3G4G5G6G7G8G9G:G;G<G=G>G?G@GAGBGCGDGEGFGGGHGIGJGJGKGLGMGMGNGOGPGQGQGRGSGTGUGUGVGWGXGYGZG[G\G]G^G_G`GaGbGcGdGeGfGgGhGiGjGkGlGmGnGoGpGqGrGsGtGuGvGwGxGyGyFFF(F)F+F*F-,,GzG{G|G}FG~GGGGGGGGGGG>GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG9GGGGGGGGGGG<GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG:GG6GGGGGGGHHHHHHHHHHH H H H H H HHHHHHHHHHHHHHHHHHHH H!H"H#H$H%H&H'H(H)H*H+H,H-H.H/H0H1<H2H3H4H5H6H7H8H9H:H;H<H=H>H?H@HAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRHSHTHUHVHW:GGG2@HXHYHZH[H\H]H^H_H`HaHbHcHdHeHfHgHhHiHjHHkHlHHkHmHHkHnHnHoHnHpHnHqHKHrHHsHtHHsHuHHsHvHHsHvHnHwHnHxHnHyHnHzHnH{HnH|HnH}HnH~HnH~HnHHnHHnHHnHHnHHnHHnHHnHHnHHnHHnHHnHHnHHnHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHkHHHkHHHkHHHkHHHkHHHkHHHkHHHkHHHkHHHkHHHHHtHHtHHtHHtHHtHHtHHtHHtHHtHHtHHtHHtHHtH;HH H HHHHH|HH|HH|HHhHiHHhHiHHHHKHHKHHKHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHKH+HHHH+H+H+Q H H H H H/HHKH/H/H/H/H/H/H/H/*/H/H/H/HHHSHHHHHHHHHH4H6H6H6H6H6H6H9H9H9H9H9H9H9H9H99HhHIHIIHKI=I=I=I=I>I>I ?I ?I ?I @I AAAICICICIGIGIKILIMIMIMIIIININININININI ,I!,I",~,I#,I#,I$, ^, `RI%RI%RI&RI' I( I(  @ I) I* I+TI,TI-TI.TI/UI0UI1U UI2"I3"I4"I5I6I7"I8"I9"I:"I;"I<"I="I>"I?"I@"IA"IB"IC"ID"IE"IF"IG"IH"II"IJ"IK"IL"IM"IN"IO"IP"IQ"IR"IS"IT"IU"IV"IW"IX"IY"IZ"I["I\"I]"I^"I_"I`"Ia"Ib"Ic"I;"Id"IeWIfWWIgIhIiIjIkIlImInIoIpIqIr*Is*ItHIuIv_Iw  <Ix<Iy<Iz<<<I{<I|-I}-I~-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-I-IHhHiI-I-I-I-I-I-I-I-I-I--I--I-I`I`I`I`I`I`Ia*0aIaIaIaIaIaIaIaIaIaIaIaIaIaIaIaIaIaIa*0aIaIbIbIbIbIbIbbcIcIcIcIc]hIhIhIhIHKIHIIHKIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkIkJkJkJkJkJkJkJkJkJkJ kJ kJ kJ kJ kJkJkJkJkJkJkJkJkJkJkJmJmJmJmJmJmJmJmm.wmmJmJ mJ!mJ"rJ#rJ$rJ%rJ&sJ'sJ(sstJ)tJ*tJ+tJ,tJ-tJ.tJ/tJ0tttJ1tJ2)J3)J4)J5)J6)J7)J8).s)J9)J:)J;)J<)J=)J>)J?)J@)JA)JB)JC)JD)JE)JF)JG)JH)JI)JJ)JK)JL)JM)JN)JOvJPvJQvJRvJSvJTvJUvJVvJWyJXyJYyJZyJ[yJ\25J]J^J_J`JaJbJcJdJeJfJgJhJiJjJkJlJmJnJoJpJqJrJsJtJuJvJwJxJyJzJ{J|J}J~JJJJJJJJJJJJJJJxJJJJJJJJJJJJ0J0J0J0J0J0JHJJHIJoJoJoJoJoJoJoJoJoJoJoJoJoJoJJJJHhHiJHhHiIHhHiJ2J2J2J2J2J~J~J~J~J~J~J~J~J~J~J~J~J~J~J~J~J~J~J~J~J~JpJppJpJpJpJpJpJpJpJpJpJpJpJpJpJpJpJpJpJpJpJpJJJJJJJJJJJJJJJHHJJJJJJJJJJJJJJJHhJJJKKKKKKKKKK DK K 2\K K K#a#bKKKKKKKKKKKKKKKKKKKK K!K"K#K$K%K&K'K(K)K*K+K,K-#cK.K/K06OK1K2K3K4K5K6K7K8K9K:K:K;K<K6K=K>K?:K@:::KA:KBKCKDKE$nKFnKGnKHnKInKJnKKnKL$KM$KN$KO$+u$KPaKQKRKSKTKUKVKWKXKYKZK[K\K]K^K_K`KaKbKcKdKeKfKgKgKhKiKjKkKlKmKnKiKoKpKqKrKsKtKuKvKwKwKxKyKz)K{K|*XK}K~KKKK@KKK)KKKKKKKK)WKKKKKKKKKKKKKKKKKKKKKKK4+KKKKKKKKKKIIIIIIIIIIIIIIIIIKKKKKKKKKKKKKKKKKKKKKK^KK+KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKLKLKLKLLLLLLLLLLL LL LL LL LL LLLLLLLLLLLLLLLLLLLLLLL LL!LL"LL#LL$LL%LL&LL'LL(LL)KL*KL+KL,KL-KL.KL/KL0KL1KL2KL3KL4KL5K<L6L7L6L8L6L9L:L;L<L=L>L?L@LALBLCLDLELFLGLHLILJLKLLLMLNLOLPLQLRLSLT @LULVLWLXLYLZL[L\L]L^L_L`LaLbLcLdLcLeLcLfLcLgLcLhLcLiLcLjLcLkLcLlLmLnLoLpLqLrLsLtLuLvLwLxLyLzL{L|L}L~LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL-<LLLLLLLLLLLLLLLLLLLLLLLLLLLLLL+LLLLLLLLLLLLLMMM1MLMMMMMMM M M M M MMMMMMMMMMMMMMMMMMM M!M"M#M$M%M&M'M(M)M*M+M,M-M.M/M0M1M2M3M4M5M65M7M8M9##M:fM;M<MM M=M>M?M@MAMBMCMDMEMFMGMHMIMJMKML-MMMNMOMP2MQMRMSMTMUMVMWMXMYMZM[M\M].M^M_M`3Ma3MbHIMc1]MdMeMfMgMhMiMjMkMlMmMn1MoMpMqMrMsMtMuMvMwMxMyMzM{M|M}M~MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMHMMMMMMMMMMMMMMHIMMMMMMMM M M M M M M M M M M M M M M 7Y 7ZMMMMMM8TuMuMuMuMuMuMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM N N N N N N N NNNN KKN N N N NNNNNNNNNNNNNNNNNNN N!N"N#N$N%N&N'N(N)N*N+N,N-N.N/N0N1N2N1N3N4N4N5N6N7N8N9N:N;N<N=N>N?N@NANBNCNDNENFNGNHNHNINJNKNKNLNMNNNONPNQNRNS"NTNUNVNWNXNYNZN[N\N]N^N_N`NaNbNcNdNeNfNgNhNiNjNkNlNmNnNoNpHHNqNrNs'[NtNuNvNwNxNyNzN{N|N}N~NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN N N N N N N N N N N N N N N N N N N N NwNwNwNwNwN!N!N!N!N!N!N!N!N!N"N"N"N"N"N#N%N%N%N%N&N&N&NF&NG&NH&NH&NI&NJ&N&N&N&N&N&NK&NK(N(N(N(N(N(N(N(N(N*N*N*N*N*N*N*N*N*N*NNNNN-N->f-N-N-N-N-N-N-N-N-N-N-N-N-N-N-N-N->x-N-N-N-N-N.N.N.O.0.O.O.O.O.O.O.O.O.O.O.O.O .O .O .O .O .O.NX.O.O.O.O.O.O.O/O/O/O/O/O/O/O/O0O0O0O 0O!0>2O"2O#2O$3O%3x3O&3O'3O(3O)3O*3O+4O,4O-4O.4O/5O05O15O-6O26O36O46O56O66O76O86O97O:7O;7O<7O=7O>7O?7O@7OA7OB7OC7OD7OE7OF7OG7OH7OI7OJ7OK7OL7OM7ON7OO7OP7OQ8OR8OS8@8OT9OU9OV9OW9OX9OY9OZ9O[9O\9O]9O^9O_:O`:Oa:Ob:Oc:Od:Oe:Of:Og:Oh:Oi:Oj:Ok:Ol:Om:Om<On<Oo<OpHKOq<Or<Os<H:<Ot<OuOvOwOxOyOzO{O|O}O~OOOOOOOOOOOOxOO=O=O=O=O=O=O=O=O=O=O=O=O=O=O=O=O?O?O?O?O?O?O?O?O?O?O?O?O?OAOAOAOOOOOOBOBOCOCOCOCOCOCOCOCOCOCOCOCOCOCOCOCOCOCOCOCOCOCOCOCHCOCOCOCOCODODA DODODODODODODODOEOEOEOEOEK:EOE>EOEOEOEOEOEOEOEOEOEOEOEOFOHHOHHOFOFOFOFOFOFOFOFOGOGOGOGOGOGOGOGOGOGOGOGOGOGOGOGOGOGPGPGPGPGPGPGPGPGOHPHP IP IP IP IP IPIPIPIPJPJPJPJPJPJPJPJPJ%+JPJPJPJPJPJPJP JP!JP"KP#KP$KP%KP&LP'LP(LP)LP'LP*LP+LP,LP-LP.LP/LP0LP1LP2LP3LP4LP5LP6LP7NP8NP9P:P;P:P<P:P=P:P>P:P?P:P?OP@OPAOPBOPCOPDOPEOPFOKcOKdOKeOKfO4+OPGOPHOPIOPJO"OPKOKgOKgOKhOPLOPMOPNOPOOPPOPQOxOPROPSOO*OPTOPUPPVPPWPPXPPYPCPPZP>PP[PP\PP]PP^PP_PP`PPaPPbPPcPPcPPdPPeP>PPfP<P<P?"PPgPPhPPiQPjQPj Pk Pk Pl Pm Pn Po Pp Pq Pr Ps Pt Pu E Pv Pw PxTPyTPzTP{TP|TP}TP~TPTPTPTPTPTPTPTPTPTPUPUPUPUPUPUPUN UPUPUPUPU'UPUPUPUPUPUPUPUPPPPPWPWPWPWPWPWPWPWPWPWPWPWPWPXPYPYPYPYPYPYPYPYPYPYPYPYP[P[P[P[P[P[P[P[P[P[P[P[P[P[P[P[F\\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P\P]P]P]P]P]P]P]P]P]P]P]PPPPP^P^P^P_P_P_P_P_QQQQQQQQQQ Q Q Q Q QfQfQfQfQfQfQfQfQfQfQfQjQjQjQjQlQlQlQ lQ!lQ"lQ#lQ$lQ%lQ&lQ'lQ(lQ)lQ*lQ+lQ,lQ-lQ.lQ/lQ0lQ1lQ2lQ3lQ4lQ5lQ6lQ7lQ8lQ9lQ:lQ;lQ<lQ=lQ>lQ?lQ@lQAlQBlQClQDlQElQFlQGlQHlQIlQJlQKlQLlQMlQNlQOlQPlQQlQRlQSlQTlQUlQVlQWlQXlQYlQZlQ[lQ\lQ]lQ^lQ_lQ`lQalQblQclQdlQelQflQglQ lQhlQilQjlQklQllQllQmlQnlQolQplQqlQqlQrlQslQslQtlQulQvlQwlQ%lQxlQylQzl6.lQ{lQ|lQ}lQ~lQlQlQlQlQlQlQlQlQlQlQlQbQbQbQbQbQbQbQbQbQbQbQbQmQnQnQnQnQnQnQnQnQcQpQpQpQpQrQrQrQrQrQQQQQQQQQQQQQQQtQtQuQuQuQuQuQHKQ}Q}Q} N~QQQQQQQQQQQQQQQQQQQHhHiQQQQQQQQHhHiQHhHiQHKQQQQQQQQQQQQQQQQQQQQFNQQQQQQQQQQ++QQQQNRRRRRRRRRR R R R R RRRRRRRNRRRRRRRRRRRR R!R"FUFVR#R$R%R&RR'R(R)R*R+R,R-R.R/R0R1R2R$R%R3R4R5R6R7R8R9R:R;R<R=R>R?R@RARBRCRDRERFRG,RHRIRJRKR%FRLRMRNRORPRQRRRSRTRURVRWRXF^F[F_F`RYFcRZFR[FF^F\F]F_F`M MRZR\R]R^R_R`F[FcRZFRaRbRcRdReF`F`Rf2\B/F^F^F_F_F\F]RgRhRiRjRkRlRmRnRoRpRqRrRsRtRuRvRwRxRyRzR{R|R}R~RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRFRRRRRHR@RRRRRRRBRRRRRRRRRRRRRRRHRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRSSSSRSghc MonadUtilsPluginsUtil Fingerprint SpecConstr PackageConfigPanicDsMonadIOEnvDigraphHscTypesLexeme ByteCodeAsmGHCiGHCHoopl.DataflowRegAlloc.LivenessMaybesConfig ConstantsEncoding Exception FastFunctions FastMutInt FiniteMapHooksListTNameOccName OutputablePPC.CondCtypePlatformDynFlagsPlatformConstantsPrimOp SPARC.CondStateStreamSysTools.TerminalTyCon PprColour FastStringModulePackagesBufWritePrettyTypeKindCoercionTcType StringBufferPairOrdList ListSetOpsJsonSrcLocIdInfoHsDocErrUtils BasicTypesUnique UniqSupplyUniqFMUniqSet GraphBaseUniqDFMUniqDSet FastStringEnvRegClassRegAlloc.Graph.ArchBaseRegAlloc.Graph.ArchX86RegRegAlloc.Graph.TrivColorableGraphPprGraphOps GraphColorBinary PrelNamesDynamicLoading ForeignCallBooleanFormula DriverPhasesBag CmdLineParser SPARC.BaseSMRepRegAlloc.Linear.StackMapNameSetNameEnv KnownUniques FieldLabelHsImpExpBinFingerprint Annotations LlvmManglerElfCmmType CmmSwitch CmmMachOpCPrimBitmapAvailRdrNameTHNames ApiAnnotationLexerCmmMonadVar TysWiredInPatSynDataConConLike CostCentreCoAxiomClass TcTypeNats IfaceTypeMkIdVarSetVarEnvToIfaceFVTysPrimLiteralUnifyRepTypeDemandCoreSynTrieMap FamInstEnvId UnVarGraph NameCacheInteractiveEvalTypes ByteCodeTypesCoreSeq CoreStatsPprCoreStgSynStgStatsStgLintStgCseSCCfinalIfaceSynCLabelProfInitBlockIdCmmExpr PprCmmExprCodeGen.Platform.X86_64CodeGen.Platform.X86CodeGen.Platform.SPARCCodeGen.Platform.PPC_DarwinCodeGen.Platform.PPCCodeGen.Platform.NoRegsCodeGen.Platform.ARM64CodeGen.Platform.ARMCodeGen.PlatformCmmNodeCmmLexCmm SPARC.ImmSPARC.AddrMode PprCmmDeclPprBase Llvm.Types Llvm.MetaData Llvm.AbsSyn Llvm.PpLlvmLlvmCodeGen.RegsLlvmCodeGen.BaseSysToolsLlvmCodeGen.DataLlvmCodeGen.PprHoopl InstructionFormat SPARC.Regs SPARC.StackRegAlloc.Linear.SPARC.FreeRegsPPC.RegsRegAlloc.Linear.PPC.FreeRegsCmmUtilsPprCmmRegAlloc.Linear.BaseRegAlloc.Linear.StatsRegAlloc.Linear.StateRegAlloc.Graph.SpillCostRegAlloc.Graph.SpillCleanRegAlloc.Graph.SpillRegAlloc.Graph.CoalescePprCLlvmCodeGen.CodeGenDebugCmmOptCmmLiveCmmSinkCmmLintCmmInfo CmmProcPointCmmImplementSwitchPlansCmmContFlowOptCmmCommonBlockElim CmmCallConvMkGraphCmmBuildInfoTablesCgUtils LlvmCodeGenCoreFVs TcEvidence PlaceHolderHsPatHsExprHsTypesHsLitHsBinds StgCmmClosure StgCmmMonad StgCmmUtils StgCmmProf StgCmmExtCode StgCmmBind StgCmmEnv StgCmmArgRep StgCmmTicky StgCmmLayout StgCmmHeap StgCmmForeign StgCmmPrimCmmLayoutStackInstEnv OptCoercionHsDeclsHsUtilsHsSynRdrHsSynPmExpr TcRnTypesTcUnifyTcSplice TcRnDriver TcMatchesTcExprRnHsDocRnExpr TcRnMonadTcPatSynTcMType TcAnnotationsRnSpliceTcIfaceTcHsSynTmOracle StgCmmHpc PipelineMonad LoadIfaceIfaceEnv NameShape RnModIface DebuggerUtilsGhcMonadFinderDsUsage CmmPipeline ByteCodeLink ByteCodeItblsHscStats HsDumpAst HaddockUtilsCoverageConvertBkpSynParser HeaderInfo CoreUtilsSAT OccurAnalMkCore CoreSubstCSE CoreArityCoreOpt CoreUnfold PrelRules LiberateCaseCoreTidyRules UnariseStgSimplStgPrelInfo StgCmmCon StgCmmExprCmmParseStgCmmBinIface FlagChecker CoreToStgTcEnvStaticPtrTable CoreMonad Specialise SimplMonadSimplEnv SimplUtilsSimplify SetLevelsFloatOutFloatInRnEnvRnTypesRnPatRnNames TcRnExportsRnBindsRnSourceMkIface PprTyThingFamInstFunDepsInstRtClosureInspectTcErrorsTcSMonad TcFlatten TcCanonical TcInteract TcSimplify TcValidity TcGenDeriv TcGenFunctor TcGenGenerics TcDerivUtils TcDerivInferCoreLintCorePrepTidyPgm CallArity ByteCodeInstrLinker ByteCodeGen BuildTyClTcHsTypeTcSigsTcPat TcDefaultsTcBinds TcTypeable TcTyDeclsTcArrows TcBackpackTcRules TcForeignMatchDsExprDsUtilsMatchLitDsMetaDsGRHSsDsCCall DsForeignDsBindsMatchConCheck DsListCompDsArrows TcClassDclTcDeriv TcInstDcls TcTyClsDeclsDesugarVectorise.Builtins.BaseVectorise.Builtins.Initialise Vectorise.EnvVectorise.Monad.BaseVectorise.Monad.GlobalVectorise.Monad.InstEnvVectorise.Monad.LocalVectorise.Monad.NamingVectorise.MonadVectorise.Type.ClassifyVectorise.VectVectorise.Utils.BaseVectorise.Utils.PADictVectorise.Utils.PolyVectorise.Utils.HoistingVectorise.Utils.ClosureVectorise.UtilsVectorise.Type.Type Vectorise.VarVectorise.Type.TyConDeclVectorise.ConvertVectorise.Generic.DescriptionVectorise.Generic.PDataVectorise.Generic.PAMethodsVectorise.Generic.PADictVectorise.Type.Env Vectorise.Exp VectoriseWwLibWorkWrapDmdAnal SimplCoreX86.CondX86.Regs X86.RegInfo TargetReg X86.InstrX86.Ppr SPARC.InstrSPARC.ShortcutJump SPARC.PprSPARC.CodeGen.SanitySPARC.CodeGen.ExpandSPARC.CodeGen.BaseRegAlloc.Graph.StatsRegAlloc.Graph.Main PPC.Instr PPC.RegInfoPPC.PprNCGMonadSPARC.CodeGen.Gen32SPARC.CodeGen.CondCodeSPARC.CodeGen.AmodeSPARC.CodeGen.Gen64PIC X86.CodeGen SPARC.CodeGen PPC.CodeGenRegAlloc.Linear.X86_64.FreeRegsRegAlloc.Linear.X86.FreeRegsRegAlloc.Linear.FreeRegsRegAlloc.Linear.JoinToTargetsRegAlloc.Linear.MainDwarf.Constants Dwarf.TypesDwarf AsmCodeGen CodeOutputHscMainInteractiveEvalDriverPipelineGhcMakeDriverMkDependDebugger DriverBkpunsafeGlobalDynFlags initGhcMonad TcPluginM Data.Listunconsheadtailnullhs AnnKeywordIdAnnOpenAnnClose AnnHeaderAnnValneedsTemplateHaskell runPipelinerunGhcputIfaceTopBndrgetIfaceTopBndr AnnPatternAnnType AnnDotdotAnnComma AnnModule AnnImportAnnSafe AnnQualifiedAnnPackageNameAnnAs AnnHidingAnnSemiAnnDecl parseDynFlags AnnBackquote AnnTildehshAnnTildeMx ParsedModuleTyCoRepfunTyConRdrNames mkCoreApps mkCoreConApps mkIntExpr mkWordExpr mkCharExpr mkStringExpr mkFloatExpr mkDoubleExpr mkCoreLams mkCoreLetsLlvm AnnDcolon AnnForallAnnDot AnnDarrow AnnRarrowAnnBangAnnSimpleQuoteAnnUnit AnnDefaultAnnInfix AnnInstanceAnnVbarAnnEqual AnnLarrowAnnWhere tcMonoBindsAnnFunIdAnnAtAnnRoleAnnClass AnnForeign AnnExport AnnDerivingAnnStock AnnAnyClassApi AnnNewtypeAnnData AnnNewTypeAnnCLose AnnFamilyAnnOpenP AnnClosePLanguage.Haskell.TH.SyntaxaddModFinalizerAnnThenAnnByAnnGroupAnnUsingAnnLetAnnRec Annlarrowtail Annrarrowtail AnnLarrowtail AnnRarrowtailAnnOpenB AnnCloseBAnnLamAnnCaseAnnOfAnnIfAnnElseAnnInAnnDoAnnMinus AnnValStrAnnOpenE AnnOpenEQ AnnCloseQAnnProc AnnStaticAnnColonmkVectTyConOccmkVectDataConOcc mkVectIsoOcc GlobalEnvtopSortModuleGraph flattenSCC imp_dep_mods setContextload HscNoRecomptcg_type_env_varTcGblEnv mkCoreLet GhcPlugins Data.ArrayParallelData.Array.ParallelPrim addExternalVectorise.BuiltinsVectorise.Generic DescriptionbaseControl.Monad.FixmfixGHC.Base<*>pure*>MonadFix ApplicativePluginFrontendPluginGHC.Stack.Types CallStackGHC.Fingerprint.TypeGHC.ExtssortWithForceSpecConstr NoSpecConstrSpecConstrAnnotation Data.Data mkNoRepTypeControl.Monad.IO.ClassliftIOMonadIO Control.Monad mapAndUnzipM Data.Version versionTags versionBranchVersion Debug.TracetraceData.TraversablemapMGHC.Fingerprint getFileHashfingerprintData fingerprint0Control.Exception.Basetry GHC.Conc.SyncthrowTo GHC.IORefIORef GHC.ExceptiondisplayException fromException toExceptionfingerprintFingerprintsfingerprintString Data.Functor<$>GHC.Listfoldl1'<*containers-0.5.10.2 Data.Graph flattenSCCs CyclicSCC AcyclicSCCSCCghc-boot-th-8.2.2GHC.ForeignSrcLang.Type LangObjcxxLangObjcLangCxxLangCForeignSrcLangghc-boot-8.2.2 GHC.PackageDbtrustedexposed indefinite hiddenModulesexposedModules haddockHTMLshaddockInterfaces includeDirsincludes ccOptions ldOptions frameworkDirs frameworkslibraryDynDirs libraryDirsextraGHCiLibrariesextraLibraries hsLibraries importDirs abiDependsdependsabiHash sourceLibNamepackageVersion packageNamesourcePackageIdinstantiatedWith componentIdunitIdInstalledPackageInfo GHC.Lexeme startsConId startsVarId startsConSym startsVarSym ghci-8.2.2SizedSeqsizeSSssElts GHCi.MessageRunModFinalizersRunTHStartTHGetBreakpointVarBreakpointStatusEnableBreakpoint NewBreakArrayCostCentreStackInfo MkCostCentresEvalIOEvalStringToString EvalString AbandonStmt ResumeStmtEvalStmtMkConInfoTableFreeFFIPrepFFI MallocStrings MallocData AddSptEntryFreeHValueRefs CreateBCOsFindSystemLibrary ResolveObjsRemoveLibrarySearchPathAddLibrarySearchPath UnloadObjLoadObj LoadArchiveLoadDLL LookupClosure LookupSymbol InitLinkerShutdownMessageEvalAppEvalThisEvalExpr EvalStatus EvalBreak EvalComplete EvalStatus_ EvalSuccess EvalException EvalResultGHCi.RemoteTypesHValue ForeignHValuehoopl-3.10.2.2Compiler.Hoopl.DataflowFactCompiler.Hoopl.Graph entryLabelCompiler.Hoopl.LabelFactBaseCompiler.Hoopl.CollectionsmapEmptyCompiler.Hoopl.BlocklastNodeOCBlocktransformers-0.5.2.0Control.Monad.Trans.Maybe runMaybeTMaybeTIntegerLibrary IntegerGMP IntegerSimplecBuildPlatformStringcHostPlatformStringcTargetPlatformString cProjectNamecProjectGitCommitIdcProjectVersioncProjectVersionIntcProjectPatchLevelcProjectPatchLevel1cProjectPatchLevel2cBooterVersioncStagecIntegerLibrarycIntegerLibraryTypecSupportsSplitObjscGhcWithInterpretercGhcWithNativeCodeGen cGhcWithSMP cGhcRTSWayscGhcRtsWithLibdwcGhcEnableTablesNextToCodecLeadingUnderscorecGHC_UNLIT_PGMcGHC_SPLIT_PGMcLibFFI cGhcThreaded cGhcDebugged$fEqIntegerLibrary hiVersionmAX_TUPLE_SIZEmAX_CTUPLE_SIZE mAX_SUM_SIZEmAX_REDUCTION_DEPTHmAX_SOLVER_ITERATIONS wORD64_SIZEtARGET_MAX_CHARutf8DecodeChar#utf8DecodeChar utf8PrevChar utf8CharStartutf8DecodeByteStringutf8DecodeStringLazycountUTF8Charsutf8EncodeCharutf8EncodeStringutf8EncodedLength zEncodeString zDecodeStringtoBase62PaddedtoBase62ExceptionMonadgcatchgmaskgbracketgfinallycatchIOhandleIOtryIOgtryghandle gonException$fExceptionMonadIOinlinePerformIO FastMutPtr newFastMutIntreadFastMutIntwriteFastMutInt newFastMutPtrreadFastMutPtrwriteFastMutPtrreadHexFingerprintfingerprintByteString insertListinsertListWith deleteList foldRightfoldRightWithKey emptyHooksunListTselectfoldrunListT$fMonadPlusListT $fMonadListT$fAlternativeListT$fApplicativeListT$fFunctorListTSDocshowSDocUnsafe GhcExceptionSignal UsageError CmdLineErrorPprPanicSorryPprSorryInstallationError ProgramErrorPprProgramErrorprogName showExceptionsafeShowExceptionshowGhcExceptionthrowGhcExceptionthrowGhcExceptionIOhandleGhcExceptionpanicsorrypgmErrorpanicDocsorryDoc pgmErrorDoc assertPanictryMostwithSignalHandlers$fShowGhcException$fExceptionGhcExceptionCondALWAYSEQQGEGEUGTTGULELEULTTLUNE condNegate condUnsigned condToSignedcondToUnsigned$fEqCondis_ident is_symbolis_anyis_spaceis_loweris_upperis_digit is_alphanumhexDigit octDecDigit is_decdigit is_hexdigit is_octdigit is_bindigit PPC_64ABIELF_V1ELF_V2ArmABISOFTSOFTFPHARD ArmISAExtVFPv2VFPv3VFPv3D16NEONIWMMX2ArmISAARMv5ARMv6ARMv7OS OSUnknownOSLinuxOSDarwinOSiOS OSSolaris2 OSMinGW32 OSFreeBSD OSDragonFly OSOpenBSDOSNetBSD OSKFreeBSDOSHaikuOSQNXNTO OSAndroidOSAIXArch ArchUnknownArchX86 ArchX86_64ArchPPC ArchPPC_64 ArchSPARC ArchSPARC64ArchARM ArchARM64 ArchAlpha ArchMipseb ArchMipselArchJavaScript ppc_64ABIarmISA armISAExtarmABI platformArch platformOSplatformWordSizeplatformUnregisterisedplatformHasGnuNonexecStackplatformHasIdentDirective platformHasSubsectionsViaSymbolsplatformIsCrossCompilingisARM target32Bit osElfTarget osMachOTargetplatformUsesFrameworksosSubsectionsViaSymbolsplatformBinariesAreStaticLibs$fReadOS$fShowOS$fEqOS $fReadArmISA $fShowArmISA $fEqArmISA$fReadArmISAExt$fShowArmISAExt $fEqArmISAExt $fReadArmABI $fShowArmABI $fEqArmABI$fReadPPC_64ABI$fShowPPC_64ABI $fEqPPC_64ABI $fReadArch $fShowArch$fEqArch$fReadPlatform$fShowPlatform $fEqPlatformDumpFlaghasNoDebugOutput hasPprDebugshouldUseColoruseUnicodeSyntax useUnicodepprCols pprUserLengthtargetPlatformpc_platformConstantspc_CONTROL_GROUP_CONST_291pc_STD_HDR_SIZEpc_PROF_HDR_SIZE pc_BLOCK_SIZEpc_BLOCKS_PER_MBLOCKpc_TICKY_BIN_COUNTpc_OFFSET_StgRegTable_rR1pc_OFFSET_StgRegTable_rR2pc_OFFSET_StgRegTable_rR3pc_OFFSET_StgRegTable_rR4pc_OFFSET_StgRegTable_rR5pc_OFFSET_StgRegTable_rR6pc_OFFSET_StgRegTable_rR7pc_OFFSET_StgRegTable_rR8pc_OFFSET_StgRegTable_rR9pc_OFFSET_StgRegTable_rR10pc_OFFSET_StgRegTable_rF1pc_OFFSET_StgRegTable_rF2pc_OFFSET_StgRegTable_rF3pc_OFFSET_StgRegTable_rF4pc_OFFSET_StgRegTable_rF5pc_OFFSET_StgRegTable_rF6pc_OFFSET_StgRegTable_rD1pc_OFFSET_StgRegTable_rD2pc_OFFSET_StgRegTable_rD3pc_OFFSET_StgRegTable_rD4pc_OFFSET_StgRegTable_rD5pc_OFFSET_StgRegTable_rD6pc_OFFSET_StgRegTable_rXMM1pc_OFFSET_StgRegTable_rXMM2pc_OFFSET_StgRegTable_rXMM3pc_OFFSET_StgRegTable_rXMM4pc_OFFSET_StgRegTable_rXMM5pc_OFFSET_StgRegTable_rXMM6pc_OFFSET_StgRegTable_rYMM1pc_OFFSET_StgRegTable_rYMM2pc_OFFSET_StgRegTable_rYMM3pc_OFFSET_StgRegTable_rYMM4pc_OFFSET_StgRegTable_rYMM5pc_OFFSET_StgRegTable_rYMM6pc_OFFSET_StgRegTable_rZMM1pc_OFFSET_StgRegTable_rZMM2pc_OFFSET_StgRegTable_rZMM3pc_OFFSET_StgRegTable_rZMM4pc_OFFSET_StgRegTable_rZMM5pc_OFFSET_StgRegTable_rZMM6pc_OFFSET_StgRegTable_rL1pc_OFFSET_StgRegTable_rSppc_OFFSET_StgRegTable_rSpLimpc_OFFSET_StgRegTable_rHppc_OFFSET_StgRegTable_rHpLimpc_OFFSET_StgRegTable_rCCCS!pc_OFFSET_StgRegTable_rCurrentTSO%pc_OFFSET_StgRegTable_rCurrentNurserypc_OFFSET_StgRegTable_rHpAllocpc_OFFSET_stgEagerBlackholeInfopc_OFFSET_stgGCEnter1pc_OFFSET_stgGCFunpc_OFFSET_Capability_rpc_OFFSET_bdescr_startpc_OFFSET_bdescr_freepc_OFFSET_bdescr_blockspc_OFFSET_bdescr_flagspc_SIZEOF_CostCentreStack#pc_OFFSET_CostCentreStack_mem_alloc pc_REP_CostCentreStack_mem_alloc#pc_OFFSET_CostCentreStack_scc_count pc_REP_CostCentreStack_scc_countpc_OFFSET_StgHeader_ccspc_OFFSET_StgHeader_ldvwpc_SIZEOF_StgSMPThunkHeaderpc_OFFSET_StgEntCounter_allocspc_REP_StgEntCounter_allocspc_OFFSET_StgEntCounter_allocdpc_REP_StgEntCounter_allocd#pc_OFFSET_StgEntCounter_registeredppc_OFFSET_StgEntCounter_link#pc_OFFSET_StgEntCounter_entry_countpc_SIZEOF_StgUpdateFrame_NoHdrpc_SIZEOF_StgMutArrPtrs_NoHdrpc_OFFSET_StgMutArrPtrs_ptrspc_OFFSET_StgMutArrPtrs_size"pc_SIZEOF_StgSmallMutArrPtrs_NoHdr!pc_OFFSET_StgSmallMutArrPtrs_ptrspc_SIZEOF_StgArrBytes_NoHdrpc_OFFSET_StgArrBytes_bytespc_OFFSET_StgTSO_alloc_limitpc_OFFSET_StgTSO_cccspc_OFFSET_StgTSO_stackobjpc_OFFSET_StgStack_sppc_OFFSET_StgStack_stack pc_OFFSET_StgUpdateFrame_updatee"pc_OFFSET_StgFunInfoExtraFwd_aritypc_REP_StgFunInfoExtraFwd_aritypc_SIZEOF_StgFunInfoExtraRev"pc_OFFSET_StgFunInfoExtraRev_aritypc_REP_StgFunInfoExtraRev_aritypc_MAX_SPEC_SELECTEE_SIZEpc_MAX_SPEC_AP_SIZEpc_MIN_PAYLOAD_SIZEpc_MIN_INTLIKEpc_MAX_INTLIKEpc_MIN_CHARLIKEpc_MAX_CHARLIKEpc_MUT_ARR_PTRS_CARD_BITSpc_MAX_Vanilla_REGpc_MAX_Float_REGpc_MAX_Double_REGpc_MAX_Long_REGpc_MAX_XMM_REGpc_MAX_Real_Vanilla_REGpc_MAX_Real_Float_REGpc_MAX_Real_Double_REGpc_MAX_Real_XMM_REGpc_MAX_Real_Long_REGpc_RESERVED_C_STACK_BYTESpc_RESERVED_STACK_WORDSpc_AP_STACK_SPLIM pc_WORD_SIZEpc_DOUBLE_SIZE pc_CINT_SIZE pc_CLONG_SIZEpc_CLONG_LONG_SIZEpc_BITMAP_BITS_SHIFT pc_TAG_BITSpc_WORDS_BIGENDIANpc_DYNAMIC_BY_DEFAULT pc_LDV_SHIFTpc_ILDV_CREATE_MASKpc_ILDV_STATE_CREATEpc_ILDV_STATE_USE$fReadPlatformConstantsNEGNEVERPOSVCVS runState'getgetsputmodify evalState execStaterunState $fMonadState$fApplicativeState$fFunctorState runStreamyieldcollectfromListmap mapAccumL $fMonadStream$fApplicativeStream$fFunctorStreamstderrSupportsAnsiColors isFunTyConisUnboxedTupleTyCon isTupleTyConOverridingBoolAutoAlwaysNeverHasDebugCallStack HasCallStack DirectionForwards BackwardsSuffix ghciSupported debugIsOn ncgDebugIsOnghciTablesNextToCode isWindowsHost isDarwinHostnTimesfstOf3sndOf3thdOf3fst3snd3third3uncurry3liftFstliftSndfirstMfirst3M filterOut partitionWith splitEithers chkAppendzipEqual zipWithEqual zipWith3Equal zipWith4EqualzipLazy zipWithLazy zipWith3Lazy filterByList filterByListspartitionByListstretchZipWithmapFstmapSnd mapAndUnzip mapAndUnzip3zipWithAndUnzip mapAccumL2nOfThematLength lengthExceeds lengthAtLeastlengthIs listLengthCmp equalLength compareLengthleLength singleton isSingletonnotNullonlyisInisn'tIn chunkList changeLastminWithnubSorttransitiveClosurefoldl2all2counttakeListdropList splitAtListdropTaildropWhileEndLEspanEndsnocViewsplit capitaliseisEqualthenCmpeqListBy eqMaybeBycmpList removeSpaces<&&><||> fuzzyMatch fuzzyLookup unzipWithseqListglobal consIORefglobalM sharedGlobal sharedGlobalMlooksLikeModuleNamelooksLikePackageNamegetCmd toCmdArgstoArgs exactLog2 readRational maybeReadmaybeReadFuzzydoesDirNameExistgetModificationUTCTimemodificationTimeIfExists hSetTranslitsplitLongestPrefix escapeSpacesreslashmakeRelativeToabstractConstrabstractDataTypecharToC hashStringprettyCurrentCallStack overrideWith$fShowOverridingBoolSchemesHeadersMessagesWarningsErrorsFatalsMargin renderColourrenderColourAfresh colCustomcolResetcolBold colBlackFgcolRedFg colGreenFg colYellowFg colBlueFg colMagentaFg colCyanFg colWhiteFg defaultScheme parseScheme$fMonoidPprColourMaybeErr SucceededFailed firstJust firstJusts expectJust whenIsJustorElse liftMaybeT tryMaybeT isSuccessfailME$fMonadMaybeErr$fApplicativeMaybeErr$fFunctorMaybeErrliftIO1liftIO2liftIO3liftIO4 zipWith3M zipWith3M_ zipWith4MzipWithAndUnzipM mapAndUnzip3M mapAndUnzip4M mapAndUnzip5M mapAccumLMmapSndM concatMapM mapMaybeM fmapMaybeM fmapEitherManyMallMorMfoldlMfoldlM_foldrM maybeMapMwhenMunlessM LitStringuniqn_charsfs_bsfs_ref FastZStringfastStringToByteStringfastZStringToByteStringunsafeMkByteStringhashByteStringhPutFZSzString lengthFZS mkFastString#mkFastStringBytesmkFastStringForeignPtrmkFastStringByteString mkFastStringmkFastStringByteListlengthFS hasZEncodingnullFSunpackFSbytesFS zEncodeFSappendFSconcatFSheadFStailFSconsFS uniqueOfFSnilFSgetFastStringTablehPutFS mkLitString# mkLitStringunpackLitStringlengthLSsLitfsLit$fDataFastString$fShowFastString$fMonoidFastString$fIsStringFastString$fOrdFastString$fEqFastString$fNFDataFastZString ComponentIdInstalledUnitIdUnitId ModuleName unitIdString moduleUnitId moduleNamePackageConfigMap PackageStategetPackageConfigMap improveUnitIddisplayInstalledUnitIdcomponentIdStringemptyPackageStateisLexConisLexVarisLexIdisLexSym isLexConId isLexVarId isLexConSym isLexVarSymokVarOccokConOccokTcOcc okVarIdOcc okVarSymOcc okConIdOcc okConSymOcc BufHandle newBufHandlebPutCharbPutStrbPutFSbPutFZS bPutLitStringbFlushModePageMode ZigZagModeLeftMode OneLineModeStylemode lineLengthribbonsPerLine TextDetailsChrStrPStrZStrLStrDocchartextftextptextztext sizedText zeroWidthTextemptyisEmptysemicommacolonspaceequalslparenrparenlbrackrbracklbracerbraceintintegerfloatdoublerationalquotesquote doubleQuotesparensbracketsbraces maybeParenshcathsepvcatnesthang hangNotEmpty punctuate$$$+$<><+>sepcatfcatfsepstyle renderStyle fullRenderprintDoc printDoc_ bufLeftRender $fShowDocOutputableBndrpprBndr pprPrefixOcc pprInfixOccbndrIsJoin_maybe BindingSite LambdaBindCaseBind CasePatBindLetBindpprpprPrecrunSDoc QualifyName NameUnqualNameQualNameNotInScope1NameNotInScope2QueryQualifyPackageQueryQualifyModuleQueryQualifyNamePrintUnqualified QueryQualifyqueryQualifyNamequeryQualifyModulequeryQualifyPackageDepth AllTheWayPartWay CodeStyleCStyleAsmStylePprStylereallyAlwaysQualifyNamesalwaysQualifyNamesneverQualifyNamesalwaysQualifyModulesneverQualifyModulesalwaysQualifyPackagesneverQualifyPackagesreallyAlwaysQualify alwaysQualify neverQualifydefaultUserStyledefaultDumpStyle mkDumpStyledefaultErrStyle mkErrStylecmdlineParserStyle mkUserStylesetStyleColouredinitSDocContext withPprStylewithPprStyleDocsdocWithPprDebug pprDeeper pprDeeperList pprSetDepth getPprStylesdocWithDynFlagssdocWithPlatformqualName qualModule qualPackage queryQual codeStyleasmStyle dumpStyle debugStyle userStyle ifPprDebug printSDoc printSDocLn printForUserprintForUserPartWay printForCbufLeftRenderSDocpprCode mkCodeStyleshowSDocshowPprshowSDocUnqualshowSDocForUser showSDocDump showSDocDebugrenderWithStyleshowSDocOneLineshowSDocDumpOneLine docToSDoc doublePrec angleBrackets paBracketscparen blankLinedcolonarrowlarrowdarrowarrowtlarrowtarrowttlarrowtt underscoredotvbar forAllLitkindStarbullet unicodeSyntaxppWhenppUnlesscolouredkeyword pprHsChar pprHsString pprHsBytesprimCharSuffixprimFloatSuffix primIntSuffixprimDoubleSuffixprimWordSuffixprimInt64SuffixprimWord64Suffix pprPrimChar pprPrimInt pprPrimWord pprPrimInt64 pprPrimWord64 pprPrefixVar pprInfixVarpprFastFilePath pprWithCommas pprWithBars interppSP interpp'SP pprQuotedListquotedListWithOrquotedListWithNor intWithCommasspeakNthspeakNspeakNOfpluralisOrAredoOrDoes callStackDocpprPanicpprSorry pprPgmError pprTraceDebugpprTrace pprTraceIt pprSTrace warnPprTraceassertPprPanicpprDebugAndThen$fIsStringSDoc$fOutputableExtension$fOutputableSerialized$fOutputableSCC$fOutputableFingerprint$fOutputableIntMap$fOutputableMap$fOutputableFastString$fOutputable(,,,,,,)$fOutputable(,,,,,)$fOutputable(,,,,)$fOutputable(,,,)$fOutputable(,,)$fOutputableEither$fOutputableMaybe$fOutputable(,)$fOutputableSet$fOutputable[]$fOutputable()$fOutputableWord$fOutputableWord32$fOutputableWord16$fOutputableInt$fOutputableInt64$fOutputableInt32$fOutputableOrdering$fOutputableBool$fOutputableChar$fOutputablePprStyle$fOutputableQualifyName ThetaTypePredTypeTyBinderTCvSubstUnivCoProvenanceTyThingpprTypepprKindTcTyVarDetails MetaDetailsvanillaSkolemTvpprTcTyVarDetailsbuflencurhGetStringBufferhGetStringBufferBlockappendStringBuffersstringToStringBuffernextChar currentCharprevCharstepOn offsetBytesbyteDiffatEndatLinelexemeToStringlexemeToFastStringparseUnsignedInteger$fShowStringBufferpFstpSndunPairtoPairswappLiftFstpLiftSnd$fOutputablePair $fMonoidPair$fTraversablePair$fFoldablePair$fApplicativePair $fFunctorPairnilOLunitOLsnocOLconsOLconcatOLlastOLisNilOLappOLfromOLmapOLfoldrOLfoldlOLtoOL$fTraversableOrdList$fFoldableOrdList$fFunctorOrdList$fMonoidOrdList$fSemigroupOrdList$fOutputableOrdListAssocgetNth unionLists minusListassocDefaultUsingassoc assocDefault assocUsing assocMaybe hasNoDups equivClassesruns removeDups findDupsEqToJsonjsonJsonDocJSNullJSBoolJSIntJSStringJSArrayJSObject renderJSONescapeJsonString RealLocatedLocated GenLocatedLSrcSpan RealSrcSpan UnhelpfulSpan srcSpanFile RealSrcLoc UnhelpfulLocmkSrcLoc mkRealSrcLocnoSrcLocgeneratedSrcLocinteractiveSrcLocmkGeneralSrcLoc srcLocFile srcLocLine srcLocCol advanceSrcLoc sortLocated noSrcSpanwiredInSrcSpaninteractiveSrcSpanmkGeneralSrcSpan srcLocSpanrealSrcLocSpan mkRealSrcSpan mkSrcSpancombineSrcSpanssrcSpanFirstCharacter isGoodSrcSpan isOneLineSpan containsSpansrcSpanStartLinesrcSpanEndLinesrcSpanStartCol srcSpanEndCol srcSpanStart srcSpanEndrealSrcSpanStartrealSrcSpanEndsrcSpanFileName_maybepprUserRealSpanunLocgetLocnoLocmkGeneralLocated combineLocsaddCLoc eqLocated cmpLocated rightmostleftmost_smallestleftmost_largestspans isSubspanOf$fShowRealSrcLoc$fOutputableRealSrcLoc$fOutputableSrcLoc$fOutputableRealSrcSpan$fShowRealSrcSpan$fOrdRealSrcSpan$fToJsonRealSrcSpan$fDataRealSrcSpan$fOutputableSrcSpan$fNFDataSrcSpan$fToJsonSrcSpan $fDataSrcSpan$fOutputableGenLocated$fEqRealSrcLoc$fOrdRealSrcLoc $fEqSrcLoc $fOrdSrcLoc $fShowSrcLoc$fEqRealSrcSpan $fEqSrcSpan $fOrdSrcSpan $fShowSrcSpan$fEqGenLocated$fOrdGenLocated$fDataGenLocated$fFunctorGenLocated$fFoldableGenLocated$fTraversableGenLocated IdDetails pprIdDetailsisCoVarDetails coVarDetails vanillaIdInfo LHsDocString HsDocString ppr_mbDoc$fOutputableHsDocString$fEqHsDocString$fShowHsDocString$fDataHsDocStringMsgDocSeverity SevOutputSevFatalSevInteractiveSevDumpSevInfo SevWarningSevErrordumpSDocgetCaretDiagnosticmkLocMessageAnn mkLocMessageSpliceExplicitFlagExplicitSpliceImplicitSplice IntWithInf FractionalLitFLfl_textfl_value InlineSpecInline InlinableNoInlineEmptyInlineSpec InlinePragmainl_src inl_inlineinl_satinl_actinl_rule RuleMatchInfoFunLike Activation NeverActive AlwaysActive ActiveBefore ActiveAfter CompilerPhasePhase InitialPhasePhaseNum SourceText NoSourceText SuccessFlag DefMethSpec VanillaDM GenericDM TailCallInfoAlwaysTailCalledNoTailCallInfo OneBranch InsideLamInterestingCxtOccInfoManyOccsIAmDeadOneOccIAmALoopBreakerocc_tail occ_in_lam occ_one_br occ_int_cxtocc_rules_onlyEPfromEPtoEP TupleSort BoxedTuple UnboxedTupleConstraintTupleTyPrecTopPrecFunPrecTyOpPrec TyConPrec OverlapMode NoOverlap Overlappable OverlappingOverlaps Incoherent OverlapFlag overlapMode isSafeOverlap DerivStrategy StockStrategyAnyclassStrategyNewtypeStrategyOrigin FromSource GeneratedRecFlag Recursive NonRecursiveBoxityBoxedUnboxed TopLevelFlagTopLevel NotTopLevel LexicalFixityPrefixInfixFixityDirectionInfixLInfixRInfixNFixityRuleName WarningTxt DeprecatedTxt StringLiteralsl_stsl_fsFunctionOrData IsFunctionIsDataSwapFlag NotSwapped IsSwapped OneShotInfo NoOneShotInfo OneShotLam AlignmentConTagZConTag JoinArityRepArityArity LeftOrRightCLeftCRightpickLR fIRST_TAG noOneShotInfo isOneShotInfohasNoOneShotInfo worstOneShot bestOneShotflipSwap isSwappedunSwap bumpVersioninitialVersionpprWarningTxtForMsg pprRuleName maxPrecedence minPrecedence defaultFixity negateFixity funTyFixity compareFixity isNotTopLevel isTopLevelisBoxedisRecisNonRec boolToRecFlag isGeneratedsetOverlapModeMaybehasIncoherentFlaghasOverlappableFlaghasOverlappingFlag maybeParentupleSortBoxityboxityTupleSort tupleParens sumParenspprAlternative noOccInfo isManyOccs seqOccInfo insideLam notInsideLam oneBranch notOneBranch tailCallInfozapOccTailCallInfoisAlwaysTailCalledstrongLoopBreakerweakLoopBreakerisWeakLoopBreakerisStrongLoopBreaker isDeadOccisOneOcc zapFragileOcc successIf succeededfailedpprWithSourceText isConLike isFunLikeisEmptyInlineSpecdefaultInlinePragmaalwaysInlinePragmaneverInlinePragmainlinePragmaSpecdfunInlinePragmaisDefaultInlinePragmaisInlinePragmaisInlinablePragmaisAnyInlinePragmainlinePragmaSatinlinePragmaActivationinlinePragmaRuleMatchInfosetInlinePragmaActivationsetInlinePragmaRuleMatchInfo pprInlinepprInlineDebugisActive isActiveIn competesWith isNeverActiveisAlwaysActive isEarlyActivenegateFractionalLitintegralFractionalLitinfinity intGtLimittreatZeroAsInf mkIntWithInf$fOutputableLeftOrRight$fOutputableOneShotInfo$fOutputableSwapFlag$fOutputableFunctionOrData$fOutputableFixityDirection$fOutputableLexicalFixity$fOutputableTopLevelFlag$fOutputableBoxity$fOutputableRecFlag$fOutputableOrigin$fOutputableDerivStrategy$fOutputableTailCallInfo$fOutputableOccInfo$fOutputableDefMethSpec$fOutputableSuccessFlag$fOutputableSourceText$fOutputableOverlapMode$fOutputableOverlapFlag $fEqFixity$fOutputableFixity$fOutputableStringLiteral$fEqStringLiteral$fOutputableWarningTxt$fOutputableCompilerPhase$fOutputableActivation$fOutputableRuleMatchInfo$fOutputableInlineSpec$fOutputableInlinePragma$fOutputableFractionalLit$fOrdFractionalLit$fEqFractionalLit$fNumIntWithInf$fOutputableIntWithInf$fOrdIntWithInf$fEqLeftOrRight$fDataLeftOrRight$fEqOneShotInfo$fEqFunctionOrData$fOrdFunctionOrData$fDataFunctionOrData$fEqFixityDirection$fDataFixityDirection$fDataLexicalFixity$fEqLexicalFixity $fEqBoxity $fDataBoxity $fEqRecFlag $fDataRecFlag $fEqOrigin $fDataOrigin$fEqDerivStrategy$fDataDerivStrategy $fEqTyPrec $fOrdTyPrec $fEqTupleSort$fDataTupleSort$fEqTailCallInfo $fEqOccInfo$fDataSourceText$fShowSourceText$fEqSourceText$fEqOverlapMode$fDataOverlapMode$fEqOverlapFlag$fDataOverlapFlag $fDataFixity$fDataStringLiteral$fEqWarningTxt$fDataWarningTxt$fEqActivation$fDataActivation$fEqRuleMatchInfo$fDataRuleMatchInfo$fShowRuleMatchInfo$fEqInlineSpec$fDataInlineSpec$fShowInlineSpec$fEqInlinePragma$fDataInlinePragma$fDataFractionalLit$fShowFractionalLit$fEqIntWithInf$fDataSpliceExplicitFlag Uniquable getUnique uNIQUE_BITSmkUniqueGrimilygetKey deriveUnique newTagUniquemkUnique unpkUniqueisValidKnownKeyUniquehasKeynonDetCmpUniquepprUniqueAlwaysmkAlphaTyVarUnique mkCoVarUniquemkPreludeClassUniquemkPreludeTyConUniquetyConRepNameUniquemkPreludeDataConUniquedataConWorkerUniquedataConRepNameUniquemkPrimOpIdUniquemkPreludeMiscIdUniquemkPArrDataConUniqueinitTyVarUniquemkBuiltinUniquemkPseudoUniqueDmkPseudoUniqueEmkPseudoUniqueHmkRegSingleUniquemkRegSubUniquemkRegPairUniquemkRegClassUniquemkCostCentreUniquemkVarOccUniquemkDataOccUnique mkTvOccUnique mkTcOccUnique $fShowUnique$fOutputableUnique $fEqUnique$fUniquableUnique$fUniquableInt$fUniquableFastString MonadUniquegetUniqueSupplyM getUniqueM getUniquesMUniqSMinitUniqSupplymkSplitUniqSupplysplitUniqSupplylistSplitUniqSupplyuniqFromSupplyuniqsFromSupplytakeUniqFromSupplysplitUniqSupply3splitUniqSupply4initUsinitUs_ lazyThenUsgetUniqueSupplyM3liftUs lazyMapUs$fMonadFixUniqSM$fApplicativeUniqSM$fFunctorUniqSM $fMonadUniqSM$fMonadUniqueUniqSMemptyUFM isNullUFMunitUFMunitDirectlyUFM listToUFMlistToUFM_Directly listToUFM_CaddToUFM addListToUFMaddListToUFM_DirectlyaddToUFM_Directly addToUFM_C addToUFM_AccalterUFMaddListToUFM_C adjustUFMadjustUFM_Directly delFromUFMdelListFromUFMdelListFromUFM_DirectlydelFromUFM_DirectlyplusUFM plusUFM_C plusUFM_CDplusMaybeUFM_C plusUFMListminusUFM intersectUFMintersectUFM_C disjointUFMfoldUFMmapUFMmapUFM_Directly filterUFMfilterUFM_Directly partitionUFMsizeUFMelemUFMelemUFM_Directly lookupUFMlookupUFM_DirectlylookupWithDefaultUFMlookupWithDefaultUFM_DirectlyeltsUFMufmToSet_DirectlyanyUFMallUFM seqEltsUFM nonDetEltsUFM nonDetKeysUFM nonDetFoldUFMnonDetFoldUFM_DirectlynonDetUFMToList ufmToIntMap equalKeysUFM pprUniqFMpprUFMpprUFMWithKeys pluralUFM$fOutputableUniqFM$fMonoidUniqFM$fSemigroupUniqFM $fDataUniqFM $fEqUniqFM$fFunctorUniqFM getUniqSetunsafeUFMToUniqSet pprUniqSet emptyUniqSet unitUniqSet mkUniqSetaddOneToUniqSetaddListToUniqSetdelOneFromUniqSetdelOneFromUniqSet_DirectlydelListFromUniqSetdelListFromUniqSet_Directly unionUniqSetsunionManyUniqSets minusUniqSetuniqSetMinusUFMintersectUniqSetsrestrictUniqSetToUFMelementOfUniqSetelemUniqSet_Directly filterUniqSetfilterUniqSet_DirectlypartitionUniqSet sizeUniqSetisEmptyUniqSet lookupUniqSetlookupUniqSet_Directly uniqSetAny uniqSetAllnonDetFoldUniqSetnonDetFoldUniqSet_DirectlynonDetEltsUniqSetnonDetKeysUniqSet mapUniqSet$fMonoidUniqSet$fSemigroupUniqSet$fOutputableUniqSet $fEqUniqSet $fDataUniqSetNodenodeId nodeClass nodeColor nodeConflictsnodeExclusionsnodePreference nodeCoalesceGraphgraphMapTriv initGraphgraphMapModifynewNode emptyUDFMunitUDFM addToUDFM addToUDFM_C addListToUDFM delFromUDFM plusUDFM_CplusUDFM lookupUDFMlookupUDFM_DirectlyelemUDFMfoldUDFMnonDetFoldUDFMeltsUDFM filterUDFMfilterUDFM_Directly udfmToList isNullUDFMsizeUDFM intersectUDFMudfmIntersectUFMintersectsUDFM disjointUDFMdisjointUdfmUfm minusUDFM udfmMinusUFM partitionUDFMdelListFromUDFM udfmToUfm listToUDFM adjustUDFM alterUDFMmapUDFManyUDFMallUDFMalwaysUnsafeUfmToUdfmpprUDFM$fFunctorTaggedVal $fEqTaggedVal$fOutputableUniqDFM$fMonoidUniqDFM$fDataTaggedVal $fDataUniqDFM$fFunctorUniqDFM emptyUniqDSet unitUniqDSet mkUniqDSetaddOneToUniqDSetaddListToUniqDSetdelOneFromUniqDSetdelListFromUniqDSetunionUniqDSetsunionManyUniqDSets minusUniqDSetuniqDSetMinusUniqSetintersectUniqDSetsintersectsUniqDSets foldUniqDSetelementOfUniqDSetfilterUniqDSet sizeUniqDSetisEmptyUniqDSetlookupUniqDSetuniqDSetToListpartitionUniqDSetDFastStringEnv emptyFsEnv unitFsEnv extendFsEnvextendFsEnvList lookupFsEnv alterFsEnvmkFsEnv elemFsEnv plusFsEnv plusFsEnv_C extendFsEnv_CmapFsEnvextendFsEnv_AccextendFsEnvList_C delFromFsEnvdelListFromFsEnv filterFsEnvlookupFsEnv_NF emptyDFsEnv dFsEnvEltsmkDFsEnv lookupDFsEnv RcIntegerRcFloatRcDouble RcDoubleSSE$fOutputableRegClass$fUniquableRegClass $fEqRegClassRegSubSubL16SubL8SubL8HClassG32ClassG16ClassG8ClassF64worstboundsqueese$fUniquableReg$fShowRegClass$fEnumRegClass $fShowRegSub $fEnumRegSub $fOrdRegSub $fEqRegSub $fShowReg$fEqReg classOfReg regsOfClassregNameregAlias RegVirtualRegRealRealReg RealRegSingle RealRegPair VirtualReg VirtualRegI VirtualRegHi VirtualRegF VirtualRegD VirtualRegSSERegNorenameVirtualRegclassOfVirtualReggetHiVirtualRegFromLogetHiVRegFromLoregNosOfRealReg realRegsAlias regSingleregPair isRealReg takeRealReg isVirtualRegtakeVirtualRegliftPatchFnToRegReg$fOutputableVirtualReg$fUniquableVirtualReg$fOrdVirtualReg$fOutputableRealReg$fUniquableRealReg$fOutputableReg$fEqVirtualReg$fShowVirtualReg $fEqRealReg $fShowRealReg $fOrdRealReg$fOrdReg trivColorable dumpGraphdotGraph lookupNodegetNodeaddNodedelNodemodNodesizeunion addConflict delConflict addConflicts addExclusion addExclusions addCoalesce delCoalesce addPreference coalesceGraph coalesceNodes freezeNodefreezeOneInGraphfreezeAllInGraph scanGraph validateGraphslurpNodeConflictCountsetColor colorGraph SymbolTable DictionaryUserData ud_get_name ud_get_fsud_put_nonbinding_nameud_put_binding_name ud_put_fsput_Bin BinHandle getUserData setUserData withBinBuffercastBinputAtgetAt openBinMemtellBinseekBinseekByisEOFBin writeBinMem readBinMemputBytegetBytelazyPutlazyGet newReadState newWriteState putDictionary getDictionaryputFS$fBinarySourceText$fBinarySerialized$fBinarySrcSpan$fBinaryGenLocated$fBinaryStringLiteral$fBinaryWarningTxt$fBinaryFixity$fBinaryFixityDirection$fBinaryOverlapFlag$fBinaryOverlapMode$fBinaryRecFlag$fBinaryInlineSpec$fBinaryRuleMatchInfo$fBinaryInlinePragma$fBinaryActivation$fBinaryTupleSort$fBinaryFunctionOrData$fBinaryFingerprint$fBinaryLeftOrRight$fBinaryFastString$fBinaryByteString$fBinarySomeTypeRep$fBinaryTypeRep$fBinaryTypeLitSort$fBinaryKindRep$fBinaryRuntimeRep$fBinaryVecElem$fBinaryVecCount $fBinaryTyCon $fBinaryBin $fBinaryRatio$fBinaryInteger$fBinaryDiffTime $fBinaryDay$fBinaryUTCTime$fBinaryEither $fBinaryMaybe$fBinary(,,,,,,)$fBinary(,,,,,)$fBinary(,,,,) $fBinary(,,,) $fBinary(,,) $fBinary(,) $fBinary[] $fBinaryInt $fBinaryChar $fBinaryBool $fBinary() $fBinaryInt64 $fBinaryInt32 $fBinaryInt16 $fBinaryInt8$fBinaryWord64$fBinaryWord32$fBinaryWord16 $fBinaryWord8$fEqBin$fOrdBin $fShowBin $fBoundedBinDModuleNameEnv ModuleNameEnv ModuleSet ModuleEnv ShHoleSubstInstalledModuleEnv DefUnitId unDefUnitIdInstalledModuleinstalledModuleUnitIdinstalledModuleNameinstalledUnitIdFS IndefModuleindefModuleUnitIdindefModuleName IndefUnitId indefUnitIdFSindefUnitIdKeyindefUnitIdComponentIdindefUnitIdInstsindefUnitIdFreeHolesIndefiniteUnitIdDefiniteUnitId HasModule getModuleContainsModule extractModule ModLocation ml_hs_file ml_hi_file ml_obj_file addBootSuffixaddBootSuffix_maybeaddBootSuffixLocnstableModuleNameCmp pprModuleName moduleNameFSmoduleNameStringmoduleStableString mkModuleNamemkModuleNameFSmoduleNameSlashesmoduleNameColonsmoduleFreeHolesmoduleIsDefinite mkHoleModulestableModuleCmpmkModule pprModuleunitIdFS unitIdKeynewIndefUnitIdindefUnitIdToUnitIdindefModuleToModuletoInstalledUnitIdinstalledUnitIdStringfsToInstalledUnitIdcomponentIdToInstalledUnitIdstringToInstalledUnitIdinstalledModuleEqinstalledUnitIdEqemptyInstalledModuleEnvlookupInstalledModuleEnvextendInstalledModuleEnvfilterInstalledModuleEnvdelInstalledModuleEnvunitIdFreeHolesunitIdIsDefinite hashUnitId newUnitIdstableUnitIdCmpnewSimpleUnitId fsToUnitIdstringToUnitIdrenameHoleModulerenameHoleUnitIdrenameHoleModule'renameHoleUnitId'splitModuleInstssplitUnitIdInstsgeneralizeIndefUnitIdgeneralizeIndefModuleparseModuleName parseUnitIdparseComponentId parseModuleId parseModSubst primUnitId integerUnitId baseUnitId rtsUnitIdthUnitId dphSeqUnitId dphParUnitId thisGhcUnitIdinteractiveUnitId mainUnitIdisInteractiveModule isHoleModulewiredInUnitIdsfilterModuleEnv elemModuleEnvextendModuleEnvextendModuleEnvWithextendModuleEnvListextendModuleEnvList_CplusModuleEnv_CdelModuleEnvList delModuleEnv plusModuleEnvlookupModuleEnvlookupWithDefaultModuleEnv mapModuleEnv mkModuleEnvemptyModuleEnv moduleEnvKeys moduleEnvEltsmoduleEnvToList unitModuleEnvisEmptyModuleEnvemptyModuleSet mkModuleSetextendModuleSet moduleSetElts elemModuleSet$fOutputableModLocation$fBinaryComponentId$fBinaryUnitId$fOutputableUnitId$fNFDataUnitId $fDataUnitId $fOrdUnitId$fUniquableUnitId $fEqUnitId $fShowUnitId$fBinaryDefUnitId$fOutputableDefUnitId$fOutputableIndefUnitId$fOutputableInstalledUnitId$fUniquableInstalledUnitId$fOrdInstalledUnitId$fEqInstalledUnitId $fBinaryStringRepInstalledUnitId$fBinaryInstalledUnitId$fBinaryIndefUnitId$fOrdIndefUnitId$fEqIndefUnitId$fOutputableComponentId$fUniquableComponentId$fBinaryStringRepComponentIdC$fDbUnitIdModuleRepInstalledUnitIdComponentIdUnitIdModuleNameModule$fNFDataModule $fDataModule$fBinaryModule$fOutputableModule$fUniquableModule$fNFDataModuleName$fDataModuleName$fBinaryStringRepModuleName$fBinaryModuleName$fOutputableModuleName$fOrdModuleName$fEqModuleName$fUniquableModuleName$fOutputableInstalledModule$fOutputableIndefModule $fOrdNDModule$fShowModLocation $fEqDefUnitId$fOrdDefUnitId$fEqComponentId$fOrdComponentId $fEqModule $fOrdModule$fEqInstalledModule$fOrdInstalledModule$fEqIndefModule$fOrdIndefModule $fEqNDModuleunicodeStarKindTyConKeystarKindTyConKeymAIN PackageNameSourcePackageIddefaultPackageConfigsourcePackageIdStringpackageNameStringpprPackageConfiginstalledPackageConfigIdpackageConfigIdexpandedPackageConfigIddefinitePackageConfigId$fOutputableSourcePackageId$fUniquableSourcePackageId $fBinaryStringRepSourcePackageId$fOutputablePackageName$fUniquablePackageName$fBinaryStringRepPackageName$fEqSourcePackageId$fOrdSourcePackageId$fEqPackageName$fOrdPackageName pluginErrorCTypeHeader CLabelString CCallConvCApiConv StdCallConv PrimCallConvJavaScriptCallConv CCallTarget StaticTarget DynamicTarget CCallSpec CExportSpec CExportStaticSafetyPlaySafePlayInterruptible PlayRiskyCCallisSafeForeignCallplaySafeplayInterruptibleisDynamicTargetdefaultCCallConvccallConvToIntccallConvAttributepprCLabelStringisCLabelString$fBinarySafety$fOutputableSafety$fBinaryCCallConv$fOutputableCCallConv$fBinaryCCallTarget$fBinaryCCallSpec$fOutputableCCallSpec$fBinaryForeignCall$fOutputableForeignCall$fBinaryCExportSpec$fOutputableCExportSpec$fBinaryHeader$fOutputableHeader $fBinaryCType$fOutputableCType $fEqSafety $fShowSafety $fDataSafety $fEqCCallConv$fDataCCallConv$fEqCCallTarget$fDataCCallTarget $fEqCCallSpec$fEqForeignCall$fDataCExportSpec $fEqHeader $fDataHeader $fEqCType $fDataCTypeAndOrParensLBooleanFormulamkVarmkFalsemkTruemkAndmkOrisFalseisTrueevalsimplify isUnsatisfied impliesAtomimpliespprBooleanFormulapprBooleanFormulaNice$fBinaryBooleanFormula$fOutputableBooleanFormula$fEqBooleanFormula$fDataBooleanFormula$fFunctorBooleanFormula$fFoldableBooleanFormula$fTraversableBooleanFormulaUnlitCppHsPpHscCcxxCcCobjcCobjcxxHCcSplitterSplitAsAsLlvmOptLlvmLlc LlvmMangleCmmCpp MergeForeignStopLn HscSource HsSrcFile HsBootFileHsigFilehscSourceString isHsBootOrSiganyHscisStopLneqPhase happensBefore startPhase phaseInputExtisHaskellishSuffixisBackpackishSuffixisHaskellSigSuffixisHaskellSrcSuffix isCishSuffixisHaskellUserSrcSuffixisObjectSuffixisDynLibSuffixisSourceSuffixisHaskellishTargetisHaskellishFilenameisHaskellSrcFilenameisCishFilenameisHaskellUserSrcFilenameisSourceFilenameisHaskellSigFilenameisObjectFilenameisDynLibFilename$fBinaryHscSource$fOutputablePhase $fEqHscSource$fOrdHscSource$fShowHscSource $fEqPhase $fShowPhasegraphFromEdgedVerticesOrdgraphFromEdgedVerticesUniq findCyclestronglyConnCompG$stronglyConnCompFromEdgedVerticesOrd%stronglyConnCompFromEdgedVerticesUniq%stronglyConnCompFromEdgedVerticesOrdR&stronglyConnCompFromEdgedVerticesUniqRtopologicalSortG dfsTopSortG reachableG reachablesG hasVertexG verticesGedgesG transposeG outdegreeG indegreeG vertexGroupsGemptyG componentsG$fOutputableEdge$fOutputableGraphemptyBagunitBag lengthBagelemBag unionManyBags unionBagsconsBagsnocBag isEmptyBagisSingletonBag filterBag filterBagMallBaganyBaganyBagM concatBag catBagMaybes partitionBagpartitionBagWithfoldBagfoldrBagfoldlBag foldrBagM foldlBagMmapBag concatMapBag mapMaybeBagmapBagMmapBagM_ flatMapBagMflatMapBagPairMmapAndUnzipBagM mapAccumBagL mapAccumBagLM listToBag bagToList $fFoldableBag $fDataBag$fOutputableBagCmdLineP runCmdLineEwMOptKindNoArgHasArgSepArg OptPrefix OptIntSuffix IntSuffix FloatSuffixPassFlag AnySuffix PrefixPred AnySuffixPred GhcFlagModeOnlyGhcOnlyGhciAllModes HiddenFlagFlagflagName flagOptKind flagGhcModedefFlag defGhcFlag defGhciFlag defHiddenFlagrunEwMaddErraddWarn deprecategetArg getCurLocliftEwMgetCmdLineStateputCmdLineState processArgserrorsToGhcException $fMonadEwM$fApplicativeEwM $fFunctorEwM$fMonadCmdLineP$fApplicativeCmdLineP$fFunctorCmdLineP CompilerInfoGCCClang AppleClang AppleClang51 UnknownCC LinkerInfoGnuLDGnuGoldDarwinLD SolarisLDAixLD UnknownLD PkgConfRef GlobalPkgConf UserPkgConf PkgConfFileFlagSpec flagSpecName flagSpecFlagflagSpecActionflagSpecGhcModeOption FileOptionFlushErrFlushOut LogFinaliser LogAction FatalMessagerWay WayCustom WayThreadedWayDebugWayProf WayEventLogWayDynRtsOptsEnabled RtsOptsNoneRtsOptsSafeOnly RtsOptsAll DynLibLoader DeployableSystemDependent PackageDBFlag PackageDBNoUserPackageDBNoGlobalPackageDBClearPackageDBs PackageFlag ExposePackage HidePackage TrustFlag TrustPackageDistrustPackageIgnorePackageFlag IgnorePackage ModRenamingmodRenamingWithImplicit modRenamings PackageArg UnitIdArgGhcLinkNoLink LinkBinary LinkInMemory LinkDynLib LinkStaticLibGhcMode CompManagerOneShotMkDepend HscTargetHscCHscAsmHscLlvmHscInterpreted HscNothingSettingssTargetPlatform sGhcUsagePathsGhciUsagePathsTopDirsTmpDir sProgramNamesProjectVersion sRawSettingssExtraGccViaCFlagssSystemPackageConfigsLdSupportsCompactUnwindsLdSupportsBuildIdsLdSupportsFilelist sLdIsGnuLdsGccSupportsNoPiesPgm_LsPgm_PsPgm_FsPgm_csPgm_ssPgm_asPgm_lsPgm_dllsPgm_T sPgm_windres sPgm_libtoolsPgm_losPgm_lcsPgm_isOpt_LsOpt_PsOpt_FsOpt_csOpt_asOpt_l sOpt_windressOpt_losOpt_lcsOpt_isPlatformConstantsProfAuto NoProfAuto ProfAutoAll ProfAutoTopProfAutoExports ProfAutoCallsContainsDynFlagsextractDynFlags HasDynFlags getDynFlagsghcModeghcLink hscTargetsettings verbosityoptLevel debugLevel simplPhasesmaxSimplIterationsmaxPmCheckIterations ruleCheckstrictnessBefore parMakeCountenableTimeStats ghcHeapSizemaxRelevantBindsmaxUncoveredPatternssimplTickFactorspecConstrThresholdspecConstrCountspecConstrRecursiveliberateCaseThreshold floatLamArgs historySize importPaths mainModIs mainFunIsreductionDepthsolverIterationsthisInstalledUnitIdthisComponentId_thisUnitIdInsts_waysbuildTag rtsBuildTag splitInfo objectDirdylibInstallNamehiDirstubDirdumpDir objectSufhcSufhiSufcanGenerateDynamicToo dynObjectSufdynHiSuf dllSplitFiledllSplit outputFile dynOutputFileoutputHi dynLibLoader dumpPrefixdumpPrefixForceldInputs includePaths libraryPathsframeworkPathscmdlineFrameworksrtsOptsrtsOptsEnabledrtsOptsSuggestionshpcDirpluginModNamespluginModNameOptsfrontendPluginOptshooks depMakefiledepIncludePkgDepsdepExcludeMods depSuffixespackageDBFlagsignorePackageFlags packageFlagspluginPackageFlags trustFlags packageEnv pkgDatabasepkgState filesToClean dirsToCleanfilesToNotIntermediateCleannextTempSuffixgeneratedDumps dumpFlags generalFlags warningFlagsfatalWarningFlagslanguage safeHaskell safeInfer safeInferredthOnLoc newDerivOnLocoverlapInstLocincoherentOnLoc pkgTrustOnLoc warnSafeOnLocwarnUnsafeOnLoctrustworthyOnLoc extensionsextensionFlagsufCreationThresholdufUseThresholdufFunAppDiscountufDictDiscountufKeenessFactorufDearOpufVeryAggressive maxWorkerArgs ghciHistSize initLogAction log_action log_finaliserflushOutflushErrhaddockOptions ghciScriptsuseColor canUseColor colSchemeprofAutointeractivePrintnextWrapperNum sseVersionavxavx2avx512cdavx512eravx512favx512pfrtldInfortccInfomaxInlineAllocSizemaxInlineMemcpyInsnsmaxInlineMemsetInsns reverseErrors maxErrors initialUniqueuniqueIncrementSafeHaskellModeSf_None Sf_UnsafeSf_TrustworthySf_SafeLanguage Haskell98 Haskell2010 WarningFlagOpt_WarnDuplicateExportsOpt_WarnDuplicateConstraintsOpt_WarnRedundantConstraintsOpt_WarnHiShadowsOpt_WarnImplicitPreludeOpt_WarnIncompletePatternsOpt_WarnIncompleteUniPatterns Opt_WarnIncompletePatternsRecUpdOpt_WarnOverflowedLiteralsOpt_WarnEmptyEnumerationsOpt_WarnMissingFieldsOpt_WarnMissingImportListOpt_WarnMissingMethodsOpt_WarnMissingSignaturesOpt_WarnMissingLocalSignaturesOpt_WarnNameShadowingOpt_WarnOverlappingPatternsOpt_WarnTypeDefaultsOpt_WarnMonomorphismOpt_WarnUnusedTopBindsOpt_WarnUnusedLocalBindsOpt_WarnUnusedPatternBindsOpt_WarnUnusedImportsOpt_WarnUnusedMatchesOpt_WarnUnusedTypePatternsOpt_WarnUnusedForallsOpt_WarnWarningsDeprecationsOpt_WarnDeprecatedFlags Opt_WarnAMP!Opt_WarnMissingMonadFailInstancesOpt_WarnSemigroupOpt_WarnDodgyExportsOpt_WarnDodgyImportsOpt_WarnOrphansOpt_WarnAutoOrphansOpt_WarnIdentities Opt_WarnTabsOpt_WarnUnrecognisedPragmasOpt_WarnDodgyForeignImportsOpt_WarnUnusedDoBindOpt_WarnWrongDoBind)Opt_WarnAlternativeLayoutRuleTransitionalOpt_WarnUnsafe Opt_WarnSafeOpt_WarnTrustworthySafeOpt_WarnMissedSpecsOpt_WarnAllMissedSpecs%Opt_WarnUnsupportedCallingConventionsOpt_WarnUnsupportedLlvmVersionOpt_WarnInlineRuleShadowingOpt_WarnTypedHolesOpt_WarnPartialTypeSignatures!Opt_WarnMissingExportedSignatures$Opt_WarnUntickedPromotedConstructorsOpt_WarnDerivingTypeableOpt_WarnDeferredTypeErrors#Opt_WarnDeferredOutOfScopeVariables"Opt_WarnNonCanonicalMonadInstances&Opt_WarnNonCanonicalMonadFailInstances#Opt_WarnNonCanonicalMonoidInstances'Opt_WarnMissingPatternSynonymSignatures Opt_WarnUnrecognisedWarningFlags$Opt_WarnSimplifiableClassConstraintsOpt_WarnCPPUndefOpt_WarnUnbangedStrictPatternsOpt_WarnMissingHomeModules WarnReasonNoReasonReason GeneralFlagOpt_DumpToFileOpt_D_faststring_statsOpt_D_dump_minimal_importsOpt_DoCoreLintingOpt_DoStgLintingOpt_DoCmmLintingOpt_DoAsmLintingOpt_DoAnnotationLintingOpt_NoLlvmManglerOpt_WarnIsErrorOpt_ShowWarnGroupsOpt_HideSourcePathsOpt_PrintExplicitForallsOpt_PrintExplicitKindsOpt_PrintExplicitCoercionsOpt_PrintExplicitRuntimeRepsOpt_PrintEqualityRelationsOpt_PrintUnicodeSyntaxOpt_PrintExpandedSynonymsOpt_PrintPotentialInstancesOpt_PrintTypecheckerElaboration Opt_CallArityOpt_StrictnessOpt_LateDmdAnalOpt_KillAbsenceOpt_KillOneShotOpt_FullLaziness Opt_FloatInOpt_SpecialiseOpt_SpecialiseAggressivelyOpt_CrossModuleSpecialise Opt_StaticArgumentTransformationOpt_CSE Opt_StgCSEOpt_LiberateCaseOpt_SpecConstrOpt_SpecConstrKeenOpt_DoLambdaEtaExpansionOpt_IgnoreAssertsOpt_DoEtaReduction Opt_CaseMergeOpt_CaseFoldingOpt_UnboxStrictFieldsOpt_UnboxSmallStrictFieldsOpt_DictsCheapOpt_EnableRewriteRules Opt_VectoriseOpt_VectorisationAvoidance Opt_RegsGraphOpt_RegsIterativeOpt_PedanticBottoms Opt_LlvmTBAAOpt_LlvmPassVectorsInRegistersOpt_LlvmFillUndefWithGarbageOpt_IrrefutableTuples Opt_CmmSinkOpt_CmmElimCommonBlocksOpt_OmitYieldsOpt_FunToThunkOpt_DictsStrictOpt_DmdTxDictSelOpt_Loopification Opt_CprAnalOpt_WorkerWrapperOpt_SolveConstantDictsOpt_IgnoreInterfacePragmasOpt_OmitInterfacePragmasOpt_ExposeAllUnfoldingsOpt_WriteInterfaceOpt_AutoSccsOnIndividualCafsOpt_ProfCountEntriesOpt_PpOpt_ForceRecompOpt_ExcessPrecisionOpt_EagerBlackHoling Opt_NoHsMain Opt_SplitObjsOpt_SplitSections Opt_StgStatsOpt_HideAllPackagesOpt_HideAllPluginPackagesOpt_PrintBindResult Opt_HaddockOpt_HaddockOptionsOpt_BreakOnExceptionOpt_BreakOnErrorOpt_PrintEvldWithShowOpt_PrintBindContentsOpt_GenManifestOpt_EmbedManifestOpt_SharedImplibOpt_BuildingCabalPackageOpt_IgnoreDotGhciOpt_GhciSandboxOpt_GhciHistoryOpt_LocalGhciHistoryOpt_HelpfulErrorsOpt_DeferTypeErrorsOpt_DeferTypedHolesOpt_DeferOutOfScopeVariablesOpt_PICOpt_PIEOpt_PICExecutableOpt_SccProfilingOn Opt_TickyOpt_Ticky_Allocd Opt_Ticky_LNEOpt_Ticky_Dyn_Thunk Opt_RPathOpt_RelativeDynlibPathsOpt_Hpc Opt_FlatCacheOpt_ExternalInterpreterOpt_OptimalApplicativeDoOpt_VersionMacrosOpt_WholeArchiveHsLibsOpt_SimplPreInliningOpt_ErrorSpansOpt_DiagnosticsShowCaretOpt_PprCaseAsLetOpt_PprShowTicksOpt_ShowHoleConstraintsOpt_ShowLoadedModulesOpt_SuppressCoercionsOpt_SuppressVarKindsOpt_SuppressModulePrefixesOpt_SuppressTypeApplicationsOpt_SuppressIdInfoOpt_SuppressUnfoldingsOpt_SuppressTypeSignaturesOpt_SuppressUniquesOpt_SuppressTicksOpt_AutoLinkPackagesOpt_ImplicitImportQualifiedOpt_KeepHiDiffsOpt_KeepHcFilesOpt_KeepSFilesOpt_KeepTmpFilesOpt_KeepRawTokenStreamOpt_KeepLlvmFilesOpt_KeepHiFilesOpt_KeepOFilesOpt_BuildDynamicTooOpt_DistrustAllPackagesOpt_PackageTrustOpt_G_NoStateHackOpt_G_NoOptCoercionOpt_D_dump_cmmOpt_D_dump_cmm_from_stgOpt_D_dump_cmm_rawOpt_D_dump_cmm_verboseOpt_D_dump_cmm_cfgOpt_D_dump_cmm_cbeOpt_D_dump_cmm_switchOpt_D_dump_cmm_procOpt_D_dump_cmm_spOpt_D_dump_cmm_sinkOpt_D_dump_cmm_cafOpt_D_dump_cmm_procmapOpt_D_dump_cmm_splitOpt_D_dump_cmm_infoOpt_D_dump_cmm_cpsOpt_D_dump_asmOpt_D_dump_asm_nativeOpt_D_dump_asm_livenessOpt_D_dump_asm_regallocOpt_D_dump_asm_regalloc_stagesOpt_D_dump_asm_conflictsOpt_D_dump_asm_statsOpt_D_dump_asm_expandedOpt_D_dump_llvmOpt_D_dump_core_statsOpt_D_dump_deriv Opt_D_dump_dsOpt_D_dump_foreignOpt_D_dump_inliningsOpt_D_dump_rule_firingsOpt_D_dump_rule_rewritesOpt_D_dump_simpl_traceOpt_D_dump_occur_analOpt_D_dump_parsedOpt_D_dump_parsed_ast Opt_D_dump_rnOpt_D_dump_rn_astOpt_D_dump_shapeOpt_D_dump_simplOpt_D_dump_simpl_iterationsOpt_D_dump_specOpt_D_dump_prepOpt_D_dump_stgOpt_D_dump_call_arityOpt_D_dump_stranalOpt_D_dump_str_signatures Opt_D_dump_tcOpt_D_dump_tc_astOpt_D_dump_typesOpt_D_dump_rulesOpt_D_dump_cseOpt_D_dump_worker_wrapperOpt_D_dump_rn_traceOpt_D_dump_rn_statsOpt_D_dump_opt_cmmOpt_D_dump_simpl_statsOpt_D_dump_cs_traceOpt_D_dump_tc_traceOpt_D_dump_ec_traceOpt_D_dump_if_traceOpt_D_dump_vt_traceOpt_D_dump_splicesOpt_D_th_dec_fileOpt_D_dump_BCOsOpt_D_dump_vectOpt_D_dump_tickedOpt_D_dump_rttiOpt_D_source_statsOpt_D_verbose_stg2stg Opt_D_dump_hiOpt_D_dump_hi_diffsOpt_D_dump_mod_cyclesOpt_D_dump_mod_map!Opt_D_dump_view_pattern_commoningOpt_D_verbose_core2coreOpt_D_dump_debugOpt_D_dump_jsonOpt_D_ppr_debugOpt_D_no_debug_output programNameprojectVersion ghcUsagePath ghciUsagePathtopDirtmpDir rawSettingsextraGccViaCFlagssystemPackageConfigpgm_Lpgm_Ppgm_Fpgm_cpgm_spgm_apgm_lpgm_dllpgm_T pgm_windres pgm_libtoolpgm_lopgm_lcpgm_iopt_Lopt_Popt_Fopt_copt_aopt_l opt_windresopt_loopt_lcopt_iversionedAppDirisObjectTargettargetRetainsAllBindings isOneShotisNoLinkpackageFlagsChangeddefaultObjectTargettablesNextToCodemkTablesNextToCodepositionIndependent mkBuildTag wayRTSOnlywayGeneralFlagswayUnsetGeneralFlagswhenGeneratingDynamicTooifGeneratingDynamicToowhenCannotGenerateDynamicToodynamicTooMkDynamicDynFlags initDynFlagsdefaultDynFlags defaultWays interpWaysinterpreterProfiledinterpreterDynamicdefaultFatalMessagerdefaultLogActiondefaultLogActionHPrintDocdefaultLogActionHPutStrDocdefaultFlushOutdefaultFlushErrlanguageExtensionshasNoStateHackhasNoOptCoerciondoptdopt_set dopt_unsetgoptgopt_set gopt_unsetwoptwopt_set wopt_unset wopt_fatalxoptxopt_set xopt_unsetlang_setdynFlagDependenciespackageTrustOn safeHaskellOnsafeLanguageOn safeInferOn safeImportsOnsafeDirectImpsReqsafeImplicitImpsReq unsafeFlagsunsafeFlagsForInfergetOpts getVerbFlagsthisComponentIdthisUnitIdInsts thisPackageshowOpt updOptLevelparseDynamicFlagsCmdLineparseDynamicFilePragmaparseDynamicFlagsFull putLogMsg updateWaysallNonDeprecatedFlagsflagsAll flagsDynamic flagsPackageflagsForCompletion wWarningFlagsfFlags fLangFlagssupportedLanguagesAndExtensionsxFlags warningGroupswarningHierarchiesglasgowExtsFlags rtsIsProfiled dynamicGhcaddWay'setGeneralFlag'unSetGeneralFlag' setUnitIdcanonicalizeHomeModuleinterpretPackageEnv setTmpDir picCCOptspicPOpts compilerInfocONTROL_GROUP_CONST_291 sTD_HDR_SIZE pROF_HDR_SIZE bLOCK_SIZEbLOCKS_PER_MBLOCKtICKY_BIN_COUNToFFSET_StgRegTable_rR1oFFSET_StgRegTable_rR2oFFSET_StgRegTable_rR3oFFSET_StgRegTable_rR4oFFSET_StgRegTable_rR5oFFSET_StgRegTable_rR6oFFSET_StgRegTable_rR7oFFSET_StgRegTable_rR8oFFSET_StgRegTable_rR9oFFSET_StgRegTable_rR10oFFSET_StgRegTable_rF1oFFSET_StgRegTable_rF2oFFSET_StgRegTable_rF3oFFSET_StgRegTable_rF4oFFSET_StgRegTable_rF5oFFSET_StgRegTable_rF6oFFSET_StgRegTable_rD1oFFSET_StgRegTable_rD2oFFSET_StgRegTable_rD3oFFSET_StgRegTable_rD4oFFSET_StgRegTable_rD5oFFSET_StgRegTable_rD6oFFSET_StgRegTable_rXMM1oFFSET_StgRegTable_rXMM2oFFSET_StgRegTable_rXMM3oFFSET_StgRegTable_rXMM4oFFSET_StgRegTable_rXMM5oFFSET_StgRegTable_rXMM6oFFSET_StgRegTable_rYMM1oFFSET_StgRegTable_rYMM2oFFSET_StgRegTable_rYMM3oFFSET_StgRegTable_rYMM4oFFSET_StgRegTable_rYMM5oFFSET_StgRegTable_rYMM6oFFSET_StgRegTable_rZMM1oFFSET_StgRegTable_rZMM2oFFSET_StgRegTable_rZMM3oFFSET_StgRegTable_rZMM4oFFSET_StgRegTable_rZMM5oFFSET_StgRegTable_rZMM6oFFSET_StgRegTable_rL1oFFSET_StgRegTable_rSpoFFSET_StgRegTable_rSpLimoFFSET_StgRegTable_rHpoFFSET_StgRegTable_rHpLimoFFSET_StgRegTable_rCCCSoFFSET_StgRegTable_rCurrentTSO"oFFSET_StgRegTable_rCurrentNurseryoFFSET_StgRegTable_rHpAllocoFFSET_stgEagerBlackholeInfooFFSET_stgGCEnter1oFFSET_stgGCFunoFFSET_Capability_roFFSET_bdescr_startoFFSET_bdescr_freeoFFSET_bdescr_blocksoFFSET_bdescr_flagssIZEOF_CostCentreStack oFFSET_CostCentreStack_mem_alloc oFFSET_CostCentreStack_scc_countoFFSET_StgHeader_ccsoFFSET_StgHeader_ldvwsIZEOF_StgSMPThunkHeaderoFFSET_StgEntCounter_allocsoFFSET_StgEntCounter_allocd oFFSET_StgEntCounter_registeredpoFFSET_StgEntCounter_link oFFSET_StgEntCounter_entry_countsIZEOF_StgUpdateFrame_NoHdrsIZEOF_StgMutArrPtrs_NoHdroFFSET_StgMutArrPtrs_ptrsoFFSET_StgMutArrPtrs_sizesIZEOF_StgSmallMutArrPtrs_NoHdroFFSET_StgSmallMutArrPtrs_ptrssIZEOF_StgArrBytes_NoHdroFFSET_StgArrBytes_bytesoFFSET_StgTSO_alloc_limitoFFSET_StgTSO_cccsoFFSET_StgTSO_stackobjoFFSET_StgStack_spoFFSET_StgStack_stackoFFSET_StgUpdateFrame_updateeoFFSET_StgFunInfoExtraFwd_aritysIZEOF_StgFunInfoExtraRevoFFSET_StgFunInfoExtraRev_aritymAX_SPEC_SELECTEE_SIZEmAX_SPEC_AP_SIZEmIN_PAYLOAD_SIZE mIN_INTLIKE mAX_INTLIKE mIN_CHARLIKE mAX_CHARLIKEmUT_ARR_PTRS_CARD_BITSmAX_Vanilla_REG mAX_Float_REGmAX_Double_REG mAX_Long_REG mAX_XMM_REGmAX_Real_Vanilla_REGmAX_Real_Float_REGmAX_Real_Double_REGmAX_Real_XMM_REGmAX_Real_Long_REGrESERVED_C_STACK_BYTESrESERVED_STACK_WORDSaP_STACK_SPLIM wORD_SIZE dOUBLE_SIZE cINT_SIZE cLONG_SIZEcLONG_LONG_SIZEbITMAP_BITS_SHIFTtAG_BITSwORDS_BIGENDIANdYNAMIC_BY_DEFAULT lDV_SHIFTiLDV_CREATE_MASKiLDV_STATE_CREATEiLDV_STATE_USE bLOCK_SIZE_WwORD_SIZE_IN_BITStAG_MASK mAX_PTR_TAGtARGET_MIN_INTtARGET_MAX_INTtARGET_MAX_WORDmakeDynFlagsConsistentsetUnsafeGlobalDynFlags isSseEnabled isSse2EnabledisSse4_2Enabled isAvxEnabled isAvx2EnabledisAvx512cdEnabledisAvx512erEnabledisAvx512fEnabledisAvx512pfEnabled$fToJsonWarnReason$fOutputableWarnReason$fOutputableLanguage$fOutputableSafeHaskellMode$fShowSafeHaskellMode$fOutputableGhcMode$fOutputableOnOff$fOutputablePackageFlag$fOutputableModRenaming$fOutputablePackageArg$fHasDynFlagsExceptT$fHasDynFlagsMaybeT$fHasDynFlagsReaderT$fHasDynFlagsWriterT $fEqDumpFlag$fShowDumpFlag$fEnumDumpFlag$fEqGeneralFlag$fShowGeneralFlag$fEnumGeneralFlag$fEqWarningFlag$fShowWarningFlag$fEnumWarningFlag$fShowWarnReason $fEqLanguage$fEnumLanguage$fShowLanguage$fEqSafeHaskellMode $fEqProfAuto$fEnumProfAuto $fEqHscTarget$fShowHscTarget $fEqGhcMode $fEqGhcLink $fShowGhcLink$fEqIgnorePackageFlag $fEqTrustFlag$fEqDynLibLoader$fShowRtsOptsEnabled$fEqWay$fOrdWay $fShowWay $fEqOnOff $fShowOnOff $fEqOption$fEqDeprecation$fOrdDeprecation$fEqPkgConfRef$fEqPackageDBFlag$fEqSseVersion$fOrdSseVersion$fEqLinkerInfo$fEqCompilerInfo$fEqPackageFlag$fEqModRenaming$fEqPackageArg$fShowPackageArg wordLengthwordLengthInBitsspillAreaLength spillSlotSizeextraStackArgsHere fits13Bitsis32BitIntegerlargeOffsetErrorArgDescrArgSpecArgGenLivenessConstrDescriptionClosureTypeInfoConstrFunThunk ThunkSelector BlackHole IndStaticIsStaticHeapRep ArrayPtrsRepSmallArrayPtrsRep ArrayWordsRepStackRepRTSRep StgHalfWordStgWordByteOffWordOffroundUpToWords wordsToBytesbytesToWordsRoundUp fromStgWord toStgWordfromStgHalfWord toStgHalfWordhALF_WORD_SIZEhALF_WORD_SIZE_IN_BITS mkHeapRepmkRTSRep mkStackRep blackHoleRep indStaticRep arrPtrsRepsmallArrPtrsRep arrWordsRep isStaticRep isStackRepisConRep isThunkRepisFunRepisStaticNoCafCon fixedHdrSize fixedHdrSizeW profHdrSizearrWordsHdrSizearrWordsHdrSizeWarrPtrsHdrSizearrPtrsHdrSizeWsmallArrPtrsHdrSizesmallArrPtrsHdrSizeW thunkHdrSizehdrSizehdrSizeW nonHdrSize nonHdrSizeWheapClosureSizeWcard cardRoundUpcardTableSizeBcardTableSizeWrtsClosureType rET_SMALLrET_BIGaRG_GEN aRG_GEN_BIGstringToWord8spprWord8String$fOutputableStgWord$fOutputableStgHalfWord$fOutputableArgDescr$fOutputableClosureTypeInfo$fOutputableSMRep $fEqStgWord $fBitsStgWord$fEqStgHalfWordStackMapstackMapNextFreeSlotstackMapAssignment StackSlot emptyStackMapgetStackSlotFor getStackUse TidyOccEnvOccSetOccEnv HasOccNameoccName occNameSpace occNameFS NameSpacetcNameclsName tcClsNamedataName srcDataNametvNamevarNameisDataConNameSpaceisTcClsNameSpace isTvNameSpaceisVarNameSpaceisValNameSpace pprNameSpacepprNonVarNameSpacepprNameSpaceBrief pprOccName mkOccName mkOccNameFSmkVarOcc mkVarOccFS mkDataOcc mkDataOccFS mkTyVarOcc mkTyVarOccFSmkTcOcc mkTcOccFSmkClsOcc mkClsOccFS demoteOccNamenameSpacesRelated emptyOccEnv unitOccEnv extendOccEnvextendOccEnvList lookupOccEnvmkOccEnv elemOccEnv foldOccEnv occEnvElts plusOccEnv plusOccEnv_CextendOccEnv_CextendOccEnv_Acc mapOccEnv mkOccEnv_C delFromOccEnvdelListFromOccEnv filterOccEnv alterOccEnv pprOccEnv emptyOccSet unitOccSetmkOccSet extendOccSetextendOccSetList unionOccSetsunionManyOccSets minusOccSet elemOccSet isEmptyOccSetintersectOccSetintersectsOccSet filterOccSet occNameStringsetOccNameSpaceisVarOccisTvOccisTcOccisValOcc isDataOcc isDataSymOccisSymOcc parenSymOccstartsWithUnderscoreisDerivedOccNameisDefaultMethodOccisTypeableBindOccmkDataConWrapperOcc mkWorkerOcc mkMatcherOcc mkBuilderOccmkDefaultMethodOccmkClassOpAuxOcc mkDictOccmkIPOcc mkSpecOccmkForeignExportOcc mkRepEqOccmkClassDataConOcc mkNewTyCoOcc mkInstTyCoOcc mkEqPredCoOcc mkCon2TagOcc mkTag2ConOcc mkMaxTagOcc mkTyConRepOccmkGenRmkGen1R mkVectOcc mkPADFunOccmkPReprTyConOccmkPDataTyConOccmkPDatasTyConOccmkPDataDataConOccmkPDatasDataConOccmkRecFldSelOccmkDataConWorkerOccmkSuperDictAuxOccmkSuperDictSelOcc mkLocalOcc mkInstTyTcOcc mkDFunOcc mkDataTOcc mkDataCOcc mkMethodOccemptyTidyOccEnvinitTidyOccEnv tidyOccNamesavoidClashesOccEnv tidyOccName$fBinaryNameSpace$fBinaryOccName$fUniquableOccName$fOutputableBndrOccName$fOutputableOccName$fNFDataOccName $fDataOccName $fOrdOccName $fEqOccName$fHasOccNameOccName$fOutputableOccEnv $fEqNameSpace$fOrdNameSpace $fDataOccEnv NamedThing getOccNamegetName BuiltInSyntax UserSyntax nameUnique nameOccName nameSrcLoc nameSrcSpan isWiredInNamewiredInNameTyThing_maybeisBuiltInSyntaxisExternalNameisInternalName isHoleName nameModulenameModule_maybenameIsLocalOrFromnameIsHomePackagenameIsHomePackageImportnameIsFromExternalPackage isTyVarName isTyConName isDataConName isValName isVarName isSystemNamemkInternalNamemkClonedInternalNamemkDerivedInternalNamemkExternalName mkWiredInName mkSystemNamemkSystemNameAtmkSystemVarName mkSysTvName mkFCallName setNameUnique setNameLoc tidyNameOcc localiseNamemkLocalisedOccName stableNameCmppprModulePrefix pprDefinedAtpprNameDefnLocnameStableString getSrcLoc getSrcSpan getOccStringgetOccFS pprInfixName pprPrefixName$fOutputableBndrName$fOutputableName $fBinaryName $fDataName$fUniquableName $fOrdName$fEqName$fHasOccNameName$fNFDataNameSort $fNFDataName$fOutputableNameSort$fNamedThingGenLocated$fNamedThingNameDefUsesDefUseUsesDefsFreeVarsisEmptyNameSet emptyNameSet unitNameSet mkNameSetextendNameSetList extendNameSet unionNameSet unionNameSets minusNameSet elemNameSetdelFromNameSet filterNameSetintersectNameSetdelListFromNameSetintersectsNameSet nameSetAny nameSetAllnameSetElemsStable isEmptyFVsemptyFVsplusFVsplusFVmkFVsaddOneFVunitFVdelFVdelFVs intersectFVsemptyDUsusesOnlymkDUsplusDUduDefsallUsesduUsesfindUsesDNameEnvdepAnal nameEnvElts emptyNameEnvisEmptyNameEnv unitNameEnv extendNameEnvextendNameEnvList lookupNameEnv alterNameEnv mkNameEnv elemNameEnv plusNameEnv plusNameEnv_CextendNameEnv_C mapNameEnvextendNameEnv_AccextendNameEnvList_CdelFromNameEnvdelListFromNameEnv filterNameEnv anyNameEnvdisjointNameEnvlookupNameEnv_NF emptyDNameEnvlookupDNameEnv mapDNameEnv alterDNameEnvmkTupleDataConUniquemkTupleTyConUniquemkCTupleDataConUniquemkCTupleTyConUniquemkSumDataConUniquemkSumTyConUniqueknownUniqueNameFieldLblflLabelflIsOverloaded flSelector FieldLabelEnvFieldLabelStringmkFieldLabelOccs$fBinaryFieldLbl$fOutputableFieldLbl $fEqFieldLbl$fFunctorFieldLbl$fFoldableFieldLbl$fTraversableFieldLbl$fDataFieldLbl IEWildcard NoIEWildcardIEIEVar IEThingAbs IEThingAll IEThingWithIEModuleContentsIEGroupIEDoc IEDocNamedLIELIEWrappedName IEWrappedNameIEName IEPatternIEType ImportDeclideclSourceSrc ideclName ideclPkgQual ideclSource ideclSafeideclQualified ideclImplicitideclAs ideclHiding LImportDeclsimpleImportDeclieNameieNames ieWrappedNameieLWrappedNamereplaceWrappedNamereplaceLWrappedName pprImpExp$fOutputableIEWrappedName$fOutputableBndrIEWrappedName$fHasOccNameIEWrappedName$fOutputableIE$fOutputableImportDecl$fEqIEWrappedName$fDataIEWrappedName$fEqIEWildcard$fDataIEWildcard$fEqIE$fDataIE$fDataImportDeclfingerprintBinMemcomputeFingerprintputNameLiterallyAnnEnv CoreAnnTarget AnnTarget NamedTarget ModuleTarget AnnPayload Annotation ann_target ann_valuegetAnnTargetName_maybe emptyAnnEnvmkAnnEnvextendAnnEnvList plusAnnEnvfindAnnsfindAnnsByTypeRepdeserializeAnns$fBinaryAnnTarget$fOutputableAnnTarget$fUniquableAnnTarget$fFunctorAnnTarget$fOutputableAnnotation IOEnvFailurefailM failWithMrunIOEnvfixMtryMtryAllMtryMostMunsafeInterleaveMuninterruptibleMaskM_ newMutVar writeMutVar readMutVar updMutVaratomicUpdMutVaratomicUpdMutVar'getEnvsetEnvupdEnv$fMonadIOIOEnv$fMonadPlusIOEnv$fAlternativeIOEnv$fHasModuleIOEnv$fHasDynFlagsIOEnv$fExceptionMonadIOEnv$fFunctorIOEnv$fApplicativeIOEnv$fMonadFailIOEnv $fMonadIOEnv$fExceptionIOEnvFailure$fShowIOEnvFailureWarnMsgErrDocerrDocImportant errDocContexterrDocSupplementaryErrMsg errMsgSpan errMsgContext errMsgDoc ErrorMessagesWarningMessagesMessagesValidityIsValidNotValidisValidandValidallValid getInvalids unionMessageserrDoc pprMessageBagmakeIntoWarningmkErrDoc mkLongErrMsgmkErrMsg mkPlainErrMsg mkLongWarnMsg mkWarnMsgmkPlainWarnMsg emptyMessagesisEmptyMessageswarnIsErrorMsg errorsFoundprintBagOfErrors formatErrDocpprErrMsgBagWithLoc pprLocErrMsgghcExitdoIfSet doIfSet_dyn dumpIfSet dumpIfSet_dyndumpIfSet_dyn_printer mkDumpDocerrorMsg warningMsg fatalErrorMsgfatalErrorMsg''compilationProgressMsgshowPass withTiming debugTraceMsgputMsgprintInfoForUserprintOutputForUserlogInfo logOutputprettyPrintGhcErrorsisWarnMsgFatal$fToJsonSeverity $fShowErrMsg$fShowSeverityModuleSuggestionSuggestVisible SuggestHidden LookupResult LookupFoundLookupMultiple LookupHiddenLookupNotFoundpreloadPackagesexplicitPackagesrequirementContext ModuleOrigin ModHidden ModOriginfromOrigPackagefromExposedReexportfromHiddenReexportfromPackageFlag lookupPackagelookupPackage'lookupPackageNamesearchPackageIdgetPackageDetailslookupInstalledPackagegetInstalledPackageDetailslistPackageConfigMap initPackagesreadPackageConfigsgetPackageConfRefsresolvePackageConfigreadPackageConfigpprFlag unwireUnitIdgetPackageIncludePathcollectIncludeDirsgetPackageLibraryPathcollectLibraryPathsgetPackageLinkOptscollectLinkOpts packageHsLibsgetPackageExtraCcOptsgetPackageFrameworkPathgetPackageFrameworkslookupModuleInAllPackageslookupModuleWithSuggestions!lookupPluginModuleWithSuggestionslistVisibleModuleNamesgetPreloadPackagesAnd isDllName pprPackagespprPackagesSimple pprModuleMap$fMonoidModuleOrigin$fSemigroupModuleOrigin$fOutputableModuleOrigin$fMonoidUnitVisibility$fOutputableUnitVisibility!$fOutputableUnusablePackageReason llvmFixupAsmreadElfSectionByNamereadElfNoteAsString makeElfNote ForeignHintNoHintAddrHint SignedHintLengthWidthW8W16W32W64W80W128W256W512 cmmEqTypecmmEqType_ignoring_ptrhood typeWidthcmmBitscmmFloatb8b16b32b64b128b256b512f32f64bWord bHalfWordgcWordcInt isFloatType isGcPtrTypeisWord64isWord32 isFloat32 isFloat64 wordWidth halfWordWidth halfWordMask cIntWidth widthInBits widthInByteswidthFromBytes widthInLognarrowUnarrowSvecvec2vec4vec8vec16vec2f64vec2b64vec4f32vec4b32vec8b16vec16b8cmmVec vecLength vecElemType isVecTyperEP_CostCentreStack_mem_allocrEP_CostCentreStack_scc_countrEP_StgEntCounter_allocsrEP_StgEntCounter_allocd$fOutputableWidth$fOutputableCmmCat$fOutputableCmmType $fEqWidth $fOrdWidth $fShowWidth $fEqCmmCat$fEqForeignHint SwitchPlanUnconditionallyIfEqualIfLT JumpTable SwitchTargetsmkSwitchTargetsmapSwitchTargetsswitchTargetsCasesswitchTargetsDefaultswitchTargetsRangeswitchTargetsSignedswitchTargetsToTableswitchTargetsToListswitchTargetsFallThrougheqSwitchTargetWithtargetSupportsSwitchcreateSwitchPlan$fShowSwitchTargets$fEqSwitchTargets$fShowSwitchPlan AtomicMachOpAMO_AddAMO_SubAMO_AndAMO_NandAMO_OrAMO_Xor CallishMachOp MO_F64_Pwr MO_F64_Sin MO_F64_Cos MO_F64_Tan MO_F64_Sinh MO_F64_Cosh MO_F64_Tanh MO_F64_Asin MO_F64_Acos MO_F64_Atan MO_F64_Log MO_F64_Exp MO_F64_Fabs MO_F64_Sqrt MO_F32_Pwr MO_F32_Sin MO_F32_Cos MO_F32_Tan MO_F32_Sinh MO_F32_Cosh MO_F32_Tanh MO_F32_Asin MO_F32_Acos MO_F32_Atan MO_F32_Log MO_F32_Exp MO_F32_Fabs MO_F32_Sqrt MO_UF_Conv MO_S_QuotRem MO_U_QuotRem MO_U_QuotRem2MO_Add2 MO_SubWordC MO_AddIntC MO_SubIntC MO_U_Mul2MO_WriteBarrierMO_TouchMO_Prefetch_Data MO_Memcpy MO_Memset MO_Memmove MO_PopCntMO_ClzMO_CtzMO_BSwap MO_AtomicRMW MO_AtomicReadMO_AtomicWrite MO_CmpxchgMachOpMO_AddMO_SubMO_EqMO_NeMO_MulMO_S_MulMayOflo MO_S_QuotMO_S_RemMO_S_NegMO_U_MulMayOflo MO_U_QuotMO_U_RemMO_S_GeMO_S_LeMO_S_GtMO_S_LtMO_U_GeMO_U_LeMO_U_GtMO_U_LtMO_F_AddMO_F_SubMO_F_NegMO_F_Mul MO_F_QuotMO_F_EqMO_F_NeMO_F_GeMO_F_LeMO_F_GtMO_F_LtMO_AndMO_OrMO_XorMO_NotMO_ShlMO_U_ShrMO_S_Shr MO_SF_Conv MO_FS_Conv MO_SS_Conv MO_UU_Conv MO_FF_Conv MO_V_Insert MO_V_ExtractMO_V_AddMO_V_SubMO_V_Mul MO_VS_Quot MO_VS_Rem MO_VS_Neg MO_VU_Quot MO_VU_Rem MO_VF_Insert MO_VF_Extract MO_VF_Add MO_VF_Sub MO_VF_Neg MO_VF_Mul MO_VF_Quot pprMachOp mo_wordAdd mo_wordSub mo_wordEq mo_wordNe mo_wordMul mo_wordSQuot mo_wordSRem mo_wordSNeg mo_wordUQuot mo_wordURem mo_wordSGe mo_wordSLe mo_wordSGt mo_wordSLt mo_wordUGe mo_wordULe mo_wordUGt mo_wordULt mo_wordAnd mo_wordOr mo_wordXor mo_wordNot mo_wordShl mo_wordSShr mo_wordUShr mo_u_8To32 mo_s_8To32 mo_u_16To32 mo_s_16To32 mo_u_8ToWord mo_s_8ToWord mo_u_16ToWord mo_s_16ToWord mo_s_32ToWord mo_u_32ToWord mo_WordTo8 mo_WordTo16 mo_WordTo32 mo_WordTo64mo_32To8 mo_32To16isCommutableMachOpisAssociativeMachOpisComparisonMachOpmaybeIntComparisonmaybeInvertComparisonmachOpResultType machOpArgRepspprCallishMachOpcallishMachOpHintsmachOpMemcpyishAlign $fEqMachOp $fShowMachOp$fEqAtomicMachOp$fShowAtomicMachOp$fEqCallishMachOp$fShowCallishMachOp popCntLabel bSwapLabelclzLabelctzLabelword2FloatLabelatomicRMWLabel cmpxchgLabelatomicReadLabelatomicWriteLabelmkBitmap intsToBitmapintsToReverseBitmapmAX_SMALL_BITMAP_SIZE seqBitmapAvails AvailInfoAvailTCstableAvailCmpavailavailsToNameSetavailsToNameSetWithSelectorsavailsToNameEnv availName availNamesavailNamesWithSelectorsavailNonFldNames availFlds plusAvail trimAvail filterAvails filterAvail nubAvails$fBinaryAvailInfo$fOutputableAvailInfo $fEqAvailInfo ImpItemSpecImpAllImpSome is_explicitis_iloc ImpDeclSpecis_modis_asis_qualis_dloc ImportSpecImpSpecis_declis_itemParentNoParentParentIs FldParentpar_ispar_lbl GlobalRdrEltGREgre_namegre_pargre_lclgre_imp GlobalRdrEnv LocalRdrEnvUnqualQualOrigExact rdrNameOcc rdrNameSpace demoteRdrName mkRdrUnqual mkRdrQualmkOrigmkUnqual mkVarUnqualmkQual getRdrName nameRdrName isRdrDataCon isRdrTyVarisRdrTc isSrcRdrNameisUnqualisQual isQual_maybeisOrig isOrig_maybeisExact isExact_maybeemptyLocalRdrEnvextendLocalRdrEnvextendLocalRdrEnvListlookupLocalRdrEnvlookupLocalRdrOccelemLocalRdrEnvlocalRdrEnvEltsinLocalRdrEnvScopedelLocalRdrEnvListgresFromAvailslocalGREsFromAvail gresFromAvailgreQualModNamegreUsedRdrName greRdrNames greSrcSpangresToAvailInfo availFromGREemptyGlobalRdrEnvglobalRdrEnvEltspprGlobalRdrEnvlookupGlobalRdrEnv greOccNamelookupGRE_RdrNamelookupGRE_NamelookupGRE_FieldLabelgetGRE_NameQualifier_maybes isLocalGRE isRecFldGREgreLabelunQualOKpickGREspickGREsModExpplusGlobalRdrEnvmkGlobalRdrEnv transformGREsextendGlobalRdrEnv shadowNames bestImport unQualSpecOK qualSpecOK importSpecLocimportSpecModuleisExplicitItempprNameProvenance $fOrdRdrName $fEqRdrName$fOutputableBndrRdrName$fOutputableRdrName$fHasOccNameRdrName$fOutputableLocalRdrEnv$fOutputableParent$fOrdImpDeclSpec$fEqImpDeclSpec$fOrdImpItemSpec$fEqImpItemSpec$fOutputableImportSpec$fOutputableGlobalRdrElt $fDataRdrName $fEqParent $fDataParent$fDataImpDeclSpec$fDataImpItemSpec$fEqImportSpec$fOrdImportSpec$fDataImportSpec$fDataGlobalRdrElt$fEqGlobalRdrEltallNameStringsitName mkUnboundName isUnboundNamebasicKnownKeyNamesgenericTyConNamespRELUDEgHC_PRIM gHC_TYPES gHC_MAGIC gHC_CSTRING gHC_CLASSESgHC_BASEgHC_ENUMgHC_GHCIgHC_SHOWgHC_READgHC_NUMgHC_INTEGER_TYPE gHC_NATURALgHC_LIST gHC_TUPLE dATA_TUPLE dATA_EITHER dATA_STRING dATA_FOLDABLEdATA_TRAVERSABLEdATA_SEMIGROUP dATA_MONOIDgHC_CONCgHC_IOgHC_IO_ExceptiongHC_STgHC_ARR gHC_STABLEgHC_PTRgHC_ERRgHC_REAL gHC_FLOATgHC_TOP_HANDLER sYSTEM_IOdYNAMICtYPEABLEtYPEABLE_INTERNALgENERICS rEAD_PREClEXgHC_INTgHC_WORDmONAD mONAD_FIX mONAD_ZIP mONAD_FAILaRROWcONTROL_APPLICATIVE gHC_DESUGARrANDOMgHC_EXTScONTROL_EXCEPTION_BASE gHC_GENERICS gHC_TYPELITS gHC_TYPENATSdATA_TYPE_EQUALITY dATA_COERCE gHC_PARR' gHC_SRCLOC gHC_STACKgHC_STACK_TYPES gHC_STATICPTRgHC_STATICPTR_INTERNALgHC_FINGERPRINT_TYPEgHC_OVER_LABELS gHC_RECORDS rOOT_MAINmkInteractiveModule pRELUDE_NAME mAIN_NAMEdATA_ARRAY_PARALLEL_NAMEdATA_ARRAY_PARALLEL_PRIM_NAME mkPrimModulemkIntegerModule mkBaseModule mkBaseModule_mkThisGhcModulemkThisGhcModule_ mkMainModule mkMainModule_main_RDR_Unqual forall_tv_RDR dot_tv_RDReq_RDRge_RDRne_RDRle_RDRlt_RDRgt_RDR compare_RDR ltTag_RDR eqTag_RDR gtTag_RDR eqClass_RDR numClass_RDR ordClass_RDR enumClass_RDRmonadClass_RDRmap_RDR append_RDR foldr_RDR build_RDR returnM_RDR bindM_RDRfailM_RDR_preMFP failM_RDRleft_RDR right_RDR fromEnum_RDR toEnum_RDR enumFrom_RDRenumFromTo_RDRenumFromThen_RDRenumFromThenTo_RDRratioDataCon_RDRplusInteger_RDRtimesInteger_RDR ioDataCon_RDR eqString_RDRunpackCString_RDRunpackCStringFoldr_RDRunpackCStringUtf8_RDRnewStablePtr_RDR bindIO_RDR returnIO_RDRfromInteger_RDRfromRational_RDR minus_RDR times_RDRplus_RDR toInteger_RDRtoRational_RDRfromIntegral_RDR stringTy_RDRfromString_RDR fromList_RDR fromListN_RDR toList_RDR compose_RDRand_RDRnot_RDR getTag_RDRsucc_RDRpred_RDR minBound_RDR maxBound_RDR range_RDR inRange_RDR index_RDRunsafeIndex_RDRunsafeRangeSize_RDR readList_RDRreadListDefault_RDRreadListPrec_RDRreadListPrecDefault_RDR readPrec_RDR parens_RDR choose_RDRlexP_RDR expectP_RDRpunc_RDR ident_RDR symbol_RDRstep_RDRalt_RDR reset_RDRprec_RDR pfail_RDR showList_RDRshowList___RDR showsPrec_RDR shows_RDRshowString_RDR showSpace_RDRshowCommaSpace_RDR showParen_RDR undefined_RDR error_RDR u1DataCon_RDRpar1DataCon_RDRrec1DataCon_RDR k1DataCon_RDR m1DataCon_RDR l1DataCon_RDR r1DataCon_RDRprodDataCon_RDRcomp1DataCon_RDR unPar1_RDR unRec1_RDRunK1_RDR unComp1_RDRfrom_RDR from1_RDRto_RDRto1_RDRdatatypeName_RDRmoduleName_RDRpackageName_RDRisNewtypeName_RDR selName_RDR conName_RDR conFixity_RDRconIsRecord_RDRprefixDataCon_RDRinfixDataCon_RDRleftAssocDataCon_RDRrightAssocDataCon_RDRnotAssocDataCon_RDRuAddrDataCon_RDRuCharDataCon_RDRuDoubleDataCon_RDRuFloatDataCon_RDRuIntDataCon_RDRuWordDataCon_RDR uAddrHash_RDR uCharHash_RDRuDoubleHash_RDRuFloatHash_RDR uIntHash_RDR uWordHash_RDRfmap_RDR replace_RDRpure_RDRap_RDR liftA2_RDRfoldable_foldr_RDR foldMap_RDR traverse_RDR mempty_RDR mappend_RDR eqTyCon_RDR varQual_RDR tcQual_RDR clsQual_RDR dataQual_RDR wildCardName runMainIONameorderingTyConName ltDataConName eqDataConName gtDataConName specTyConNameeitherTyConNameleftDataConNamerightDataConName v1TyConName u1TyConName par1TyConName rec1TyConName k1TyConName m1TyConName sumTyConName prodTyConName compTyConName rTyConName dTyConName cTyConName sTyConName rec0TyConName d1TyConName c1TyConName s1TyConNamenoSelTyConName repTyConName rep1TyConName uRecTyConNameuAddrTyConNameuCharTyConNameuDoubleTyConNameuFloatTyConName uIntTyConNameuWordTyConNameprefixIDataConNameinfixIDataConNameleftAssociativeDataConNamerightAssociativeDataConNamenotAssociativeDataConNamesourceUnpackDataConNamesourceNoUnpackDataConNamenoSourceUnpackednessDataConNamesourceLazyDataConNamesourceStrictDataConNamenoSourceStrictnessDataConNamedecidedLazyDataConNamedecidedStrictDataConNamedecidedUnpackDataConNamemetaDataDataConNamemetaConsDataConNamemetaSelDataConName divIntName modIntNameunpackCStringNameunpackCStringFoldrNameunpackCStringUtf8Name eqStringName inlineIdName eqClassNameeqName ordClassNamegeNamefunctorClassNamefmapNamemonadClassName thenMName bindMName returnMNamefailMName_preMFPmonadFailClassName failMNameapplicativeClassNameapAName pureAName thenANamefoldableClassNametraversableClassNamesemigroupClassName sappendNamemonoidClassName memptyName mappendName mconcatName joinMNamealternativeClassName joinMIdKey apAClassOpKeypureAClassOpKeythenAClassOpKeyalternativeClassKey groupWithNamefromStringNameotherwiseIdName foldrName buildName augmentNamemapName appendName assertNamebreakpointNamebreakpointCondNamebreakpointAutoNameopaqueTyConNamebreakpointJumpNamebreakpointCondJumpNamebreakpointAutoJumpNamefstNamesndName numClassNamefromIntegerName minusName negateNameintegerTyConNameintegerSDataConName mkIntegerNameintegerToWord64NameintegerToInt64Nameword64ToIntegerNameint64ToIntegerNameplusIntegerNametimesIntegerNamesmallIntegerNamewordToIntegerNameintegerToWordNameintegerToIntNameminusIntegerNamenegateIntegerNameeqIntegerPrimNameneqIntegerPrimNameabsIntegerNamesignumIntegerNameleIntegerPrimNamegtIntegerPrimNameltIntegerPrimNamegeIntegerPrimNamecompareIntegerNamequotRemIntegerNamedivModIntegerNamequotIntegerNameremIntegerNamedivIntegerNamemodIntegerNamefloatFromIntegerNamedoubleFromIntegerNameencodeFloatIntegerNameencodeDoubleIntegerNamedecodeDoubleIntegerNamegcdIntegerNamelcmIntegerNameandIntegerName orIntegerNamexorIntegerNamecomplementIntegerNameshiftLIntegerNameshiftRIntegerNamebitIntegerNamenaturalTyConNamenaturalFromIntegerNamerationalTyConNameratioTyConNameratioDataConName realClassNameintegralClassNamerealFracClassNamefractionalClassNamefromRationalName toIntegerNametoRationalNamefromIntegralNamerealToFracNamefloatingClassNamerealFloatClassNamerationalToFloatNamerationalToDoubleName ixClassNametrModuleTyConNametrModuleDataConNametrNameTyConNametrNameSDataConNametrNameDDataConNametrTyConTyConNametrTyConDataConNamekindRepTyConNamekindRepTyConAppDataConNamekindRepVarDataConNamekindRepAppDataConNamekindRepFunDataConNamekindRepTYPEDataConNamekindRepTypeLitSDataConNamekindRepTypeLitDDataConNametypeLitSortTyConNametypeLitSymbolDataConNametypeLitNatDataConNametypeableClassNametypeRepTyConNamesomeTypeRepTyConNamesomeTypeRepDataConName typeRepIdName mkTrConName mkTrAppName mkTrFunNametypeNatTypeRepNametypeSymbolTypeRepNametrGhcPrimModuleNamestarKindRepNamestarArrStarKindRepNamestarArrStarArrStarKindRepNameerrorMessageTypeErrorFamNametypeErrorTextDataConNametypeErrorAppendDataConNametypeErrorVAppendDataConNametypeErrorShowTypeDataConName toDynName dataClassNameassertErrorName enumClassName enumFromNameenumFromToNameenumFromThenNameenumFromThenToNameboundedClassName concatName filterNamezipNameisListClassName fromListName fromListNName toListName showClassName readClassName genClassName gen1ClassNamedatatypeClassNameconstructorClassNameselectorClassNamegenericClassNamesghciIoClassNameghciStepIoMName ioTyConName ioDataConName thenIOName bindIOName returnIOName failIOName printName int8TyConNameint16TyConNameint32TyConNameint64TyConNameword16TyConNameword32TyConNameword64TyConName ptrTyConNamefunPtrTyConNamestablePtrTyConNamenewStablePtrNamemonadFixClassNamemfixNamearrAName composeAName firstANameappAName choiceAName loopAName guardMName liftMNamemzipNametoAnnotationWrapperNamemonadPlusClassNamerandomClassNamerandomGenClassNameisStringClassNameknownNatClassNameknownSymbolClassNameisLabelClassName ipClassNamehasFieldClassNamecallStackTyConNameemptyCallStackNamepushCallStackNamesrcLocDataConNamepLUGINSpluginTyConNamefrontendPluginTyConNamemakeStaticNamestaticPtrInfoTyConNamestaticPtrInfoDataConNamestaticPtrTyConNamestaticPtrDataConNamefromStaticPtrNamefingerprintDataConName eqTyConNamevarQualtcQualclsQualdcQualmk_known_key_nameboundedClassKey enumClassKey eqClassKeyfloatingClassKeyfractionalClassKeyintegralClassKey monadClassKey dataClassKeyfunctorClassKey numClassKey ordClassKey readClassKey realClassKeyrealFloatClassKeyrealFracClassKey showClassKey ixClassKeytypeableClassKeytypeable1ClassKeytypeable2ClassKeytypeable3ClassKeytypeable4ClassKeytypeable5ClassKeytypeable6ClassKeytypeable7ClassKeymonadFixClassKeymonadFailClassKeymonadPlusClassKeyrandomClassKeyrandomGenClassKeyisStringClassKeyapplicativeClassKeyfoldableClassKeytraversableClassKey genClassKey gen1ClassKeydatatypeClassKeyconstructorClassKeyselectorClassKeyknownNatClassNameKeyknownSymbolClassNameKeyghciIoClassKeyisLabelClassNameKeysemigroupClassKeymonoidClassKey ipClassKeyhasFieldClassNameKeyaddrPrimTyConKeyarrayPrimTyConKey boolTyConKeybyteArrayPrimTyConKeycharPrimTyConKey charTyConKeydoublePrimTyConKeydoubleTyConKeyfloatPrimTyConKey floatTyConKey funTyConKeyintPrimTyConKey intTyConKey int8TyConKey int16TyConKeyint32PrimTyConKey int32TyConKeyint64PrimTyConKey int64TyConKeyintegerTyConKeynaturalTyConKey listTyConKeyforeignObjPrimTyConKey maybeTyConKeyweakPrimTyConKeymutableArrayPrimTyConKeymutableByteArrayPrimTyConKeyorderingTyConKeymVarPrimTyConKey ratioTyConKeyrationalTyConKeyrealWorldTyConKeystablePtrPrimTyConKeystablePtrTyConKey eqTyConKey heqTyConKeyarrayArrayPrimTyConKeymutableArrayArrayPrimTyConKeystatePrimTyConKeystableNamePrimTyConKeystableNameTyConKeyeqPrimTyConKeyeqReprPrimTyConKeyeqPhantPrimTyConKeymutVarPrimTyConKey ioTyConKeyvoidPrimTyConKeywordPrimTyConKey wordTyConKey word8TyConKeyword16TyConKeyword32PrimTyConKeyword32TyConKeyword64PrimTyConKeyword64TyConKey liftedConKeyunliftedConKey anyBoxConKey kindConKey boxityConKey typeConKeythreadIdPrimTyConKeybcoPrimTyConKey ptrTyConKeyfunPtrTyConKeytVarPrimTyConKeycompactPrimTyConKey parrTyConKeyobjectTyConKeyeitherTyConKeyliftedTypeKindTyConKey tYPETyConKeyconstraintKindTyConKeyruntimeRepTyConKeyvecCountTyConKeyvecElemTyConKeypluginTyConKeyfrontendPluginTyConKeyunknownTyConKeyunknown1TyConKeyunknown2TyConKeyunknown3TyConKeyopaqueTyConKey v1TyConKey u1TyConKey par1TyConKey rec1TyConKey k1TyConKey m1TyConKey sumTyConKey prodTyConKey compTyConKey rTyConKey dTyConKey cTyConKey sTyConKey rec0TyConKey d1TyConKey c1TyConKey s1TyConKey noSelTyConKey repTyConKey rep1TyConKey uRecTyConKey uAddrTyConKey uCharTyConKeyuDoubleTyConKeyuFloatTyConKey uIntTyConKey uWordTyConKeytypeNatKindConNameKeytypeSymbolKindConNameKeytypeNatAddTyFamNameKeytypeNatMulTyFamNameKeytypeNatExpTyFamNameKeytypeNatLeqTyFamNameKeytypeNatSubTyFamNameKeytypeSymbolCmpTyFamNameKeytypeNatCmpTyFamNameKeyerrorMessageTypeErrorFamKey ntTyConKeycoercibleTyConKeyproxyPrimTyConKey specTyConKey anyTyConKeysmallArrayPrimTyConKeysmallMutableArrayPrimTyConKeystaticPtrTyConKeystaticPtrInfoTyConKeycallStackTyConKeytypeRepTyConKeysomeTypeRepTyConKeysomeTypeRepDataConKeytypeSymbolAppendFamNameKeyint8X16PrimTyConKeyint16X8PrimTyConKeyint32X4PrimTyConKeyint64X2PrimTyConKeyint8X32PrimTyConKeyint16X16PrimTyConKeyint32X8PrimTyConKeyint64X4PrimTyConKeyint8X64PrimTyConKeyint16X32PrimTyConKeyint32X16PrimTyConKeyint64X8PrimTyConKeyword8X16PrimTyConKeyword16X8PrimTyConKeyword32X4PrimTyConKeyword64X2PrimTyConKeyword8X32PrimTyConKeyword16X16PrimTyConKeyword32X8PrimTyConKeyword64X4PrimTyConKeyword8X64PrimTyConKeyword16X32PrimTyConKeyword32X16PrimTyConKeyword64X8PrimTyConKeyfloatX4PrimTyConKeydoubleX2PrimTyConKeyfloatX8PrimTyConKeydoubleX4PrimTyConKeyfloatX16PrimTyConKeydoubleX8PrimTyConKeycharDataConKeyconsDataConKeydoubleDataConKeyfalseDataConKeyfloatDataConKey intDataConKeyintegerSDataConKeynothingDataConKeyjustDataConKey nilDataConKeyratioDataConKeyword8DataConKeystableNameDataConKeytrueDataConKeywordDataConKey ioDataConKeyintegerDataConKey heqDataConKeycrossDataConKey inlDataConKey inrDataConKeygenUnitDataConKeyparrDataConKeyleftDataConKeyrightDataConKey ltDataConKey eqDataConKey gtDataConKeycoercibleDataConKeystaticPtrDataConKeystaticPtrInfoDataConKeyfingerprintDataConKeysrcLocDataConKeytrTyConTyConKeytrTyConDataConKeytrModuleTyConKeytrModuleDataConKeytrNameTyConKeytrNameSDataConKeytrNameDDataConKeytrGhcPrimModuleKeykindRepTyConKeytypeLitSortTyConKeytypeErrorTextDataConKeytypeErrorAppendDataConKeytypeErrorVAppendDataConKeytypeErrorShowTypeDataConKeyprefixIDataConKeyinfixIDataConKeyleftAssociativeDataConKeyrightAssociativeDataConKeynotAssociativeDataConKeysourceUnpackDataConKeysourceNoUnpackDataConKeynoSourceUnpackednessDataConKeysourceLazyDataConKeysourceStrictDataConKeynoSourceStrictnessDataConKeydecidedLazyDataConKeydecidedStrictDataConKeydecidedUnpackDataConKeymetaDataDataConKeymetaConsDataConKeymetaSelDataConKeyvecRepDataConKeytupleRepDataConKeysumRepDataConKeyruntimeRepSimpleDataConKeysliftedRepDataConKeyvecCountDataConKeysvecElemDataConKeyskindRepTyConAppDataConKeykindRepVarDataConKeykindRepAppDataConKeykindRepFunDataConKeykindRepTYPEDataConKeykindRepTypeLitSDataConKeykindRepTypeLitDDataConKeytypeLitSymbolDataConKeytypeLitNatDataConKey wildCardKeyabsentErrorIdKey augmentIdKey appendIdKey buildIdKey errorIdKey foldrIdKeyrecSelErrorIdKeyseqIdKeyirrefutPatErrorIdKey eqStringIdKeynoMethodBindingErrorIdKeynonExhaustiveGuardsErrorIdKeyruntimeErrorIdKey patErrorIdKeyrealWorldPrimIdKeyrecConErrorIdKeyunpackCStringUtf8IdKeyunpackCStringAppendIdKeyunpackCStringFoldrIdKeyunpackCStringIdKey voidPrimIdKeytypeErrorIdKey divIntIdKey modIntIdKeyunsafeCoerceIdKey concatIdKey filterIdKeyzipIdKey bindIOIdKey returnIOIdKeynewStablePtrIdKey printIdKey failIOIdKey nullAddrIdKey voidArgIdKeyfstIdKeysndIdKeyotherwiseIdKey assertIdKeymkIntegerIdKeysmallIntegerIdKeyintegerToWordIdKeyintegerToIntIdKeyintegerToWord64IdKeyintegerToInt64IdKeyplusIntegerIdKeytimesIntegerIdKeyminusIntegerIdKeynegateIntegerIdKeyeqIntegerPrimIdKeyneqIntegerPrimIdKeyabsIntegerIdKeysignumIntegerIdKeyleIntegerPrimIdKeygtIntegerPrimIdKeyltIntegerPrimIdKeygeIntegerPrimIdKeycompareIntegerIdKeyquotIntegerIdKeyremIntegerIdKeydivIntegerIdKeymodIntegerIdKeydivModIntegerIdKeyquotRemIntegerIdKeyfloatFromIntegerIdKeydoubleFromIntegerIdKeyencodeFloatIntegerIdKeyencodeDoubleIntegerIdKeygcdIntegerIdKeylcmIntegerIdKeyandIntegerIdKeyorIntegerIdKeyxorIntegerIdKeycomplementIntegerIdKeyshiftLIntegerIdKeyshiftRIntegerIdKeywordToIntegerIdKeyword64ToIntegerIdKeyint64ToIntegerIdKeydecodeDoubleIntegerIdKey rootMainKey runMainKey thenIOIdKey lazyIdKeyassertErrorIdKey oneShotKeyrunRWKeybreakpointIdKeybreakpointCondIdKeybreakpointAutoIdKeybreakpointJumpIdKeybreakpointCondJumpIdKeybreakpointAutoJumpIdKey inlineIdKeymapIdKeygroupWithIdKey dollarIdKeycoercionTokenIdKey noinlineIdKeyrationalToFloatIdKeyrationalToDoubleIdKeyunmarshalObjectIdKeymarshalObjectIdKeymarshalStringIdKeyunmarshalStringIdKeycheckDotnetResNameIdKey undefinedKey magicDictKey coerceKey unboundKeyfromIntegerClassOpKeyminusClassOpKeyfromRationalClassOpKeyenumFromClassOpKeyenumFromThenClassOpKeyenumFromToClassOpKeyenumFromThenToClassOpKey eqClassOpKey geClassOpKeynegateClassOpKeyfailMClassOpKey_preMFPbindMClassOpKeythenMClassOpKeyfmapClassOpKeyreturnMClassOpKey mfixIdKeyfailMClassOpKey arrAIdKey composeAIdKey firstAIdKey appAIdKey choiceAIdKey loopAIdKeyfromStringClassOpKeytoAnnotationWrapperIdKeyfromIntegralIdKeyrealToFracIdKeytoIntegerClassOpKeytoRationalClassOpKey guardMIdKey liftMIdKey mzipIdKeyghciStepIoMClassOpKeyisListClassKeyfromListClassOpKeyfromListNClassOpKeytoListClassOpKey proxyHashKey mkTyConKey mkTrConKey mkTrAppKeytypeNatTypeRepKeytypeSymbolTypeRepKey typeRepIdKey mkTrFunKey trTYPEKeytrTYPE'PtrRepLiftedKeytrRuntimeRepKeytr'PtrRepLiftedKeystarKindRepKeystarArrStarKindRepKeystarArrStarArrStarKindRepKey toDynIdKeybitIntegerIdKey heqSCSelIdKeycoercibleSCSelIdKeysappendClassOpKeymemptyClassOpKeymappendClassOpKeymconcatClassOpKeyemptyCallStackKeypushCallStackKeyfromStaticPtrClassOpKey makeStaticKeynaturalFromIntegerIdKeynumericClassKeysfractionalClassKeysstandardClassKeysderivableClassKeysinteractiveClassNamesinteractiveClassKeyspretendNameIsInScopetemplateHaskellNamesthSynthLibqqLib mkTHModulelibFunlibTcthFunthTcthClsthConqqFun liftClassName qTyConName nameTyConNamefieldExpTyConName patTyConNamefieldPatTyConName expTyConName decTyConName typeTyConNametyVarBndrTyConNamematchTyConNameclauseTyConNamefunDepTyConName predTyConName tExpTyConNameinjAnnTyConName kindTyConNameoverlapTyConNamederivStrategyTyConName returnQName bindQName sequenceQName newNameNameliftNameliftStringName mkNameName mkNameG_vName mkNameG_dNamemkNameG_tcName mkNameLName mkNameSName unTypeName unTypeQNameunsafeTExpCoerceName charLName stringLName integerLName intPrimLName wordPrimLNamefloatPrimLNamedoublePrimLName rationalLNamestringPrimLName charPrimLNamelitPNamevarPNametupPNameunboxedTupPNameunboxedSumPNameconPName infixPName tildePName bangPNameasPName wildPNamerecPName listPNamesigPName viewPName fieldPatName matchName clauseNamevarENameconENamelitENameappEName appTypeEName infixEName infixAppName sectionLName sectionRNamelamEName lamCaseENametupENameunboxedTupENameunboxedSumEName condEName multiIfENameletEName caseENamedoEName compEName fromEName fromThenEName fromToENamefromThenToEName listENamesigEName recConEName recUpdEName staticENameunboundVarEName fieldExpName guardedBName normalBName normalGEName patGEName bindSNameletSName noBindSNameparSNamefunDNamevalDName dataDName newtypeDName tySynDName classDNameinstanceWithOverlapDName standaloneDerivWithStrategyDNamesigDNamedefaultSigDName forImpDName pragInlDName pragSpecDNamepragSpecInlDNamepragSpecInstDName pragRuleDNamepragCompleteDName pragAnnDName dataInstDNamenewtypeInstDNametySynInstDNameopenTypeFamilyDNameclosedTypeFamilyDNamedataFamilyDName infixLDName infixRDName infixNDNameroleAnnotDName patSynDNamepatSynSigDNamecxtNamenoSourceUnpackednessNamesourceNoUnpackNamesourceUnpackNamenoSourceStrictnessNamesourceLazyNamesourceStrictName normalCNamerecCName infixCName forallCName gadtCName recGadtCNamebangName bangTypeNamevarBangTypeNameunidirPatSynNameimplBidirPatSynNameexplBidirPatSynNameprefixPatSynNameinfixPatSynNamerecordPatSynName forallTNamevarTNameconTName tupleTNameunboxedTupleTNameunboxedSumTName arrowTName listTNameappTNamesigTName equalityTNamelitTName promotedTNamepromotedTupleTNamepromotedNilTNamepromotedConsTName wildCardTName numTyLitName strTyLitName plainTVName kindedTVName nominalRNamerepresentationalRName phantomRName inferRNamevarKNameconKName tupleKName arrowKName listKNameappKName starKNameconstraintKName noSigName kindSigName tyVarSigNameinjectivityAnnName cCallName stdCallName cApiCallName primCallNamejavaScriptCallName unsafeNamesafeNameinterruptibleNametExpDataConName ruleVarNametypedRuleVarName funDepName typeFamName dataFamName tySynEqnNamevalueAnnotationNametypeAnnotationNamemoduleAnnotationNamederivClauseNamematchQTyConNameclauseQTyConName expQTyConNamestmtQTyConName decQTyConNamedecsQTyConName conQTyConNamebangTypeQTyConNamevarBangTypeQTyConNametypeQTyConNamefieldExpQTyConName patQTyConNamefieldPatQTyConNamepredQTyConNameruleBndrQTyConNametySynEqnQTyConName roleTyConNamederivClauseQTyConName quoteExpName quotePatName quoteDecName quoteTypeNamenoInlineDataConNameinlineDataConNameinlinableDataConNameconLikeDataConNamefunLikeDataConNameallPhasesDataConNamefromPhaseDataConNamebeforePhaseDataConNameoverlappableDataConNameoverlappingDataConNameoverlapsDataConNameincoherentDataConNamestockStrategyDataConNameanyclassStrategyDataConNamenewtypeStrategyDataConName liftClassKey expTyConKey matchTyConKeyclauseTyConKey qTyConKey expQTyConKey decQTyConKey patTyConKeymatchQTyConKeyclauseQTyConKey stmtQTyConKey conQTyConKey typeQTyConKey typeTyConKey decTyConKeybangTypeQTyConKeyvarBangTypeQTyConKeyfieldExpTyConKeyfieldPatTyConKey nameTyConKey patQTyConKeyfieldPatQTyConKeyfieldExpQTyConKeyfunDepTyConKey predTyConKey predQTyConKeytyVarBndrTyConKey decsQTyConKeyruleBndrQTyConKeytySynEqnQTyConKey roleTyConKey tExpTyConKeyinjAnnTyConKey kindTyConKeyoverlapTyConKeyderivClauseQTyConKeyderivStrategyTyConKeynoInlineDataConKeyinlineDataConKeyinlinableDataConKeyconLikeDataConKeyfunLikeDataConKeyallPhasesDataConKeyfromPhaseDataConKeybeforePhaseDataConKeytExpDataConKeyoverlappableDataConKeyoverlappingDataConKeyoverlapsDataConKeyincoherentDataConKeystockDataConKeyanyclassDataConKeynewtypeDataConKey returnQIdKey bindQIdKeysequenceQIdKey liftIdKey newNameIdKey mkNameIdKeymkNameG_vIdKeymkNameG_dIdKeymkNameG_tcIdKey mkNameLIdKey mkNameSIdKey unTypeIdKey unTypeQIdKeyunsafeTExpCoerceIdKey charLIdKey stringLIdKey integerLIdKey intPrimLIdKeywordPrimLIdKeyfloatPrimLIdKeydoublePrimLIdKeyrationalLIdKeystringPrimLIdKeycharPrimLIdKeyliftStringIdKey litPIdKey varPIdKey tupPIdKeyunboxedTupPIdKeyunboxedSumPIdKey conPIdKey infixPIdKey tildePIdKey bangPIdKeyasPIdKey wildPIdKey recPIdKey listPIdKey sigPIdKey viewPIdKey fieldPatIdKey matchIdKey clauseIdKey varEIdKey conEIdKey litEIdKey appEIdKey appTypeEIdKey infixEIdKey infixAppIdKey sectionLIdKey sectionRIdKey lamEIdKey lamCaseEIdKey tupEIdKeyunboxedTupEIdKeyunboxedSumEIdKey condEIdKey multiIfEIdKey letEIdKey caseEIdKeydoEIdKey compEIdKey fromEIdKeyfromThenEIdKey fromToEIdKeyfromThenToEIdKey listEIdKey sigEIdKey recConEIdKey recUpdEIdKey staticEIdKeyunboundVarEIdKey fieldExpIdKey guardedBIdKey normalBIdKey normalGEIdKey patGEIdKey bindSIdKey letSIdKey noBindSIdKey parSIdKey funDIdKey valDIdKey dataDIdKey newtypeDIdKey tySynDIdKey classDIdKeyinstanceWithOverlapDIdKeyinstanceDIdKey sigDIdKey forImpDIdKey pragInlDIdKeypragSpecDIdKeypragSpecInlDIdKeypragSpecInstDIdKeypragRuleDIdKey pragAnnDIdKeydataFamilyDIdKeyopenTypeFamilyDIdKeydataInstDIdKeynewtypeInstDIdKeytySynInstDIdKeyclosedTypeFamilyDIdKey infixLDIdKey infixRDIdKey infixNDIdKeyroleAnnotDIdKey!standaloneDerivWithStrategyDIdKeydefaultSigDIdKey patSynDIdKeypatSynSigDIdKeypragCompleteDIdKeycxtIdKeynoSourceUnpackednessKeysourceNoUnpackKeysourceUnpackKeynoSourceStrictnessKey sourceLazyKeysourceStrictKey normalCIdKey recCIdKey infixCIdKey forallCIdKey gadtCIdKey recGadtCIdKey bangIdKeybangTKey varBangTKeyunidirPatSynIdKeyimplBidirPatSynIdKeyexplBidirPatSynIdKeyprefixPatSynIdKeyinfixPatSynIdKeyrecordPatSynIdKey forallTIdKey varTIdKey conTIdKey tupleTIdKeyunboxedTupleTIdKeyunboxedSumTIdKey arrowTIdKey listTIdKey appTIdKey sigTIdKeyequalityTIdKey litTIdKeypromotedTIdKeypromotedTupleTIdKeypromotedNilTIdKeypromotedConsTIdKeywildCardTIdKey numTyLitIdKey strTyLitIdKey plainTVIdKey kindedTVIdKey nominalRIdKeyrepresentationalRIdKey phantomRIdKey inferRIdKey varKIdKey conKIdKey tupleKIdKey arrowKIdKey listKIdKey appKIdKey starKIdKeyconstraintKIdKey noSigIdKey kindSigIdKey tyVarSigIdKeyinjectivityAnnIdKey cCallIdKey stdCallIdKey cApiCallIdKey primCallIdKeyjavaScriptCallIdKey unsafeIdKey safeIdKeyinterruptibleIdKey funDepIdKey typeFamIdKey dataFamIdKey tySynEqnIdKey quoteExpKey quotePatKey quoteDecKey quoteTypeKey ruleVarIdKeytypedRuleVarIdKeyvalueAnnotationIdKeytypeAnnotationIdKeymoduleAnnotationIdKeyderivClauseIdKeylift_RDR mkNameG_dRDR mkNameG_vRDRconE_RDRlitE_RDRappE_RDR infixApp_RDR stringL_RDR intPrimL_RDR wordPrimL_RDRfloatPrimL_RDRdoublePrimL_RDRstringPrimL_RDR charPrimL_RDRHasENoEIsUnicodeSyntax UnicodeSyntax NormalSyntaxLRdrNameAnnotationCommentAnnDocCommentNextAnnDocCommentPrevAnnDocCommentNamed AnnDocSection AnnDocOptionsAnnLineCommentAnnBlockComment AnnAnyclass AnnCloseBU AnnCloseC AnnCloseQU AnnCloseS AnnCommaTuple AnnDarrowU AnnDcolonU AnnForallU AnnLarrowUAnnMdoAnnName AnnOpenBUAnnOpenC AnnOpenEQU AnnOpenPE AnnOpenPTEAnnOpenS AnnRarrowU AnnSignature AnnThIdSpliceAnnThIdTySplice AnnThTyQuoteAnnlarrowtailUAnnrarrowtailUAnnLarrowtailUAnnRarrowtailU AnnEofPos ApiAnnKeyApiAnns getAnnotationgetAndRemoveAnnotationgetAnnotationCommentsgetAndRemoveAnnotationComments unicodeAnn$fOutputableAnnKeywordId$fOutputableAnnotationComment$fEqAnnKeywordId$fOrdAnnKeywordId$fDataAnnKeywordId$fShowAnnKeywordId$fEqAnnotationComment$fOrdAnnotationComment$fDataAnnotationComment$fShowAnnotationComment$fEqIsUnicodeSyntax$fOrdIsUnicodeSyntax$fDataIsUnicodeSyntax$fShowIsUnicodeSyntax$fEqHasE $fOrdHasE $fDataHasE $fShowHasEAddAnnPunPPStatebufferoptionsmessages tab_first tab_countlast_tklast_loclast_lenloccontext lex_statesrcfilesalr_pending_implicit_tokensalr_next_token alr_last_loc alr_contextalr_expecting_ocurlyalr_justClosedExplicitLetBlock annotations comment_qannotations_comments ParserFlags pWarningFlagspExtensionFlags pThisPackage pExtsBitmap ParseResultPOkPFailedTokenITasITcaseITclassITdata ITdefault ITderivingITdoITelseIThiding ITforeignITifITimportITinITinfixITinfixlITinfixr ITinstanceITletITmodule ITnewtypeITof ITqualifiedITthenITtypeITwhereITforallITexportITlabel ITdynamicITsafeITinterruptibleITunsafe ITstdcallconv ITccallconv ITcapiconvITprimcallconvITjavascriptcallconvITmdoITfamilyITroleITgroupITbyITusing ITpatternITstaticITstock ITanyclassITunit ITsignature ITdependency ITrequires ITinline_prag ITspec_pragITspec_inline_prag ITsource_prag ITrules_pragITwarning_pragITdeprecated_prag ITline_prag ITscc_pragITgenerated_prag ITcore_prag ITunpack_pragITnounpack_prag ITann_pragITcomplete_prag ITclose_pragIToptions_pragITinclude_pragITlanguage_prag ITvect_pragITvect_scalar_prag ITnovect_pragITminimal_pragIToverlappable_pragIToverlapping_pragIToverlaps_pragITincoherent_pragITctypeITdotdotITcolonITdcolonITequalITlamITlcaseITvbarITlarrowITrarrowITatITtilde ITtildehshITdarrowITminusITbangITdotITbiglamITocurlyITccurly ITvocurly ITvccurlyITobrack ITopabrack ITcpabrackITcbrackIToparenITcparen IToubxparen ITcubxparenITsemiITcomma ITunderscore ITbackquote ITsimpleQuoteITvaridITconidITvarsymITconsymITqvaridITqconid ITqvarsym ITqconsym ITdupipvarid ITlabelvaridITcharITstring ITinteger ITrational ITprimchar ITprimstring ITprimint ITprimword ITprimfloat ITprimdoubleITopenExpQuoteITopenPatQuoteITopenDecQuoteITopenTypQuote ITcloseQuoteITopenTExpQuoteITcloseTExpQuote ITidEscape ITparenEscape ITidTyEscapeITparenTyEscape ITtyQuote ITquasiQuote ITqQuasiQuoteITprocITrec IToparenbar ITcparenbar ITlarrowtail ITrarrowtail ITLarrowtail ITRarrowtail ITtypeApp ITunknownITeofITdocCommentNextITdocCommentPrevITdocCommentNamed ITdocSection ITdocOptions ITlineCommentITblockCommentextopt failLocMsgP failSpanMsgP getPStatewithThisPackage extension setSrcLoc setLastToken nextIsEOF pushLexState popLexState getLexState activeContextexplicitForallEnabledbangPatEnableddatatypeContextsEnabled inRulePrag hpcEnabledsccProfilingOntraditionalRecordSyntaxEnabledexplicitNamespacesEnabledpatternSynonymsEnabled pragState mkParserFlagsmkPState mkPStatePure addWarning getMessages popContextpushModuleContext srcParseFaillexerlexTokenStream addAnnotation addAnnsAtmkParensApiAnnmoveAnnotationscommentToAnnotation$fOutputableToken $fMonadFailP$fMonadP$fApplicativeP $fFunctorP $fShowToken$fShowLayoutContext $fEnumExtBitsPDunPDliftP$fHasDynFlagsPD $fMonadFailPD $fMonadPD$fApplicativePD $fFunctorPD TyVarBinder TyVarBndrTvBndrArgFlagRequired SpecifiedInferredvarTypeOutIdOutCoVarOutTyVarOutVarInIdInCoVarInTyVarInVarTyCoVarJoinIdEqVarIpIdDictIdDFunIdEvVarEvIdKindVarTypeVarTKVarTyVarNcIdCoVar nonDetCmpVar varUnique setVarUnique setVarName setVarType updateVarTypeupdateVarTypeMisVisibleArgFlagisInvisibleArgFlagsameVis binderVar binderVars binderArgFlag binderKind tyVarName tyVarKindsetTyVarUnique setTyVarName setTyVarKindupdateTyVarKindupdateTyVarKindMmkTyVar mkTcTyVartcTyVarDetailssetTcTyVarDetailsidInfo idDetails mkGlobalVar mkLocalVarmkCoVarmkExportedLocalVar lazySetIdInfo setIdDetails globaliseId setIdExportedsetIdNotExportedisTyVar isTcTyVar isTyCoVarisIdisCoVar isNonCoVarId isLocalId isLocalVar isGlobalIdmustHaveLocalBinding isExportedId$fHasOccNameVar $fDataVar$fOrdVar$fEqVar$fUniquableVar$fNamedThingVar$fOutputableVar$fBinaryArgFlag$fOutputableArgFlag$fBinaryTyVarBndr$fOutputableTyVarBndr $fEqArgFlag $fDataArgFlag$fDataTyVarBndrmkPromotedListTyunboxedTupleKind anyTypeOfKindint8ElemRepDataConTyint16ElemRepDataConTyint32ElemRepDataConTyint64ElemRepDataConTyword8ElemRepDataConTyword16ElemRepDataConTyword32ElemRepDataConTyword64ElemRepDataConTyfloatElemRepDataConTydoubleElemRepDataConTy vec2DataConTy vec4DataConTy vec8DataConTyvec16DataConTyvec32DataConTyvec64DataConTyliftedRepDataConTyunliftedRepDataConTyintRepDataConTywordRepDataConTyint64RepDataConTyword64RepDataConTyaddrRepDataConTyfloatRepDataConTydoubleRepDataConTyliftedRepDataConTyConvecRepDataConTyContupleRepDataConTyCon runtimeRepTyruntimeRepTyCon vecCountTyCon vecElemTyConconstraintKindliftedTypeKindmkBoxedTupleTy typeNatKindtypeSymbolKind listTyCon mkForAllKind mkFunKind patSynNamepatSynExTyVarspatSynInstArgTys patSynArityEqSpec DataConRepdataConFullSigdataConStupidThetadataConInstOrigArgTysdataConFieldLabelsdataConSourceAritydataConExTyVarBindersdataConExTyVarsdataConUnivTyVarBinders dataConTyCon dataConName filterEqSpec RealDataCon PatSynCon conLikeName CollectedCCsCostCentreStackIsCafCCNotCafCCCafCCCcNameNormalCC AllCafsCCcc_keycc_namecc_modcc_loc cc_is_caf cmpCostCentreisCafCC isSccCountCC sccAbleCCccFromThisModulemkUserCCmkAutoCC mkAllCafsCCnoCCS currentCCS dontCareCCS noCCSAttached isCurrentCCSisCafCCSmaybeSingletonCCSmkSingletonCCSpprCostCentreCorecostCentreUserNamecostCentreUserNameFScostCentreSrcSpan$fBinaryIsCafCC$fBinaryCostCentre$fOutputableCostCentre$fOrdCostCentre$fEqCostCentre$fOutputableCostCentreStack $fEqIsCafCC $fOrdIsCafCC $fDataIsCafCC$fDataCostCentre$fEqCostCentreStack$fOrdCostCentreStackBuiltInSynFamily sfMatchFam sfInteractTopsfInteractInert CoAxiomRule coaxrNamecoaxrAsmpRoles coaxrRole coaxrProvesTypeEqnRoleNominalRepresentationalPhantom CoAxBranchcab_loccab_tvscab_cvs cab_rolescab_lhscab_rhs cab_incomps co_ax_unique co_ax_name co_ax_roleco_ax_tcco_ax_branchesco_ax_implicitBranches UnbranchedBranched BranchFlag BranchIndex manyBranches unbranched fromBranches numBranchesmapAccumBranchestoBranchedAxiomtoUnbranchedAxiomcoAxiomNumPatscoAxiomNthBranch coAxiomArity coAxiomName coAxiomRolecoAxiomBranchescoAxiomSingleBranch_maybecoAxiomSingleBranch coAxiomTyConcoAxBranchTyVarscoAxBranchCoVars coAxBranchLHS coAxBranchRHScoAxBranchRolescoAxBranchSpanisImplicitCoAxiomcoAxBranchIncompsplaceHolderIncomps fsFromRoletrivialBuiltInFamily $fBinaryRole$fOutputableRole$fOutputableCoAxBranch $fDataCoAxiom$fNamedThingCoAxiom$fOutputableCoAxiom$fUniquableCoAxiom $fEqCoAxiom$fOutputableCoAxiomRule$fOrdCoAxiomRule$fEqCoAxiomRule$fUniquableCoAxiomRule$fDataCoAxiomRule$fEqRole $fOrdRole $fDataRole$fDataCoAxBranchLiftingContextpprCo coercionType coercionKindseqCo liftCoSubstmkCoercionType coVarRolecoVarKindsTypesRole isReflexiveCoisReflComkFunCosmkProofIrrelComkSubComkKindCo mkCoherenceComkInstComkLRComkNthCo mkTransComkSymComkUnivCo mkUnsafeCo mkPhantomCo mkAxiomInstCo mkCoVarComkFunCo mkForAllComkAppCo mkTyConAppComkReflCoClassMinimalDef ClassATItemATI DefMethInfo ClassOpItemFunDep classTyCon classNameclassKey classTyVarsclassMinimalDefmkClassmkAbstractClass classArityclassAllSelIds classSCSelId classMethods classOpItemsclassATs classATItems classSCTheta classTvsFds classHasFds classBigSigclassExtraBigSigisAbstractClassnaturallyCoherentClasspprDefMethInfo pprFundeps pprFunDep $fDataClass$fOutputableClass$fNamedThingClass$fUniquableClass $fEqClass RecTcChecker PrimElemRep Int8ElemRep Int16ElemRep Int32ElemRep Int64ElemRep Word8ElemRep Word16ElemRep Word32ElemRep Word64ElemRep FloatElemRep DoubleElemRepPrimRepVoidRep LiftedRep UnliftedRepIntRepWordRepInt64Rep Word64RepAddrRepFloatRep DoubleRepVecRep TyConRepName FamTyConFlavDataFamilyTyConOpenSynFamilyTyConClosedSynFamilyTyConAbstractClosedSynFamilyTyConBuiltInSynFamTyCon Injectivity NotInjective Injective AlgTyConFlavVanillaAlgTyConUnboxedAlgTyCon ClassTyConDataFamInstTyConRuntimeRepInfoNoRRI RuntimeRepVecCountVecElem AlgTyConRhs AbstractTyCon DataTyCon TupleTyConSumTyConNewTyCon data_consis_enumdata_contup_sortnt_rhs nt_etad_rhsnt_co tyConUnique tyConName tyConBinders tyConResKind tyConKind tyConArity tyConTyVars tyConCType algTcFields famTcResVartcTyConScopedTyVars TyConBndrVisNamedTCBAnonTCB TyConBindermkAnonTyConBindermkAnonTyConBindersmkNamedTyConBindermkNamedTyConBinderstyConBinderArgFlagisNamedTyConBinderisVisibleTyConBinderisInvisibleTyConBinder mkTyConKindvisibleDataCons isNoParenttyConRepName_maybemkPrelTyConRepNametyConRepModOcc isVoidRep isGcPtrRep primRepSizeWprimElemRepSizeBprimRepIsFloattyConFieldLabelslookupTyConFieldLabel mkFunTyCon mkAlgTyCon mkClassTyCon mkTupleTyCon mkSumTyCon mkTcTyCon mkPrimTyCon mkKindTyConmkLiftedPrimTyConmkSynonymTyCon mkFamilyTyConmkPromotedDataConisAbstractTyConmakeRecoveryTyCon isPrimTyConisUnliftedTyCon isAlgTyConisVanillaAlgTyCon isDataTyConisInjectiveTyConisGenerativeTyConisGenInjAlgRhs isNewTyConunwrapNewTyCon_maybeunwrapNewTyConEtad_maybeisProductTyConisDataProductTyCon_maybeisDataSumTyCon_maybeisTypeSynonymTyCon isTauTyConisFamFreeTyConmightBeUnsaturatedTyConisGadtSyntaxTyConisEnumerationTyCon isFamilyTyConisOpenFamilyTyConisTypeFamilyTyConisDataFamilyTyConisOpenTypeFamilyTyCon%isClosedSynFamilyTyConWithAxiom_maybefamilyTyConInjectivityInfoisBuiltInSynFamTyCon_maybe isTyConAssoctyConAssoc_maybetyConTuple_maybeisBoxedTupleTyConisUnboxedSumTyConisPromotedTupleTyConisPromotedDataConisPromotedDataCon_maybe isKindTyConisLiftedTypeKindTyConNameisImplicitTyContyConCType_maybe isTcTyCon isTcLevPolyexpandSynTyCon_maybeisTyConWithSrcDataCons tyConDataConstyConDataCons_maybetyConSingleDataCon_maybetyConSingleDataContyConSingleAlgDataCon_maybetyConFamilySize algTyConRhstyConFamilyResVar_maybe tyConRoles newTyConRhsnewTyConEtadAritynewTyConEtadRhsnewTyConCo_maybe newTyConConewTyConDataCon_maybetyConStupidThetasynTyConDefn_maybesynTyConRhs_maybefamTyConFlav_maybe isClassTyContyConClass_maybetyConATsisFamInstTyContyConFamInstSig_maybetyConFamInst_maybetyConFamilyCoercion_maybetyConRuntimeRepInfo tyConFlavourpprPromotionQuote initRecTc checkRecTc tyConSkolem$fBinaryInjectivity$fOutputablePrimElemRep$fOutputablePrimRep $fDataTyCon$fNamedThingTyCon$fOutputableTyCon$fUniquableTyCon $fEqTyCon$fOutputableFamTyConFlav$fOutputableAlgTyConFlav$fBinaryTyConBndrVis$fEqInjectivity$fEqPrimElemRep$fShowPrimElemRep $fEqPrimRep $fShowPrimRepsplitTyConApp_maybetyCoVarsOfTypeWellScopedtyCoVarsOfTypesWellScopedtcViewcoreViewpartitionInvisibleseqTypetypeKind piResultTymkCastTymkAppTy isCoercionTyisPredTy typeNatTyConsIfaceForAllBndrIfaceTyConBinder IfaceTvBndr IfaceTcArgs IfaceCoercion IfaceTyLit IfaceTyConShowForAllFlag IfacePredType IfaceKind IfLclNamepprIfacePrefixApp pprTyTcApppprIfaceCoTcApppprIfaceTypeApppprIfaceContextArrpprIfaceContextpprUserIfaceForAllpprIfaceTvBndrpprIfaceForAll pprIfaceTyLitpprIfaceSigmaType pprIfaceTypepprParendIfaceTypeShowForAllMustShowForAllWhenIfRnEnv2IfaceUnivCoProvIfaceUnsafeCoerceProvIfacePhantomProvIfaceProofIrrelProvIfacePluginProv IfaceHoleProv IfaceReflCo IfaceFunCoIfaceTyConAppCo IfaceAppCo IfaceForAllCo IfaceCoVarCoIfaceAxiomInstCo IfaceUnivCo IfaceSymCo IfaceTransCo IfaceNthCo IfaceLRCo IfaceInstCoIfaceCoherenceCo IfaceKindCo IfaceSubCoIfaceAxiomRuleCoIfaceTyConInfoifaceTyConIsPromotedifaceTyConSortIfaceTyConSortIfaceNormalTyConIfaceTupleTyCon IfaceSumTyConIfaceEqualityTyCon IsPromoted IsNotPromotedifaceTyConNameifaceTyConInfoITC_NilITC_Vis ITC_Invis IfaceNumTyLit IfaceStrTyLit IfaceContextIfaceFreeTyVar IfaceTyVar IfaceLitTy IfaceAppTy IfaceFunTy IfaceDFunTy IfaceForAllTy IfaceTyConApp IfaceCastTyIfaceCoercionTy IfaceTupleTy IfaceOneShotIfaceNoOneShot IfaceLamBndr IfaceIdBndr IfaceBndr IfExtName eqIfaceTvBndrisIfaceLiftedTypeKindsplitIfaceSigmaTysuppressIfaceInvisiblesstripIfaceInvisVarsifTyConBinderTyVarifTyConBinderNamemkIfaceTySubstsubstIfaceTypesubstIfaceTcArgssubstIfaceTyVar emptyIfRnEnv2 eqIfaceType eqIfaceTypes eqIfaceTcArgseqIfaceTvBndrsstripInvisArgstcArgsIfaceTypes pprIfaceBndrspprIfaceLamBndrpprIfaceIdBndrpprIfaceTyConBinderspprIfaceTcArgspprParendIfaceTcArgspprIfaceForAllPartpprIfaceCoercionpprParendIfaceCoercion$fBinaryIfaceOneShot$fBinaryIsPromoted$fBinaryDefMethSpec$fBinaryIfaceUnivCoProv$fBinaryIfaceCoercion$fBinaryIfaceType$fBinaryIfaceTcArgs$fBinaryIfaceTyLit$fOutputableIfaceTyLit$fBinaryIfaceTyConInfo$fBinaryIfaceTyConSort$fBinaryIfaceTyCon$fOutputableIfaceCoercion$fOutputableIfaceTyCon$fOutputableIfaceTcArgs$fOutputableIfaceType$fMonoidIfaceTcArgs$fBinaryIfaceBndr$fOutputableIfaceBndr$fEqIsPromoted$fEqIfaceTyCon$fEqIfaceTyConInfo$fEqIfaceTyConSort$fEqIfaceTyLit DataConBoxer magicDictId mkPrimOpId mkDictSelIdmkDataConWorkId DTyCoVarSet DTyVarSetDIdSetDVarSet TyCoVarSetCoVarSetTyVarSetIdSet emptyVarSet unitVarSet extendVarSetextendVarSetListintersectVarSet unionVarSet unionVarSets elemVarSet minusVarSet delVarSet delVarSetList isEmptyVarSetmkVarSetlookupVarSet_Directly lookupVarSetlookupVarSetByName sizeVarSet filterVarSetdelVarSetByKeyelemVarSetByKeypartitionVarSetmapUnionVarSetintersectsVarSetdisjointVarSet subVarSet anyVarSet allVarSet fixVarSettransCloVarSet seqVarSet pluralVarSet pprVarSet emptyDVarSet unitDVarSet mkDVarSet extendDVarSet elemDVarSet dVarSetElems subDVarSet unionDVarSet unionDVarSetsmapUnionDVarSetintersectDVarSetdisjointDVarSetintersectsDVarSetisEmptyDVarSet delDVarSet minusDVarSetdVarSetMinusVarSet foldDVarSet anyDVarSet allDVarSet filterDVarSet sizeDVarSetpartitionDVarSetdelDVarSetList seqDVarSetextendDVarSetListdVarSetToVarSettransCloDVarSet DTyVarEnvDIdEnvDVarEnvCoVarEnv TyCoVarEnvTyVarEnvIdEnvTidyEnvRnEnv2 InScopeSetemptyInScopeSetgetInScopeVars mkInScopeSetextendInScopeSetextendInScopeSetListextendInScopeSetSet delInScopeSetelemInScopeSet lookupInScopelookupInScope_Directly unionInScope varSetInScopeuniqAwaymkRnEnv2addRnInScopeSet rnInScope rnInScopeSetrnEnvLrnEnvRrnBndrs2rnBndr2 rnBndr2_varrnBndrLrnBndrRrnEtaLrnEtaRdelBndrLdelBndrR delBndrsL delBndrsRrnOccLrnOccR rnOccL_maybe rnOccR_maybeinRnEnvLinRnEnvRlookupRnInScope nukeRnEnvL nukeRnEnvRrnSwap emptyTidyEnv elemVarEnvelemVarEnvByKeydisjointVarEnv alterVarEnv extendVarEnvextendVarEnv_CextendVarEnv_AccextendVarEnv_DirectlyextendVarEnvList plusVarEnv_C plusVarEnv_CDplusMaybeVarEnv_C delVarEnvList delVarEnv minusVarEnvintersectsVarEnv plusVarEnvplusVarEnvList lookupVarEnv filterVarEnvlookupWithDefaultVarEnv mapVarEnvmkVarEnvmkVarEnv_Directly emptyVarEnv unitVarEnv isEmptyVarEnvlookupVarEnv_DirectlyfilterVarEnv_DirectlydelVarEnv_DirectlypartitionVarEnvrestrictVarEnv zipVarEnvlookupVarEnv_NF modifyVarEnvmodifyVarEnv_Directly emptyDVarEnv dVarEnvElts mkDVarEnv extendDVarEnv minusDVarEnv lookupDVarEnv foldDVarEnv mapDVarEnv alterDVarEnv plusDVarEnv plusDVarEnv_C unitDVarEnv delDVarEnvdelDVarEnvListisEmptyDVarEnv elemDVarEnvextendDVarEnv_C modifyDVarEnvpartitionDVarEnvextendDVarEnvList anyDVarEnv$fOutputableInScopeSettoIfaceCoercion toIfaceTcArgs toIfaceTyCon toIfaceTvBndrtoIfaceForAllBndr toIfaceTyLit toIfaceTypeX toIfaceTypeInterestingVarFunfvVarListVarSet fvVarList fvDVarSetfvVarSetemptyFVunionFVfilterFV mapUnionFVunionsFV CvSubstEnv TvSubstEnv CoercionHole CoercionP CoercionR CoercionN KindOrTypeAnIdAConLikeATyConACoAxiompprShortTyThingpprTyThingCategorytyThingCategoryisInvisibleBinderisVisibleBinder mkTyVarTy mkTyVarTysmkFunTymkFunTys mkForAllTy mkForAllTysmkPiTymkPiTysisCoercionType mkTyConTyisLiftedTypeKindisUnliftedTypeKindisRuntimeRepTyisRuntimeRepKindedTyisRuntimeRepVardropRuntimeRepArgstyCoVarsOfTypetyCoVarsOfTypeDSettyCoVarsOfTypeList tyCoFVsOfType tyCoFVsBndrtyCoVarsOfTypestyCoVarsOfTypesDSettyCoVarsOfTypesListtyCoFVsOfTypes tyCoVarsOfCotyCoVarsOfCoDSet tyCoFVsOfCo tyCoVarsOfCos tyCoFVsOfCos coVarsOfType coVarsOfTypes coVarsOfCocloseOverKindscloseOverKindsListcloseOverKindsDSetnoFreeVarsOfTypeemptyTvSubstEnvemptyCvSubstEnvcomposeTCvSubstEnvcomposeTCvSubst emptyTCvSubstmkEmptyTCvSubstisEmptyTCvSubst mkTCvSubst mkTvSubst getTvSubstEnv getCvSubstEnv getTCvInScopegetTCvSubstRangeFVs isInScopenotElemTCvSubst setTvSubstEnv zapTCvSubstextendTCvInScopeextendTCvInScopeListextendTCvInScopeSetextendTCvSubst extendTvSubstextendTvSubstBinderextendTvSubstWithClone extendCvSubstextendTvSubstAndInScopeextendTvSubstList unionTCvSubst zipTvSubst mkTvSubstPrszipTyEnvzipCoEnv substTyWithsubstTyWithUncheckedsubstTyWithInScope substCoWithsubstCoWithUncheckedsubstTyWithCoVars substTysWithsubstTyAddInScopesubstTysubstTyUncheckedsubstTyssubstTysUnchecked substThetasubstThetaUnchecked substTyVar substTyVars lookupTyVarsubstCosubstCoUncheckedsubstCos substCoVar substCoVars lookupCoVarsubstTyVarBndrsubstCoVarBndrcloneTyVarBndrcloneTyVarBndrs pprParendType pprParendKind pprClassPredpprThetapprThetaArrowTy pprSigmaType pprForAll pprUserForAll pprTvBndrs pprTvBndr pprTyVarspprTyVar pprTypeApp pprPrefixApp pprArrowChainppSuggestExplicitKindstidyTyCoVarBndrstidyTyCoVarBndrtidyTyVarBindertidyTyVarBinderstidyFreeTyCoVarstidyOpenTyCoVarstidyOpenTyCoVar tidyTyVarOcc tidyTypestidyType tidyOpenTypes tidyOpenType tidyTopType tidyOpenKindtidyKindtidyCotidyCostypeSize coercionSize primTyConscharPrimTyConNameintPrimTyConNamewordPrimTyConNameaddrPrimTyConNamefloatPrimTyConNamedoublePrimTyConNamemkTemplateKindVarsmkTemplateTyVarsFrommkTemplateTyVarsmkTemplateTyConBindersmkTemplateKiTyVarsmkTemplateKindTyConBindersmkTemplateAnonTyConBinders alphaTyVars alphaTyVar betaTyVar gammaTyVar deltaTyVaralphaTysalphaTybetaTygammaTydeltaTyruntimeRep1TyVarruntimeRep2TyVar runtimeRep1Ty runtimeRep2TyopenAlphaTyVar openBetaTyVar openAlphaTy openBetaTy funTyConName tYPETyCon tYPETyConNamemkPrimTyConNametYPEprimRepToRuntimeRep charPrimTy charPrimTyCon intPrimTy intPrimTyCon int32PrimTyint32PrimTyCon int64PrimTyint64PrimTyCon wordPrimTy wordPrimTyCon word32PrimTyword32PrimTyCon word64PrimTyword64PrimTyCon addrPrimTy addrPrimTyCon floatPrimTyfloatPrimTyCon doublePrimTydoublePrimTyCon mkStatePrimTystatePrimTyConrealWorldTyCon realWorldTyrealWorldStatePrimTy voidPrimTy voidPrimTyCon mkProxyPrimTyproxyPrimTyCon eqPrimTyConeqReprPrimTyConeqPhantPrimTyConarrayPrimTyConmutableArrayPrimTyConmutableByteArrayPrimTyConbyteArrayPrimTyConarrayArrayPrimTyConmutableArrayArrayPrimTyConsmallArrayPrimTyConsmallMutableArrayPrimTyCon mkArrayPrimTybyteArrayPrimTymkArrayArrayPrimTymkSmallArrayPrimTymkMutableArrayPrimTymkMutableByteArrayPrimTymkMutableArrayArrayPrimTymkSmallMutableArrayPrimTymutVarPrimTyConmkMutVarPrimTy mVarPrimTyCon mkMVarPrimTy tVarPrimTyCon mkTVarPrimTystablePtrPrimTyConmkStablePtrPrimTystableNamePrimTyConmkStableNamePrimTycompactPrimTyCon compactPrimTy bcoPrimTy bcoPrimTyCon weakPrimTyCon mkWeakPrimTythreadIdPrimTythreadIdPrimTyCon int8X16PrimTyint8X16PrimTyCon int16X8PrimTyint16X8PrimTyCon int32X4PrimTyint32X4PrimTyCon int64X2PrimTyint64X2PrimTyCon int8X32PrimTyint8X32PrimTyConint16X16PrimTyint16X16PrimTyCon int32X8PrimTyint32X8PrimTyCon int64X4PrimTyint64X4PrimTyCon int8X64PrimTyint8X64PrimTyConint16X32PrimTyint16X32PrimTyConint32X16PrimTyint32X16PrimTyCon int64X8PrimTyint64X8PrimTyConword8X16PrimTyword8X16PrimTyConword16X8PrimTyword16X8PrimTyConword32X4PrimTyword32X4PrimTyConword64X2PrimTyword64X2PrimTyConword8X32PrimTyword8X32PrimTyConword16X16PrimTyword16X16PrimTyConword32X8PrimTyword32X8PrimTyConword64X4PrimTyword64X4PrimTyConword8X64PrimTyword8X64PrimTyConword16X32PrimTyword16X32PrimTyConword32X16PrimTyword32X16PrimTyConword64X8PrimTyword64X8PrimTyCon floatX4PrimTyfloatX4PrimTyCondoubleX2PrimTydoubleX2PrimTyCon floatX8PrimTyfloatX8PrimTyCondoubleX4PrimTydoubleX4PrimTyConfloatX16PrimTyfloatX16PrimTyCondoubleX8PrimTydoubleX8PrimTyConisConstraintKindConisConstraintKind isTYPEApp returnsTyConreturnsConstraintKind isKindLevPolyokArrowArgKindokArrowResultKindclassifiesTypeWithValues tcIsStarKind isStarKindisStarKindSynonymTyConPredTree ClassPredEqPred IrredPredEqRelNomEqReprEq TyCoMapper tcm_smart tcm_tyvar tcm_covartcm_hole tcm_tybinderexpandTypeSynonymsmapType mapCoerciongetTyVar isTyVarTygetTyVar_maybegetCastedTyVar_mayberepGetTyVar_maybemkAppTyssplitAppTy_mayberepSplitAppTy_maybetcRepSplitAppTy_maybetcSplitTyConApp_maybetcRepSplitTyConApp_maybe splitAppTy splitAppTysrepSplitAppTys mkNumLitTy isNumLitTy mkStrLitTy isStrLitTyuserTypeError_maybepprUserTypeErrorTyisFunTy splitFunTysplitFunTy_maybe splitFunTys funResultTyfunArgTy piResultTys applyTysX mkTyConApptyConAppTyConPicky_maybetyConAppTyCon_maybe tyConAppTyContyConAppArgs_maybe tyConAppArgs tyConAppArgN splitTyConApprepSplitTyConApp_maybesplitListTyConApp_maybenextRolenewTyConInstRhssplitCastTy_maybetyConBindersTyBinders mkCoercionTyisCoercionTy_maybestripCoercionTy mkInvForAllTymkInvForAllTysmkSpecForAllTysmkVisForAllTys mkLamType mkLamTypesmkTyConBindersPreferAnonsplitForAllTyssplitForAllTyVarBndrs isForAllTyisPiTy splitForAllTy dropForAllssplitForAllTy_maybesplitPiTy_maybe splitPiTy splitPiTyssplitPiTysInvisiblefilterOutInvisibleTypesfilterOutInvisibleTyVarsisTauTy mkTyVarBindermkTyVarBinders mkAnonBinderisAnonTyBinderisNamedTyBinder tyBinderTypebinderRelevantType_maybe caseBindermkTyBinderTyConBinder isClassPredisEqPred isNomEqPredisIPPred isIPTyCon isIPClass isCTupleClassisIPPred_maybemkPrimEqPredRole mkPrimEqPredmkHeteroPrimEqPredmkHeteroReprPrimEqPredsplitCoercionType_maybemkReprPrimEqPred equalityTyCon mkClassPredisDictTy isDictLikeTy eqRelRoleclassifyPredTypegetClassPredTysgetClassPredTys_maybe getEqPredTysgetEqPredTys_maybe getEqPredRole predTypeEqReltoposortTyVarsdVarSetElemsWellScopedmkFamilyTyConApp coAxNthLHSpprSourceTyCon isFamFreeTyisLiftedType_maybeisUnliftedTypegetRuntimeRep_maybe getRuntimeRepgetRuntimeRepFromKindgetRuntimeRepFromKind_maybeisUnboxedTupleTypeisUnboxedSumType isAlgTypeisClosedAlgTypeisDataFamilyAppType isStrictTypeisPrimitiveTypeisValidJoinPointTypeseqTypeseqTypeseqTypeXeqTypes eqVarBndrs nonDetCmpTypenonDetCmpTypesnonDetCmpTypeXnonDetCmpTypesX nonDetCmpTc isTypeLevPolyresultIsLevPoly tyConsOfTypesynTyConResKindsplitVisVarsOfTypesplitVisVarsOfTypesmodifyJoinResTy setJoinResTy$fOutputableEqRel $fEqEqRel $fOrdEqRel$fEqTypeOrdering$fOrdTypeOrdering$fEnumTypeOrdering$fBoundedTypeOrderingmkPatSyn patSynIsInfix patSynArgspatSynFieldLabelspatSynFieldTypepatSynUnivTyVarBinderspatSynExTyVarBinders patSynSig patSynMatcher patSynBuilder tidyPatSynIdspatSynInstResTy pprPatSynType $fDataPatSyn$fOutputableBndrPatSyn$fOutputablePatSyn$fNamedThingPatSyn$fUniquablePatSyn $fEqPatSynMachCharMachStr MachNullAddrMachInt MachInt64MachWord MachWord64 MachFloat MachDouble MachLabel LitInteger mkMachInt mkMachIntWrap mkMachWordmkMachWordWrap mkMachInt64mkMachInt64Wrap mkMachWord64mkMachWord64Wrap mkMachFloat mkMachDouble mkMachChar mkMachString mkLitInteger inIntRange inWordRange inCharRange isZeroLitlitValueisLitValue_maybe mapLitValue isLitValue word2IntLit int2WordLit narrow8IntLitnarrow16IntLitnarrow32IntLitnarrow8WordLitnarrow16WordLitnarrow32WordLit char2IntLit int2CharLit float2IntLit int2FloatLit double2IntLit int2DoubleLitfloat2DoubleLitdouble2FloatLit nullAddrLit litIsTrivial litIsDupable litFitsInChar litIsLifted literalTypeabsentLiteralOf pprLiteral $fOrdLiteral $fEqLiteral$fOutputableLiteral$fBinaryLiteral $fDataLiteral LiftCoEnvLCNormaliseStepResultNS_DoneNS_AbortNS_StepNormaliseStepper coVarNamesetCoVarUnique setCoVarName pprParendCo pprCoBndr pprCoAxiom pprCoAxBranchpprCoAxBranchHdr decomposeCodecomposeFunCogetCoVar_maybesplitTyConAppCo_maybesplitAppCo_maybesplitFunCo_maybesplitForAllCo_maybe coVarTypes coVarKindmkHeteroCoercionTypeisReflCoVar_maybeisReflCo_maybeisReflexiveCo_maybe mkRepReflCo mkNomReflComkAppCos mkTransAppCo mkForAllCosmkHomoForAllCosmkHomoForAllCos_NoRefl mkCoVarCos isCoVar_maybe mkAxInstComkUnbranchedAxInstCo mkAxInstRHSmkUnbranchedAxInstRHS mkAxInstLHSmkUnbranchedAxInstLHSmkHoleCo mkNthCoRolemkCoherenceRightComkCoherenceLeftCo downgradeRole maybeSubCo mkAxiomRuleCosetNominalRole_maybemkHomoPhantomCo toPhantomCo tyConRolesXtyConRolesRepresentationalnthRoleltRolepromoteCoercioncastCoercionKindmkPiCosmkPiComkCoCastinstNewTyCon_maybe mapStepResultcomposeSteppersunwrapNewTypeSteppertopNormaliseTypeXtopNormaliseNewType_maybe eqCoercion eqCoercionXliftCoSubstWithExliftCoSubstWithemptyLiftingContextmkSubstLiftingContextextendLiftingContextzapLiftingContextsubstForAllCoBndrCallbackLCliftCoSubstTyVarliftCoSubstVarBndrCallback isMappedByLC substLeftCo substRightCo swapLiftCoEnv lcSubstLeft lcSubstRightliftEnvSubstLeftliftEnvSubstRight lcTCvSubst lcInScopeSet coercionKindscoercionKindRole coercionRole$fOutputableLiftingContextBindFlagBindMeSkolem UnifyResultM Unifiable MaybeApart SurelyApart UnifyResult tcMatchTy tcMatchTyKi tcMatchTyX tcMatchTys tcMatchTyKis tcMatchTysX tcMatchTyKisXruleMatchTyKiX roughMatchTcsinstanceCantMatchtypesCantMatch tcUnifyTy tcUnifyTyKitcUnifyTyWithTFs tcUnifyTys tcUnifyTyKis tcUnifyTysFG liftCoMatch$fOutputableUnifyResultM$fMonadPlusUnifyResultM$fAlternativeUnifyResultM$fMonadUnifyResultM$fApplicativeUnifyResultM $fMonadFailUM $fMonadPlusUM$fAlternativeUM $fMonadUM$fApplicativeUM $fFunctorUM$fFunctorUnifyResultM $fEqBindFlagStrictnessMark MarkedStrictNotMarkedStrictSrcUnpackedness SrcUnpack SrcNoUnpack NoSrcUnpack SrcStrictnessSrcLazy SrcStrict NoSrcStrict HsImplBangHsLazyHsStrictHsUnpack HsSrcBang NoDataConRepDCR dcr_wrap_id dcr_boxer dcr_arg_tys dcr_stricts dcr_bangsmkEqSpec eqSpecTyVar eqSpecType eqSpecPair eqSpecPreds substEqSpeceqHsBangisBanged isSrcStrict isSrcUnpackedisMarkedStrict mkDataCon dataConTagdataConOrigTyCondataConRepTypedataConIsInfixdataConUnivTyVarsdataConAllTyVars dataConEqSpec dataConTheta dataConWorkIddataConWrapId_maybe dataConWrapIddataConImplicitTyThingsdataConFieldTypedataConFieldType_maybedataConSrcBangsdataConRepArityisNullarySrcDataConisNullaryRepDataCondataConRepStrictnessdataConImplBangs dataConBoxer dataConSigdataConInstSigdataConOrigResTydataConUserTypedataConInstArgTysdataConOrigArgTysdataConRepArgTysdataConIdentityisTupleDataConisUnboxedTupleConisUnboxedSumConisVanillaDataConspecialPromotedDcisLegacyPromotableDataConisLegacyPromotableTyCon classDataCondataConCannotMatchpromoteDataConsplitDataProductType_maybe buildAlgTyCon buildSynTyCon$fBinarySrcStrictness$fOutputableSrcStrictness$fBinarySrcUnpackedness$fOutputableSrcUnpackedness$fOutputableStrictnessMark$fOutputableHsImplBang$fOutputableHsSrcBang $fDataDataCon$fOutputableBndrDataCon$fOutputableDataCon$fNamedThingDataCon$fUniquableDataCon $fEqDataCon$fOutputableEqSpec$fEqSrcStrictness$fDataSrcStrictness$fEqSrcUnpackedness$fDataSrcUnpackedness$fDataHsImplBang$fDataHsSrcBangSlotTyPtrSlotWordSlot Word64Slot FloatSlot DoubleSlot UnaryType NvUnaryType isNvUnaryTypetypePrimRepArgs unwrapTypecountFunRepArgscountConRepArgsisVoidTy ubxSumRepType layoutUbxSum typeSlotTy primRepSlot slotPrimRep typePrimRep typePrimRep1 tyConPrimRep tyConPrimRep1runtimeRepPrimRep primRepToType$fOutputableSlotTy $fEqSlotTy $fOrdSlotTy StrictSig BothDmdArgDmdTypeDmdEnv CPRResult DmdResult TypeShapeTsFunTsProdTsUnk CleanDemandCountUseDmdUCallUProdUHeadUsedStrDmd getStrDmd getUseDmd peelUseCalladdCaseBndrDmduseCount bothCleanDmd mkHeadStrict mkOnceUsedDmd mkManyUsedDmdevalDmd mkProdDmd mkCallDmdmkWorkerDemand cleanEvalDmdcleanEvalProdDmdlubDmdbothDmdstrictApply1Dmd catchArgDmd lazyApply1Dmd lazyApply2DmdabsDmdtopDmdbotDmdseqDmd oneifyDmdisTopDmdisAbsDmdisSeqDmd isUsedOnce seqDemand seqDemandList isStrictDmdcleanUseDmd_maybesplitFVs trimToTypesplitProdDmd_maybetopResexnResbotRes cprSumRes cprProdResvanillaCprProdResisTopResisBotRes trimCPRInforeturnsCPR_maybe lubDmdType mkBothDmdArg toBothDmdArg bothDmdType emptyDmdEnv nopDmdType botDmdType mkDmdType dmdTypeDepthremoveDmdTyArgs seqDmdType splitDmdTy deferAfterIO strictenDmd toCleanDmdpostProcessDmdTypereuseEnvpostProcessUnsat peelCallDmdpeelFV addDemand findIdDemandpprIfaceStrictSig mkStrictSigmkClosedStrictSigsplitStrictSigincreaseStrictSigArityisTopSighasDemandEnvSigstrictSigDmdEnvisBottomingSignopSigbotSigexnSig cprProdSig seqStrictSigdmdTransformSigdmdTransformDataConSigdmdTransformDictSelSig argsOneShotssaturatedByOneShots argOneShots appIsBottomzapUsageEnvSigzapUsageDemandzapUsedOnceDemandzapUsedOnceSigkillUsageDemand killUsageSigstrictifyDictDmd$fBinaryJointDmd$fOutputableJointDmd$fBinaryExnStr $fBinaryStr$fBinaryStrDmd$fOutputableStr$fOutputableStrDmd $fBinaryCount$fOutputableCount$fBinaryUseDmd $fBinaryUse$fOutputableUseDmd$fOutputableUse$fOutputableTypeShape$fOutputableTermination$fBinaryCPRResult$fOutputableCPRResult$fBinaryTermination$fBinaryDmdType$fOutputableDmdType $fEqDmdType$fBinaryStrictSig$fOutputableStrictSig $fEqJointDmd$fShowJointDmd $fEqExnStr $fShowExnStr$fEqStr $fShowStr $fEqStrDmd $fShowStrDmd $fEqCount $fShowCount$fEqUse $fShowUse $fEqUseDmd $fShowUseDmd$fEqTermination$fShowTermination $fEqCPRResult$fShowCPRResult $fEqStrictSig conLikeArityconLikeFieldLabelsconLikeInstOrigArgTysconLikeExTyVarsconLikeStupidThetaconLikeWrapId_maybeconLikeImplBangs conLikeResTyconLikeFullSigconLikeFieldTypeconLikesWithFieldsconLikeIsInfix $fDataConLike$fOutputableBndrConLike$fOutputableConLike$fNamedThingConLike$fUniquableConLike $fEqConLikeAnnBind AnnNonRecAnnAltAnnExpr'AnnVarAnnLitAnnAppAnnCastAnnTick AnnCoercionAnnExpr TaggedAlt TaggedArg TaggedExpr TaggedBind TaggedBndrTBCoreAltCoreBindCoreArgCoreExprCoreBndr CoreProgramUnfoldingGuidanceUnfWhen UnfIfGoodArgsUnfNeverug_arity ug_unsat_ok ug_boring_okug_argsug_sizeug_resUnfoldingSource InlineRhs InlineStableInlineCompulsory Unfolding NoUnfolding BootUnfoldingOtherCon DFunUnfolding CoreUnfoldingdf_bndrsdf_condf_argsuf_tmpluf_src uf_is_top uf_is_value uf_is_conlikeuf_is_work_free uf_expandable uf_guidanceCoreVectVectNoVectVectType VectClassVectInstIdUnfoldingFun InScopeEnvRuleFunCoreRuleRule BuiltinRuleru_nameru_actru_fnru_roughru_bndrsru_argsru_rhsru_auto ru_origin ru_orphanru_localru_nargsru_tryRuleEnvre_basere_visible_orphsRuleBaseIsOrphan NotOrphanTickishPlacement PlaceRuntime PlaceNonLamPlaceCostCentreTickishScopingNoScope SoftScopeCostCentreScopeTickishProfNoteHpcTick Breakpoint SourceNote profNoteCC profNoteCount profNoteScope tickModuletickId breakpointId breakpointFVs sourceSpan sourceNameOutArgOutAltOutExprOutBind OutCoercionOutKindOutTypeOutBndr InCoercionInArgInAltInExprInBindInKindInTypeInBndrBindNonRecRecAltConDataAltLitAltDEFAULTAltArgExprLitAppLamLetCaseCastTick tickishCounts tickishScopedtickishScopesLiketickishFloatabletickishCanSplit mkNoCount mkNoScope tickishIsCode tickishPlacetickishContainsisOrphan notOrphanchooseOrphanAnchor mkRuleEnv emptyRuleEnv isBuiltinRule isAutoRule ruleArityruleName ruleModuleruleActivation ruleIdName isLocalRule setRuleIdName needSaturated unSaturatedOk boringCxtOkboringCxtNotOk noUnfoldingevaldUnfolding bootUnfolding mkOtherConisStableSourceunfoldingTemplatemaybeUnfoldingTemplate otherConsisValueUnfoldingisEvaldUnfoldingisConLikeUnfoldingisCheapUnfoldingisExpandableUnfoldingexpandUnfolding_maybeisCompulsoryUnfoldingisStableUnfoldinghasSomeUnfoldingisBootUnfoldingneverUnfoldGuidanceisFragileUnfolding canUnfoldcmpAltltAlt cmpAltCon deTagExprmkAppsmkCoApps mkVarAppsmkConAppmkTyApps mkConApp2mkTyArgmkIntLit mkIntLitInt mkWordLit mkWordLitWordmkWord64LitWord64mkInt64LitInt64 mkCharLit mkStringLit mkFloatLitmkFloatLitFloat mkDoubleLitmkDoubleLitDoublemkLamsmkLetsmkLetmkTyBindmkCoBind varToCoreExprvarsToCoreExprsapplyTypeToArg exprToTypeexprToCoercion_maybe bindersOfbindersOfBinds rhssOfBind rhssOfAlts flattenBindscollectBinderscollectTyBinderscollectTyAndValBinderscollectNBinders collectArgscollectArgsTicks isRuntimeVar isRuntimeArgisValArg isTyCoArg isTypeArg valBndrCount valArgCountcollectAnnArgscollectAnnArgsTicks deAnnotate deAnnotate'deAnnAltcollectAnnBndrscollectNAnnBndrs$fOutputableAltCon$fBinaryIsOrphan$fOutputableTaggedBndr $fEqAltCon $fDataAltCon $fEqTickish $fOrdTickish $fDataTickish $fDataExpr $fDataBind$fEqTickishScoping$fEqTickishPlacement$fDataIsOrphan$fEqUnfoldingGuidanceCmEnv LooseTypeMapTypeMapCoreMap LiteralMapListMapMaybeMapKeyemptyTMlookupTMalterTMmapTMfoldTMinsertTMdeleteTM>.>|>|>>lkDNamedxtDNamed lookupCoreMap extendCoreMap foldCoreMap emptyCoreMap foldTypeMap emptyTypeMap lookupTypeMap extendTypeMaplookupTypeMapWithScopeextendTypeMapWithScopemkDeBruijnContext lookupCME lkDFreeVar xtDFreeVar$fTrieMapUniqDFM $fTrieMapMap$fTrieMapIntMap$fTrieMapMaybeMap$fTrieMapListMap$fTrieMapGenMap$fOutputableGenMap$fTrieMapTyLitMap $fEqDeBruijn $fEqDeBruijn0 $fEqDeBruijn1 $fEqDeBruijn2 $fEqDeBruijn3$fTrieMapVarMap$fOutputableGenMap0$fTrieMapTypeMapX$fTrieMapLooseTypeMap$fTrieMapTypeMap$fTrieMapCoercionMapX$fTrieMapCoercionMap$fTrieMapAltMap$fTrieMapCoreMapX$fOutputableCoreMap$fTrieMapCoreMap FamInstMatch fim_instancefim_tysfim_cosInjectivityCheckResultInjectivityAcceptedInjectivityUnified FamInstEnvs FamFlavor SynFamilyInstDataFamilyInstfi_axiom fi_flavorfi_famfi_tcsfi_tvsfi_cvsfi_tysfi_rhs famInstAxiom famInstRHS famInstTyConfamInstsRepTyConsfamInstRepTyCon_maybedataFamInstRepTyCon pprFamInst pprFamInstsmkImportedFamInstemptyFamInstEnvsemptyFamInstEnvfamInstEnvEltsfamInstEnvSizefamilyInstancesextendFamInstEnvListextendFamInstEnvinjectiveBranches mkCoAxBranchmkBranchedCoAxiommkUnbranchedCoAxiommkSingleCoAxiommkNewTypeCoAxiomlookupFamInstEnvByTyConlookupFamInstEnvlookupFamInstEnvConflicts$lookupFamInstEnvInjectivityConflicts isDominatedByreduceTyFamApp_maybeapartnessChecktopNormaliseTypetopNormaliseType_maybepmTopNormaliseType_maybenormaliseTcApp normaliseType flattenTys$fOutputableFamInst$fNamedThingFamInst$fOutputableFamilyInstEnv$fOutputableFamInstMatch$fApplicativeNormM$fFunctorNormM $fMonadNormM LevityInfo TickBoxOpTickBox TickBoxIdCafInfoMayHaveCafRefs NoCafRefsRuleInfoInlinePragInfo ArityInfo arityInforuleInfo unfoldingInfocafInfo oneShotInfoinlinePragInfooccInfostrictnessInfo demandInfo callArityInfo levityInfo RecSelParent RecSelData RecSelPatSyn VanillaIdRecSelId DataConWorkId DataConWrapId ClassOpIdPrimOpIdFCallId TickBoxOpIdCoVarId sel_tycon sel_naughtyisJoinIdDetails_maybe setRuleInfosetInlinePragInfo setOccInfosetUnfoldingInfo setArityInfosetCallArityInfo setCafInfosetOneShotInfo setDemandInfosetStrictnessInfo noCafIdInfo unknownArity ppArityInfo pprStrictness emptyRuleInfoisEmptyRuleInforuleInfoFreeVars ruleInfoRulessetRuleInfoHeadmayHaveCafRefs ppCafInfo zapLamInfo zapDemandInfo zapUsageInfozapUsageEnvInfozapUsedOnceInfozapFragileInfozapTailCallInfozapCallArityInfosetNeverLevPolysetLevityInfoWithTypeisNeverLevPolyIdInfo$fOutputableCafInfo$fOutputableLevityInfo$fOutputableTickBoxOp$fOutputableIdDetails$fOutputableRecSelParent $fEqCafInfo $fOrdCafInfo$fEqLevityInfo$fEqRecSelParentidNameidUniqueidType setIdName setIdUnique setIdType localiseId setIdInfo modifyIdInfomaybeModifyIdInfo mkGlobalIdmkVanillaGlobalmkVanillaGlobalWithInfo mkLocalId mkLocalCoVarmkLocalIdOrCoVarmkLocalIdOrCoVarWithInfomkLocalIdWithInfomkExportedLocalIdmkExportedVanillaId mkSysLocalmkSysLocalOrCoVar mkSysLocalMmkSysLocalOrCoVarM mkUserLocalmkUserLocalOrCoVar mkWorkerIdmkTemplateLocalmkTemplateLocalsmkTemplateLocalsNumrecordSelectorTyConisRecordSelectorisDataConRecordSelectorisPatSynRecordSelectorisNaughtyRecordSelectorisClassOpId_maybe isPrimOpIdisDFunIdisPrimOpId_maybe isFCallIdisFCallId_maybeisDataConWorkIdisDataConWorkId_maybeisDataConId_maybeisJoinIdisJoinId_maybe idDataCon hasNoBinding isImplicitIdidIsFrom isDeadBinderisEvVarisDictId idJoinArityasJoinId zapJoinIdasJoinId_maybeidArity setIdArity idCallAritysetIdCallArity idFunRepArity isBottomingId idStrictnesssetIdStrictnesszapIdStrictness isStrictId idUnfoldingrealIdUnfoldingsetIdUnfolding idDemandInfosetIdDemandInfosetCaseBndrEvaldidSpecialisation idCoreRules idHasRulessetIdSpecialisation idCafInfo setIdCafInfo idOccInfo setIdOccInfo zapIdOccInfoidInlinePragmasetInlinePragmamodifyInlinePragmaidInlineActivationsetInlineActivationidRuleMatchInfo isConLikeId idOneShotInfoidStateHackOneShotInfo isOneShotBndrstateHackOneShot typeOneShotisStateHackTypeisProbablyOneShotLambdasetOneShotLambdaclearOneShotLambdasetIdOneShotInfoupdOneShotInfo zapLamIdInfozapFragileIdInfozapIdDemandInfozapIdUsageInfozapIdUsageEnvInfozapIdUsedOnceInfozapIdTailCallInfotransferPolyIdInfoisNeverLevPolyIdUnVarSet emptyUnVarSet elemUnVarSetisEmptyUnVarSet delUnVarSet mkUnVarSet varEnvDom unionUnVarSetunionUnVarSetsemptyUnVarGraphunionUnVarGraphunionUnVarGraphscompleteBipartiteGraph completeGraph neighbors$fOutputableUnVarSet$fOutputableGen$fOutputableUnVarGraph $fEqUnVarSet wiredInTyConsmkWiredInTyConNamemkWiredInIdName charTyConName intTyConName boolTyConName listTyConNamenilDataConNameconsDataConNamemaybeTyConNamenothingDataConNamejustDataConName wordTyConNameword8TyConNamefloatTyConNamedoubleTyConNameanyTyConanyTystarKindTyConNameunicodeStarKindTyConName parrTyConName boolTyCon_RDR false_RDRtrue_RDR intTyCon_RDR charTyCon_RDRintDataCon_RDR listTyCon_RDRconsDataCon_RDR parrTyCon_RDRtypeNatKindContypeSymbolKindConconstraintKindTyConisBuiltInOcc_maybecTupleTyConNamecTupleTyConNamesisCTupleTyConNamecTupleDataConNamecTupleDataConNames tupleTyContupleTyConNamepromotedTupleDataCon tupleDataCon unitTyCon unitTyConKey unitDataCon unitDataConId pairTyConunboxedUnitTyConunboxedUnitDataConsumTyCon sumDataConunboxedSumKindheqTyConheqClass heqDataConcoercibleTyConcoercibleClasscoercibleDataConliftedTypeKindTyCon starKindTyConunicodeStarKindTyConsumRepDataConTyConliftedRepDataCon liftedRepTyboxingDataCon_maybecharTy charTyCon charDataConstringTyintTyintTyCon intDataConwordTy wordTyCon wordDataConword8Ty word8TyCon word8DataConfloatTy floatTyCon floatDataCondoubleTy doubleTyCon doubleDataConboolTy boolTyCon falseDataCon trueDataConfalseDataConId trueDataConId orderingTyCon ltDataCon eqDataCon gtDataCon ltDataConId eqDataConId gtDataConIdmkListTy nilDataCon consDataCon maybeTyConnothingDataCon justDataCon mkTupleTyunitTymkSumTymkPArrTy parrTyCon isPArrTyCon parrFakeCon isPArrFakeConpromotedTrueDataConpromotedFalseDataConpromotedNothingDataConpromotedJustDataConpromotedLTDataConpromotedEQDataConpromotedGTDataConpromotedConsDataConpromotedNilDataConPrimCallPrimOpResultInfo ReturnsPrim ReturnsAlg PrimOpVecCatIntVecWordVecFloatVecCharGtOpCharGeOpCharEqOpCharNeOpCharLtOpCharLeOpOrdOpIntAddOpIntSubOpIntMulOpIntMulMayOfloOp IntQuotOpIntRemOp IntQuotRemOpAndIOpOrIOpXorIOpNotIOpIntNegOp IntAddCOp IntSubCOpIntGtOpIntGeOpIntEqOpIntNeOpIntLtOpIntLeOpChrOp Int2WordOp Int2FloatOp Int2DoubleOp Word2FloatOp Word2DoubleOpISllOpISraOpISrlOp WordAddOp WordSubCOp WordAdd2Op WordSubOp WordMulOp WordMul2Op WordQuotOp WordRemOp WordQuotRemOpWordQuotRem2OpAndOpOrOpXorOpNotOpSllOpSrlOp Word2IntOpWordGtOpWordGeOpWordEqOpWordNeOpWordLtOpWordLeOp PopCnt8Op PopCnt16Op PopCnt32Op PopCnt64OpPopCntOpClz8OpClz16OpClz32OpClz64OpClzOpCtz8OpCtz16OpCtz32OpCtz64OpCtzOp BSwap16Op BSwap32Op BSwap64OpBSwapOp Narrow8IntOp Narrow16IntOp Narrow32IntOp Narrow8WordOpNarrow16WordOpNarrow32WordOp DoubleGtOp DoubleGeOp DoubleEqOp DoubleNeOp DoubleLtOp DoubleLeOp DoubleAddOp DoubleSubOp DoubleMulOp DoubleDivOp DoubleNegOp DoubleFabsOp Double2IntOpDouble2FloatOp DoubleExpOp DoubleLogOp DoubleSqrtOp DoubleSinOp DoubleCosOp DoubleTanOp DoubleAsinOp DoubleAcosOp DoubleAtanOp DoubleSinhOp DoubleCoshOp DoubleTanhOp DoublePowerOpDoubleDecode_2IntOpDoubleDecode_Int64Op FloatGtOp FloatGeOp FloatEqOp FloatNeOp FloatLtOp FloatLeOp FloatAddOp FloatSubOp FloatMulOp FloatDivOp FloatNegOp FloatFabsOp Float2IntOp FloatExpOp FloatLogOp FloatSqrtOp FloatSinOp FloatCosOp FloatTanOp FloatAsinOp FloatAcosOp FloatAtanOp FloatSinhOp FloatCoshOp FloatTanhOp FloatPowerOpFloat2DoubleOpFloatDecode_IntOp NewArrayOpSameMutableArrayOp ReadArrayOp WriteArrayOp SizeofArrayOpSizeofMutableArrayOp IndexArrayOpUnsafeFreezeArrayOpUnsafeThawArrayOp CopyArrayOpCopyMutableArrayOp CloneArrayOpCloneMutableArrayOp FreezeArrayOp ThawArrayOp CasArrayOpNewSmallArrayOpSameSmallMutableArrayOpReadSmallArrayOpWriteSmallArrayOpSizeofSmallArrayOpSizeofSmallMutableArrayOpIndexSmallArrayOpUnsafeFreezeSmallArrayOpUnsafeThawSmallArrayOpCopySmallArrayOpCopySmallMutableArrayOpCloneSmallArrayOpCloneSmallMutableArrayOpFreezeSmallArrayOpThawSmallArrayOpCasSmallArrayOpNewByteArrayOp_CharNewPinnedByteArrayOp_Char NewAlignedPinnedByteArrayOp_CharMutableByteArrayIsPinnedOpByteArrayIsPinnedOpByteArrayContents_CharSameMutableByteArrayOpShrinkMutableByteArrayOp_CharResizeMutableByteArrayOp_CharUnsafeFreezeByteArrayOpSizeofByteArrayOpSizeofMutableByteArrayOpGetSizeofMutableByteArrayOpIndexByteArrayOp_CharIndexByteArrayOp_WideCharIndexByteArrayOp_IntIndexByteArrayOp_WordIndexByteArrayOp_AddrIndexByteArrayOp_FloatIndexByteArrayOp_DoubleIndexByteArrayOp_StablePtrIndexByteArrayOp_Int8IndexByteArrayOp_Int16IndexByteArrayOp_Int32IndexByteArrayOp_Int64IndexByteArrayOp_Word8IndexByteArrayOp_Word16IndexByteArrayOp_Word32IndexByteArrayOp_Word64ReadByteArrayOp_CharReadByteArrayOp_WideCharReadByteArrayOp_IntReadByteArrayOp_WordReadByteArrayOp_AddrReadByteArrayOp_FloatReadByteArrayOp_DoubleReadByteArrayOp_StablePtrReadByteArrayOp_Int8ReadByteArrayOp_Int16ReadByteArrayOp_Int32ReadByteArrayOp_Int64ReadByteArrayOp_Word8ReadByteArrayOp_Word16ReadByteArrayOp_Word32ReadByteArrayOp_Word64WriteByteArrayOp_CharWriteByteArrayOp_WideCharWriteByteArrayOp_IntWriteByteArrayOp_WordWriteByteArrayOp_AddrWriteByteArrayOp_FloatWriteByteArrayOp_DoubleWriteByteArrayOp_StablePtrWriteByteArrayOp_Int8WriteByteArrayOp_Int16WriteByteArrayOp_Int32WriteByteArrayOp_Int64WriteByteArrayOp_Word8WriteByteArrayOp_Word16WriteByteArrayOp_Word32WriteByteArrayOp_Word64CopyByteArrayOpCopyMutableByteArrayOpCopyByteArrayToAddrOpCopyMutableByteArrayToAddrOpCopyAddrToByteArrayOpSetByteArrayOpAtomicReadByteArrayOp_IntAtomicWriteByteArrayOp_IntCasByteArrayOp_IntFetchAddByteArrayOp_IntFetchSubByteArrayOp_IntFetchAndByteArrayOp_IntFetchNandByteArrayOp_IntFetchOrByteArrayOp_IntFetchXorByteArrayOp_IntNewArrayArrayOpSameMutableArrayArrayOpUnsafeFreezeArrayArrayOpSizeofArrayArrayOpSizeofMutableArrayArrayOpIndexArrayArrayOp_ByteArrayIndexArrayArrayOp_ArrayArrayReadArrayArrayOp_ByteArray!ReadArrayArrayOp_MutableByteArrayReadArrayArrayOp_ArrayArray"ReadArrayArrayOp_MutableArrayArrayWriteArrayArrayOp_ByteArray"WriteArrayArrayOp_MutableByteArrayWriteArrayArrayOp_ArrayArray#WriteArrayArrayOp_MutableArrayArrayCopyArrayArrayOpCopyMutableArrayArrayOp AddrAddOp AddrSubOp AddrRemOp Addr2IntOp Int2AddrOpAddrGtOpAddrGeOpAddrEqOpAddrNeOpAddrLtOpAddrLeOpIndexOffAddrOp_CharIndexOffAddrOp_WideCharIndexOffAddrOp_IntIndexOffAddrOp_WordIndexOffAddrOp_AddrIndexOffAddrOp_FloatIndexOffAddrOp_DoubleIndexOffAddrOp_StablePtrIndexOffAddrOp_Int8IndexOffAddrOp_Int16IndexOffAddrOp_Int32IndexOffAddrOp_Int64IndexOffAddrOp_Word8IndexOffAddrOp_Word16IndexOffAddrOp_Word32IndexOffAddrOp_Word64ReadOffAddrOp_CharReadOffAddrOp_WideCharReadOffAddrOp_IntReadOffAddrOp_WordReadOffAddrOp_AddrReadOffAddrOp_FloatReadOffAddrOp_DoubleReadOffAddrOp_StablePtrReadOffAddrOp_Int8ReadOffAddrOp_Int16ReadOffAddrOp_Int32ReadOffAddrOp_Int64ReadOffAddrOp_Word8ReadOffAddrOp_Word16ReadOffAddrOp_Word32ReadOffAddrOp_Word64WriteOffAddrOp_CharWriteOffAddrOp_WideCharWriteOffAddrOp_IntWriteOffAddrOp_WordWriteOffAddrOp_AddrWriteOffAddrOp_FloatWriteOffAddrOp_DoubleWriteOffAddrOp_StablePtrWriteOffAddrOp_Int8WriteOffAddrOp_Int16WriteOffAddrOp_Int32WriteOffAddrOp_Int64WriteOffAddrOp_Word8WriteOffAddrOp_Word16WriteOffAddrOp_Word32WriteOffAddrOp_Word64 NewMutVarOp ReadMutVarOp WriteMutVarOp SameMutVarOpAtomicModifyMutVarOp CasMutVarOpCatchOpRaiseOp RaiseIOOpMaskAsyncExceptionsOpMaskUninterruptibleOpUnmaskAsyncExceptionsOp MaskStatus AtomicallyOpRetryOp CatchRetryOp CatchSTMOp NewTVarOp ReadTVarOp ReadTVarIOOp WriteTVarOp SameTVarOp NewMVarOp TakeMVarOp TryTakeMVarOp PutMVarOp TryPutMVarOp ReadMVarOp TryReadMVarOp SameMVarOp IsEmptyMVarOpDelayOp WaitReadOp WaitWriteOpForkOpForkOnOp KillThreadOpYieldOp MyThreadIdOp LabelThreadOpIsCurrentThreadBoundOp NoDuplicateOpThreadStatusOpMkWeakOpMkWeakNoFinalizerOpAddCFinalizerToWeakOp DeRefWeakOpFinalizeWeakOpTouchOpMakeStablePtrOpDeRefStablePtrOp EqStablePtrOpMakeStableNameOpEqStableNameOpStableNameToIntOp CompactNewOpCompactResizeOpCompactContainsOpCompactContainsAnyOpCompactGetFirstBlockOpCompactGetNextBlockOpCompactAllocateBlockOpCompactFixupPointersOp CompactAddCompactAddWithSharing CompactSizeReallyUnsafePtrEqualityOpParOpSparkOpSeqOp GetSparkOp NumSparks DataToTagOp TagToEnumOp AddrToAnyOp AnyToAddrOp MkApUpd0_OpNewBCOOpUnpackClosureOpGetApStackValOp GetCCSOfOpGetCurrentCCSOp ClearCCSOp TraceEventOp TraceMarkerOpVecBroadcastOp VecPackOp VecUnpackOp VecInsertOpVecAddOpVecSubOpVecMulOpVecDivOp VecQuotOpVecRemOpVecNegOpVecIndexByteArrayOpVecReadByteArrayOpVecWriteByteArrayOpVecIndexOffAddrOpVecReadOffAddrOpVecWriteOffAddrOpVecIndexScalarByteArrayOpVecReadScalarByteArrayOpVecWriteScalarByteArrayOpVecIndexScalarOffAddrOpVecReadScalarOffAddrOpVecWriteScalarOffAddrOpPrefetchByteArrayOp3PrefetchMutableByteArrayOp3PrefetchAddrOp3PrefetchValueOp3PrefetchByteArrayOp2PrefetchMutableByteArrayOp2PrefetchAddrOp2PrefetchValueOp2PrefetchByteArrayOp1PrefetchMutableByteArrayOp1PrefetchAddrOp1PrefetchValueOp1PrefetchByteArrayOp0PrefetchMutableByteArrayOp0PrefetchAddrOp0PrefetchValueOp0 maxPrimOpTag primOpTag allThePrimOps tagToEnumKey primOpFixityprimOpOutOfLineprimOpOkForSpeculationprimOpOkForSideEffects primOpIsCheapprimOpCodeSize primOpType primOpOcc primOpSiggetPrimOpResultInfo$fOutputablePrimOp $fOrdPrimOp $fEqPrimOp$fOutputablePrimCallnsUniqsnsNames OrigNameCachelookupOrigNameCacheextendOrigNameCacheextendNameCache initNameCacheHistoryhistoryApStackhistoryBreakInfohistoryEnclosingDeclsResume resumeStmt resumeContextresumeBindingsresumeFinalIds resumeApStackresumeBreakInfo resumeSpan resumeDecl resumeCCS resumeHistoryresumeHistoryIx BreakInfobreakInfo_modulebreakInfo_number ExecResult ExecComplete ExecBreak execResultexecAllocation breakNames breakInfo SingleStepRunToCompletionRunAndLogSteps ExecOptionsexecSingleStepexecSourceFileexecLineNumberexecWrapisStep ModBreaksmodBreaks_flagsmodBreaks_locsmodBreaks_varsmodBreaks_decls modBreaks_ccsmodBreaks_breakInfo CCostCentre BreakIndex CgBreakInfocgb_vars cgb_restyBCONPtr BCONPtrWord BCONPtrLbl BCONPtrItbl BCONPtrStrBCOPtr BCOPtrName BCOPtrPrimOp BCOPtrBCOBCOPtrBreakArray UnlinkedBCOunlinkedBCONameunlinkedBCOArityunlinkedBCOInstrsunlinkedBCOBitmapunlinkedBCOLitsunlinkedBCOPtrsItblPtrItblEnvFFIInfoCompiledByteCodebc_bcosbc_itblsbc_ffisbc_strs bc_breaksseqCompiledByteCodeemptyModBreaks$fNFDataBCONPtr$fOutputableUnlinkedBCO$fNFDataBCOPtr$fNFDataUnlinkedBCO$fOutputableCgBreakInfo$fOutputableCompiledByteCode $fShowFFIInfo$fNFDataFFIInfo $fShowItblPtr$fNFDataItblPtr megaSeqIdInfo seqRuleInfoseqRulesseqExprseqExprsseqBinds seqUnfoldingCScs_tmcs_tycs_cocs_vbcs_jbcoreBindsStats exprStats coreBindsSizeexprSize$fOutputableCoreStatspprCoreBindingspprCoreBindingpprCoreBindingsWithSizepprCoreBindingWithSize pprParendExpr pprCoreExprpprOptCo pprCoreAltpprRules$fOutputableCoreVect$fOutputableTickish$fOutputableCoreRule$fOutputableUnfolding$fOutputableUnfoldingSource$fOutputableUnfoldingGuidance$fOutputableBndrTaggedBndr$fOutputableBndrVar$fOutputableExpr$fOutputableBindStgOp StgPrimOp StgPrimCallOp StgFCallOp UpdateFlag ReEntrant Updatable SingleEntry OutStgAlt OutStgRhs OutStgExpr OutStgArg OutStgBindingOutStgTopBindingInStgAltInStgRhs InStgExprInStgArg InStgBindingInStgTopBindingStgAltStgRhsStgExprStgArg StgBinding StgTopBindingAltTypePolyAlt MultiValAltAlgAltPrimAlt GenStgAlt StgBinderInfo GenStgRhs StgRhsClosure StgRhsCon GenStgExprStgAppStgLit StgConAppStgOpAppStgLamStgCaseStgLetStgLetNoEscapeStgTick GenStgArg StgVarArg StgLitArg GenStgBinding StgNonRecStgRecGenStgTopBinding StgTopLiftedStgTopStringLit isDllConApp stgArgTypestripStgTicksTop stgRhsAritytopStgBindHasCafRefsstgArgHasCafRefs noBinderInfo stgUnsatOcc stgSatOcc satCallsOnlycombineStgBinderInfo isUpdatable pprStgBindingpprStgTopBindings$fOutputableGenStgArg$fOutputableAltType$fOutputableUpdateFlag$fOutputableGenStgRhs$fOutputableGenStgExpr$fOutputableGenStgBinding$fOutputableGenStgTopBinding showStgStats$fEqCounterType$fOrdCounterTypelintStgTopBindings $fMonadLintM$fApplicativeLintM$fFunctorLintMstgCse$fTrieMapStgArgMap$fTrieMapConAppMapstgMassageForProfiling$fMonadMassageM$fApplicativeMassageM$fFunctorMassageM ShowHowMuch ShowHeaderShowSome ShowIfaceAltPprShowSub ss_how_much ss_forall IfaceJoinInfoIfaceNotJoinPointIfaceJoinPoint IfaceLetBndr IfLetBndr IfaceBinding IfaceNonRecIfaceRec IfaceConAlt IfaceDefault IfaceDataAlt IfaceLitAltIfaceAlt IfaceTickish IfaceHpcTickIfaceSCC IfaceSource IfaceExprIfaceLclIfaceExtIfaceCo IfaceTupleIfaceLamIfaceApp IfaceCase IfaceECaseIfaceLet IfaceCastIfaceLit IfaceFCall IfaceTickIfaceIdDetails IfVanillaId IfRecSelIdIfDFunIdIfaceUnfolding IfCoreUnfold IfCompulsory IfInlineRule IfDFunUnfold IfaceInfoItemHsArity HsStrictnessHsInlineHsUnfold HsNoCafRefsHsLevity IfaceIdInfoNoInfoHasInfoIfaceCompleteMatchIfaceAnnTargetIfaceAnnotationifAnnotatedTargetifAnnotatedValue IfaceRule ifRuleName ifActivation ifRuleBndrs ifRuleHead ifRuleArgs ifRuleRhs ifRuleAuto ifRuleOrph IfaceFamInst ifFamInstFam ifFamInstTysifFamInstAxiom ifFamInstOrph IfaceClsInst ifInstCls ifInstTysifDFunifOFlag ifInstOrph IfaceSrcBang IfSrcBang IfaceBangIfNoBangIfStrictIfUnpack IfUnpackCo IfaceEqSpec IfaceConDeclIfCon ifConName ifConWrapper ifConInfix ifConExTvs ifConEqSpec ifConCtxt ifConArgTys ifConFields ifConStrictsifConSrcStricts IfaceConDeclsIfAbstractTyCon IfDataTyCon IfNewTyCon IfaceAxBranch ifaxbTyVars ifaxbCoVarsifaxbLHS ifaxbRolesifaxbRHS ifaxbIncompsIfaceAT IfaceClassOpIfaceFamTyConFlavIfaceDataFamilyTyConIfaceOpenSynFamilyTyConIfaceClosedSynFamilyTyCon!IfaceAbstractClosedSynFamilyTyConIfaceBuiltInSynFamTyConIfaceTyConParent IfNoParentIfDataInstanceIfaceClassBodyIfAbstractClassIfConcreteClass ifClassCtxtifATsifSigsifMinDef IfaceDeclIfaceId IfaceData IfaceSynonym IfaceFamily IfaceClass IfaceAxiom IfacePatSynifNameifType ifIdDetailsifIdInfo ifBinders ifResKindifCTypeifRolesifCtxtifCons ifGadtSyntaxifParentifSynRhsifResVar ifFamFlavifFamInjifFDsifBodyifTyConifRole ifAxBranches ifPatIsInfix ifPatMatcher ifPatBuilderifPatUnivBndrs ifPatExBndrs ifPatProvCtxt ifPatReqCtxt ifPatArgsifPatTy ifFieldLabels IfaceTopBndrvisibleIfConDeclsifaceDeclImplicitBndrsifaceDeclFingerprints showToHeader showToIface pprIfaceDecl pprIfaceExprfreeNamesIfDeclfreeNamesIfRulefreeNamesIfFamInst$fBinaryIfaceTyConParent$fOutputableIfaceTyConParent$fBinaryIfaceClassOp$fOutputableIfaceClassOp$fHasOccNameIfaceClassOp$fNamedThingIfaceClassOp$fBinaryIfaceAxBranch$fBinaryIfaceFamTyConFlav$fBinaryIfaceBang$fBinaryIfaceSrcBang$fBinaryIfaceConDecl$fHasOccNameIfaceConDecl$fNamedThingIfaceConDecl$fBinaryIfaceConDecls$fBinaryIfaceClsInst$fOutputableIfaceClsInst$fBinaryIfaceFamInst$fOutputableIfaceFamInst$fBinaryIfaceAnnotation$fOutputableIfaceAnnotation$fBinaryIfaceCompleteMatch$fOutputableIfaceCompleteMatch$fBinaryIfaceTickish$fBinaryIfaceConAlt$fOutputableIfaceConAlt$fBinaryIfaceJoinInfo$fOutputableIfaceJoinInfo$fBinaryIfaceLetBndr$fBinaryIfaceBinding$fBinaryIfaceExpr$fBinaryIfaceUnfolding$fBinaryIfaceInfoItem$fBinaryIfaceIdInfo$fOutputableIfaceUnfolding$fOutputableIfaceInfoItem$fOutputableIfaceIdInfo$fOutputableIfaceExpr$fBinaryIfaceIdDetails$fBinaryIfaceAT$fBinaryIfaceDecl$fOutputableIfaceIdDetails$fOutputableIfaceAT$fOutputableIfaceDecl$fHasOccNameIfaceDecl$fNamedThingIfaceDecl$fBinaryIfaceRule$fOutputableIfaceRule$fOutputableShowHowMuchDynamicLinkerLabelInfoCodeStub SymbolPtr GotSymbolPtrGotSymbolOffsetForeignLabelSourceForeignLabelInPackageForeignLabelInExternalPackageForeignLabelInThisPackagepprDebugCLabelmkSlowEntryLabel mkTopSRTLabel mkSRTLabelmkRednCountsLabelmkLocalClosureLabelmkLocalInfoTableLabelmkLocalEntryLabelmkLocalClosureTableLabelmkClosureLabelmkInfoTableLabel mkEntryLabelmkClosureTableLabelmkLocalConInfoTableLabelmkLocalConEntryLabelmkConInfoTableLabel mkBytesLabelmkConEntryLabelmkDirty_MUT_VAR_LabelmkSplitMarkerLabelmkUpdInfoLabelmkBHUpdInfoLabelmkIndStaticInfoLabelmkMainCapabilityLabelmkMAP_FROZEN_infoLabelmkMAP_FROZEN0_infoLabelmkMAP_DIRTY_infoLabelmkEMPTY_MVAR_infoLabelmkTopTickyCtrLabelmkCAFBlackHoleInfoTableLabelmkCAFBlackHoleEntryLabelmkArrWords_infoLabelmkSMAP_FROZEN_infoLabelmkSMAP_FROZEN0_infoLabelmkSMAP_DIRTY_infoLabelmkCmmInfoLabelmkCmmEntryLabelmkCmmRetInfoLabel mkCmmRetLabelmkCmmCodeLabelmkCmmDataLabelmkCmmClosureLabelmkRtsPrimOpLabelmkSelectorInfoLabelmkSelectorEntryLabelmkApInfoTableLabelmkApEntryLabelmkPrimCallLabelmkForeignLabel addLabelSize isBytesLabelisForeignLabelforeignLabelStdcallInfomkLargeSRTLabel mkBitmapLabelmkReturnPtLabelmkReturnInfoLabel mkAltLabelmkDefaultLabel mkCCLabel mkCCSLabelmkRtsApFastLabelmkRtsSlowFastTickyCtrLabelmkHpcTicksLabelmkDynamicLinkerLabeldynamicLinkerLabelInfomkPicBaseLabelmkDeadStripPreventermkStringLitLabelmkAsmTempLabelmkAsmTempDerivedLabelmkAsmTempEndLabelmkPlainModuleInitLabelmkAsmTempDieLabel toClosureLbltoSlowEntryLbl toEntryLbl toInfoLbltoRednCountsLblhasHaskellNamehasCAF needsCDecl maybeAsmTemp isMathFunexternallyVisibleCLabelisCFunctionLabel isGcPtrLabel labelDynamic pprCLabel$fOutputableForeignLabelSource$fOutputableCLabel $fOrdCLabel$fEqForeignLabelSource$fOrdForeignLabelSource$fEqIdLabelInfo$fOrdIdLabelInfo$fEqCaseLabelInfo$fOrdCaseLabelInfo$fEqRtsLabelInfo$fOrdRtsLabelInfo$fEqCmmLabelInfo$fOrdCmmLabelInfo$fEqDynamicLinkerLabelInfo$fOrdDynamicLinkerLabelInfo $fEqCLabelprofilingInitCode mkBlockId newBlockIdblockLbl infoTblLbl$fOutputableLabel$fUniquableLabel GlobalReg VanillaRegFloatReg DoubleRegLongRegXmmRegYmmRegZmmRegSpSpLimHpHpLimCCCS CurrentTSOCurrentNurseryHpAllocEagerBlackholeInfoGCEnter1GCFunBaseRegMachSpUnwindReturnReg PicBaseRegVGcPtr VNonGcPtr DefinerOfRegs foldRegsDefd UserOfRegs foldRegsUsed GlobalRegSet LocalRegSetRegSetLocalRegCmmLitCmmIntCmmFloatCmmVecCmmLabel CmmLabelOffCmmLabelDiffOffCmmBlockCmmHighStackMarkAreaOldYoungCmmRegCmmLocal CmmGlobalCmmLoad CmmStackSlot CmmRegOff cmmExprType cmmLitType cmmExprWidthmaybeInvertCmmExpr cmmRegType localRegType emptyRegSet nullRegSet elemRegSet extendRegSetdeleteFromRegSetmkRegSet minusRegSet plusRegSet timesRegSet sizeRegSet regSetToListfoldLocalRegsUsedfoldLocalRegsDefdbaseRegspReghpRegspLimRegnodeRegnode globalRegTypeisArgReg$fUniquableLocalReg $fOrdLocalReg $fEqLocalReg$fUserOfRegsr[]$fUserOfRegsrr$fDefinerOfRegsr[]$fDefinerOfRegsrr$fOrdGlobalReg $fEqGlobalReg$fDefinerOfRegsGlobalRegCmmReg$fUserOfRegsGlobalRegCmmReg$fDefinerOfRegsLocalRegCmmReg$fUserOfRegsLocalRegCmmReg$fUserOfRegsrCmmExpr $fEqCmmExpr$fEqArea $fOrdArea $fEqCmmLit $fEqVGcPtr $fShowVGcPtr$fShowGlobalReg $fEqCmmReg $fOrdCmmRegpprExprpprLit$fOutputableGlobalReg$fOutputableArea$fOutputableLocalReg$fOutputableCmmLit$fOutputableCmmReg$fOutputableCmmExpr callerSaves activeStgRegs haveRegBaseglobalRegMaybefreeReg freeRegBase CmmTickScope GlobalScopeSubScope CombinedScope CmmTickish ForeignTarget PrimTarget CmmReturnInfo CmmMayReturnCmmNeverReturnsForeignConvention ConventionNativeDirectCallNativeNodeCall NativeReturnSlowGCUpdFrameOffset CmmFormal CmmActualCmmEntry CmmCommentCmmTick CmmUnwind CmmAssignCmmStoreCmmUnsafeForeignCall CmmBranch CmmCondBranchCmmCallCmmForeignCallcml_predcml_true cml_false cml_likely cml_targetcml_cont cml_args_regscml_args cml_ret_args cml_ret_offtgtresargssuccret_argsret_offintrblforeignTargetHints wrapRecExpmapExp mapExpDeep wrapRecExpMmapExpM mapExpDeepM wrapRecExpffoldExp foldExpDeep mapSuccessorsisTickSubScopecombineTickScopes$fUserOfRegsrForeignTarget$fOutputableCmmTickScope$fOrdCmmTickScope$fEqCmmTickScope$fDefinerOfRegsGlobalRegCmmNode$fDefinerOfRegsLocalRegCmmNode$fUserOfRegsGlobalRegCmmNode$fUserOfRegsLocalRegCmmNode$fNonLocalCmmNode$fEqConvention$fEqCmmReturnInfo$fEqForeignConvention$fEqForeignTarget $fEqCmmNodeCmmToken CmmT_SpecChar CmmT_DotDotCmmT_DoubleColonCmmT_ShrCmmT_ShlCmmT_GeCmmT_LeCmmT_EqCmmT_Ne CmmT_BoolAnd CmmT_BoolOr CmmT_CLOSURECmmT_INFO_TABLECmmT_INFO_TABLE_RETCmmT_INFO_TABLE_FUNCmmT_INFO_TABLE_CONSTRCmmT_INFO_TABLE_SELECTOR CmmT_else CmmT_export CmmT_section CmmT_gotoCmmT_if CmmT_call CmmT_jump CmmT_foreign CmmT_never CmmT_prim CmmT_reserve CmmT_return CmmT_returns CmmT_import CmmT_switch CmmT_case CmmT_default CmmT_push CmmT_unwind CmmT_bits8 CmmT_bits16 CmmT_bits32 CmmT_bits64 CmmT_bits128 CmmT_bits256 CmmT_bits512 CmmT_float32 CmmT_float64 CmmT_gcptrCmmT_GlobalReg CmmT_Name CmmT_StringCmmT_Int CmmT_FloatCmmT_EOFcmmlex$fShowCmmToken ListGraph GenBasicBlock BasicBlock CmmStaticsStatics CmmStatic CmmStaticLitCmmUninitialised CmmStringSection SectionTypeTextData ReadOnlyDataRelocatableReadOnlyDataUninitialisedDataReadOnlyData16CString OtherSectionC_SRTNoC_SRT ProfilingInfoNoProfilingInfo CmmInfoTablecit_lblcit_repcit_profcit_srt CmmStackInfo StackInfo arg_space updfr_space do_layout CmmTopInfoTopInfo info_tbls stack_info CmmBwdRewrite CmmFwdRewriteGenCmmReplGraph CmmReplGraph GenCmmGraphCmmGraphg_entryg_graph RawCmmDeclCmmDecl GenCmmDeclCmmProcCmmData RawCmmGroupCmmGroup GenCmmGroup CmmProgram topInfoTableneedsSRTblockId pprBBlock$fOutputableGenBasicBlock$fOutputableListGraph $fEqC_SRT$fShowSectionTypeImmImmInt ImmIntegerImmCLblImmLitImmIndexImmFloat ImmDoubleImmConstantSumImmConstantDiffLOHI strImmLitlitToImmAddrMode AddrRegReg AddrRegImm addrOffsetpprCmms writeCmms pprCmmGroup pprStatic pprSection$fOutputableForeignHint$fOutputableC_SRT$fOutputableCmmInfoTable$fOutputableCmmStatic$fOutputableCmmStatics$fOutputableGenCmmDeclcastFloatToWord8ArraycastDoubleToWord8Array floatToBytes doubleToBytespprSectionHeader LlvmCastOpLM_TruncLM_ZextLM_Sext LM_FptruncLM_Fpext LM_Fptoui LM_Fptosi LM_Uitofp LM_Sitofp LM_Ptrtoint LM_Inttoptr LM_Bitcast LlvmCmpOp LM_CMP_Eq LM_CMP_Ne LM_CMP_Ugt LM_CMP_Uge LM_CMP_Ult LM_CMP_Ule LM_CMP_Sgt LM_CMP_Sge LM_CMP_Slt LM_CMP_Sle LM_CMP_Feq LM_CMP_Fne LM_CMP_Fgt LM_CMP_Fge LM_CMP_Flt LM_CMP_Fle LlvmMachOp LM_MO_Add LM_MO_Sub LM_MO_Mul LM_MO_UDiv LM_MO_SDiv LM_MO_URem LM_MO_SRem LM_MO_FAdd LM_MO_FSub LM_MO_FMul LM_MO_FDiv LM_MO_FRem LM_MO_Shl LM_MO_LShr LM_MO_AShr LM_MO_AndLM_MO_Or LM_MO_XorLlvmLinkageTypeInternalLinkOnceWeak Appending ExternWeakExternallyVisibleExternalPrivateLlvmParameterListType FixedArgsVarArgsLlvmCallConventionCC_Ccc CC_Fastcc CC_ColdccCC_GhcCC_Ncc CC_X86_Stdcc LlvmCallTypeStdCallTailCall LlvmFuncAttr AlwaysInline InlineHintOptSizeNoReturnNoUnwindReadNoneReadOnlySspSspReq NoRedZoneNoImplicitFloatNaked LlvmParamAttrZeroExtSignExtInRegByValSRetNoAlias NoCaptureNest LlvmParameterLlvmFunctionDeclsLlvmFunctionDecldecName funcLinkagefuncCc decReturnType decVarargs decParams funcAlign LlvmStatic LMComment LMStaticLit LMUninitType LMStaticStr LMStaticArray LMStaticStrucLMStaticPointerLMBitcLMPtoILMAddLMSubLlvmLitLMIntLit LMFloatLit LMNullLit LMVectorLit LMUndefLitLlvmVar LMGlobalVar LMLocalVar LMNLocalVarLMLitVarLMConstGlobalConstantAliasLMAlign LMSectionLlvmTypeLMIntLMFloatLMDouble LMFloat80 LMFloat128 LMPointerLMArrayLMVectorLMLabelLMVoidLMStruct LMStructULMAlias LMMetadata LMFunction LlvmAliasLMStringLMGlobal getGlobalVargetGlobalValueppParamspprSpecialStaticpprStaticArithppName ppPlainNameppLit garbageLit getVarType getLitType getStatTypegetLinkpLiftpVarLiftpLower pVarLowerisIntisFloat isPointerisVectorisGloballlvmWidthInBitsi128i64i32i16i8i1i8PtrllvmWord llvmWordPtrppDoublenarrowFpwidenFpppFloat fixEndian ppCommaJoin ppSpaceJoin$fOutputableLlvmParamAttr$fOutputableLlvmFuncAttr$fOutputableLlvmCallConvention$fOutputableLlvmLinkageType$fOutputableLlvmFunctionDecl$fOutputableLlvmType$fOutputableLlvmLit$fOutputableLlvmVar$fOutputableLlvmStatic$fOutputableLlvmMachOp$fOutputableLlvmCmpOp$fOutputableLlvmCastOp $fEqLMConst$fEqLlvmParamAttr$fEqLlvmFuncAttr$fEqLlvmCallType$fShowLlvmCallType$fEqLlvmCallConvention$fEqLlvmParameterListType$fShowLlvmParameterListType$fEqLlvmLinkageType$fEqLlvmFunctionDecl $fEqLlvmType $fEqLlvmLit $fEqLlvmVar$fEqLlvmMachOp $fEqLlvmCmpOp$fEqLlvmCastOpMetaDecl MetaNamed MetaUnnamed MetaAnnotMetaExprMetaStrMetaNodeMetaVar MetaStructMetaId$fOutputableMetaId$fOutputableMetaExpr $fEqMetaId $fOrdMetaId $fEnumMetaId $fEqMetaExpr $fEqMetaAnnotLlvmExpressionAllocaLlvmOpCompareExtractExtractVInsertMallocLoadALoad GetElemPtr AtomicRMWCmpXChgCallCallMPhiAsmMExpr LlvmStatement AssignmentFenceBranchBranchIfCommentMkLabelStoreSwitchReturn UnreachableNopMetaStmt LlvmAtomicOpLAO_XchgLAO_AddLAO_SubLAO_AndLAO_NandLAO_OrLAO_XorLAO_MaxLAO_MinLAO_UmaxLAO_UminLlvmSyncOrdering SyncUnord SyncMonotonic SyncAcquire SyncRelease SyncAcqRel SyncSeqCstSingleThreaded LlvmFunctions LlvmFunctionfuncDeclfuncArgs funcAttrsfuncSect funcPrefixfuncBody LlvmModule modComments modAliasesmodMeta modGlobals modFwdDeclsmodFuncs LlvmBlocks LlvmBlock blockLabel blockStmts LlvmBlockId$fShowLlvmSyncOrdering$fEqLlvmSyncOrdering$fShowLlvmAtomicOp$fEqLlvmAtomicOp$fEqLlvmExpression$fEqLlvmStatement ppLlvmModuleppLlvmComments ppLlvmComment ppLlvmGlobals ppLlvmGlobal ppLlvmAliases ppLlvmAlias ppLlvmMetas ppLlvmMetappLlvmFunctionsppLlvmFunctionppLlvmFunctionDeclsppLlvmFunctionDecllmGlobalRegVarlmGlobalRegArg alwaysLivestgTBAAtopNstackNheapNrxNbaseNtbaagetTBAALlvmM LlvmVersion UnresStatic UnresLabelLlvmData LlvmUnresDataLiveGlobalRegsLlvmBasicBlock LlvmCmmDecl cmmToLlvmTypewidthToLlvmFloatwidthToLlvmInt llvmFunTy llvmFunSig llvmFunAlign llvmInfAlignllvmFunSection llvmFunArgsllvmStdFunAttrs tysToParams llvmPtrBitssupportedLlvmVersionllvmVersionStrrunLlvm liftStream withClearVars varInsert funInsert varLookup funLookup markStackReg checkStackReggetMetaUniqueId getLlvmVer getDynFlaggetLlvmPlatform dumpIfSetLlvm renderLlvm markUsedVar getUsedVars setUniqMeta getUniqMetaghcInternalFunctionsstrCLabel_llvmstrDisplayName_llvmstrProcedureName_llvm getGlobalPtrgenerateExternDeclsaliasify$fMonadUniqueLlvmM$fHasDynFlagsLlvmM $fMonadLlvmM$fApplicativeLlvmM$fFunctorLlvmM initSysToolsrunUnlitrunCpprunPprunCcaskLdrunSplitrunAs runLlvmOpt runLlvmLlcrunClangfigureLlvmVersion getLinkerInfogetCompilerInforunLink runLibtoolrunMkDLL runWindrestouchcopycopyWithHeader cleanTempDirscleanTempFilescleanTempFilesExcept newTempNamenewTempLibNameaddFilesToClean linkDynLib libmLinkOptsgetPkgFrameworkOptsgetFrameworkOpts genLlvmDatagenData pprLlvmHeader pprLlvmDatapprLlvmCmmDecl infoSection TransferFunDataflowLatticefact_bot fact_join JoinedFactChanged NotChangedNewFactOldFact changedIf analyzeCmmBwd analyzeCmmFwdgetFact joinOutFacts mkFactBasefoldNodesBwdOO$fOutputableLabelMap$fOutputableLabelSetregUsageOfInstrpatchRegsOfInstrisJumpishInstrjumpDestsOfInstrpatchJumpInstr mkSpillInstr mkLoadInstrtakeDeltaInstr isMetaInstrmkRegRegMoveInstrtakeRegRegMoveInstr mkJumpInstrmkStackAllocInstrmkStackDeallocInstr NatBasicBlock NatCmmDeclNatCmmRegUsageRUnoUsage entryBlocksII8II16II32II64FF32FF64FF80 intFormat floatFormat isFloatFormat cmmTypeFormat formatToWidth formatInBytes $fShowFormat $fEqFormatshowRegclassOfRealRegvirtualRegSqueezerealRegSqueeze allRealRegsgRegoReglRegiRegfRegf6f8f22f26f27g0g1g2fpspo0o1f0f1allocatableRegsargRegs allArgRegscallClobberedRegs mkVirtualReg regDotColorspRelfpRelspillSlotToOffset maxSpillSlotsFreeRegs noFreeRegs initFreeRegs getFreeRegs allocateReg releaseRegbitMask showFreeRegs$fShowFreeRegsHAHIGHERAHIGHESTA allMachRegNos allFPArgRegs fits16Bits makeImmediater0tocr3r4r11r12r27r28r30f20f21tmpRegprimRepCmmType slotCmmType typeCmmTypeprimRepForeignHintslotForeignHinttypeForeignHint mkIntCLitzeroCLitzeroExpr mkWordCLitmkByteStringCLit mkDataLits mkRODataLits mkStgWordCLitpackHalfWordsCLit mkLblExpr cmmOffsetExpr cmmOffset cmmRegOff cmmOffsetLit cmmLabelOffcmmIndex cmmIndexExpr cmmLoadIndex cmmRegOffB cmmOffsetBcmmOffsetExprB cmmLabelOffB cmmOffsetLitBcmmOffsetExprW cmmOffsetW cmmRegOffW cmmOffsetLitW cmmLabelOffW cmmLoadIndexW cmmOrWord cmmAndWord cmmNeWord cmmEqWord cmmULtWord cmmUGeWord cmmUGtWord cmmSLtWord cmmUShrWord cmmAddWord cmmSubWord cmmMulWord cmmQuotWord cmmNegate blankWord cmmToWordisTrivialCmmExprhasNoGlobalRegs cmmTagMaskcmmPointerMaskcmmUntag cmmIsTagged cmmConstrTag1 regsOverlap regUsedIn mkLiveness modifyGraph toBlockMap ofBlockMap insertBlock toBlockListtoBlockListEntryFirst%toBlockListEntryFirstFalseFallthrough ofBlockListbodyToBlockList mapGraphNodesmapGraphNodes1foldGraphBlocks postorderDfs blockTicks$fOutputableGenCmmGraph$fOutputableGraph'$fOutputableBlock$fOutputableBlock0$fOutputableBlock1$fOutputableBlock2$fOutputableCmmReturnInfo$fOutputableForeignTarget$fOutputableForeignConvention$fOutputableConvention$fOutputableCmmNode$fOutputableCmmTopInfo$fOutputableCmmStackInfoLiveBasicBlockLiveInfoliveBorn liveDieRead liveDieWrite LiveInstrInstrSRInstrSPILLRELOAD LiveCmmDeclBlockMapRegMap emptyRegMap mapBlockTop mapBlockTopMmapSCCMmapGenBlockTopmapGenBlockTopMslurpConflictsslurpReloadCoalesce stripLivestripLiveBlockeraseDeltasLivepatchEraseLivepatchRegsLiveInstrnatCmmTopToLive regLivenessreverseBlocksInTops$fOutputableInstrSR$fInstructionInstrSR$fOutputableLiveInstr$fOutputableLiveInfoRA_State ra_blockassig ra_freeregsra_assigra_deltara_stackra_us ra_spills ra_DynFlags RegAllocStatsra_spillInstrs SpillReason SpillAlloc SpillClobber SpillLoad SpillJoinRR SpillJoinRMLocInMemInBothBlockAssignment regsOfLoc$fOutputableLoc$fEqLoc $fShowLoc$fOrdLocbinSpillReasonscountRegRegMovesNatpprStatsRegMrunRspillRloadR getFreeRegsR setFreeRegsR getAssigR setAssigRgetBlockAssigRsetBlockAssigR setDeltaR getDeltaR getUniqueR recordSpill$fHasDynFlagsRegM $fMonadRegM$fApplicativeRegM $fFunctorRegM SpillCostInfoSpillCostRecordzeroSpillCostInfoplusSpillCostInfoplusSpillCostRecordslurpSpillCostInfo chooseSpilllifeMapFromSpillCostInfopprSpillCostRecord cleanSpills$fOutputableStore$fUniquableStore SpillStatsspillStoreLoadregSpill accSpillSL$fOutputableSpillStats regCoalesce slurpJoinMovswriteCspprStringInCStyle $fMonadTE$fApplicativeTE $fFunctorTE genLlvmProc$fMonoidLlvmAccum$fSemigroupLlvmAccum UnwindExprUwConstUwRegUwDerefUwLabelUwPlusUwMinusUwTimes UnwindTable UnwindPoint DebugBlock dblProceduredblLabel dblCLabel dblHasInfoTbl dblParentdblTicks dblSourceTick dblPosition dblUnwind dblBlocks dblIsEntry cmmDebugGencmmDebugLabels cmmDebugLink debugToMap toUnwindExpr$fOutputableUnwindExpr$fOutputableUnwindPoint$fOutputableDebugBlock$fEqUnwindExprconstantFoldNodeconstantFoldExpr cmmMachOpFoldcmmMachOpFoldM CmmLocalLive liveLatticecmmLocalLivenesscmmGlobalLivenessgen_killcmmSinkcmmLint cmmLintGraph$fHasDynFlagsCmmLint$fMonadCmmLint$fApplicativeCmmLint$fFunctorCmmLintmkEmptyContInfoTable cmmToRawCmm mkInfoTable srtEscapeclosureInfoPtr entryCode getConstrTagcmmGetClosureType infoTableinfoTableConstrTaginfoTableSrtBitmapinfoTableClosureType infoTablePtrsinfoTableNonPtrs funInfoTable funInfoAritystdInfoTableSizeWfixedInfoTableSizeWprofInfoTableSizeWmaxStdInfoTableSizeWmaxRetInfoTableSizeWstdInfoTableSizeBstdSrtBitmapOffsetstdClosureTypeOffset stdPtrsOffsetstdNonPtrsOffsetconInfoTableSizeBStatus ReachedBy ProcPoint ProcPointSetprocPointAnalysiscallProcPointsminimalProcPointSetsplitAtProcPointsattachContInfoTables$fOutputableStatuscmmImplementSwitchPlans cmmCfgOptscmmCfgOptsProc replaceLabelsremoveUnreachableBlocksProcelimCommonBlocks ParamLocation RegisterParam StackParamassignArgumentsPos assignStackrealArgRegsCover$fOutputableParamLocationTransferJumpRetJumpRetCgStmtCgLabelCgLastCgForkCmmAGraphScoped CmmAGraph catAGraphsmkLabelmkMiddlemkLast outOfLinelgraphOfAGraph labelAGraphmkNop mkCommentmkAssignmkStoremkJump mkRawJump mkJumpExtra mkCbranchmkSwitchmkReturnmkBranch mkFinalCallmkCallReturnsTomkJumpReturnsTo mkUnsafeCallmkUnwind stackStubExpr copyInOflow copyOutOflow mkCallEntry noExtraStacktoCall $fEqTransferTopSRTCAFEnvCAFSetcafAnalemptySRT isEmptySRT srtToDatadoSRTs$fOutputableTopSRTfixStgRegisters llvmCodeGenCoreAltWithFVsCoreExprWithFVs'CoreExprWithFVsCoreBindWithFVsFVAnn exprFreeVarsexprFreeVarsDSetexprFreeVarsList exprFreeIdsexprFreeIdsDSetexprFreeIdsListexprsFreeIdsDSetexprsFreeIdsList exprsFreeVarsexprsFreeVarsList bindFreeVarsexprSomeFreeVarsexprSomeFreeVarsListexprsSomeFreeVarsexprsSomeFreeVarsListexpr_fvsexprsOrphNamesorphNamesOfTypeorphNamesOfTypes orphNamesOfCoorphNamesOfCoConorphNamesOfAxiomorphNamesOfFamInstruleRhsFreeVars ruleFreeVarsrulesFreeVarsDSet idRuleRhsVars rulesFreeVarsruleLhsFreeIdsruleLhsFreeIdsList vectsFreeVars freeVarsOffreeVarsOfType exprTypeFV freeVarsOfAnnfreeVarsOfTypeAnnvarTypeTyCoVarsvarTypeTyCoFVs idFreeVars dIdFreeVarsidFVsbndrRuleAndUnfoldingVarsDSet idRuleVarsidUnfoldingVarsstableUnfoldingVars freeVarsBindfreeVarsTypeSizeCandidatesQTvsDVdv_kvsdv_tvsTcLevel UserTypeCtxt FunSigCtxt InfSigCtxt ExprSigCtxt TypeAppCtxt ConArgCtxt TySynCtxt PatSynCtxt PatSigCtxt RuleSigCtxt ResSigCtxt ForSigCtxtDefaultDeclCtxt InstDeclCtxt SpecInstCtxt ThBrackCtxt GenSigCtxtGhciCtxt ClassSCCtxt SigmaCtxt DataTyCtxtMetaInfoTauTvSigTv FlatMetaTvFlexiIndirectSkolemTvFlatSkol RuntimeUnkMetaTvmtv_infomtv_ref mtv_tclvl SyntaxOpTypeSynAnySynRhoSynListSynFunSynType ExpRhoType ExpSigmaType InferResultIRir_uniqir_lvlir_instir_refExpTypeInfer TcDTyCoVarSet TcDTyVarSet TcTyCoVarSet TcTyVarSetTcKind TcTauType TcRhoType TcSigmaType TcThetaType TcPredTypeTcTyCon TcTyVarBinder TcTyCoVarTcCoVarTcTyVarmkCheckExpType synKnownType mkSynFunTys superSkolemTvpprUserTypeCtxt isSigMaybe maxTcLevel fmvTcLevel topTcLevel isTopTcLevel pushTcLevelstrictlyDeeperThan sameDepthAs tcTyVarLevel tcTypeLevel tcTyFamInsts isTyFamFreeexactTyCoVarsOfTypeexactTyCoVarsOfTypesanyRewritableTyVarallBoundVariablesallBoundVariablesscandidateQTyVarsOfTypecandidateQTyVarsOfTypesisTouchableOrFmvisTouchableMetaTyVarisFloatedTouchableMetaTyVarisImmutableTyVarisTyConableTyVar isFmvTyVarisFlattenTyVar isFskTyVar isSkolemTyVarisOverlappableTyVar isMetaTyVarisAmbiguousTyVar isMetaTyVarTy metaTyVarInfometaTyVarTcLevelmetaTyVarTcLevel_maybe metaTyVarRefsetMetaTyVarTcLevel isSigTyVarisFlexi isIndirectisRuntimeUnkSkol mkSigmaTy mkInfSigmaTy mkSpecSigmaTymkPhiTy getDFunTyKeymkNakedTyConApp mkNakedAppTys mkNakedAppTy mkNakedCastTy tcSplitPiTystcSplitForAllTy_maybetcSplitForAllTystcSplitForAllTyVarBndrs tcIsForAllTytcSplitPredFunTy_maybe tcSplitPhiTytcSplitSigmaTytcSplitNestedSigmaTystcDeepSplitSigmaTy_maybetcTyConAppTyContcTyConAppTyCon_maybetcTyConAppArgstcSplitTyConApptcRepSplitTyConApp_maybe' tcSplitFunTystcSplitFunTy_maybetcSplitFunTysN tcFunArgTy tcFunResultTytcFunResultTyNtcSplitAppTy_maybe tcSplitAppTy tcSplitAppTystcGetTyVar_maybe tcGetTyVar tcIsTyVarTy tcSplitDFunTytcSplitDFunHeadtcSplitMethodTytcEqKindtcEqTypetcEqTypeNoKindCheck tcEqTypeVis pickyEqTypeisTyVarClassPredcheckValidClsArgs hasTyVarHeadevVarPred_maybe evVarPredpickQuantifiablePredspickCapturedPredsmkMinimalBySCstransSuperClassesimmSuperClassesisImprovementPred isSigmaTyisRhoTy isRhoExpTyisOverloadedTy isFloatTy isDoubleTy isIntegerTyisIntTyisWordTyisBoolTyisUnitTyisCharTy isFloatingTy isStringTy isCallStackTyisCallStackPredisTyVarExposedisInsolubleOccursCheck isRigidTy isRigidEqPredtoTcType toTcTypeBag deNoteTypetcSplitIOType_maybeisFFITyisFFIArgumentTyisFFIExternalTyisFFIImportResultTyisFFIExportResultTy isFFIDynTy isFFILabelTyisFFIPrimArgumentTyisFFIPrimResultTy isFunPtrTysizeType sizeTypes$fOutputableTcLevel$fOutputableMetaDetails$fOutputableInferResult$fOutputableExpType$fOutputableCandidatesQTvs$fMonoidCandidatesQTvs $fEqTcLevel $fOrdTcLevel EvCallStack EvCsEmpty EvCsPushCallEvLitEvNumEvStr EvTypeableEvTypeableTyConEvTypeableTyAppEvTypeableTrFunEvTypeableTyLitEvTerm EvCoercionEvCast EvDFunAppEvDelayedError EvSuperClass EvSelectorEvBindeb_lhseb_rhs eb_is_given EvBindMapev_bind_varenv EvBindsVarebv_uniq ebv_bindsebv_tcvs TcEvBindsEvBinds HsWrapperWpHole WpComposeWpFunWpCastWpEvLamWpEvAppWpTyLamWpTyAppWpLet TcCoercionP TcCoercionR TcCoercionN TcCoercion mkTcReflCo mkTcSymCo mkTcTransCo mkTcNomReflCo mkTcRepReflComkTcTyConAppCo mkTcAppCo mkTcFunCo mkTcAxInstComkTcUnbranchedAxInstCo mkTcForAllCo mkTcForAllCos mkTcNthComkTcLRCo mkTcSubCo maybeTcSubCotcDowngradeRolemkTcAxiomRuleComkTcCoherenceLeftComkTcCoherenceRightCo mkTcPhantomCo mkTcKindCo mkTcCoVarCotcCoercionKindtcCoercionRole coVarsOfTcCo isTcReflCo<.>mkWpFunmkWpFuns mkWpCastR mkWpCastN mkWpTyApps mkWpEvApps mkWpEvVarApps mkWpTyLamsmkWpLamsmkWpLet idHsWrapper isIdHsWrappercollectHsWrapBindersemptyEvBindMap extendEvBindsisEmptyEvBindMap lookupEvBindevBindMapBinds foldEvBindMap evBindVarmkWantedEvBind mkGivenEvBindmkEvCastmkEvScSelectorsemptyTcEvBindsisEmptyTcEvBindsevTermCoercion evVarsOfTerm sccEvBinds pprHsWrapperunwrapIPwrapIP$fOutputableEvLit$fOutputableEvTypeable$fOutputableEvCallStack$fOutputableEvTerm$fOutputableEvBind$fOutputableEvBindMap$fUniquableEvBindsVar$fOutputableEvBindsVar$fOutputableTcEvBinds$fDataTcEvBinds$fOutputableHsWrapper$fDataHsWrapper $fDataEvLit$fDataEvCallStack $fDataEvTerm$fDataEvTypeableOutputableBndrId NameOrRdrName DataIdPostDataIdPostRnPostTcplaceHolderKindplaceHolderFixityplaceHolderTypeplaceHolderTypeTcplaceHolderNamesplaceHolderNamesTcplaceHolderHsWrapper$fDataPlaceHolderLPatPatLHsExpr SyntaxExprGRHSs MatchGroupHsSpliceHsCmd pprFunBind pprPatBind pprSpliceDecl pprSplicepprLExprAmbiguousFieldOcc Unambiguous AmbiguousFieldOccrdrNameFieldOccselectorFieldOcc LFieldOcc HsConDetails PrefixConRecConInfixCon ConDeclField cd_fld_names cd_fld_type cd_fld_doc LConDeclFieldPromoted NotPromoted HsTupleSortHsUnboxedTuple HsBoxedTupleHsConstraintTupleHsBoxedOrConstraintTuple HsAppType HsAppInfix HsAppPrefix LHsAppTypeHsWildCardInfo AnonWildCardHsTyLitHsNumTyHsStrTyHsType HsForAllTyHsQualTyHsTyVarHsAppsTyHsAppTyHsFunTyHsListTyHsPArrTy HsTupleTyHsSumTyHsOpTyHsParTy HsIParamTyHsEqTy HsKindSig HsSpliceTyHsDocTyHsBangTyHsRecTyHsCoreTyHsExplicitListTyHsExplicitTupleTy HsWildCardTy hst_bndrshst_bodyhst_ctxt HsTyVarBndr UserTyVar KindedTyVarHsIPName LHsSigWcType LHsWcType LHsSigTypeHsWildCardBndrsHsWChswc_wcs hswc_bodyHsImplicitBndrsHsIB hsib_vars hsib_body hsib_closed LHsQTyVarsHsQTvs hsq_implicit hsq_explicit hsq_dependent LHsTyVarBndrLHsKindHsKindLHsType HsContext LHsContextBangType LBangType getBangTypegetBangStrictnessmkHsQTvs hsQTvExplicit emptyLHsQTvsisEmptyLHsQTvshsImplicitBody hsSigType hsSigWcType dropWildCardsmkHsImplicitBndrsmkHsWildCardBndrsmkEmptyImplicitBndrsmkEmptyWildCardBndrs hsIPNameFSisHsKindedTyVarhsTvbAllKindedupdateGadtResult hsWcScopedTvs hsScopedTvs hsTyVarName hsLTyVarNamehsExplicitLTyVarNameshsAllLTyVarNameshsLTyVarLocNamehsLTyVarLocNameshsLTyVarBndrToTypehsLTyVarBndrsToTypes sameWildCard ignoreParensmkAnonWildCardTymkHsOpTy mkHsAppTy mkHsAppTyssplitHsFunTypegetAppsTyHead_maybe splitHsAppsTyhsTyGetAppHead_maybe splitHsAppTyssplitLHsPatSynTysplitLHsSigmaTysplitLHsForAllTysplitLHsQualTysplitLHsInstDeclTygetLHsInstDeclHeadgetLHsInstDeclClass_maybe mkFieldOccmkAmbiguousFieldOccrdrNameAmbiguousFieldOccselectorAmbiguousFieldOccunambiguousFieldOccambiguousFieldOcc pprHsForAllpprHsForAllExtrapprHsForAllTvs pprHsContextpprHsContextNoArrowpprHsContextMaybepprConDeclFieldspprParendHsType$fOutputableHsImplicitBndrs$fOutputableHsWildCardBndrs$fOutputableBndrHsIPName$fOutputableHsIPName$fOutputableHsTyLit$fOutputableHsWildCardInfo$fOutputableHsConDetails$fOutputableFieldOcc$fOutputableHsTyVarBndr$fOutputableHsType$fOutputableConDeclField$fOutputableHsAppType$fOutputableLHsQTyVars!$fOutputableBndrAmbiguousFieldOcc$fOutputableAmbiguousFieldOcc $fEqHsIPName$fDataHsIPName $fDataHsTyLit$fDataHsTupleSort$fDataPromoted $fEqPromoted$fShowPromoted$fDataHsConDetails$fDataAmbiguousFieldOcc$fDataFieldOcc $fOrdFieldOcc $fEqFieldOcc$fDataConDeclField$fDataHsAppType$fDataHsWildCardInfo $fDataHsType$fDataHsTyVarBndr$fDataHsWildCardBndrs$fDataHsImplicitBndrs$fDataLHsQTyVars OverLitVal HsIntegral HsFractional HsIsString HsOverLitOverLitol_val ol_rebindable ol_witnessol_typeHsChar HsCharPrimHsString HsStringPrimHsInt HsIntPrim HsWordPrim HsInt64Prim HsWord64Prim HsIntegerHsRat HsFloatPrim HsDoublePrim overLitType pp_st_suffix pmPprHsLit$fOutputableHsLit $fEqHsLit$fOutputableOverLitVal$fOrdOverLitVal$fEqOverLitVal$fOutputableHsOverLit$fOrdHsOverLit $fEqHsOverLit $fDataHsLit$fDataOverLitVal$fDataHsOverLit HsPatSynDirUnidirectionalImplicitBidirectionalExplicitBidirectionalRecordPatSynFieldrecordPatSynSelectorIdrecordPatSynPatVarHsPatSynDetails InfixPatSyn PrefixPatSyn RecordPatSyn TcSpecPragSpecPrag LTcSpecPrag TcSpecPragsIsDefaultMethod SpecPrags FixitySig LFixitySigSigTypeSig PatSynSig ClassOpSigIdSigFixSig InlineSigSpecSig SpecInstSig MinimalSig SCCFunSigCompleteMatchSigLSigIPBindLIPBind HsIPBindsIPBinds PatSynBindPSBpsb_idpsb_fvspsb_argspsb_defpsb_dirABExportABEabe_polyabe_monoabe_wrap abe_pragsHsBindLRFunBindPatBindVarBindAbsBinds AbsBindsSigfun_id fun_matches fun_co_fnbind_fvsfun_tickpat_lhspat_rhs pat_rhs_ty pat_ticksvar_idvar_rhs var_inlineabs_tvs abs_ev_vars abs_exports abs_ev_binds abs_bindsabs_sig_export abs_sig_pragsabs_sig_ev_bind abs_sig_bind LHsBindLR LHsBindsLRHsBindLHsBindsLHsBind HsValBindsLR ValBindsIn ValBindsOut HsValBindsLHsLocalBindsLRHsLocalBindsLREmptyLocalBinds LHsLocalBinds HsLocalBinds pprLHsBindspprLHsBindsForUser pprDeclListemptyLocalBindsisEmptyLocalBindseqEmptyLocalBindsisEmptyValBindsemptyValBindsInemptyValBindsOut emptyLHsBindsisEmptyLHsBindsplusHsValBinds ppr_monobindpprTicksisEmptyIPBinds noSpecPrags hasSpecPragsisDefaultMethod isFixityLSig isTypeLSig isSpecLSigisSpecInstLSig isPragLSig isInlineLSig isMinimalLSig isSCCFunSigisCompleteMatchSighsSigDocppr_sig pragBracketspragSrcBrackets pprVarSigpprSpecpprTcSpecPrags pprMinimalSig$fOutputableIPBind$fOutputableHsIPBinds$fOutputableFixitySig$fOutputableSig$fOutputableTcSpecPrag$fOutputableABExport$fTraversableRecordPatSynField$fFoldableRecordPatSynField$fOutputableRecordPatSynField$fFunctorRecordPatSynField$fTraversableHsPatSynDetails$fFoldableHsPatSynDetails$fFunctorHsPatSynDetails$fOutputablePatSynBind$fOutputableHsBindLR$fOutputableHsValBindsLR$fOutputableHsLocalBindsLR$fDataFixitySig$fDataTcSpecPrag$fDataTcSpecPrags$fDataABExport$fDataRecordPatSynField$fDataHsPatSynDetails$fDataHsPatSynDir $fDataSig $fDataIPBind$fDataHsIPBinds$fDataPatSynBind$fDataHsBindLR$fDataHsValBindsLR$fDataHsLocalBindsLR HsRecField' HsRecField hsRecFieldLbl hsRecFieldArghsRecPun HsRecUpdFieldLHsRecUpdField LHsRecField LHsRecField' HsRecFieldsrec_flds rec_dotdotHsConPatDetailsWildPatVarPatLazyPatAsPatParPatBangPatListPatTuplePatSumPatPArrPatConPatIn ConPatOutViewPat SplicePatLitPatNPat NPlusKPatSigPatIn SigPatOutCoPatpat_con pat_arg_tyspat_tvs pat_dicts pat_bindspat_argspat_wrapOutPatInPat hsConPatArgs hsRecFieldshsRecFieldsArgs hsRecFieldSel hsRecFieldIdhsRecUpdFieldRdrhsRecUpdFieldIdhsRecUpdFieldOcc pprParendLPat pprConArgsmkPrefixConPatmkNilPat mkCharLitPatisBangedPatBind isBangedLPatlooksLazyPatBindisIrrefutableHsPathsPatNeedsParenscollectEvVarsPats$fOutputableHsRecField'$fOutputableHsRecFields$fOutputablePat$fDataHsRecField'$fFunctorHsRecField'$fFoldableHsRecField'$fTraversableHsRecField'$fFunctorHsRecFields$fFoldableHsRecFields$fTraversableHsRecFields$fDataHsRecFields $fDataPat ClosureInfo closureName closureLFInfoclosureInfoLabel CallMethodEnterItJumpToItReturnItSlowCall DirectEntryDynTagStandardFormInfoLambdaFormInfoNonVoid SelfLoopInfoCgLocCmmLocLneLoc isKnownFun fromNonVoid nonVoidIdsassertNonVoidIdsnonVoidStgArgsassertNonVoidStgArgs idPrimRep addIdReps addArgReps argPrimRep mkLFArgumentmkLFLetNoEscape mkLFReEntrant mkLFThunk mkConLFInfomkSelectorLFInfo mkApLFInfo mkLFImported mkLFStringLit isSmallFamily dataConTagZ tagForCon tagForAritylfDynTag maybeIsLFCon isLFThunk isLFReEntrantnodeMustPointToIt getCallMethod mkCmmInfo mkClosureInfoblackHoleOnEntryisStaticClosureclosureUpdReqd lfUpdatableclosureSingleEntryclosureReEntrantclosureFunInfofunTagisToplevClosurestaticClosureLabelclosureSlowEntryLabelclosureLocalEntryLabelmkDataConInfoTablecafBlackHoleInfoTableindStaticInfoTablestaticClosureNeedsLink$fOutputableCgLoc$fOutputableNonVoid $fEqNonVoid $fShowNonVoidVirtualHpOffset HeapUsagevirtHprealHpCgState MkCgState cgs_stmtscgs_tops cgs_binds cgs_hp_usg cgs_uniqs ReturnKindAssignedDirectly ReturnedToSequelAssignToCgIdInfocg_idcg_lfcg_locCgInfoDownwards MkCgInfoDown cgd_dflagscgd_mod cgd_updfr_off cgd_ticky cgd_sequel cgd_self_loopcgd_tick_scopeFCodeinitCrunCreturnFCthenClistCsthenFCfixCinitUpdFrameOffheapHWM initHpUsagegetStatesetState getHpUsage setHpUsage setVirtHp getVirtHp setRealHpgetBindssetBinds newUniqSupply newUnique getInfoDown getSelfLoop withSelfLoopgetThisPackage getModuleName withSequel getSequelwithUpdFrameOffgetUpdFrameOffgetTickyCtrLabelsetTickyCtrLabel getTickScope tickScopeforkClosureBody forkLneBodycodeOnlyforkAltsgetCodeRgetCode getCodeScoped getHeapUsage emitLabel emitCommentemitTick emitUnwind emitAssign emitStoreemitemitDecl emitOutOfLineemitProcWithStackFrameemitProcWithConventionemitProcgetCmmmkCmmIfThenElsemkCmmIfThenElse' mkCmmIfGoto mkCmmIfGoto' mkCmmIfThen mkCmmIfThen'mkCall mkCmmCall aGraphToGraph$fOutputableCgIdInfo$fOutputableSequel$fHasDynFlagsFCode$fMonadUniqueFCode $fMonadFCode$fApplicativeFCode$fFunctorFCodecgLit mkSimpleLit addToMemLbl addToMemLblEaddToMem addToMemEmkTaggedObjectLoad tagToClosure emitRtsCallemitRtsCallWithResultemitRtsCallGencallerSaveVolatileRegsget_GlobalReg_addr emitDataLitsemitRODataLits newStringCLitnewByteStringCLit assignTempnewTempnewUnboxedTupleRegsemitMultiAssign emitSwitchemitCmmLitSwitchccsTypeccTypecurCCS storeCurCCS mkCCostCentremkCCostCentreStackcostCentreFrom staticProfHdr dynProfHdrinitUpdFrameProfsaveCurrentCostCentrerestoreCurrentCostCentre profDynAlloc profAllocenterCostCentreThunkenterCostCentreFuninitCostCentres emitSetCCCldvRecordCreateldvEnterClosureldvEnterunECEnvNamedVarNFunNLabelN loopDeclswithNamenewLocalnewLabelnewFunctionName newImport lookupLabel lookupNamecode$fHasDynFlagsCmmParse$fMonadUniqueCmmParse$fMonadCmmParse$fApplicativeCmmParse$fFunctorCmmParsecgBind litIdInfo lneIdInfo rhsIdInfo mkRhsInit idInfoToAmodemaybeLetNoEscapeaddBindC addBindsC getCgIdInfo getArgAmodegetNonVoidArgAmodes bindToReg rebindToReg bindArgToRegbindArgsToRegsidToRegArgRepNVFDV16V32V64 argRepStringtoArgRepisNonV argRepSizeWidArgRepslowCallPattern$fOutputableArgRepwithNewTickyCounterFunwithNewTickyCounterLNEwithNewTickyCounterThunkwithNewTickyCounterStdThunkwithNewTickyCounterContickyPushUpdateFrametickyUpdateFrameOmittedtickyEnterDynContickyEnterStaticContickyEnterViaNodetickyEnterThunktickyEnterStdThunktickyBlackHoletickyUpdateBhCaf tickyEnterFun tickyEnterLNEtickyReturnOldContickyReturnNewContickyUnboxedTupleReturntickyDirectCalltickyKnownCallTooFewArgstickyKnownCallExacttickyKnownCallExtraArgstickyUnknownCall tickySlowCalltickySlowCallPat tickyDynAlloctickyAllocHeaptickyAllocPrimtickyAllocThunk tickyAllocPAPtickyHeapChecktickyStackCheck emitReturnemitCalladjustHpBackwards directCallslowCallgetHpRelOffsetmkVirtHeapOffsetsmkVirtConstrOffsetsmkVirtConstrSizes mkArgDescremitClosureProcAndInfoTableemitClosureAndInfoTableallocDynClosureallocDynClosureCmmallocHeapClosure emitSetDynHdrmkStaticClosureFieldsmkStaticClosureentryHeapCheckentryHeapCheck' altHeapCheckaltHeapCheckReturnsTonoEscapeHeapCheckheapStackCheckGen cgForeignCall emitCCall emitPrimCallemitForeignCallemitSaveThreadStatesaveThreadStateemitCloseNurseryemitLoadThreadStateloadThreadStateemitOpenNurserycgOpAppshouldInlinePrimOpcgPrimOpcmmLayoutStacksetInfoTableStackMap$fOutputableStackMap$fOutputableStackSlotClsInstLookupResult InstMatch DFunInstTypeVisibleOrphanModulesInstEnvs ie_globalie_local ie_visibleClsInst is_cls_nmis_tcs is_dfun_nameis_tvsis_clsis_tysis_dfunis_flag is_orphanfuzzyClsInstCmpisOverlappable isOverlapping isIncoherentinstanceDFunIdtidyClsInstDFuninstanceRoughTcs pprInstancepprInstanceHdr pprInstances instanceHeadorphNamesOfClsInst instanceSigmkLocalInstancemkImportedInstance emptyInstEnv instEnvElts instIsVisibleclassInstances memberInstEnvextendInstEnvList extendInstEnvdeleteFromInstEnvidenticalClsInstHeadlookupUniqueInstEnv lookupInstEnvinstanceBindFun$fOutputableClsInst$fNamedThingClsInst$fOutputableClsInstEnv $fDataClsInst optCoercion checkAxInstCo RoleAnnotDeclLRoleAnnotDecl AnnProvenanceValueAnnProvenanceTypeAnnProvenanceModuleAnnProvenance HsAnnotationLAnnDeclWarnDeclWarning LWarnDecl WarnDeclsWarningswd_src wd_warnings LWarnDeclsDocDeclDocCommentNextDocCommentPrevDocCommentNamedDocGroupLDocDeclVectDeclHsVectHsNoVect HsVectTypeIn HsVectTypeOut HsVectClassInHsVectClassOut HsVectInstIn HsVectInstOut LVectDeclRuleBndr RuleBndrSig LRuleBndrRuleDeclHsRule LRuleDecl RuleDeclsHsRulesrds_src rds_rules LRuleDecls ForeignExportCExport CImportSpec CFunctionCWrapper ForeignImportCImport ForeignDeclfd_name fd_sig_tyfd_cofd_fifd_fe LForeignDecl DefaultDecl LDefaultDecl DerivDecl deriv_typederiv_strategyderiv_overlap_mode LDerivDeclInstDeclClsInstD DataFamInstD TyFamInstDcid_inst dfid_inst tfid_inst LInstDecl ClsInstDecl cid_poly_ty cid_bindscid_sigscid_tyfam_instscid_datafam_instscid_overlap_mode LClsInstDeclDataFamInstDecl dfid_tycon dfid_pats dfid_fixity dfid_defndfid_fvsLDataFamInstDecl TyFamInstDecltfid_eqntfid_fvsLTyFamInstDeclTyFamEqn tfe_tycontfe_pats tfe_fixitytfe_rhs TyFamDefltEqn TyFamInstEqnHsTyPatsLTyFamDefltEqn LTyFamInstEqnHsConDeclDetailsConDecl ConDeclGADT ConDeclH98 con_namescon_typecon_doccon_name con_qvarscon_cxt con_detailsLConDecl NewOrDataNewTypeDataTypeHsDerivingClausederiv_clause_strategyderiv_clause_tysLHsDerivingClause HsDeriving HsDataDefndd_NDdd_ctxtdd_cType dd_kindSigdd_cons dd_derivs FamilyInfo DataFamilyOpenTypeFamilyClosedTypeFamilyInjectivityAnnLInjectivityAnn FamilyDeclfdInfofdLNamefdTyVarsfdFixity fdResultSigfdInjectivityAnn LFamilyDeclFamilyResultSigNoSigKindSigTyVarSigLFamilyResultSig TyClGroup group_tyclds group_roles group_instdsTyClDeclFamDeclSynDeclDataDecl ClassDecltcdFamtcdLName tcdTyVars tcdFixitytcdRhstcdFVs tcdDataDefn tcdDataCusktcdCtxttcdFDstcdSigstcdMethstcdATs tcdATDefstcdDocs LTyClDecl SpliceDecl LSpliceDeclHsGrouphs_valds hs_splcds hs_tyclds hs_derivdshs_fixdshs_defdshs_fords hs_warndshs_annds hs_ruledshs_vectshs_docsHsDeclTyClDInstDDerivDValDSigDDefDForDWarningDAnnDRuleDVectDSpliceDDocD RoleAnnotDLHsDecl emptyRdrGroup emptyRnGrouphsGroupInstDecls appendGroups isDataDecl isSynDecl isClassDecl isFamilyDeclisTypeFamilyDeclisOpenTypeFamilyInfoisClosedTypeFamilyInfoisDataFamilyDecltyFamInstDeclNametyFamInstDeclLName tyClDeclLNametcdNametyClDeclTyVarscountTyClDecls hsDeclHasCuskpprTyClDeclFlavouremptyTyClGrouptyClGroupTyClDeclstyClGroupInstDeclstyClGroupRoleDecls mkTyClGroupfamDeclHasCuskresultVariableName getConNames getConDetailsgadtDeclDetailshsConDeclArgTyspprDataFamInstFlavourinstDeclDataFamInstsnoForeignImportCoercionYetnoForeignExportCoercionYetflattenRuleDeclscollectRuleBndrSigTyspprFullRuleName lvectDeclName lvectInstDecl docDeclDocannProvenanceName_mayberoleAnnotDeclName$fOutputableSpliceDecl$fOutputableHsDerivingClause$fOutputableNewOrData$fOutputableConDecl$fOutputableHsDataDefn$fOutputableFamilyInfo$fOutputableFamilyDecl$fOutputableTyFamInstDecl$fOutputableDataFamInstDecl$fOutputableClsInstDecl$fOutputableInstDecl$fOutputableDerivDecl$fOutputableDefaultDecl$fOutputableForeignImport$fOutputableForeignExport$fOutputableForeignDecl$fOutputableRuleBndr$fOutputableRuleDecl$fOutputableRuleDecls$fOutputableVectDecl$fOutputableDocDecl$fOutputableTyClDecl$fOutputableWarnDecl$fOutputableWarnDecls$fOutputableAnnDecl$fOutputableRoleAnnotDecl$fOutputableTyClGroup$fOutputableHsGroup$fOutputableHsDecl$fDataInjectivityAnn $fEqNewOrData$fDataNewOrData$fDataCImportSpec$fDataForeignImport$fDataForeignExport $fDataDocDecl$fDataWarnDecl$fDataWarnDecls$fDataAnnProvenance$fFunctorAnnProvenance$fDataRoleAnnotDecl$fTraversableAnnProvenance$fFoldableAnnProvenance $fDataAnnDecl$fDataVectDecl$fDataRuleBndr$fDataRuleDecl$fDataRuleDecls$fDataForeignDecl$fDataDefaultDecl$fDataDerivDecl$fDataInstDecl$fDataClsInstDecl$fDataDataFamInstDecl$fDataTyFamInstDecl$fDataTyFamEqn $fDataConDecl$fDataHsDerivingClause$fDataHsDataDefn$fDataFamilyInfo$fDataFamilyDecl$fDataFamilyResultSig$fDataTyClGroup$fDataTyClDecl$fDataSpliceDecl $fDataHsGroup $fDataHsDecl HsStmtContextListComp MonadCompPArrCompDoExprMDoExpr ArrowExpr GhciStmtCtxtPatGuard ParStmtCtxt TransStmtCtxtHsMatchContextFunRhs LambdaExprCaseAltIfAltProcExpr PatBindRhsRecUpdStmtCtxt ThPatSplice ThPatQuotemc_fun mc_fixity mc_strictness ArithSeqInfoFromFromThenFromTo FromThenTo HsBracketExpBrPatBrDecBrLDecBrGTypBrVarBrTExpBrPendingTcSpliceUntypedSpliceFlavourUntypedExpSpliceUntypedPatSpliceUntypedTypeSpliceUntypedDeclSplicePendingRnSpliceSplicePointNameHsSplicedThing HsSplicedExpr HsSplicedTy HsSplicedPatThModFinalizersSpliceDecoration HasParens HasDollarNoParens HsTypedSpliceHsUntypedSplice HsQuasiQuote HsSplicedApplicativeArgApplicativeArgOneApplicativeArgMany ParStmtBlock TransFormThenForm GroupFormStmtLRLastStmtBindStmtApplicativeStmtBodyStmtLetStmtParStmt TransStmtRecStmttrS_form trS_stmts trS_bndrs trS_usingtrS_bytrS_rettrS_bindtrS_bind_arg_tytrS_fmap recS_stmtsrecS_later_ids recS_rec_ids recS_bind_fn recS_ret_fn recS_mfix_fn recS_bind_tyrecS_later_rets recS_rec_rets recS_ret_tyGhciStmt GhciLStmt GuardStmt GuardLStmtExprStmt ExprLStmtCmdStmtCmdLStmtStmtLStmtLRLStmtGRHSLGRHS grhssGRHSsgrhssLocalBindsm_ctxtm_patsm_typem_grhssLMatchMGmg_alts mg_arg_tys mg_res_ty mg_origin HsRecordBindsHsCmdTop LHsCmdTop HsArrAppTypeHsHigherOrderAppHsFirstOrderApp HsCmdArrApp HsCmdArrFormHsCmdAppHsCmdLamHsCmdPar HsCmdCaseHsCmdIfHsCmdLetHsCmdDo HsCmdWrapLHsCmd LHsWcTypeXHsTupArgPresentMissing LHsTupArgHsVar HsUnboundVar HsConLikeOutHsRecFld HsOverLabelHsIPVarHsLam HsLamCaseHsApp HsAppTypeOutOpAppNegAppHsParSectionLSectionR ExplicitTuple ExplicitSumHsCaseHsIf HsMultiIfHsLetHsDo ExplicitList ExplicitPArr RecordCon RecordUpd ExprWithTySigExprWithTySigOutArithSeqPArrSeqHsSCC HsCoreAnnHsRnBracketOutHsTcBracketOut HsSpliceEHsProcHsStaticHsArrApp HsArrFormHsTick HsBinTick HsTickPragmaEWildPatEAsPatEViewPatELazyPatHsWrap rcon_con_name rcon_con_like rcon_con_expr rcon_flds rupd_expr rupd_flds rupd_cons rupd_in_tys rupd_out_tys rupd_wrap UnboundVar OutOfScope TrueExprHoleCmdSyntaxTablesyn_expr syn_arg_wraps syn_res_wrap PostTcTable PostTcExpr noPostTcExpr noPostTcTablenoExpr noSyntaxExprmkRnSyntaxExpr unboundVarOcc tupArgPresent isQuietHsExprpprBinds ppr_lexprppr_exprppr_appspprExternalSrcLocpprDebugParendExprpprParendLExprhsExprNeedsParensisAtomicHsExprpprLCmdpprCmd isQuietHsCmdppr_lcmdppr_cmd pprCmdArg isInfixMatchisEmptyMatchGroupisSingletonMatchGroupmatchGroupArity hsLMatchPats pprMatchespprMatchpprGRHSspprGRHSpp_rhspprStmtpprTransformStmt pprTransStmtpprBypprDo ppr_do_stmtspprComppprQuals isTypedSplicepprPendingSpliceppr_splice_decl ppr_quasi ppr_spliceisTypedBracket pprHsBracket thBrackets thTyBrackets pp_dotdot isPatSynCtxtisListCompExprisMonadCompExprisMonadFailStmtContextmatchSeparatorpprMatchContextpprMatchContextNounpprAStmtContextpprStmtContextmatchContextErrStringpprMatchInCtxt pprStmtInCtxt$fOutputableSpliceDecoration$fDataThModFinalizers$fOutputableHsStmtContext$fOutputableHsMatchContext$fOutputableArithSeqInfo$fOutputablePendingTcSplice$fOutputablePendingRnSplice$fOutputableHsBracket$fOutputableHsSplice$fOutputableHsSplicedThing$fOutputableStmtLR$fOutputableParStmtBlock$fOutputableMatch$fOutputableHsCmdTop$fOutputableHsCmd$fOutputableHsExpr$fOutputableUnboundVar$fOutputableSyntaxExpr$fDataHsArrAppType$fDataTransForm$fDataSpliceDecoration$fEqSpliceDecoration$fShowSpliceDecoration$fDataUntypedSpliceFlavour$fFunctorHsStmtContext$fFunctorHsMatchContext$fDataPendingTcSplice$fDataPendingRnSplice$fDataUnboundVar$fDataHsStmtContext$fDataHsMatchContext$fDataArithSeqInfo$fDataHsBracket$fDataHsSplicedThing$fDataHsSplice$fDataApplicativeArg$fDataParStmtBlock $fDataStmtLR $fDataGRHS $fDataGRHSs $fDataMatch$fDataMatchGroup$fDataHsCmdTop $fDataHsCmd$fDataHsTupArg $fDataHsExpr$fDataSyntaxExprmkHsPar mkSimpleMatchunguardedGRHSs unguardedRHS mkMatchGroupmkHsApp mkHsAppTypemkHsAppTypeOutmkHsLammkHsLams mkHsCaseAlt nlHsTyApp nlHsTyAppsmkLHsParmkParPatnlParPat mkHsIntegralmkHsFractional mkHsIsStringnoRebindableInfomkHsDomkHsCompmkHsIfmkNPat mkNPlusKPatemptyTransStmtmkTransformStmtmkTransformByStmtmkGroupUsingStmtmkGroupByUsingStmt mkLastStmt mkBodyStmt mkBindStmt mkTcBindStmt emptyRecStmtemptyRecStmtNameemptyRecStmtId mkRecStmt mkHsOpAppmkUntypedSplice mkHsSpliceE mkHsSpliceTE mkHsSpliceTymkHsQuasiQuoteunqualQuasiQuote mkHsStringmkHsStringPrimLituserHsLTyVarBndrsuserHsTyVarBndrsnlHsVar nlHsDataConnlHsLitnlVarPatnlLitPatnlHsAppnlHsSyntaxApps nlHsIntLitnlHsApps nlHsVarApps nlConVarPatnlConVarPatName nlInfixConPatnlConPat nlConPatNamenlNullaryConPat nlWildConPat nlWildPat nlWildPatName nlWildPatIdnlHsDo nlHsOpAppnlHsLamnlHsParnlHsIfnlHsCasenlList nlHsAppTy nlHsTyVar nlHsFunTy nlHsParTy nlHsTyConAppmkLHsTupleExpr mkLHsVarTuple nlTuplePat missingTupArgmkBigLHsVarTup mkBigLHsTupmkBigLHsVarPatTupmkBigLHsPatTup mkChunkifiedchunkify mkLHsSigTypemkLHsSigWcType mkHsSigEnv mkClassOpSigs typeToLHsType mkLHsWrapmkHsWrap mkHsWrapCo mkHsWrapCoR mkLHsWrapCo mkHsCmdWrap mkLHsCmdWrap mkHsWrapPat mkHsWrapPatCo mkHsDictLet mkFunBind mkTopFunBind mkHsVarBind mkVarBind mkPatSynBindisInfixFunBindmk_easy_FunBindmkPrefixFunRhsmkMatchisUnliftedHsBind isBangedBindcollectLocalBinderscollectHsIdBinderscollectHsValBinderscollectHsBindBinderscollectHsBindsBinderscollectHsBindListBinderscollectMethodBinderscollectLStmtsBinderscollectStmtsBinderscollectLStmtBinderscollectStmtBinderscollectPatBinderscollectPatsBindershsGroupBindershsTyClForeignBindershsLTyClDeclBindershsForeignDeclsBindershsPatSynSelectorsgetPatSynBindshsDataFamInstBindershsDataDefnBinderslStmtsImplicitshsValBindsImplicits lPatImplicitsHsModule hsmodName hsmodExports hsmodImports hsmodDeclshsmodDeprecMessagehsmodHaddockModHeader$fOutputableHsModule$fDataHsModule SumOrTupleSumTuple ImpExpQcSpec ImpExpQcName ImpExpQcTypeImpExpQcWildcard ImpExpSubSpec ImpExpAbs ImpExpAll ImpExpList ImpExpAllWithmkTyClDmkInstD mkClassDecl mkATDefaultmkTyData mkTySynonymmkTyFamInstEqn mkDataFamInst mkTyFamInst mkFamDecl mkSpliceDeclmkRoleAnnotDecl cvTopDecls cvBindGroupcvBindsAndSigssplitConmkPatSynMatchGroup mkConDeclH98 mkGadtDeclsetRdrNameSpacecheckRecordSyntax checkContext checkPattern checkPatternsplaceHolderPunRhsbang_RDR checkValDefcheckValSigLhscheckDoAndIfThenElse splitTildesplitTildeAppscheckMonadComp checkCommand checkPrecPmkRecConstrOrUpdatemkRdrRecordUpdmkRdrRecordConmkInlinePragmamkImport parseCImportmkExport mkExtNamemkModuleImpExp mkTypeImpExpcheckImportSpecmkImpExpSubSpecparseErrorSDoc mkSumOrTuple ComplexEqSimpleEqPmLitPmSLitPmOLit PmExprVar PmExprCon PmExprLitPmExprEq PmExprOthereqPmLit toComplex truePmExpr falsePmExprisNotPmExprOther isTruePmExpr isFalsePmExprsubstComplexEqlhsExprToPmExprhsExprToPmExpr filterComplex runPmPprMpprPmExprWithParens$fOutputablePmLit$fOutputablePmExprCompleteMatchMap CompleteMatchcompleteMatchConLikescompleteMatchTyConUnlinkedDotODotADotDLLBCOsLinkableLM linkableTimelinkableModulelinkableUnlinkedHsParsedModule hpm_module hpm_src_fileshpm_annotationsIfaceTrustInfo IsSafeImport IfaceVectInfoifaceVectInfoVarifaceVectInfoTyConifaceVectInfoTyConReuseifaceVectInfoParallelVarsifaceVectInfoParallelTyConsVectInfo vectInfoVar vectInfoTyConvectInfoDataConvectInfoParallelVarsvectInfoParallelTyCons AnyHpcUsageHpcInfo NoHpcInfohpcInfoTickCount hpcInfoHashhpcUsedSourceModifiedSourceUnmodifiedSourceUnmodifiedAndStable ModSummaryms_mod ms_hsc_src ms_location ms_hs_date ms_obj_date ms_iface_date ms_srcimpsms_textual_imps ms_parsed_mod ms_hspp_file ms_hspp_opts ms_hspp_buf ModuleGraphEpsStats n_ifaces_in n_decls_in n_decls_out n_rules_in n_rules_out n_insts_in n_insts_outExternalPackageStateEPS eps_is_booteps_PITeps_free_holeseps_PTE eps_inst_enveps_fam_inst_env eps_rule_base eps_vect_info eps_ann_enveps_complete_matcheseps_mod_fam_inst_env eps_statsPackageCompleteMatchMapPackageFamInstEnvPackageInstEnvPackageRuleBasePackageTypeEnvUsageUsagePackageModuleUsageHomeModule UsageFileUsageMergedRequirementusg_mod usg_mod_hashusg_safe usg_mod_name usg_entities usg_exports usg_file_path usg_file_hash DependenciesDepsdep_modsdep_pkgs dep_orphs dep_finstsIsBootInterfaceWhetherHasOrphansFixItem FixityEnv NoWarningsWarnAllWarnSome MonadThings lookupThinglookupId lookupDataCon lookupTyConTypeEnvInteractiveImportIIDeclIIModuleInteractiveContext ic_dflags ic_mod_index ic_imports ic_tythings ic_rn_gbl_env ic_instances ic_fix_env ic_default ic_resumeic_monad ic_int_printic_cwdSptEntry ForeignStubsNoStubsCgGuts cg_module cg_tyconscg_binds cg_foreigncg_foreign_files cg_dep_pkgs cg_hpc_info cg_modBreakscg_spt_entriesModGuts mg_module mg_hsc_srcmg_loc mg_exportsmg_deps mg_usages mg_used_th mg_rdr_env mg_fix_envmg_tcsmg_insts mg_fam_insts mg_patsynsmg_rulesmg_binds mg_foreignmg_foreign_filesmg_warnsmg_annsmg_complete_sigs mg_hpc_info mg_modBreaks mg_vect_decls mg_vect_info mg_inst_envmg_fam_inst_envmg_safe_haskell mg_trust_pkgImportedModsValimv_nameimv_span imv_is_safe imv_is_hidingimv_all_exports imv_qualified ImportedByImportedByUserImportedBySystem ImportedMods ModDetails md_exportsmd_typesmd_insts md_fam_instsmd_rulesmd_anns md_vect_infomd_complete_sigs IfaceExportModIface mi_module mi_sig_of mi_iface_hash mi_mod_hash mi_flag_hash mi_orphan mi_finsts mi_hsc_srcmi_deps mi_usages mi_exports mi_exp_hash mi_used_th mi_fixitiesmi_warnsmi_annsmi_decls mi_globalsmi_insts mi_fam_instsmi_rulesmi_orphan_hash mi_vect_info mi_warn_fn mi_fix_fn mi_hash_fnmi_hpcmi_trust mi_trust_pkgmi_complete_sigs FindResultFound NoPackage FoundMultipleNotFoundfr_pathsfr_pkgfr_mods_hiddenfr_pkgs_hiddenfr_suggestionsInstalledFindResultInstalledFoundInstalledNoPackageInstalledNotFound FinderCacheMetaHook MetaResult MetaRequestMetaEMetaPMetaTMetaDMetaAW HomeModInfohm_iface hm_details hm_linkablePackageIfaceTableHomePackageTableTargetId TargetModule TargetFileTargettargetIdtargetAllowObjCodetargetContentsIServ iservPipe iservProcessiservLookupSymbolCacheiservPendingFreesHscEnv hsc_dflags hsc_targets hsc_mod_graphhsc_IChsc_HPThsc_EPShsc_NChsc_FChsc_type_env_var hsc_iserv GhcApiError SourceError HscStatusHscNotGeneratingCode HscUpToDate HscUpdateBoot HscUpdateSig HscRecomprunHscrunInteractiveHscmkSrcErrsrcErrorMessagesmkApiErr throwOneErrorhandleSourceErrorprintOrThrowWarningshandleFlagWarningshscEPS pprTarget pprTargetIdemptyHomePackageTableemptyPackageIfaceTablepprHPT lookupHptlookupHptDirectlyeltsHpt filterHptallHptmapHpt delFromHptaddToHpt addListToHpt listToHptlookupHptByModulelookupIfaceByModulehptCompleteSigs hptInstances hptVectInfohptRuleshptObjs metaRequestE metaRequestP metaRequestT metaRequestD metaRequestAWprepareAnnotationsmi_bootmi_fixmi_semantic_module mi_free_holesrenameFreeHoles emptyModIfacemkIfaceHashCacheemptyModDetailsimportedByUser appendStubCemptyInteractiveContexticInteractiveModule icInScopeTTs icPrintUnqualextendInteractiveContextextendInteractiveContextWithIdssetInteractivePackagesetInteractivePrintNameicExtendGblRdrEnvsubstInteractiveContextmkPrintUnqualified mkQualModule mkQualPackagepkgQualimplicitTyThingsimplicitClassThingsimplicitTyConThingsisImplicitTyThingtyThingParent_maybetyThingsTyCoVarstyThingAvailInfo emptyTypeEnv typeEnvElts typeEnvTyConstypeEnvCoAxioms typeEnvIdstypeEnvPatSynstypeEnvDataConstypeEnvClasses mkTypeEnvmkTypeEnvWithImplicitstypeEnvFromEntities lookupTypeEnv extendTypeEnvextendTypeEnvListextendTypeEnvWithIds plusTypeEnv lookupTypelookupTypeHscEnv tyThingTyContyThingCoAxiomtyThingDataContyThingConLike tyThingIdmkIfaceWarnCacheemptyIfaceWarnCache plusWarnsmkIfaceFixCacheemptyFixityEnv lookupFixitynoDependencies addEpsInStatsupdNameCacheIOmkSOName mkHsSONamesoExtemptyMGms_installed_mod ms_mod_namems_imps msHsFilePath msHiFilePath msObjFilePath isBootSummary showModMsg emptyHpcInfo isHpcUsed noVectInfo plusVectInfonoIfaceVectInfoisNoIfaceVectInfo getSafeMode setSafeModenoIfaceTrustInfotrustInfoToNumnumToTrustInfoisObjectLinkable linkableObjsisObjectisInterpretable nameOfObjectbyteCodeOfObjectmkCompleteMatchMapextendCompleteMatchMap$fExceptionSourceError$fShowSourceError$fExceptionGhcApiError$fShowGhcApiError$fOutputableTargetId$fOutputableTarget$fOutputableSptEntry$fOutputableInteractiveImport$fBinaryWarnings$fOutputableFixItem$fBinaryDependencies$fOutputableVectInfo$fBinaryIfaceVectInfo$fOutputableIfaceVectInfo $fBinaryUsage$fBinaryIfaceTrustInfo$fOutputableIfaceTrustInfo$fBinaryModIface$fOutputableModSummary$fOutputableUnlinked$fOutputableLinkable$fOutputableCompleteMatch$fHasDynFlagsHsc $fMonadIOHsc $fMonadHsc$fApplicativeHsc $fFunctorHsc $fEqTargetId $fEqWarnings$fEqDependencies $fEqUsageTcPluginResultTcPluginContradiction TcPluginOkTcPlugin tcPluginInit tcPluginSolve tcPluginStopTcPluginSolver TypeOrKind TypeLevel KindLevel ErrorThingCtOrigin GivenOrigin OccurrenceOfOccurrenceOfRecSel AppOriginSpecPragOrigin TypeEqOrigin KindEqOrigin IPOccOriginOverLabelOrigin LiteralOrigin NegateOriginArithSeqOrigin PArrSeqOrigin SectionOrigin TupleOrigin ExprSigOrigin PatSigOrigin PatOriginProvCtxtOriginRecordUpdOrigin ViewPatOriginScOrigin DerivOrigin DerivOriginDCDerivOriginCoerceStandAloneDerivOrigin DefaultOriginDoOrigin DoPatOrigin MCompOriginMCompPatOriginIfOrigin ProcOrigin AnnOrigin FunDepOrigin1 FunDepOrigin2 HoleOriginUnboundOccurrenceOf ListOrigin StaticOriginFailablePatternShouldn'tHappenOriginInstProvidedOrigin uo_actual uo_expecteduo_thing SkolemInfoSigSkolClsSkol DerivSkolInstSkolInstSCDataSkol FamInstSkolPatSkol ArrowSkolIPSkolRuleSkol InferSkol BracketSkolUnifyForAllSkolUnkSkolCtLoc ctl_originctl_env ctl_t_or_k ctl_depth SubGoalDepth CtFlavourRole ShadowInfoWDerivWOnly CtFlavourGivenWantedDerived CtEvidenceCtGivenCtWanted CtDerived ctev_pred ctev_evarctev_loc ctev_dest ctev_noshTcEvDest EvVarDestHoleDest ImplicStatus IC_Solved IC_Insoluble IC_Unsolvedics_needics_dead ImplicationImplicic_tclvlic_skolsic_infoic_given ic_no_eqsic_env ic_wantedic_binds ic_needed ic_statusWantedConstraintsWC wc_simplewc_implwc_insolHoleExprHoleTypeHoleCtCDictCan CIrredEvCanCTyEqCan CFunEqCan CNonCanonicalCHoleCancc_evcc_class cc_tyargs cc_pend_sccc_tyvarcc_rhs cc_eq_relcc_funcc_fskcc_holeCtsXi TcPatSynInfoTPSI patsig_namepatsig_implicit_bndrspatsig_univ_bndrs patsig_reqpatsig_ex_bndrs patsig_provpatsig_body_ty TcIdSigInstTISI sig_inst_sigsig_inst_skolssig_inst_theta sig_inst_tau sig_inst_wcs sig_inst_wcx TcIdSigInfo CompleteSig PartialSigsig_bndrsig_ctxtsig_loc psig_name psig_hs_ty TcSigInfoTcIdSig TcPatSynSigTcSigFun WhereFrom ImportByUserImportBySystemImportByPlugin ImportAvailsimp_mods imp_dep_pkgsimp_trust_pkgsimp_trust_own_pkg imp_orphs imp_finsts ClosedTypeIdRhsNames IsGroupClosed IdBindingInfo NotLetBound ClosedLet NonClosedLet PromotionErrTyConPEClassPE FamDataConPEPatSynPE RecDataConPE NoDataKindsTC NoDataKindsDCNoTypeInTypeTCNoTypeInTypeDC TcTyThingAGlobalATcIdATyVarATcTyCon APromotionErrtct_idtct_info ArrowCtxt NoArrowCtxtThLevel PendingStuffRnPendingUntypedRnPendingTyped TcPendingThStageSplice RunSpliceCompBrack SpliceTypeTypedUntyped TcIdBinderTcIdBndrTcIdBndr_ExpTypeTcIdBinderStackTcIdSetTcIdTcRef TcTypeEnvErrCtxtTcLclEnvtcl_loctcl_ctxt tcl_tclvl tcl_th_ctxt tcl_th_bndrstcl_arrow_ctxttcl_rdrtcl_env tcl_bndrstcl_tidy tcl_tyvarstcl_lietcl_errs SelfBootInfo NoSelfBootSelfBootsb_mdssb_tcs RecFieldEnvtcg_modtcg_semantic_modtcg_src tcg_rdr_env tcg_default tcg_fix_env tcg_field_env tcg_type_env tcg_inst_envtcg_fam_inst_env tcg_ann_envtcg_pending_fam_checks tcg_exports tcg_importstcg_dus tcg_used_grestcg_keep tcg_th_usedtcg_th_splice_usedtcg_th_top_level_locs tcg_dfun_n tcg_mergedtcg_rn_exportstcg_rn_imports tcg_rn_declstcg_dependent_filestcg_th_topdeclstcg_th_foreign_filestcg_th_topnamestcg_th_modfinalizers tcg_th_statetcg_th_remote_state tcg_ev_binds tcg_tr_module tcg_bindstcg_sigs tcg_imp_specs tcg_warnstcg_annstcg_tcs tcg_insts tcg_fam_insts tcg_rules tcg_fords tcg_vects tcg_patsyns tcg_doc_hdrtcg_hpc tcg_self_boottcg_main tcg_safeInfertcg_tc_plugins tcg_top_loc tcg_static_wctcg_complete_matchesFrontendResultFrontendTypecheck DsMetaValDsBoundDsSplice DsMetaEnvDsLclEnvdsl_metadsl_loc dsl_dicts dsl_tm_cs dsl_pm_iterDsGblEnvds_modds_fam_inst_env ds_unqualds_msgs ds_if_env ds_dph_env ds_parr_bids_complete_matches PArrBuiltin lengthPVar replicatePVar singletonPVarmapPVar filterPVarzipPVar crossMapPVar indexPVar emptyPVarappPVarenumFromToPVarenumFromThenToPVarIfLclEnvif_modif_bootif_loc if_nsubstif_implicits_env if_tv_env if_id_envIfGblEnvif_doc if_rec_typesenv_topenv_usenv_gblenv_lclTcMRnMDsMIfLIfGIfMTcRnTcRnIf ns_mod_name ns_exportsns_maptcVisibleOrphanModstopStage topAnnStagetopSpliceStageimpLevel outerLevelthLevelpprTcTyThingCategory pprPECategory mkModDeps modDepsEltsemptyImportAvailsplusImportAvails isPartialSighasCompleteSigholeOccmkNonCanonicalmkNonCanonicalCtmkGivens ctEvidencectLocsetCtLocctOriginctPredmkTcEqPredLikeEv ctFlavourctEqRel tyCoVarsOfCttyCoVarsOfCtList tyCoVarsOfCtstyCoVarsOfCtsList tyCoVarsOfWCtyCoVarsOfWCListdropDerivedSimplesdropDerivedInsolsisDroppableDerivedLocarisesFromGivens isWantedCt isGivenCt isDerivedCt isCTyEqCanisCDictCan_Maybe isCIrredEvCanisCFunEqCan_maybe isCFunEqCanisCNonCanonicalisHoleCtisOutOfScopeCt isExprHoleCt isTypeHoleCtgetUserTypeErrorMsgisUserTypeErrorCtisPendingScDictsuperClassesMightHelpsingleCtandCts listToCtsctsEltsconsCtssnocCts extendCtsList andManyCtsemptyCts isEmptyCtspprCtsemptyWC mkSimpleWC mkImplicWC isEmptyWCandWCunionsWC addSimples addImplics addInsols getInsolublesinsolublesOnly dropDerivedWCisSolvedStatusisInsolubleStatusinsolubleImplic insolubleWCtrulyInsoluble pprEvVars pprEvVarThetapprEvVarWithTypectEvPredctEvLoc ctEvOrigin ctEvEqRelctEvRolectEvTerm ctEvCoercionctEvIdisWantedisGiven isDerivedisGivenOrWDeriv ctEvFlavourctEvFlavourRole ctFlavourRoleeqCanRewriteFReqMayRewriteFRfunEqCanDischargefunEqCanDischargeFeqCanDischargeinitialSubGoalDepthbumpSubGoalDepthmaxSubGoalDepthsubGoalDepthExceeded mkGivenLoc mkKindLoc toKindLocctLocEnv ctLocLevel ctLocDepth ctLocOrigin ctLocSpanctLocTypeOrKind_maybe setCtLocSpanbumpCtLocDepthsetCtLocOrigin setCtLocEnv pushErrCtxtpushErrCtxtSameOrigintermEvidenceAllowed pprSkolInfopprSigSkolInfo isTypeLevel isKindLevel mkErrorThingerrorThingNumArgs_maybe lexprCtOrigin exprCtOriginmatchesCtOrigin grhssCtOriginpprCtLoc pprCtOrigin runTcPluginMunsafeTcPluginTcMgetEvBindsTcPluginM$fContainsModuleEnv$fContainsDynFlagsEnv$fContainsModuleDsGblEnv$fHasOccNameTcIdBinder$fOutputableTcIdBinder$fOutputablePromotionErr$fOutputableIdBindingInfo$fOutputableTcTyThing$fOutputableWhereFrom$fOutputableTcIdSigInfo$fOutputableTcIdSigInst$fOutputableTcPatSynInfo$fOutputableTcSigInfo$fOutputableImplicStatus$fOutputableTcEvDest$fOutputableCtFlavour$fOutputableSkolemInfo$fOutputableTypeOrKind$fMonadFailTcPluginM$fMonadTcPluginM$fApplicativeTcPluginM$fFunctorTcPluginM$fOutputableErrorThing$fOutputableCtOrigin$fOutputableCtEvidence$fOutputableImplication$fOutputableWantedConstraints$fOutputableCt$fOutputableThStage$fContainsModuleTcGblEnv$fEqShadowInfo $fEqCtFlavour$fEqSubGoalDepth$fOrdSubGoalDepth$fOutputableSubGoalDepth$fEqTypeOrKindnoThing unifyKind unifyTypetypeNatAddTyContypeNatSubTyContypeNatMulTyContypeNatExpTyContypeNatLeqTyContypeNatCmpTyContypeSymbolCmpTyContypeSymbolAppendTyContypeNatCoAxiomRulesfinishTHrunRemoteModFinalizersrunQuasilookupThName_mayberunMetaDrunMetaTrunMetaPrunMetaEtcTopSpliceExpr runAnnotationtcTypedBrackettcUntypedBracket tcSpliceExprbadReexportedBootThingmissingBootThingcheckBootDeclM tcMatchesFun tcGRHSsPat tcCheckId tcSyntaxOpGen tcSyntaxOp tcInferRho tcInferSigmatcInferSigmaNC tcMonoExpr tcMonoExprNC tcPolyExpr rnMbLHsDocrnLHsDocrnHsDocrnStmtsrnLExprinitTc initTcWithGblinitTcInteractiveinitTcForLookup initTcRnIf discardResult getTopEnv updTopEnv getGblEnv updGblEnv setGblEnv getLclEnv updLclEnv setLclEnvgetEnvssetEnvsxoptMdoptMgoptMwoptMsetXOptM unsetXOptM unsetGOptM unsetWOptM whenDOptM whenGOptM whenWOptM whenXOptM getGhcModewithDoDynamicToo getEpsVargetEps updateEps updateEps_getHpt getEpsAndHpt withException newArrowScopeescapeArrowScopenewUniqueSupplycloneLocalNamenewName newNameAt newSysName newSysLocalIdnewSysLocalIdsnewTcRef readTcRef writeTcRefupdTcReftraceTctraceRn traceOptTcRn traceTcRngetPrintUnqualifiedprintForUserTcRntraceIf traceHiDiffs traceOptIf getIsGHCi getGHCiMonadgetInteractivePrintNametcIsHsBootOrSigtcSelfBootInfogetGlobalRdrEnv getRdrEnvs getImports getFixityEnvextendFixityEnvgetRecFieldEnvgetDeclaredDefaultTysaddDependentFiles getSrcSpanM setSrcSpanaddLocMwrapLocM wrapLocFstM wrapLocSndM getErrsVar setErrsVarfailWithfailAtaddErrAtaddErrscheckErr addMessagesdiscardWarnings mkLongErrAt mkErrDocAt addLongErrAt reportErrors reportError reportWarningrecoverMmapAndRecoverMfoldAndRecoverM mapAndReportMtryTc discardErrstryTcDiscardingErrs askNoErrs checkNoErrs whenNoErrsifErrsM failIfErrsMcheckTHfailTH getErrCtxt setErrCtxt addErrCtxt addErrCtxtMaddLandmarkErrCtxtaddLandmarkErrCtxtMupdCtxt popErrCtxt getCtLocM setCtLocMaddErrTc addErrsTc addErrTcMmkErrTcM failWithTc failWithTcMcheckTccheckTcMfailIfTc failIfTcMwarnIfwarnTcwarnTcM addWarnTc addWarnTcM addWarnAtadd_warn tcInitTidyEnvtcInitOpenTidyEnv mkErrInfodebugTc newTcEvBindsgetTcEvTyCoVarsgetTcEvBindsMap addTcEvBindchooseUniqueOccTcgetConstraintVarsetConstraintVaremitStaticConstraintsemitConstraints emitSimple emitSimplesemitImplicationemitImplications emitInsolublediscardConstraintstryCaptureConstraintscaptureConstraintspushLevelAndCaptureConstraints pushTcLevelM_ pushTcLevelM getTcLevel setTcLevelisTouchableTcM getLclTypeEnv setLclTypeEnvtraceTcConstraintsemitWildCardHoleConstraints recordThUserecordThSpliceUserecordTopLevelSpliceLocgetTopLevelSpliceLocs keepAlivegetStagegetStageAndBindLevelsetStageaddModFinalizersWithLclEnvrecordUnsafeInfer finalSafeModefixSafeInstancesgetLocalRdrEnvsetLocalRdrEnv mkIfLclEnv initIfaceTcRn initIfaceLoadinitIfaceCheck initIfaceLclinitIfaceLclWithSubst getIfModulefailIfM forkM_maybeforkMsetImplicitEnvM$fMonadUniqueIOEnvnonBidirectionalErrtcPatSynBuilderBindtcCheckPatSynDecltcInferPatSynDeclnewMetaKindVarnewMetaKindVars newEvVarsnewEvVar newWanted newWanteds cloneWantedcloneWC emitWanted emitWantedEqemitWantedEvVaremitWantedEvVarsnewDictnewCoercionHolefillCoercionHoleisFilledCoercionHoleunpackCoercionHoleunpackCoercionHole_maybecheckCoercionHolenewInferExpTypeNoInstnewInferExpTypeInstnewInferExpTypereadExpType_maybe readExpTypecheckingExpType_maybecheckingExpType tauifyExpType expTypeToTypeinferResultToType tcInstTypetcSkolDFunTypetcSuperSkolTyVarstcInstSkolTyVarstcInstSkolTyVarsXtcInstSuperSkolTyVarsXfreshenTyVarBndrsfreshenCoVarBndrsXinstSkolTyCoVars newFskTyVar newSigTyVar newFmvTyVarnewMetaDetailscloneMetaTyVar readMetaTyVarisFilledMetaTyVarisUnfilledMetaTyVarwriteMetaTyVargenInstSkolTyVarsX newFlexiTyVarnewFlexiTyVarTynewFlexiTyVarTysnewOpenTypeKindnewOpenFlexiTyVarTynewMetaSigTyVars newMetaTyVars newMetaTyVarXnewMetaTyVarsXnewMetaSigTyVarX newWildCardXnewMetaTyVarTyAtLevelquantifyTyVarsquantifyZonkedTyVarszonkQuantifiedTyVar defaultTyVarskolemiseRuntimeUnktcGetGlobalTyCoVarszonkTcTypeAndFVzonkTcTypeAndSplitDepVarszonkTcTypesAndSplitDepVarszonkTyCoVarsAndFVzonkTyCoVarsAndFVList zonkTcTyVarszonkTyCoVarKind zonkTcTypes zonkEvVarzonkWC zonkSimpleszonkCtzonkSkolemInfozonkIdzonkTcTypeMapper zonkTcTypezonkCozonkTcTyCoVarBndrzonkTcTyVarBinder zonkTcTyVarzonkTcTyVarToTyVarzonkTidyTcTypemkTypeErrorThingmkTypeErrorThingArgszonkTidyOrigintidyCt tidyEvVartidySkolemInfoensureNotLevPolycheckForLevPolycheckForLevPolyXformatLevPolyErr tcAnnotationsannCtxtrnTopSpliceDecls rnSpliceDecl rnSplicePat rnSpliceTypetcIfaceCompleteSigstcIfaceAnnotationstcIfaceFamInst tcIfaceInsttcIfaceVectInfo tcIfaceRules tcIfaceDecl hsLPatType hsPatType hsLitType shortCutLit hsOverLitName emptyZonkEnvmkEmptyZonkEnv zonkTopBndrs zonkTyBndrsXzonkTyVarBindersXzonkTyVarBinderX zonkTopExpr zonkTopLExpr zonkTopDecls zonkEvBinds zonkTyVarOcczonkTcTypeToTypezonkTcTypeToTypes zonkCoToCo zonkSigType$fOutputableZonkEnvTmStatePmVarEnv canDivergeflattenPmVarEnvinitialTmState solveOneEq extendSubstexprDeepLookuptmOracle pmLitType mkTickBoxinitHpcPipelineOutput Temporary Persistent SpecificFile PipeStatehsc_env maybe_loc foreign_osPipeEnv stop_phase src_filename src_basename src_suffix output_spec PhasePlus RealPhaseHscOut CompPipelineevalP getPipeEnv getPipeState setDynFlagssetModLocation setForeignOs$fOutputablePhasePlus$fHasDynFlagsCompPipeline$fMonadIOCompPipeline$fMonadCompPipeline$fApplicativeCompPipeline$fFunctorCompPipeline$fShowPipelineOutputloadSysInterfaceNameCacheUpdaterNCUupdateNameCachenewGlobalBindernewInteractiveBinderallocateGlobalBinderifaceExportNamesmkNameCacheUpdater updNameCache lookupOrigexternaliseName setNameModule tcIfaceLclIdextendIfaceIdEnv tcIfaceTyVarlookupIfaceTyVarlookupIfaceVarextendIfaceTyVarEnvextendIfaceEnvslookupIfaceTop newIfaceName newIfaceNamesemptyNameShape mkNameShapeextendNameShapenameShapeExportssubstNameShapemaybeSubstNameShape tcRnModIfacetcRnModExports rnModIface rnModExportsdataConInfoPtrToNamedsForeignsHooktcForeignImportsHooktcForeignExportsHookhscFrontendHookhscCompileCoreExprHookghcPrimIfaceHook runPhaseHook runMetaHooklinkHookrunRnSpliceHookgetValueSafelyHookcreateIservProcessHook getHooked lookupHook WarnErrLoggerGhcTunGhcTSessionGhcunGhc getSession setSession withSessiongetSessionDynFlags modifySessionwithTempSession logWarnings reflectGhcreifyGhcliftGhcTprintExceptiondefaultWarnErrLogger $fGhcMonadGhc$fHasDynFlagsGhc$fExceptionMonadGhc $fMonadFixGhc $fMonadIOGhc $fMonadGhc$fApplicativeGhc $fFunctorGhc$fGhcMonadGhcT$fHasDynFlagsGhcT$fExceptionMonadGhcT $fMonadIOGhcT $fMonadGhcT$fApplicativeGhcT $fFunctorGhcTiservCmd withIServevalStmt abandonStmtevalIO evalStringevalStringToIOString mallocData mkCostCentres createBCOs addSptEntrycostCentreStackInfo newBreakArrayenableBreakpointbreakpointStatusgetBreakpointVar initObjLinker lookupSymbol lookupClosurepurgeLookupSymbolCacheloadDLL loadArchiveloadObj unloadObjaddLibrarySearchPathremoveLibrarySearchPath resolveObjsfindSystemLibrary iservCall readIServ writeIServ stopIServmkFinalizedHValuefreeHValueRefswormhole wormholeRef mkEvalOptsfromEvalResultflushFinderCachesfindImportedModulefindPluginModulefindExactModulefindExposedPackageModuleaddHomeModuleToFinder uncacheModulefindHomeModulemkHomeModLocationmkHomeModLocation2mkHiOnlyModLocation mkObjPathmkHiPath mkStubPathsfindObjectLinkableMaybefindObjectLinkablecannotFindModulecannotFindInterfacemkDependencies mkUsedNames mkUsageInfo cmmPipeline ClosureEnvemptyClosureEnvextendClosureEnvlinkBCOlookupStaticPtrlookupIElinkFail nameToCLabelmkITbls ppSourceStats BlankSrcSpanNoBlankSrcSpan showAstData$fEqBlankSrcSpan$fShowBlankSrcSpan addFieldDoc addFieldDocs addConDoc addConDocsaddConDocFirstaddTicksToBinds hpcInitCode$fMonadUniqueTM$fHasDynFlagsTM $fMonadTM$fApplicativeTM $fFunctorTM$fEqTickDensity$fEqTickishTypeconvertToHsDeclsconvertToHsExpr convertToPatconvertToHsTypethRdrNameGuesses $fMonadCvtM$fApplicativeCvtM $fFunctorCvtM LRenamingRenaming renameFromrenameTo IncludeDeclidUnitId idModRenamingidSignatureInclude LHsUnitDecl HsUnitDeclDeclDIncludeD HsDeclTypeModuleD SignatureDLHsUnitHsUnit hsunitName hsunitBody LHsModuleId HsModuleId HsModuleVarLHsModuleSubst HsModuleSubst LHsUnitIdHsUnitId HsComponentId hsPackageName hsComponentId$fOutputableHsComponentId parseModuleparseSignature parseImportparseStatementparseDeclarationparseExpression parsePatternparseTypeSignature parseStmtparseIdentifier parseType parseBackpack parseHeader mkPrelImportsgetOptionsFromFile getOptionscheckProcessArgsResultoptionsErrorMsgs CheapAppFunexprType coreAltType coreAltsType isExprLevPolyapplyTypeToArgsmkCastmkTickmkTicks mkTickNoHNF tickHNFArgs stripTicksTopstripTicksTopEstripTicksTopT stripTicksE stripTicksT bindNonRecneedsCaseBinding mkAltExpr findDefault addDefault isDefaultAltfindAlt mergeAlts trimConArgs filterAltsrefineDefaultAltcombineIdenticalAlts exprIsTrivialgetIdFromTrivialExprgetIdFromTrivialExpr_maybe exprIsBottom exprIsDupable exprIsCheapexprIsExpandableexprIsWorkFreeexprIsOk isCheapAppisExpandableAppexprOkForSpeculationexprOkForSideEffects exprIsHNF exprIsConLikeexprIsTopLevelBindableexprIsLiteralStringdataConRepInstPatdataConRepFSInstPat cheapEqExpr cheapEqExpr' exprIsBigeqExprdiffExpr diffBinds tryEtaReduce rhsIsStatic isEmptyTycollectMakeStaticArgs isJoinBind doStaticArgsoccurAnalysePgmoccurAnalyseExproccurAnalyseExpr_NoBinderSwap$fOutputableOccEncl$fOutputableUsageDetails$fOutputableDetails FloatBindFloatLet FloatCase sortQuantVars mkCoreAppmkWildEvBindermkWildValBinder mkWildCase mkIfThenElsecastBottomExpr mkIntExprIntmkWordExprWord mkIntegerExpr mkNaturalExprmkStringExprFSmkStringExprFSWith mkCoreVarTupmkCoreVarTupTy mkCoreTup mkCoreUbxTupmkCoreTupBoxitymkBigCoreVarTupmkBigCoreVarTup1mkBigCoreVarTupTy mkBigCoreTupmkBigCoreTupTyunitExprmkTupleSelectormkTupleSelector1mkSmallTupleSelector mkTupleCasemkSmallTupleCase wrapFloat mkNilExpr mkConsExpr mkListExpr mkFoldrExpr mkBuildExpr mkNothingExpr mkJustExprmkRuntimeErrorAppmkImpossibleExprerrorIdsrEC_SEL_ERROR_IDrUNTIME_ERROR_IDiRREFUT_PAT_ERROR_IDrEC_CON_ERROR_ID pAT_ERROR_IDnO_METHOD_BINDING_ERROR_IDnON_EXHAUSTIVE_GUARDS_ERROR_ID tYPE_ERROR_IDaBSENT_ERROR_IDmkAbsentErrorApp$fOutputableFloatBind IdSubstEnvSubst isEmptySubst emptySubst mkEmptySubstmkSubst substInScope zapSubstEnv extendIdSubstextendIdSubstListextendSubstWithVarextendSubstList lookupIdSubstlookupTCvSubstdelBndrdelBndrs mkOpenSubst addInScopeSet extendInScopeextendInScopeListextendInScopeIds setInScope substExprSC substExpr substBindSC substBind deShadowBinds substBndr substBndrs substRecBndrs cloneIdBndr cloneIdBndrs cloneBndrs cloneBndrcloneRecIdBndrs getTCvSubst substIdInfosubstUnfoldingSCsubstUnfolding substIdOcc substSpecsubstRulesForImportedIds substDVarSet substTickish$fOutputableSubst cseProgram cseOneExprCheapFun manifestArity joinRhsArity exprArity typeArityexprBotStrictness_maybeexprEtaExpandArity findRhsArity etaExpandetaExpandToJoinPointetaExpandToJoinPointRule$fOutputableEtaInfo simpleOptExprsimpleOptExprWith simpleOptPgmjoinPointBinding_maybejoinPointBindings_maybeexprIsConApp_maybeexprIsLiteral_maybeexprIsLambda_maybe pushCoArg pushCoTyArg pushCoValArgcollectBindersPushingCo$fOutputableSimpleOptEnvCallCtxt BoringCtxtRhsCtxt DiscArgCtxt RuleArgCtxt ValAppCtxtCaseCtxt ArgSummaryTrivArg NonTrivArgValueArgmkTopUnfoldingmkImplicitUnfoldingmkSimpleUnfoldingmkDFunUnfoldingmkWwInlineRulemkCompulsoryUnfoldingmkWorkerUnfoldingmkInlineUnfoldingmkInlineUnfoldingWithAritymkInlinableUnfolding specUnfoldingmkCoreUnfolding mkUnfoldinginlineBoringOkcouldBeSmallEnoughToInlinesmallEnoughToInlinecertainlyWillInlinecallSiteInline$fOutputableExprSize$fOutputableArgSummary$fOutputableCallCtxt primOpRules builtinRules caseRules$fHasDynFlagsRuleM$fMonadPlusRuleM$fAlternativeRuleM$fMonadFailRuleM $fMonadRuleM$fApplicativeRuleM$fFunctorRuleM liberateCasetidyExpr tidyRulestidyRule tidyVarOcc tidyUnfoldingmkRule roughTopNamespprRulesForUser mkRuleInfoextendRuleInfo addRuleInfoaddIdSpecialisations rulesOfBindsgetRules emptyRuleBase mkRuleBaseextendRuleBaseList unionRuleBase pprRuleBase lookupRuleruleCheckProgramDCB wiredInIds ghcPrimIds mkDictSelRhs mkDataConRepwrapNewTypeBodyunwrapNewTypeBodywrapFamInstBodywrapTypeUnbranchedFamInstBodyunwrapFamInstScrut unwrapTypeUnbranchedFamInstScrut mkFCallId mkDictFunId mkDictFunTyunsafeCoerceNamenoinlineIdName proxyHashIdunsafeCoerceId nullAddrIdseqIdlazyId noinlineIdrunRWIdcoerceIdrealWorldPrimId voidPrimId voidArgIdcoercionTokenIdunarise$fOutputableUnariseValstg2stg toIfaceIdBndrtoIfaceTvBndrs toIfaceBndrtoIfaceTyVarBinders toIfaceKind toIfaceTyVartoIfaceTyCon_nametidyToIfaceTypetidyToIfaceTcArgstidyToIfaceContextpatSynToIfaceDecl toIfaceBangtoIfaceSrcBangtoIfaceLetBndrtoIfaceIdDetails toIfaceIdInfo toIfUnfolding toIfaceExprtoIfaceOneShottoIfaceTickish toIfaceBind toIfaceAlt toIfaceCon toIfaceApp toIfaceVar knownKeyNameslookupKnownKeyNameisKnownKeyNameprimOpIdghcPrimExportsmaybeCharLikeConmaybeIntLikeConisNumericClassisStandardClass cgTopRhsCon buildDynCon bindConArgscgExprcgTopRhsClosureemitBlackHoleCodepushUpdateFrameemitUpdateFrame parseCmmFilecodeGenTraceBinIFaceReadingQuietBinIFaceReading CheckHiWay IgnoreHiWay readBinIface writeBinIface getSymtabNamegetDictFastString$fEqCheckHiWay$fEqTraceBinIFaceReadingfingerprintDynFlags coreToStg coreExprToStg$fMonadFixCtsM $fMonadCtsM$fApplicativeCtsM $fFunctorCtsM $fEqLetInfo $fEqHowBoundtcLookupImported_maybe importDeclcheckWiredInTyConifCheckWiredInThingloadSrcInterfaceloadSrcInterface_maybeloadModuleInterfaceloadModuleInterfacesloadInterfaceForNameloadInterfaceForModuleloadUserInterfaceloadPluginInterface loadInterfacemoduleFreeHolesPrecise loadDeclsfindAndReadIface readIfaceinitExternalPackageState ifaceStats showIfacepprModIfaceSimple pprModIface$fOutputableWarnings InstBindings ib_tyvarsib_binds ib_pragmas ib_extensions ib_derivedInstInfoiSpeciBinds lookupGlobaltcLookupLocatedGlobaltcLookupGlobaltcLookupDataContcLookupPatSyntcLookupConLike tcLookupClass tcLookupTyCon tcLookupAxiomtcLookupLocatedGlobalIdtcLookupLocatedClasstcLookupLocatedTyContcLookupInstance tcGetInstEnvssetGlobalTypeEnvtcExtendGlobalEnvImplicittcExtendGlobalEnvtcExtendTyConEnvtcExtendGlobalValEnvtcExtendRecEnvtcLookupLocatedtcLookupLcl_maybetcLookup tcLookupTyVar tcLookupIdtcLookupLocalIdsgetInLocalScopetcExtendKindEnvListtcExtendKindEnvtcExtendTyVarEnvtcExtendTyVarEnv2isTypeClosedLetBndrtcExtendRecIdstcExtendSigIdstcExtendLetEnv tcExtendIdEnvtcExtendIdEnv1tcExtendIdEnv2tcExtendLocalTypeEnvtcExtendIdBndrstcAddDataFamConPlaceholderstcAddPatSynPlaceholdersgetTypeSigNames tcExtendRulescheckWellStagedtopIdLvltcMetaTy isBrackStagetcGetDefaultTysiDFunIdpprInstInfoDetailssimpleInstInfoClsTysimpleInstInfoTysimpleInstInfoTyCon newDFunName newDFunName'newFamInstTyConNamenewFamInstAxiomNamemkStableIdFromStringmkStableIdFromName mkWrapperName pprBinders wrongThingErr$fMonadThingsIOEnv$fOutputableInstInfosptCreateStaticBindssptModuleInitCodeCoreMPreInlineUnconditionallyPostInlineUnconditionally UnfoldingDone RuleFiredLetFloatFromLet EtaExpansion EtaReduction BetaReduction CaseOfCase KnownBranch CaseMergeAltMergeCaseElim CaseIdentityFillInCaseDefault BottomFoundSimplifierDone SimplCount PluginPassFloatOutSwitchesfloatOutLambdasfloatOutConstantsfloatOutOverSatAppsfloatToTopLevelOnlySimplifierMode SimplModesm_namessm_phasesm_rules sm_inline sm_case_case sm_eta_expandCoreToDoCoreDoSimplifyCoreDoPluginPassCoreDoFloatInwardsCoreDoFloatOutwardsCoreLiberateCaseCoreDoPrintCoreCoreDoStaticArgsCoreDoCallArityCoreDoStrictnessCoreDoWorkerWrapperCoreDoSpecialisingCoreDoSpecConstrCoreCSECoreDoRuleCheckCoreDoVectorisation CoreDoNothing CoreDoPasses CoreDesugarCoreDesugarOpt CoreOccurAnalpprPassDetailsrunWhenrunMaybe bindsOnlyPass simplCountNzeroSimplCountisZeroSimplCounthasDetailedCountsdoFreeSimplTick doSimplTickplusSimplCount pprSimplCountrunCoreMliftIOWithCount getHscEnv getRuleBasegetVisibleOrphanMods addSimplCountgetOrigNameCachegetPackageFamInstEnvreinitializeGlobalsgetAnnotationsgetFirstAnnotationsputMsgS errorMsgSwarnMsgfatalErrorMsgSdebugTraceMsgSthNameToGhcName$fOutputableSimplifierMode$fOutputableFloatOutSwitches $fOrdTick$fEqTick$fOutputableTick$fMonadThingsCoreM$fHasModuleCoreM$fHasDynFlagsCoreM$fMonadIOCoreM$fMonadUniqueCoreM$fMonadPlusCoreM$fAlternativeCoreM$fApplicativeCoreM $fMonadCoreM$fFunctorCoreM$fOutputableCoreToDo specProgram$fOutputableCallKey$fOutputableCallInfo$fOutputableCallInfoSet$fHasModuleSpecM$fHasDynFlagsSpecM$fMonadUniqueSpecM$fMonadFailSpecM $fMonadSpecM$fApplicativeSpecM$fFunctorSpecMSimplMinitSmpl traceSmpl getSimplRules getFamEnvsnewId getSimplCounttick checkedTickfreeTick$fMonadIOSimplM$fHasDynFlagsSimplM$fMonadUniqueSimplM $fMonadSimplM$fApplicativeSimplM$fFunctorSimplM JoinFloatsFloatsSimplSRDoneExDoneIdContEx StaticEnvseMode seTvSubst seCvSubst seIdSubst seInScopeseFloats seJoinFloats pprSimplEnv mkSimplEnvgetModesetModeupdMode getInScope setInScopeSetsetInScopeAndZapFloats setFloatsrestoreJoinFloatsaddNewInScopeIds modifyInScope setSubstEnvmkContExdoFloatFromRhs emptyFloatsemptyJoinFloats addNonRec extendFloats addFloats zapFloats zapJoinFloats addRecFloats wrapFloatswrapJoinFloats getFloatBindsgetJoinFloatBinds isEmptyFloatsisEmptyJoinFloats mapFloatssubstIdisJoinIdInEnv_mayberefineFromInScope lookupRecBndr simplBinders simplBindersimplNonRecBndrsimplNonRecJoinBndr simplRecBndrssimplRecJoinBndrs$fOutputableSimplSR$fOutputableFloatFlag$fOutputableFloatsValArgTyArgCastBy as_arg_ty as_hole_tyArgInfoai_funai_argsai_typeai_rulesai_enclai_strsai_discsDupFlagNoDup SimplifiedOkToDup SimplContStopCastIt ApplyToVal ApplyToTySelect StrictBind StrictArgTickItsc_dupsc_argsc_envsc_cont sc_arg_ty sc_hole_tysc_bndrsc_alts isSimplified addValArgTo addTyArgTo addCastToargInfoAppArgspushSimplifiedArgs argInfoExpr mkBoringStop mkRhsStop mkLazyArgStopcontIsRhsOrArg contIsDupable contIsTrivialcontResultType contHoleType countArgscontArgs mkArgInfointerestingCallContextsimplEnvForGHCiupdModeForStableUnfoldingsupdModeForRulesactiveUnfoldinggetUnfoldingInRuleMatch activeRulepreInlineUnconditionallypostInlineUnconditionallymkLamtryEtaExpandRhsabstractFloats prepareAltsmkCase$fOutputableDupFlag$fOutputableArgSpec$fOutputableSimplCont simplTopBinds simplExpr simplRules FloatSpecFloatMeStayPut LevelTypeBndrLvl JoinCeilLvlLevel LevelledBndr LevelledBind LevelledExprfloatSpecLevel tOP_LEVEL incMinorLvl asJoinCeilLvlltLvlltMajLvlisTopLvl isJoinCeilLvl setLevels $fEqLevel$fOutputableLevel$fOutputableFloatSpec $fEqLevelTypefrontendinstallCoreToDostcPluginCommandLineOption defaultPlugindefaultFrontendPlugin floatOutwards$fOutputableFloatBinds floatInwards HsDocContext TypeSigCtxPatCtxSpecInstSigCtxDefaultDeclCtxForeignDeclCtx DerivDeclCtxRuleCtx TyDataCtxTySynCtx TyFamilyCtx FamPatCtx ConDeclCtx ClassDeclCtxExprWithTySigCtxTypBrCtx HsTypeCtxGHCiCtx SpliceTypeCtxClassInstanceCtx VectDeclCtx GenericCtx RoleAnnotEnv MiniFixityEnv HsSigCtxt TopSigCtxt LocalBindCtxt ClsDeclCtxt HsBootCtxt RoleAnnotCtxtnewTopSrcBinderlookupTopBndrRnlookupLocatedTopBndrRnlookupExactOcclookupInstDeclBndrlookupFamInstNamelookupConstructorFieldslookupRecFieldOccgetLookupOccRnmkUnboundNameRdrlookupLocatedOccRnlookupLocalOccRn_maybelookupLocalOccThLvl_maybe lookupOccRnlookupKindOccRnlookupTypeOccRnlookupOccRn_maybelookupGlobalOccRn_maybelookupGlobalOccRnlookupInfoOccRnlookupOccRn_overloadedlookupGlobalOccRn_overloadedlookupGreAvailRnaddUsedDataCons addUsedGRE addUsedGREslookupSigOccRnlookupSigCtxtOccRnlookupLocalTcNames dataTcOccsaddLocalFixitieslookupFixityRnlookupFixityRn_helplookupTyFixityRnlookupFieldFixityRnmkRoleAnnotEnvemptyRoleAnnotEnvlookupRoleAnnot getRoleAnnotslookupIfThenElselookupSyntaxName'lookupSyntaxNamelookupSyntaxNamesnewLocalBndrRnnewLocalBndrsRnbindLocatedLocalsRnbindLocalNamesbindLocalNamesFVbindLocatedLocalsFVextendTyVarEnvFVRncheckDupRdrNames checkDupNamescheckShadowedRdrNamescheckDupAndShadowedNamesreportUnboundNameunknownNameSuggestionsaddFvRnmapFvRn mapMaybeFvRn mapFvRnCPSwarnUnusedTopBindswarnUnusedLocalBindswarnUnusedMatcheswarnUnusedTypePatterns mkFieldEnvaddNameClashErrRnperhapsForallMsgunknownSubordinateErr dupNamesErr kindSigErr checkTupSizewithHsDocContextinHsDocContextpprHsDocContext$fOutputableHsSigCtxt rnHsSigWcTypernHsSigWcTypeScoped rnHsWcTypeextractFilteredRdrTyVars rnHsSigType rnLHsInstType rnLHsType rnLHsTypesrnHsType rnLHsKindrnHsKind rnContextrnLTyVarbindSigTyVarsFV bindLRdrNames bindHsQTyVarsbindLHsTyVarBndrnewTyVarNameRncollectAnonWildCardsrnConDeclFields mkOpAppRn mkNegAppRn mkOpFormRn mkConOpPatRncheckPrecMatchcheckSectionPrecfreeKiTyVarsAllVarsfreeKiTyVarsKindVarsfreeKiTyVarsTypeVarsextractHsTyRdrTyVarsextractHsTysRdrTyVarsextractHsTysRdrTyVarsDupsrmDupsInRdrTyVarsextractRdrKindSigVarsextractDataDefnKindVars$fOutputableRnTyKiWhat$fOutputableRnTyKiEnv$fOutputableOpName$fOutputableFreeKiTyVarsHsRecFieldContext HsRecFieldCon HsRecFieldPat HsRecFieldUpd NameMakerCpsRnliftCpstopRecNameMakerisTopRecNameMakerlocalRecNameMakerrnPatsrnPatapplyNameMaker rnBindPat rnPatAndThen rnHsRecFieldsrnHsRecUpdFieldsrnLit rnOverLit patSigErr $fMonadCpsRn$fApplicativeCpsRn$fFunctorCpsRn rnImportscalculateAvailsextendGlobalRdrEnvRngetLocalNonValBindersnewRecordSelector mkChildEnv findChildrenreportUnusedNamesdodgyMsg checkConName tcRnExportsexports_from_avail$fMonoidChildLookupResult$fOutputableChildLookupResult$fMonoidDisambigInfo rnTopBindsLHSrnTopBindsBootrnLocalBindsAndThenrnLocalValBindsLHS rnValBindsRHSrnLocalValBindsRHSmakeMiniFixityEnv rnMethodBinds renameSigs rnMatchGrouprnGRHSsrnGRHS rnSrcDecls addTcgDUs findSplice SpliceInfospliceDescription spliceSource spliceIsDeclspliceGenerated rnBracket rnSpliceExpr traceSplicecheckThLocalNamernExprRecompileRequiredUpToDate MustCompile RecompBecausemkIface mkIfaceTcwriteIfaceFilemkIfaceExportsrecompileRequired checkOldIfacetyThingToIfaceDecl$fBinaryIfaceIdExtras$fBinaryIfaceDeclExtras$fOutputableIfaceDeclExtras$fEqRecompileRequired pprTyThingLoc pprTyThingHdrpprTyThingInContextpprTyThingInContextLoc pprTyThingpprTypeForUser newFamInstcheckFamInstConsistencycheckRecFamInstConsistencytcInstNewTyCon_maybetcLookupDataFamInsttcLookupDataFamInst_maybetcTopNormaliseNewTypeTF_maybetcExtendLocalFamInstEnvmakeInjectivityErrorsinjTyVarsOfTypeinjTyVarsOfTypestcGetFamInstEnvs$fOutputableModulePair$fOrdModulePair$fEqModulePair FunDepEqnFDEqnfd_qtvsfd_eqsfd_pred1fd_pred2fd_locimproveFromAnother pprEquationimproveFromInstEnvcheckInstCoverage checkFunDeps$fOutputableFunDepEqnnewMethodFromNamedeeplySkolemisetopInstantiatetopInstantiateInferreddeeplyInstantiateinstTyVarsWithinstCallinstCallConstraints instDFunTypeinstStupidTheta tcInstBinderstcInstBindersX tcInstBinderXnewOverloadedLit mkOverLit tcSyntaxNamegetOverlapFlag tcGetInsts newClsInsttcExtendLocalInstEnvOccCheckResultOC_OKOC_Bad OC_OccursmatchExpectedFunTysmatchActualFunTysmatchActualFunTysPartmatchExpectedListTymatchExpectedPArrTymatchExpectedTyConAppmatchExpectedAppTy tcSubTypeHR tcSubTypeET tcSubTypeO tcSubType_NC tcSubTypeDStcSubTypeDS_NC_O tcWrapResult tcWrapResultOwrapFunResCoercion tcInferNoInst tcInferInst promoteTcType tcSkolemise tcSkolemiseETcheckConstraintsbuildImplicationFor unifyThetauTypeswapOverTyVarscanSolveByUnificationmatchExpectedFunKindoccCheckForErrorsmetaTyVarUpdateOKoccCheckExpand$fMonadOccCheckResult$fApplicativeOccCheckResult$fFunctorOccCheckResultCustomTermPrinter TermFoldMfTermMfPrimM fSuspensionM fNewtypeWrapM fRefWrapMTermFoldfTermfPrim fSuspension fNewtypeWrapfRefWrapClosuretipeinfoPtrptrsnonPtrs ClosureType BlackholeAPPAP IndirectionMutVarMVarOtherTerm Suspension NewtypeWrapRefWraptydcvalsubTermsvaluectypebound_to wrapped_termisTerm isSuspensionisPrim isNewtypeWrapisFuntermTypeisFullyEvaluatedTermgetClosureDataisConstr isIndirectionisFullyEvaluatedfoldTerm foldTermM idTermFold mapTermType termTyCoVarspprTermcPprTerm cPprTermBase cvObtainTermcvReconstructTypeimproveRTTIType$fOutputableClosureType$fOutputableTerm$fShowClosureType$fEqClosureTypereportUnsolvedreportAllUnsolvedwarnAllUnsolvedwarnDefaultingsolverDepthErrorTcS$fMonoidReport$fSemigroupReport$fOutputableReport$fOutputableTypeErrorChoice$fOutputableHoleChoice$fOutputableReportErrCtxtMaybeNewFreshCachedTcSDictMap EqualCtList InertCansIC inert_eqs inert_funeqs inert_dictsinert_safehask inert_irreds inert_insols inert_countInertSetIS inert_cansinert_flat_cacheinert_solved_dictsWorkListWLwl_eqs wl_funeqswl_restwl_deriv wl_implicsappendWorkList workListSizeworkListWantedCountextendWorkListEqextendWorkListFunEqextendWorkListNonEqextendWorkListDerivedextendWorkListImplicextendWorkListCtextendWorkListCtsisEmptyWorkList emptyWorkList getWorkListselectNextWorkItem emptyInert isImprovable foldTyEqs findTyEqslookupInertTyVarlookupFlattenTyVar addInertEq addInertCankickOutAfterUnificationaddInertSafehaskinsertSafeOverlapFailureTcSgetSafeOverlapFailures addSolvedDict updInertTcS getInertCans setInertCans updInertCans updInertDictsupdInertSafehaskupdInertFunEqsupdInertIrreds getInertEqsgetInertInsolsgetInertGivensgetPendingScDictsgetUnsolvedInerts isInInertEqs getNoGivenEqsmatchableGivensprohibitedSuperClassSolveremoveInertCtslookupFlatCachelookupInertDictlookupSolvedDict foldIrreds emptyDictMapfindDictfindDictsByClassdelDictaddDictaddDictsByClass filterDicts foldDicts findFunEqfindFunEqsByTyCon insertFunEq wrapErrTcS wrapWarnTcSfailTcSwarnTcS addErrTcSpanicTcStraceTcSrunTcPluginTcSgetGlobalRdrEnvTcSbumpStepCountTcS csTraceTcS traceFireTcSrunTcSrunTcSDerivedsrunTcSEqualitiesrunTcSWithEvBinds setEvBindsTcS nestImplicTcSnestTcSbuildImplication getTcSInerts setTcSInertsupdWorkListTcS emitWorkNCemitWorkgetTcEvBindsVargetTcEvBindsAndTCVs unifyTyVar unflattenFmvreportUnificationsgetDefaultInfo getInstEnvsgetFamInstEnvscheckWellStagedDFunpprEqisTouchableMetaTyVarTcSisFilledMetaTyVar_maybenewFlattenSkolemextendFlatCache newFlexiTcSTydemoteUnfilledFmv instFlexi instFlexiXisFresh freshGoals getEvTerm setEvBind setWantedEq setEqIfWantedsetWantedEvTermsetWantedEvBindsetEvBindIfWanted newGivenEvVarnewBoundEvVarIdnewGivenEvVarsemitNewWantedEq newWantedEqnewWantedEvVarNCnewWantedEvVar newWantedNCemitNewDerivedemitNewDerivedsemitNewDerivedEq newDerivedNCcheckReductionDepthmatchFam matchFamTcM$fOutputableWorkList$fOutputableInertCans$fOutputableInertSet$fHasDynFlagsTcS$fMonadUniqueTcS$fMonadFailTcS $fMonadTcS$fApplicativeTcS $fFunctorTcS FlattenMode FM_FlattenAll FM_SubstOnlyflattenflattenManyNom unflatten$fOutputableFlattenMode$fApplicativeFlatM$fFunctorFlatM $fMonadFlatMStopOrContinue ContinueWith canonicalizemakeSuperClasses continueWithstopWith unifyDerivedmaybeSym$fOutputableStopOrContinue$fFunctorStopOrContinuesolveSimpleGivenssolveSimpleWantedssolveCallStack$fOutputableInteractResult$fOutputableLookupInstResult InferModeApplyMREagerDefaultingNoRestrictionscaptureTopConstraintssimplifyTopImplic simplifyTopsolveEqualitiessimplifyAmbiguityChecksimplifyInteractivesimplifyDefaulttcCheckSatisfiability simplifyInfergrowThetaTyVarssimplifyWantedsTcMsolveWantedsAndDrop solveWanteds approximateWC$fOutputableInferMode ClsInstInfoRank ContextKindTheKind AnythingKindOpenKindcheckValidTypecheckValidMonoType checkTySynRhsexpectedKindInCtxtcheckValidThetaarityErrvalidDerivPredcheckValidInstancecheckInstTerminationbadATErrcheckValidCoAxiomcheckValidCoAxBranchcheckValidTyFamEqncheckValidFamPatscheckValidTelescopecheckZonkValidTelescopecheckValidInferredKindsallDistinctTyVars DerivStuff DerivAuxBind DerivFamInst DerivHsBind BagDerivStuff gen_Eq_binds gen_Ord_bindsgen_Enum_bindsgen_Bounded_binds gen_Ix_bindsgen_Read_bindsgen_Show_bindsgen_Data_bindsgen_Lift_bindsgen_Newtype_bindsmkCoerceClassMethEqn genAuxBinds mkRdrFunBindordOpTbl boxConTbl litConTbl error_Expr$fEqAuxBindSpec FFoldTypeFTft_trivft_var ft_co_varft_funft_tup ft_ty_app ft_bad_app ft_forallgen_Functor_bindsfunctorLikeTraversedeepSubtypesContainingfoldDataConArgsgen_Foldable_bindsgen_Traversable_binds GenericKindGen0Gen1gen_Generic_bindsget_gen1_constrained_tys canDoGenericscanDoGenerics1 ThetaOriginto_tvs to_givensto_wanted_origins PredOrigin DerivStatus CanDeriveDerivableClassErrorDerivableViaInstanceNonDerivableClass DerivContextDerivSpecMechanismDerivSpecStockDerivSpecNewtypeDerivSpecAnyClass DerivSpecDSds_locds_nameds_tvsds_thetads_clsds_tysds_tc ds_overlap ds_mechanism pprDerivSpecisDerivSpecStockisDerivSpecNewtypeisDerivSpecAnyClass mkPredOrigin mkThetaOriginmkThetaOriginFromPredssubstPredOriginhasStockDerivingcheckSideConditionscanDeriveAnyClassstd_class_via_coerciblenon_coercible_classnewDerivClsInstextendLocalInstEnv$fOutputableDerivSpecMechanism$fOutputableDerivSpec$fOutputablePredOrigin$fOutputableThetaOrigininferConstraintssimplifyInstanceContextsendPass endPassIOdumpPassResultlintPassResultlintInteractiveExprlintCoreBindings lintUnfoldinglintExpr lintAnnots$fHasDynFlagsLintM$fMonadFailLintM$fEqStaticPtrCheck corePrepPgm corePrepExpr cvtLitIntegerlookupMkIntegerNamelookupIntegerSDataConName$fOutputableFloatingBind$fOutputableOkToSpecmkBootModDetailsTcglobaliseAndTidyId tidyProgram $fMonadDFFV$fApplicativeDFFV $fFunctorDFFVcallArityAnalProgram callArityRHSBCInstrSTKCHECKPUSH_LPUSH_LLPUSH_LLLPUSH_G PUSH_PRIMOPPUSH_BCO PUSH_ALTSPUSH_ALTS_UNLIFTEDPUSH_UBX PUSH_APPLY_N PUSH_APPLY_V PUSH_APPLY_F PUSH_APPLY_D PUSH_APPLY_L PUSH_APPLY_P PUSH_APPLY_PPPUSH_APPLY_PPPPUSH_APPLY_PPPPPUSH_APPLY_PPPPPPUSH_APPLY_PPPPPPSLIDEALLOC_APALLOC_AP_NOUPD ALLOC_PAPMKAPMKPAPUNPACKPACKLABELTESTLT_ITESTEQ_ITESTLT_WTESTEQ_WTESTLT_FTESTEQ_FTESTLT_DTESTEQ_DTESTLT_PTESTEQ_PCASEFAILJMPCCALLSWIZZLEENTERRETURN RETURN_UBXBRK_FUNProtoBCO protoBCONameprotoBCOInstrsprotoBCOBitmapprotoBCOBitmapSize protoBCOArity protoBCOExpr protoBCOFFIs bciStackUse$fOutputableBCInstr$fOutputableProtoBCO bcoFreeNames assembleBCOsassembleOneBCOiNTERP_STACK_CHECK_THRESH$fMonadAssembler$fApplicativeAssembler$fFunctorAssemblerextendLoadedPkgs extendLinkEnvdeleteFromLinkEnv getHValuewithExtendedLinkEnvshowLinkerState initDynLinkerlinkCmdLineLibslinkExpr linkDecls linkModuleunload linkPackages byteCodeGencoreExprToBCOs$fOutputableDiscr$fHasDynFlagsBcM $fMonadBcM$fApplicativeBcM $fFunctorBcM $fEqDiscr $fOrdDiscr TcMethInfomkDataTyConRhs mkNewTyConRhs buildDataConmkDataConUnivTyVarBinders buildPatSyn buildClassnewImplicitBindernewTyConRepNametypecheckIfacetypecheckIfacesForMergingtypecheckIfaceForInstantiate tcHiBootIface tcIfaceExpr tcIfaceGlobal funsSigCtxt addSigCtxt pprSigCtxt tcHsSigWcType kcHsSigTypetcClassSigType tcHsSigType tcHsDerivtcHsClsInstType tcHsVectInst tcHsTypeApp tcHsOpenTypetcHsLiftedTypetcHsOpenTypeNCtcHsLiftedTypeNCtcCheckLHsType tcLHsType tcInferArgs tcInferApps tcHsContext tcLHsPredTypetcWildCardBinderskcHsTyVarBndrstcImplicitTKBndrstcImplicitTKBndrsTypetcExplicitTKBndrskindGeneralizekcLookupTcTyCon kcTyClTyVars tcTyClTyVars tcDataKindSigtcHsPartialSigTypetcHsPatSigTypetcPatSig tcLHsKindSig funAppCtxt$fOutputableTcTyMode TcPragEnv tcIdSigName tcSigInfoNamecompleteSigPolyId_maybetcTySigs tcUserTypeSigcompleteSigFromId tcInstSig emptyPragEnv lookupPragEnv extendPragEnv mkPragEnvaddInlinePrags tcSpecPrags tcSpecWrapper tcImpPrags LetBndrSpec LetLclBndr LetGblBndrtcLetPattcPatstcPattcPat_O newLetBndraddDataConStupidTheta badFieldCon polyPatSig$fOutputableLetBndrSpec tcDefaultsaddTypecheckedBinds tcTopBinds tcRecSelBinds tcHsBootSigsbadBootDeclErr tcLocalBinds tcPolyCheckchooseInferredQuantifiers tcVectDecls$fOutputableGeneralisationPlanmkTypeableBinds$fFunctorKindRepM$fApplicativeKindRepM$fMonadKindRepM RolesInfocheckSynCyclescheckClassCycles inferRolestcAddImplicitsmkDefaultMethodType mkRecSelBindsmkOneRecordSelector$fMonadSynCycleM$fApplicativeSynCycleM$fFunctorSynCycleM $fMonadRoleM$fApplicativeRoleM$fFunctorRoleMtcPatSynBuilderOcc TcStmtCheckerTcCmdStmtCheckerTcExprStmtChecker TcMatchCtxtMCmc_whatmc_body tcMatchesCase tcMatchLambdatcGRHS tcDoStmtstcBodytcStmtstcStmtsAndThen tcGuardStmttcDoStmttcProcfindExtraSigImports'findExtraSigImportsimplicitRequirementsimplicitRequirements' checkUnitIdtcRnCheckUnitIdtcRnMergeSignaturesmergeSignaturestcRnInstantiateSignatureinstantiateSignature DsWarning CanItFailCanFailCantFail MatchResult DsWrapper EquationInfoEqnInfoeqn_patseqn_rhsDsMatchContext idDsWrapperorFailfixDsinitDsTcinitDsinitDsWithModGutsinitTcDsForSolver newUniqueIdduplicateLocalDs newPredVarDsnewSysLocalDsNoLP newSysLocalDsnewFailLocalDsnewSysLocalsDsNoLPnewSysLocalsDs getGhcModeDs getDictsDs addDictsDs getTmCsDs addTmCsDsincrCheckPmIterDs resetPmIterDs getSrcSpanDs putSrcSpanDswarnDs warnIfSetDserrDs errDsCoreExpr failWithDsfailDs askNoErrsDsmkPrintUnqualifiedDsdsLookupGlobaldsLookupGlobalId dsLookupTyCondsLookupDataCondsLookupConLikedsGetFamInstEnvs dsGetMetaEnvdsGetCompleteMatchesdsLookupMetaEnvdsExtendMetaEnvdiscardWarningsDs dsNoLevPolydsNoLevPolyExpr dsWhenNoErrsdsInitPArrBuiltin dsDPHBuiltindsLookupDPHRdrEnvdsLookupDPHRdrEnv_maybe$fOutputableDsMatchContext$fOutputableEquationInfo tcInferRhoNCgetFixedTyVarsaddExprErrCtxttcRulesisForeignImportisForeignExportnormaliseFfiTypetcForeignImportstcForeignImports' tcFImport tcCheckFIType checkCTargettcForeignExportstcForeignExports' tcFExport tcCheckFETypecheckForeignArgscheckForeignResnonIOokmustBeIO checkSafe noCheckSafematchSinglePat matchSimply matchWrappermatch dsLocalBinds dsSyntaxExprdsLExpr dsLExprNoLPdsExpr MkCaseAltalt_pat alt_bndrs alt_wrapper alt_resultselectSimpleMatchVarLselectMatchVarsselectMatchVarfirstPat shiftEqns matchCanFailalwaysFailMatchResultcantFailMatchResultextractMatchResultcombineMatchResultsadjustMatchResultadjustMatchResultDs wrapBindswrapBindseqVarmkCoLetMatchResultmkViewMatchResultmkEvalMatchResultmkGuardedMatchResultmkCoPrimCaseMatchResultmkCoAlgCaseMatchResultmkCoSynCaseMatchResult mkErrorAppDs mkCoreAppDs mkCoreAppsDsmkCastDsmkSelectorBinds mkLHsPatTupmkLHsVarPatTupmkVanillaTuplePatmkBigLHsVarTupId mkBigLHsTupIdmkBigLHsVarPatTupIdmkBigLHsPatTupId mkOptTickBoxmkBinaryTickBoxdecideBangHoodaddBangdsLit dsOverLit dsOverLit'warnAboutIdentitieswarnAboutOverflowedLiteralswarnAboutEmptyEnumerations tidyLitPattidyNPat matchLiteralshsLitKey matchNPatsmatchNPlusKPats dsBracket dsGuardeddsGRHSsdsGRHS isTrueLHsExprdsCCallmkFCallunboxArg boxResult resultWrapper dsForeigns dsTopLHsBinds dsLHsBindsdsSpec dsMkUserRuledecomposeRuleLhs dsHsWrapper dsTcEvBinds_s dsTcEvBinds dsEvBindsmatchConFamily matchPatSyn checkSingle checkMatches genCaseTmCs2 genCaseTmCs1isAnyPmCheckEnabled$fOutputableValVec$fMonoidCovered$fOutputableCovered$fMonoidDiverged$fOutputableDiverged$fMonoidProvenance$fOutputableProvenance$fMonoidPartialResult$fOutputablePartialResult $fShowCovered$fShowDiverged$fShowProvenance$fEqProvenance$fOrdProvenancematchEquations dsListComp dsPArrComp dsMonadComp dsProcExpr dsValBindsHsSigFun tcClassSigs tcClassDecl2tcClassMinimalDefinstantiateMethod mkHsSigFunfindMethodBind tcMkDeclCtxt tcAddDeclCtxt badMethodErr tcATDefault DerivInfo di_rep_tc di_clausesdi_ctxt mkDerivInfos tcDeriving$fOutputableEarlyDerivSpec tcInstDecls1tcTyAndClassDeclstcTyFamInstEqn kcDataDefn famTyConShape tcFamTyPatsdataDeclChecks tcConDeclscheckValidTyContcAddTyFamInstCtxttcMkDataFamInstCtxttcAddDataFamInstCtxt dataConCtxtwrongKindOfFamilytcInstDeclsDeriv tcInstDecls2 TcRnExprModeTM_Inst TM_NoInst TM_Default tcRnModuletcRnModuleTcRnMcheckHiBootIface' checkBootDecl rnTopSrcDecls tcTopSrcDeclsrunTcInteractivetcRnStmt isGHCiMonadtcRnExprtcRnImportDeclstcRnType tcRnDeclsigetModuleInterfacetcRnLookupRdrNametcRnLookupName tcRnGetInfoloadUnqualIfacesdeSugar deSugarExprBuiltins parrayTyCon pdataTyCon pdatasTyConprClassprTyCon preprTyConpaClasspaTyCon paDataConpaPRSelreplicatePDVarreplicatePD_PrimVars emptyPDVaremptyPD_PrimVarspackByTagPDVarpackByTagPD_PrimVars combinePDVarscombinePD_PrimVarss scalarClass scalarZips voidTyConvoidVar fromVoidVar sumTyCons wrapTyConpvoidVar pvoidsVar closureTyCon closureVarliftedClosureVarapplyVarliftedApplyVarclosureCtrFunsselTysselsTys selsLengths selReplicatesselTagss selElementssliftingContext mAX_DPH_PROD mAX_DPH_SUMmAX_DPH_COMBINEmAX_DPH_SCALAR_ARGSaLL_DPH_PRIM_TYCONSselTyselsTy selsLength selReplicateselTags selElements prodTyCon prodDataConreplicatePD_PrimVaremptyPD_PrimVarpackByTagPD_PrimVar combinePDVarcombinePD_PrimVar scalarZip closureCtrFun initBuiltinsinitBuiltinVarsglobal_vect_avoid global_varsglobal_parallel_varsglobal_vect_decls global_tyconsglobal_parallel_tyconsglobal_dataconsglobal_pa_funsglobal_pr_funsglobal_inst_envglobal_fam_inst_envglobal_bindingsLocalEnv local_vars local_tyvarslocal_tyvar_palocal_bind_nameScopeLocal emptyLocalEnv initGlobalEnvextendImportedVarsEnv extendFamEnv setPAFunsEnv setPRFunsEnv modVectInfoVMrunVMVResultYesNoliftDs cantVectorisemaybeCantVectorisemaybeCantVectoriseMemitVttraceVt dumpOptVtdumpVtnoVtraceNoVensureV traceEnsureVonlyIfVtryErrVtryVmaybeV traceMaybeV orElseErrVorElseVfixV$fHasDynFlagsVM $fMonadIOVM $fFunctorVM$fApplicativeVM $fMonadVMreadGEnvsetGEnvupdGEnvisVectAvoidanceAggressive defGlobalVarundefGlobalVarlookupVectDeclglobalParallelVarsglobalParallelTyCons defTyConNamedefTyConglobalVectTyCons defDataCon lookupTyConPA defTyConPAs lookupTyConPR existsInst lookupInst lookupFamInstreadLEnvsetLEnvupdLEnvlocalVclosedV getBindNameinBind lookupTyVarPA defLocalTyVardefLocalTyVarWithPA localTyVarsmkLocalisedName mkDerivedNamemkVectIdcloneVarnewExportedVar newLocalVar newLocalVars newDummyVarnewTyVarnewCoVarinitV liftBuiltinDsbuiltinbuiltins lookupVarlookupVar_maybeaddGlobalParallelVaraddGlobalParallelTyConclassifyTyConsVBindVExprVVar vectorisedliftedmapVectvVarTypevVarvTypevTickvNonRecvRecvLetvLamsvVarApps vCaseDEFAULTvoidType newLocalVVar mkDataConTag mkWrapTypemkClosureTypes mkPReprType mkPDataType mkPDatasTypesplitPrimTyCon mkBuiltinCowrapNewTypeBodyOfWrapunwrapNewTypeBodyOfWrapwrapNewTypeBodyOfPDataWrapunwrapNewTypeBodyOfPDataWrapwrapNewTypeBodyOfPDatasWrapunwrapNewTypeBodyOfPDatasWrappdataReprTyConpdataReprTyConExactpdatasReprTyConExactpdataUnwrapScrut preprFamInst paDictArgType paDictOfTypepaMethodprDictOfPReprInstTyConprDictOfReprType polyAbstract polyArity polyApply polyVApply DontInlineaddInlineArityinlineMe hoistBinding hoistExpr hoistVExprhoistPolyVExpr takeHoisted mkClosure mkClosureApp buildClosurescollectAnnTypeArgscollectAnnDictArgscollectAnnTypeBinderscollectAnnValBinders isAnnTypeArgemptyPD replicatePD packByTagPD combinePDliftPDisScalar zipScalars scalarClosure vectTyConvectAndLiftTypevectTypevectBndr vectBndrNew vectBndrIn vectBndrNewIn vectBndrsInvectVar vectConstvectTyConDeclsfromVectCompReprKeepWrapProdRepr EmptyProd UnaryProdProd repr_tup_tc repr_ptup_tc repr_ptups_tc repr_comp_tys repr_compsConReprrepr_dc repr_prodSumReprEmptySumUnarySum repr_sum_tc repr_psum_tc repr_psums_tc repr_sel_ty repr_sels_tyrepr_selsLength_v repr_con_tys repr_cons tyConRepr sumReprType compOrigType$fOutputableCompRepr$fOutputableProdRepr$fOutputableConRepr$fOutputableSumReprbuildPDataTyConbuildPDatasTyConbuildPReprTyConbuildPAScAndMethods buildPADict vectTypeEnv vectTopExpr vectTopExprs vectScalarFunvectScalarDFun$fEqVectAvoidInfo$fShowVectAvoidInfo vectorise mkWwBodiesisWorkerSmallEnough mkWorkerArgsmkWWstrdeepSplitProductType_maybe findTypeShape wwTopBindsspecConstrProgram$fOutputableValue$fOutputableHowBound$fOutputableCall$fOutputableArgOcc$fOutputableScUsagedmdAnalProgram$fOutputableAnalEnv core2core simplifyExprCARRYOFLOPARITY NOTPARITY maybeFlipCondEAIndex EAIndexNoneEABase EABaseNone EABaseReg EABaseRip AddrBaseIndexImmAddr addrModeRegs firstfakeeaxebxecxedxesiediebpespfake0fake1fake2fake3fake4fake5raxrbxrcxrdxrsirdirbprspr8r9r10r13r14r15xmm0xmm1xmm2xmm3xmm4xmm5xmm6xmm7xmm8xmm9xmm10xmm11xmm12xmm13xmm14xmm15ripRelxmm allIntArgRegsinstrClobberedRegstargetVirtualRegSqueezetargetRealRegSqueezetargetClassOfRealRegtargetMkVirtualRegtargetRegDotColortargetClassOfRegJumpDestOperandOpRegOpImmOpAddrPrefetchVariantNTALvl0Lvl1Lvl2COMMENTLOCATIONLDATANEWBLOCKUNWINDDELTAMOVCMOVMOVZxLMOVSxLLEAADDADCSUBSBBMULMUL2IMULIMUL2DIVIDIVADD_CCSUB_CCANDORXORNOTNEGIBSWAPSHLSARSHRBTNOPGMOVGLDGSTGLDZGLD1GFTOIGDTOIGITOFGITODGDTOFGADDGDIVGSUBGMULGCMPGABSGNEGGSQRTGSINGCOSGTANGFREECVTSS2SDCVTSD2SS CVTTSS2SIQ CVTTSD2SIQCVTSI2SSCVTSI2SDFDIVSQRTTESTCMPSETCCPUSHPOPJXXJXX_GBLJMP_TBLCALLCLTDFETCHGOTFETCHPCPOPCNTBSFBSRPREFETCHLOCKXADDCMPXCHGMFENCEarchWordFormati386_insert_ffreesallocMoreStackgetJumpDestBlockId canShortcut shortcutJumpshortcutStatics$fInstructionInstr pprNatCmmDeclpprData pprFormatpprImm pprDataItempprInstr$fOutputableInstrLDSTUMULSMULUDIVSDIVRDYWRYANDNORNXNORSLLSRLSRASETHIFABSFADDFCMPFMOVFMULFNEGFSQRTFSUBFxTOyBIBFRIRIRegRIImmriZerofpRelEAmoveSpisUnconditionalJump DestBlockIdDestImm shortBlockId pprBasicBlock checkBlock expandTopRegisterFixedAnyAmode ChildCode64CondCode InstrBlocksetFormatOfRegistergetRegisterRegmangleIndexTreeRegAllocStatsStartRegAllocStatsSpillRegAllocStatsColored raLiveCmmraGraph raSpillCostsraCode raCoalesced raSpillStats raSpilledraGraphColoredraCodeCoalesced raPatched raSpillCleanraFinalraSRMspprStatsSpillspprStatsLifetimespprStatsConflictpprStatsLifeConflict countSRMsaddSRM$fOutputableRegAllocStatsregAllocLDFARLASTFARSTULISLIMRCMPLBCCBCCFARMTCTRBCTRBLBCTRLADDOADDCADDEADDZEADDISSUBFSUBFOSUBFCSUBFEMULLMULLOMFOVMULHUANDCORISXORISEXTSCNTLZSLSRRLWINMCLRLICLRRIFCTIWZFCTIDZFCFIDFRSPCRNORMFCRMFLRLWSYNC UPDATE_SPstackFrameHeaderSizemakeFarBranchesNatM DwarfFiles NatM_Statenatm_us natm_delta natm_importsnatm_pic natm_dflagsnatm_this_module natm_modloc natm_fileidnatm_debug_map mkNatM_StateinitNat mapAccumLNat getUniqueNat getDeltaNat setDeltaNatgetThisModuleNat addImportNat getBlockIdNatgetNewLabelNat getNewRegNatgetNewRegPairNatgetPicBaseMaybeNat getPicBaseNat getModLoc getFileId getDebugBlock$fHasDynFlagsNatM$fMonadUniqueNatM $fMonadNatM$fApplicativeNatM $fFunctorNatM getRegister getSomeReg getCondCode condIntCode condFltCodegetAmodeassignMem_I64CodeassignReg_I64Code iselExpr64CmmMakeDynamicReferenceM addImport getThisModule ReferenceKind DataReference CallReference JumpReferencecmmMakeDynamicReferenceneedImportedSymbolspprGotDeclarationpprImportedSymbolinitializePicBase_ppcinitializePicBase_x86$fCmmMakeDynamicReferenceMNatM$fEqReferenceKind cmmTopCodeGengenerateJumpTableForInstrextractUnwindPointsFR frAllocateReg frGetFreeRegsfrInitFreeRegs frReleaseReg $fFRFreeRegs $fFRFreeRegs0 $fFRFreeRegs1 $fFRFreeRegs2 joinToTargetsdW_LANG_HaskelldW_TAG_array_typedW_TAG_lexical_blockdW_TAG_pointer_typedW_TAG_compile_unitdW_TAG_structure_typedW_TAG_typedefdW_TAG_subroutine_typedW_TAG_subrange_typedW_TAG_base_typedW_TAG_file_typedW_TAG_subprogramdW_TAG_variabledW_TAG_auto_variabledW_TAG_arg_variabledW_TAG_ghc_src_note dW_AT_namedW_AT_stmt_list dW_AT_low_pc dW_AT_high_pcdW_AT_languagedW_AT_comp_dirdW_AT_producerdW_AT_externaldW_AT_frame_basedW_AT_use_UTF8dW_AT_MIPS_linkage_namedW_AT_ghc_tick_parentdW_AT_ghc_span_filedW_AT_ghc_span_start_linedW_AT_ghc_span_start_coldW_AT_ghc_span_end_linedW_AT_ghc_span_end_coldW_CHILDREN_nodW_CHILDREN_yes dW_FORM_addr dW_FORM_data2 dW_FORM_data4dW_FORM_string dW_FORM_flagdW_FORM_block1dW_FORM_ref_addr dW_FORM_ref4dW_FORM_flag_presentdW_ATE_addressdW_ATE_boolean dW_ATE_float dW_ATE_signeddW_ATE_signed_chardW_ATE_unsigneddW_ATE_unsigned_chardW_CFA_set_locdW_CFA_undefineddW_CFA_same_valuedW_CFA_def_cfadW_CFA_def_cfa_offsetdW_CFA_def_cfa_expressiondW_CFA_expressiondW_CFA_offset_extended_sfdW_CFA_def_cfa_sfdW_CFA_def_cfa_offset_sfdW_CFA_val_offsetdW_CFA_val_expression dW_CFA_offset dW_OP_addr dW_OP_deref dW_OP_consts dW_OP_minus dW_OP_mul dW_OP_plus dW_OP_lit0 dW_OP_breg0dW_OP_call_frame_cfadwarfInfoSectiondwarfAbbrevSectiondwarfLineSectiondwarfFrameSectiondwarfGhcSectiondwarfARangesSection dwarfSectiondwarfInfoLabeldwarfAbbrevLabeldwarfLineLabeldwarfFrameLabel dwarfRegNodwarfReturnRegNoDwarfFrameBlockdwFdeBlkHasInfo dwFdeUnwindDwarfFrameProc dwFdeProc dwFdeHasInfo dwFdeBlocks DwarfFrame dwCieLabel dwCieInit dwCieProcs DwarfARangedwArngStartLabeldwArngEndLabel DwarfInfoDwarfCompileUnitDwarfSubprogram DwarfBlock DwarfSrcNote dwChildrendwName dwProducer dwCompDir dwLowLabel dwHighLabel dwLineLabeldwLabeldwParentdwMarker dwSrcSpanpprAbbrevDecls pprDwarfInfopprDwarfARanges pprDwarfFrame wordAlignpprBytepprHalf pprData4' pprDwWordpprWord pprLEBWord pprLEBInt sectionOffset$fOutputableDwarfFrameBlock$fEqDwarfAbbrev$fEnumDwarfAbbrevdwarfGenNcgImplncg_x86fp_kludge ncgExpandTopncgAllocMoreStackncgMakeFarBranches nativeCodeGen x86NcgImpl cmmNativeGen$fHasDynFlagsCmmOptM!$fCmmMakeDynamicReferenceMCmmOptM$fMonadCmmOptM$fApplicativeCmmOptM$fFunctorCmmOptM codeOutputoutputForeignStubsMessager newHscEnv ioMsgMaybehscTcRnLookupRdrNamehscTcRcLookupNamehscTcRnGetInfohscIsGHCiMonadhscGetModuleInterfacehscRnImportDeclshscParse hscParse'hscTypecheckRename tcRnModule' hscDesugar hscDesugar'makeSimpleDetailsgenericHscFrontendhscIncrementalCompile oneShotMsgbatchMsghscFileFrontEnd hscCheckSafe hscGetSafe hscSimplify hscSimplify'hscSimpleIface'hscNormalIface'hscGenHardCodehscInteractivehscCompileCmmFilehscStmthscStmtWithLocation hscParsedStmthscDeclshscDeclsWithLocationhscAddSptEntries hscImport hscTcExpr hscKcType hscParseExprhscParseIdentifierhscCompileCoreExprhscCompileCoreExpr'dumpIfaceStatsshowModuleIndexdefaultRunMetarunMeta' $fQuasiIOEnvgetResumeContextgetHistoryModulegetHistorySpan getModBreaks execOptionsexecStmtrunDeclsrunDeclsWithLocationparseImportDecl resumeExecbackforwardabandon abandonAllavailsToGlobalRdrEnv getContextmoduleIsInterpretedgetInfogetNamesInScopegetRdrNamesInScope parseNameisStmt hasImportisImportisDecl parseExpr compileExprcompileExprRemotecompileParsedExprRemotecompileParsedExprdynCompileExpr showModulemoduleIsBootOrNotObjectLinkableobtainTermFromValobtainTermFromIdreconstructType preprocess compileOne compileOne'link linkingNeeded checkLinkInfooneShot compileFilephaseOutputFilenamegetOutputFilenamerunPhase getLocationmkExtraObjToLinkIntoBinarymkNoteObjsToLinkIntoBinary linkBinary exeFileNamemaybeCreateManifestwriteInterfaceOnlyModehscPostBackendPhase SummaryNodeIsBootNotBoot LoadHowMuchLoadAllTargetsLoadUpToLoadDependenciesOfdepanalload'hscSourceToIsBootmoduleGraphNodesms_home_srcimps ms_home_impssummariseModule noModErrorcyclicModuleErr $fOrdIsBoot $fEqIsBoot $fShowIsBoot $fReadIsBoot ModuleInfo CoreModule cm_modulecm_typescm_bindscm_safeTypecheckedSource RenamedSource ParsedSourceDesugaredModuledm_typechecked_moduledm_core_moduleTypecheckedModuletm_parsed_moduletm_renamed_sourcetm_typechecked_sourcetm_checked_module_info tm_internals_pm_mod_summarypm_parsed_sourcepm_extra_src_filespm_annotations coreModuleTypecheckedMod renamedSourcetypecheckedSource moduleInfo ParsedMod parsedSourcedefaultErrorHandlerdefaultCleanupHandlerrunGhcTwithCleanupSessionsetSessionDynFlagssetProgramDynFlags setLogActiongetProgramDynFlagssetInteractiveDynFlagsgetInteractiveDynFlagsparseDynamicFlags setTargets getTargets addTarget removeTarget guessTargetworkingDirectoryChanged getModSummarytypecheckModule desugarModule loadModulecompileToCoreModulecompileToCoreSimplifiedgetModuleGraphisLoaded getBindingsgetInstsgetPrintUnqual getModuleInfomodInfoTyThingsmodInfoTopLevelScopemodInfoExportsmodInfoExportsWithSelectorsmodInfoInstancesmodInfoIsExportedNamemkPrintUnqualifiedForModulemodInfoLookupName modInfoIface modInfoSafemodInfoModBreaks isDictonaryIdlookupGlobalNamefindGlobalAnnsgetGREgetNameToInstancesIndex dataConTypepprParenSymNamegetTokenStreamgetRichTokenStreamaddSourceToTokensshowRichTokenStream findModule lookupModuleisModuleTrustedmoduleTrustReqs setGHCiMonadparser$fParsedModParsedModule$fOutputableCoreModule$fParsedModTypecheckedModule$fParsedModDesugaredModule$fTypecheckedModDesugaredModule!$fTypecheckedModTypecheckedModule$fDesugaredModDesugaredModule doMkDependHSpprintClosureCommandshowTermpprTypeAndContents doBackpack$fGhcMonadIOEnv$fEqSessionTypeword64Base62Lenghc-prim GHC.TypesIOGHC.IOmaskcatchmask_bracketfinallyhandleassertControl.ExceptionallowInterruptcatchesHandlerbracketOnErrorbracket_ onExceptiontryJust mapException handleJust catchJustPatternMatchFail RecSelError RecConError RecUpdError NoMethodError TypeErrorNonTerminationNestedAtomicallyGHC.IO.ExceptionioErrorasyncExceptionFromExceptionasyncExceptionToExceptionBlockedIndefinitelyOnMVarBlockedIndefinitelyOnSTMDeadlockAllocationLimitExceededCompactionFailedAssertionFailedSomeAsyncExceptionAsyncException StackOverflow HeapOverflow ThreadKilled UserInterruptArrayExceptionIndexOutOfBoundsUndefinedElementevaluateuninterruptibleMaskuninterruptibleMask_getMaskingState interruptiblethrowIO MaskingStateUnmaskedMaskedInterruptibleMaskedUninterruptible IOExceptionthrow ErrorCallErrorCallWithLocationArithExceptionOverflow UnderflowLossOfPrecision DivideByZeroDenormalRatioZeroDenominator SomeException short_usagesignalHandlersRefCountis_ctypecharType Data.EitherEitherzipzipWithzipWith3TrueFalse$restrictedDamerauLevenshteinDistance hashInt32MaybeNothingJust Data.MaybemapMaybe catMaybes listToMaybe maybeToList fromMaybefromJust isNothingisJustmaybe Data.FoldableanyallGHC.ForeignPtr ForeignPtrString mkZFastStringGHC.IO.Handle.TypesHandleFastStringTableokIdOccokIdChar reservedIds reservedOpsisDashesRDoc++spaces reduceDocfirst txtPrinterEmptyNilAbove TextBesideUnionNoDocBesideAbovesdocLastColourPprCode SDocContextSDC sdocStyle sdocDynFlagsColoured UncolouredPprUserPprDumpPprDebugskipBOMNoneOneManyConsSnocTwoisOneLineRealSpanisPointRealSpancombineRealSrcSpans RealSrcSpan' srcSpanSLine srcSpanSCol srcSpanELine srcSpanECol GHC.ClassesEqGHC.ShowShowFunctor plusWithInf mulWithInfIntInfinity uniqueMaskMkUniqueUSMunUSMMkSplitUniqSupplyUFM getUniqSet' TaggedValUDFM powersetL powersetLS dotNodeEdges checkNode colorScan assignColors selectColorbytestring-0.10.8.2Data.ByteString.Internal ByteStringBinPtrBinMembh_usr_off_r_sz_r_arr_r holeUnitId rawHashUnitIdNDModule unNDModuleClause clauseAtoms clauseExprsEdge gr_int_graphgr_vertex_to_nodegr_node_to_vertexEmptyBagUnitBagTwoBagsListBagparseIntdropEqunEwMversionedFilePathwopt_set_fatalwopt_unset_fatalGHC.LanguageExtensions.Type Extension setLanguagesetSafeHaskellcombineSafeFlags LogOutput safeFlagCheck allFlagsDepsunrecognisedWarningflagSpec flagSpec' depFlagSpecOp depFlagSpecdepFlagSpecOp' depFlagSpec'depFlagSpecCond flagGhciSpec flagGhciSpec'flagHiddenSpecflagHiddenSpec'hideFlag flagSpecOfnegatableFlagsDeps dFlagsDepslanguageFlagsDepssafeHaskellFlagsDepssmallestGroupsstandardWarnings minusWOpts minusWallOptsminusWeverythingOptsminusWcompatOptsdefaultGlobalDynFlagsmkFlag SseVersionSSE1SSE2SSE3SSE4SSE42 Deprecation NotDeprecated DeprecatedOnOffOnOff getLogActiongetLogFinaliserminClosureSizemk_derivmk_simple_deriv_withAVarNameDataNameTvName TcClsNamen_sortn_occn_uniqn_locNameSortWiredInSystemData.Typeable.InternalTypeableMkAnnEnverrMsgShortStringchooseDumpFilebeautifyDumpNameerrMsgSeverity errMsgReasonPackagePrecedenceIndexRevIndexUnusablePackageReasonIgnoredWithFlagBrokenDependenciesCyclicDependenciesIgnoredDependenciesShadowedDependenciespkgIdMappackageNameMap unwireMapmoduleToPkgConfAllpluginModuleToPkgConfAllModuleToPkgConfAllUnitVisibility uv_renamingsuv_package_nameuv_requirements uv_explicit VisibilityMappreloadClosureInstalledUnitIdMapfromExposedModulesfromReexportedModulesfromFlag originVisible originEmptyemptyPackageConfigMapextendPackageConfigMap isIndefinite findPackagesselectPackages renamePackagesortByPreferencecompareByPreferenceGT reverseDepsremovePackagesdepsNotAvailableInstalledPackageIndexdepsAbiMismatchmergeDatabasesvalidateDatabasemkModuleToPkgConfAlllibraryDirsForWayunPackageConfigMap uv_expose_allrewrites rewriteLinerewriteSymType rewriteAVX replaceOnce splitLine entryNameentryBS SectionTablesectionTableOffsetsectionEntrySizesectionEntryCountsectionNameIndex ElfHeadergw16gw32gwNwordSize readElfHeaderreadElfSectionTablereadElfSectionByIndexfindSectionFromName readElfNoteBS runGetOrThrowCmmCatGcPtrCatBitsCatFloatCatVecCatFlatSwitchPlanmaxJumpTableHoleminJumpTableSizeminJumpTableOffsetlookupGRE_Name_OccNameLRElre_env lre_in_scope.GHC.Num-$GenSemicwarnoptallocateCommentsAlexAcc AlexAccNone AlexAccSkip AlexAccPredAlexAccSkipPred AlexLastAccAlexNone AlexLastSkip AlexReturnAlexEOF AlexErrorAlexSkip AlexTokenAlexAddrAlexA#ExtBitsFfiBitInterruptibleFfiBit CApiFfiBitParrBit ArrowsBitThBit ThQuotesBitIpBitOverloadedLabelsBitExplicitForallBit BangPatBitPatternSynonymsBit HaddockBit MagicHashBitRecursiveDoBitUnicodeSyntaxBitUnboxedTuplesBitUnboxedSumsBitDatatypeContextsBitTransformComprehensionsBitQqBit InRulePragBitRawTokenStreamBitSccProfilingOnBitHpcBitAlternativeLayoutRuleBitRelaxedLayoutBitNondecreasingIndentationBitSafeHaskellBitTraditionalRecordSyntaxBitExplicitNamespacesBit LambdaCaseBitBinaryLiteralsBitNegativeLiteralsBitTypeApplicationsBitStaticPointersBit AlexInputAI ALRLayout ALRLayoutLetALRLayoutWhere ALRLayoutOf ALRLayoutDo ALRContext ALRNoLayout LayoutContextNoLayoutLayout NotExportedExportedIdScope realUnique ExportFlagGlobalIdLocalId tc_tv_detailsidScope id_detailsid_infoNoCCS CurrentCCS DontCareCCS SingletonCCS MkBranches unMkBranches ClassBody AbstractClass ConcreteClassclassSCThetaStuff classSCSels classATStuff classOpStuffclassMinimalDefStuff classFunDeps classBodyFunTyConAlgTyCon FamilyTyCon SynonymTyCon PrimTyConPromotedDataContcRolesalgTcGadtSyntaxalgTcStupidThetaalgTcRhs algTcParentsynTcRhs famTcFlav famTcParentfamTcInj isUnlifteddataCon promDcRepInfo tyConUnsatokParenttyConFieldLabelEnvfieldsOfAlgTcRhs kindTyConKeys mkPrimTyCon' tcRepNamesynIsTau synIsFamFree primRepNameRCdefaultRuntimeRepVars ppr_itv_bndrs ppr_equalityif_print_coercionsIRV2ifenvLifenvR ifenv_nextRV2envLenvRin_scopeInScopeAnonUnivCochUniqueUnsafeCoerceProv PhantomProvProofIrrelProv PluginProvHoleProvTyVarTyAppTyTyConAppFunTyForAllTyLitTyCastTy CoercionTy delBinderVartyCoVarsOfTypesSetcloseOverKindsFVnoFreeVarsOfConoFreeVarsOfProvmkTyCoInScopeSet zipCvSubstsubstTysWithCoVarsisValidTCvSubstcheckValidSubstsubstForAllCoBndrUncheckedsubstForAllCoBndrsubstTyVarBndrUncheckedsubstTyVarBndrCallbackTyLitNumTyLitStrTyLitRefl TyConAppCoAppCoForAllCoFunCoCoVarCo AxiomInstCoSymCoTransCo AxiomRuleCoNthCoLRCoInstCo CoherenceCoKindCoSubCo chCoercion KindCoerciontyCoVarsOfCoListtyCoVarsOfProv coVarsOfCos setCvSubstEnvextendCvSubstWithClonesubstForAllCoBndrCallbackpprTyLit pprDataCons pprTcAppCoprovSize TypeOrderingTLTTEQTEQXTGTpiResultTy_maybeGHC.Err undefined*MkPatSynpsNamepsUniquepsArgspsAritypsInfix psFieldLabels psUnivTyVars psReqTheta psExTyVars psProvTheta psOrigResTy psMatcher psBuilder integer-gmpGHC.Integer.TypeIntegerCharWordmkRuntimeRepCodowngradeRole_maybe instCoercionextendLiftingContextEx ty_co_substtc_match_tys_x tc_unify_tys don'tBeSoSure ty_co_matchMatchEnvMEme_tmplsme_envUMunUMUMState um_tv_env um_cv_envUMEnv um_bind_funum_unif um_inj_tf um_rn_envdcTagMkDatadcNamedcUnique dcVanilla dcUnivTyVars dcExTyVarsdcEqSpec dcOtherTheta dcStupidTheta dcOrigArgTys dcOrigResTy dcSrcBangsdcFieldsdcWorkIddcRep dcRepArity dcSourceArity dcRepTyCon dcRepTypedcInfix dcPromotedfitsIn kindPrimRep KillFlagskf_abs kf_used_oncekf_called_onceNoCPRRetProdRetSum TerminationDiverges ThrowsExnDunnoUseAbsExnStrVanStrLazyHyperStrSCallSProdHeadStrJointDmdJDsdudGHC.PrimseqcollectValBindersBndrMapTypeMapGDeBruijnTypeMapXGenMapCoreMapXCoreMapG trieMapView deBruijnizeVarMapvm_bvarvm_fvarCMEcme_nextcme_envTyLitMapTLM tlm_number tlm_stringTMtm_vartm_apptm_tycon tm_foralltm_tylit tm_coerce CoercionMapX CoercionMapAltMapAMam_defltam_dataam_litCMcm_varcm_litcm_cocm_typecm_castcm_tickcm_appcm_lamcm_letncm_letrcm_casecm_ecaseEmptyMap SingletonMapMultiMaplm_nillm_consMM mm_nothingmm_justNormMnormaliseTcArgsallTyVarsInTys allTyVarsInTy FlattenEnv fe_type_mapfe_substrunNormM FamilyInstEnvFamIEvanillaCafInfo NoLevityInfoNeverLevityPolymorphicGenCBPGCGunboxedTupleSumKind mkSumTyConOccmkSumDataConOcc unboxedSumArrmk_sumextractPromotedListpcDataConWithFixity PrimOpInfoDyadicMonadic GenPrimOpsizeAnnnoAnnpprArg pprTopBindsNoStgBinderInfo SatCallsOnly CounterTypeLiterals ApplicationsConstructorApps PrimitiveApps LetNoEscapesStgCases FreeVariablesConstructorBindsReEntrantBindsSingleEntryBindsUpdatableBinds LintLocInfoRhsOf LambdaBodyOf BodyOfLetRecLintMunLintMCseEnv ce_conAppMapce_subst ce_in_scopeinitEnvmkStgLet ce_bndrMap ConAppMapCAMun_cam StgArgMapSAMsam_varsam_litMassageM unMassageM&&& CmmLabelInfo CmmRetInfoCmmRetCmmCode CmmClosure CmmPrimCallRtsSelectorInfoTableRtsApInfoTable RtsApFastSRT InfoTableEntryLocalInfoTable LocalEntry RednCountsConEntry ConInfoTable ClosureTableBytesIdLabelRtsLabel ForeignLabel CaseLabelDynamicLinkerLabel PicBaseLabelDeadStripPreventer HpcTicksLabelSRTLabel LargeSRTLabelLargeBitmapLabel labelType CLabelType CodeLabel DataLabel GcPtrLabel RtsLabelInfoRtsSelectorEntry RtsApEntry RtsPrimOpRtsSlowFastTickyCtr CaseLabelInfo CaseReturnPtCaseReturnInfo CaseDefault IdLabelInfo AsmTempLabelAsmTempDerivedLabelStringLitLabelPlainModuleInitLabelCC_Label CCS_Label scopeToPaths scopeUniquesppLlvmFunctionHeader ppLlvmBlocks ppLlvmBlockppLlvmBlockLabelppLlvmStatementppLlvmExpressionppCallnewLine exclamationrootN envVersion envDynFlags envOutputenvUniq envFreshMeta envUniqMeta envFunMap envAliases envUsedVars envVarMap envStackRegs llvmGhcCC modifyEnv saveAliasrunLlvmMLlvmEnvreadProcessEnvWithExitCoderunSomethingResponseFilereadCreateProcessWithExitCode' BuildMessageBuildMsg BuildErrorEOF structStr isSecConstantllvmSectionType llvmSection genStaticLit moduleLayout sortBlockspostorder_dfs_from mkDepBlocks updateFactFwdBwdCompiler.Hoopl.MkGraph emptyGraphemptyClosedGraphmkFirst|*><*| catGraphs mkMiddlesmkEntrymkExit withFreshCompiler.Hoopl.XUtiljoinMaps joinFactssuccessorFactsdistributeFactBwddistributeFactdistributeXfer firstXferanalyzeAndRewriteBwdOxanalyzeAndRewriteFwdOxanalyzeAndRewriteBwdBodyanalyzeAndRewriteFwdBodyCompiler.Hoopl.Combinators pairLatticepairBwdpairFwd iterBwdRw thenBwdRw deepBwdRw deepBwdRw3 iterFwdRw thenFwdRw deepFwdRw deepFwdRw3Compiler.Hoopl.DebugdebugBwdTransfersdebugFwdTransfers debugBwdJoins debugFwdJoinsTraceFnCompiler.Hoopl.PointedaddTop'addTop liftJoinTopextendJoinDomain addPoints' addPointsPointedBotPElemTopWithBotWithTop WithTopAndBotanalyzeAndRewriteBwd mkBRewrite noBwdRewrite mkBTransferanalyzeAndRewriteFwd mkFRewrite noFwdRewrite mkFTransferchangeIf fact_name ChangeFlagNoChange SomeChangeCompiler.Hoopl.Fuel infiniteFuel fuelRemaining FuelMonad FuelMonadT runWithFuelliftFuelFuelCheckingFuelMonadInfiniteFuelMonadSimpleFuelMonad unionBlocks addExitSeq addEntrySeq mkWhileDo addBlocks aGraphOfGraphAGraph graphOfAGraph HooplNode mkBranchNode mkLabelNodeIfThenElseableCompiler.Hoopl.Show showFactBase showGraphShowingexternalEntryLabels labelsUsed labelsDefinedpreorder_dfs_from_exceptpostorder_dfs_from_except preorder_dfs postorder_dfsfoldGraphNodesmapGraphBlocksmapGraphgSplice blockGraphcatNodeCOGraphcatNodeOOGraphcatGraphNodeOCcatGraphNodeOOgUnitCCgUnitCOgUnitOCgUnitOO bodyGraphaddBlockbodyList bodyUnion emptyBodyBodyBody'Graph'GNilGUnitGManyNonLocal successors LabelsPtr targetLabels lookupFactnoFacts freshLabelLabelLabelSetLabelMapCompiler.Hoopl.UniquerunUniqueMonadTrunSimpleUniqueMonad intToUnique UniqueSet UniqueMap UniqueMonad freshUniqueSimpleUniqueMonad UniqueMonadT mapUnions mapDeleteList mapInsertList setUnions setDeleteList setInsertListIsSetElemOfsetSizesetNull setMembersetEmpty setSingleton setInsert setDeletesetUnion setDifferencesetIntersection setIsSubsetOfsetFoldsetElems setFromListIsMapKeyOfmapKeysmapNullmapSize mapMember mapLookupmapFindWithDefault mapSingleton mapInsert mapInsertWith mapDeletemapUnionmapUnionWithKey mapDifferencemapIntersection mapIsSubmapOfmapMap mapMapWithKeymapFoldmapFoldWithKey mapFiltermapElems mapToList mapFromListmapFromListWithCompiler.Hoopl.CheckpointCheckpointMonad Checkpoint checkpointrestart backBiasBlockfrontBiasBlockfoldBlockNodesBfoldBlockNodesB3foldBlockNodesFfoldBlockNodesF3 mapBlock3' mapBlock'mapBlockreplaceLastNodereplaceFirstNode blockJoinAny blockFromList blockToList blockSplitAny blockSplitblockSplitTailblockSplitHeadendNodes firstNode blockAppend blockJoin blockJoinTail blockJoinHead blockSnoc blockCons emptyBlock isEmptyBlock IndexedCOMaybeOJustONothingOMaybeCJustCNothingCShapeClosedOpenBlockCOBlockCCBlockOCBNilBMiddleBCatBSnocBConscheckIsReverseDependentcomputeLiveness livenessBlocklivenessForward livenessBack makeRAStatsunReg takeVirtualsspillCost_length nodeDegreeCleanS sJumpValid sJumpValidAcc sReloadedBy sCleanedCountsCleanedSpillsAccCleanMSlot cleanSpincleanBlockForward cleanForward cleanReloadcleanTopBackwardcollateJoinPoints findRegOfSlot initCleanS accJumpValid isStoreReg emptyAssocaddAssocdelAssoc delAssoc1 elemAssoc closeAssocintersectAssoc cleanBackwardSSlotSRegsCleanedReloadsAccSpillSstateUS stateSpillSLSpillM regSpill_topregSpill_blockregSpill_instr spillRead spillWrite spillModify patchInstr initSpillSmakeSpillStats buildAllocsinkRegTEunTE LlvmAccumEOption exprToVarExprDatabasicBlocksCodeGenbasicBlockCodeGen stmtsToInstrs stmtToInstrs getInstrinct2 getInstrinctbarriergenCallgenCallWithOverflowgenCallExtract getFunPtrW getFunPtr arg_varsWarg_vars castVarsWcastVarscastVarcmmPrimOpFunctionsgenJump genAssigngenStore genStore_fast genStore_slow genBranch genCondBranch genExpectLit genSwitchi1Option wordOption genMachOpgenMachOp_fastgenMachOp_slowgenLoad genLoad_fast genLoad_slow getCmmReg getCmmRegValallocReggenLit funPrologue funEpilogue getTrashStmts getHsFuncdoExpr expandCmmReg blockIdToLlvmtoI32 getTBAAMetagetTBAARegMeta i1Expected BlockContext blockContextsBlockEntryLiveness noLiveOnEntry conflictsAbsMemNoMemAnyMemHeapMemStackMemSpMemunCLmkLivenessBits dont_care copyTickslblnext_eltrev_eltselt_mapcmmDataLlvmGens fixBottom cmmLlvmGencmmMetaLlvmPreludecmmUsedLlvmGensexprFVsexprsFVsexprSomeFreeVarsDSetexprsSomeFreeVarsDSet exprOrphNamesruleFVsrulesFVs ruleLhsFVIdsfva_fvs fva_ty_fvsfva_ty tc_eq_type+ closureSMRep closureProfNonStandardThunk SelectorThunkApThunk LFReEntrantLFThunkLFCon LFUnknown LFUnlifted LFLetNoEscapeLitBoundmk_discrete_switchDecls addVarDecladdLabelECTickyClosureTypeTickyFunTickyCon TickyThunkTickyLNEemitCallWithExtraStackslowArgs generic_gc mkGcLabel closeNursery openNursery asUnsigneddoPrefetchByteArrayOpdoPrefetchMutableByteArrayOpdoPrefetchAddrOpdoPrefetchValueOpmkBasicPrefetchdoNewByteArrayOpdoCopyByteArrayOpdoCopyMutableByteArrayOpdoCopyByteArrayToAddrOpdoCopyMutableByteArrayToAddrOpdoCopyAddrToByteArrayOpdoSetByteArrayOp doNewArrayOp doCopyArrayOpdoCopyMutableArrayOpemitCloneArrayemitCloneSmallArray emitSetCards doAtomicRMWdoAtomicReadByteArraydoAtomicWriteByteArrayemitMemcpyCallemitMemmoveCallemitMemsetCall emitCopyArrayemitCopySmallArraydoCasByteArraysm_spsm_args sm_ret_offsm_regs fixupStackallocate manifestSpfalseStackCheckelimStackStoresOccupiedinsert_overlapping ClsInstEnvClsIEReprFlagSymFlagopt_co1opt_co2opt_co3 opt_co4_wrapopt_co4 opt_phantomwrapRole chooseRolehasReturnKindSignaturenegate checkTyVarsPisNegatedPmLit isNilPmExpr isPmExprEq isConsDataCon substPmExpr pprPmExprWhetherHasFamInsthptAnnshptSomeThingsBelowUs TrustInfoMetaResEMetaResPMetaResTMetaResD MetaResAW unMetaResE unMetaResP unMetaResT unMetaResD unMetaResAW tyCoFVsOfCt tyCoFVsOfCts tyCoFVsOfWCtyCoFVsOfImplic lGRHSCtOriginpprCtOminuslogExactdivide rootExactgenRootgenLoglabelledTraceOptTcRn add_warn_atzonkTcTypeInKnotZonkEnvextendIdZonkEnvRec TmOracleEnvvarInsolveComplexEqextendSubstAndSolvesimplifyComplexEqsimplifyPmExprsimplifyEqExprapplySubstComplexEq varDeepLookup ShNameSubst ns_module substNamesubstNameAvailInfosetNameFieldSelector mergeAvails uAvailInfos uAvailInfouName uHoleNameShIfEnvShIfM initRnIface rnIfaceGlobalrnIfaceNeverExportedrnIfaceClsInst sh_if_modulesh_if_semantic_modulesh_if_hole_subst sh_if_shape sh_if_errs ForeignRef RemoteRef orIfNotFoundhomeSearchCachefindInstalledHomeModulefindPackageModulefindPackageModule_QextQext1Qext2Qext1ext2unQshouldTickBindaddTickLHsExprLetBodytickSameFileOnlyunTM TickishType ProfNotesHpcTicks Breakpoints SourceNotes TickTransEnvTTEfileNamedensity tte_dflagsexportsinlinesdeclPathinScope blackListthis_mod tickishTypeTickTransStateTT tickBoxCount mixEntries uniqSupply TickDensityTickForCoverageTickForBreakPointsTickAllFunctionsTickTopFunctionsTickExportedFunctions TickCallSitescvtOpApp cvtOpAppPmk_apps mk_arr_apps cvtOpAppTcvtMaybeKindToFamilyResultSigcvtFamilyResultSigcvtInjectivityAnnotation mkHsForAllTytemplate-haskell mkHsQualTyCxtCvtMunCvtMmjmu toUnicodeAnnaaamamsaljsajsammsamsumomcmcommasmvbarsollasl HappyAddrHappyA#HappyStk Happy_IntList HappyCons HappyAbsSynisDivOp exprIsHNFlike diffIdInfo diffUnfoldlocBind StaticnessStatic NotStaticVarAppTypeAppCoAppdecideJoinPointHood UsageDetailsUDud_env ud_z_many ud_z_in_lam ud_z_no_tailOccEnclOccRhs OccVanillaocc_encl occ_one_shots occ_gbl_scrut occ_rule_actocc_binder_swapDetailsNDnd_bndrnd_rhs nd_rhs_bndrsnd_udsnd_inlnd_weaknd_active_rule_fvsnd_scoremkSmallTupleSelector1foldr substIdBndrCSEnvcs_substcs_map cs_rec_mapvanillaArityTypeetaInfoAppBindetaInfoAppLocalBndr etaInfoAppRhsEtaInfoEtaVarEtaCoArityEnvAE ae_cheap_fn ae_ped_bot ArityTypeATopABotConContCC SimpleOptEnvSOEsoe_inl soe_substExprSize _es_size_is_es_args _es_discountlitSizecallSizejumpSizeTooBigSizeIs boundsCmp intResult' wordResult' intResult wordResultRuleMrunRuleM ComparisonGtGeLtLe LibCaseEnv lc_dflagslc_lvl lc_lvl_env lc_rec_env lc_scruts ruleCantMatchmatchN RuleCheckEnv rc_is_active rc_id_unf rc_pattern rc_rule_base RuleSubstRS rs_tv_subst rs_id_substrs_bindsrs_bndrs RuleMatchEnvRVrv_tmplsrv_lclrv_fltRrv_unfdataConSrcToImplBang dataConArgRepBoxerUnitBox UnariseEnv extendRhounariseSumAltsmkUbxSum unariseFunArg unariseConArg UnariseValMultiValUnaryValStgToDo getStgToDoStgCSEStgDoMassageForProfiling D_stg_statsknownKeyNamesOkaycgTickGcPlanGcInAlts NoGcInAltsinfoConvwithSourceNoteBoolExprBoolAndBoolOrBoolNotBoolTestinitBinMemSize BinDictionary bin_dict_next bin_dict_mapBinSymbolTablebin_symtab_nextbin_symtab_mapLetInfoTopLet NestedLetHowBound ImportBoundLetBound LambdaBoundCtsMunCtsMloadWiredInHomeIfaceloadInterfaceWithExceptionis_external_sigcomputeInterface liftIOEnvunCoreM CoreWritercw_simpl_count CoreReader cr_hsc_env cr_rule_base cr_modulecr_print_unqualcr_loccr_visible_orphan_mods CoreStatecs_uniq_supplyVerySimplCountticksdetailsn_loglog1log2DictBind specImportsmkDBrecWithDumpedDicts SpecStatespec_uniq_supply spec_module spec_dflagsSpecMCallKeyCallInfoCIci_keyci_argsci_fvs CallInfoSetCISMkUDud_bindsud_callsSpecEnvSEse_substse_interesting SimplTopEnvSTEst_flags st_max_ticksst_rulesst_famsSMunSM FloatFlag FltLifted FltOkSpec FltCareful simplTick makeTrivialmakeTrivialWithInfoLevelEnv le_switches le_ctxt_lvl le_lvl_env le_join_ceille_substle_env FloatBindsFB FloatStatsFlSnoFloatIntoRhs FloatInBindlookupExactOcc_eitherlookupFixityRn'importSuggestions reportable WhereLookingWL_Any WL_Global WL_LocalTopOpNameNormalOpNegateOp UnboundOpRecFldOppartition_nwcswildCardsAllowedcheckTypeInTypelookupFixityOpbindImplicitKvs FreeKiTyVarsFKTVfktv_kisfktv_tys RnTyKiWhat RnTypeBodyRnTopConstraint RnConstraint RnTyKiEnvRTKE rtke_ctxt rtke_level rtke_what rtke_nwcsLamMkLetMkunCpsRn rnImportDecl gresFromIEwarnMissingSignatures IELookupErrorQualImportError BadImport IllegalImportIELookupWarning BadImportWMissingImportList DodgyImport mkNameErrlookupExportChildcheckPatSynParent DisambigInfo NoOccurrenceUniqueOccurrenceDisambiguatedOccurrenceAmbiguousOccurrenceChildLookupResult NameNotFoundNameErr FoundNameFoundFL ExportAccumInstDeclFreeVarsMappatchForeignImportcheckCanonicalInstancesreturn rnRoleAnnotsmkInstDeclFreeVarsMaprnInjectivityAnnextendPatSynEnv runRnSpliceStmtTree MonadNamesrnStmtsWithPostProcessing postProcessStmtsForApplicativeDonoPostProcessStmtsrebindableContextrearrangeForApplicativeDomkStmtTreeHeuristicmkStmtTreeOptimalstmtTreeToStmtssegments splitSegmentmkApplicativeStmtneedJoin isReturnApprnStmt StmtTreeOne StmtTreeBindStmtTreeApplicative return_name pure_nameaddFingerprintsgetOrphanHashesmkIfaceAnnCache checkVersions checkHsig checkFlagHash checkModUsage IfaceIdExtrasIdExtrasIfaceDeclExtrasIfaceDataExtrasIfaceClassExtrasIfaceSynonymExtrasIfaceFamilyExtrasIfaceOtherDeclExtrasInjErrorBuilder modulePaircheckForInjectivityConflictsunusedInjTvsInRHS isTFHeadedbareTvInRHSViolatedinjectivityErrorHeraldconflictInjInstErrunusedInjectiveVarsErr tfHeadedErrbareVariableInRHSErr ModulePair mkHEqBoxTy mkEqBoxTymkCoercibleBoxTy maybe_sym updateMetaLookupTyVarResultUnfilledFilledtraceTR instSchemeReportreport_unsolved importantrelevant_bindingsmkCoercibleExplanationexpandSynonymsToMatch ReportErrCtxtCECcec_enclcec_tidy cec_bindscec_errors_as_warnscec_defer_type_errorscec_expr_holescec_type_holescec_out_of_scope_holescec_warn_redundant cec_suppress HoleChoice HoleErrorHoleWarn HoleDeferTypeErrorChoiceTypeWarn TypeDeferreport_importantreport_relevant_bindingsuseVarsunTcSTcSEnv tcs_ev_binds tcs_unified tcs_count tcs_inerts tcs_worklistFlattenTvResultFTRNotFollowed FTRFollowedFlatMsetEqRel flattenKindsflatten_many_nom flatten_many flatten_corunFlatMFEfe_modefe_loc fe_flavour fe_eq_relfe_work zonk_eq_typesRightLeftcan_eq_newtype_nc canEqCast canEqFailurecanEqHardFailure canCFunEqCancanEqReflexivehomogeniseRhsKindandWhenContinueSafeOverlappingTcPluginProgresspluginInputCtspluginSolvedCts pluginBadCts pluginNewCts SolvedCtsSplitCtsrunTcPluginsGivenrunTcPluginsWanted runTcPlugins matchTypeabledoFunTy doTyConApponlyNamedBndrsAppliedLookupInstResult NoInstanceGenInst lir_new_theta lir_mk_ev lir_safe_overInteractResultIRKeep IRReplaceIRDeletedefaultCallStacksdefaultTyVarTcScheckHasFieldInstisTerminatingClassppr_tidycheckConsistentFamInst ArbitraryRank LimitedRankMonoTypeMustBeMonoTypemk_showString_appmk_showsPrec_app mk_shows_app mk_HRFunBind mk_FunBind postfixModTbl assoc_ty_idmkAuxBinderName OrdCompareOrdLTOrdLEOrdGEOrdGT AuxBindSpec DerivCon2Tag DerivTag2Con DerivMaxTagReplacer ImmediateNestedreplaceArgTyAlg argTyFoldfoldBalata_rec0ata_par1ata_rec1ata_compGenericKind_DCGen0_DCGen1_DC GenericKind_Gen0_Gen1_Check_for_CanDoGenerics1CCDG1_ccdg1_hasParam _ccdg1_errorsinferConstraintsDAC simplifyDerivGHC.SerializeddeserializeWithDataserializeWithDatafromSerialized toSerialized Serialized AllowAnywhereAllowAtTopLevelRejectEverywherelf_check_static_ptrslintRhs lintCoreExpr withoutAnnotsCasePatAnExprImportedUnfoldingTopLevelBindingsInCoStaticPtrCheck LintFlagsLFlf_check_global_idslf_check_inline_loop_breakersLintEnvle_flagsle_locle_joins le_dynflagscpe_env FloatTick cpeBodyNFCpeBodycpeBodyokCpeArgguardIntegerUse wrapTicks CorePrepEnvCPE cpe_dynFlagscpe_mkIntegerIdcpe_integerSDataConOkToSpec IfUnboxedOk NotOkToSpec FloatingBindCpeAppCpeCastCpeTickDFFV InspectState instrCountptrCountlitCountlblEnv AssemblerAllocPtrAllocLit AllocLabelEmitNullAsmOpSmallOpLabelOpmakeForeignNamedHValueRefs linkSomeBCOs LibrarySpecObjectArchiveDLLDLLPath FrameworkPersistentLinkerState closure_envitbl_env bcos_loaded objs_loaded pkgs_loadedtemp_sosisSupportedCConvBcM BcM_State bcm_hsc_env thisModule nextlabelffis modBreaks topStringsDiscrDiscrIDiscrWDiscrFDiscrDDiscrPNoDiscrisAbstractIfaceDeclmergeIfaceDeclmergeIfaceDecls tc_iface_declTcTyModedecideKindGeneralisationPlantc_infer_lhs_typetc_infer_hs_typetc_infer_hs_type_ek tc_infer_argsinstantiateTyN newWildTyVar tcHsTyVarName finish_tupletcExplicitTKBndrsX mode_levelisCompleteHsSigmatchExpectedPatTyPatCtxtLamPatLetPatpc_lvl pc_sig_fnpc_newPatEnvPEpe_lazype_ctxtpe_orig localSigWarnGeneralisationPlanNoGenInferGenCheckGen TcMonoBind TcFunBind TcPatBind MonoBindInfoMBI mbi_poly_namembi_sig mbi_mono_idCompleteSigType AcceptAnyKindRepM KindRepEnvtrTyConDataCon trNameLit TypeRepTodoExportedKindRepsTodo mod_rep_exprpkg_fingerprintmod_fingerprint todo_tycons TypeableTyConmkTypeRepTodoBindsmkPrimTypeableTodosghcPrimTypeableTyCons collect_stuff mkTrNameLitmkTyConRepBindstyConIsTypeabletypeIsTypeablebuiltInKindRepsmkExportedKindReps runKindRepM getKindRep mkKindRepRhsmkTyConRepTyConRHS unKindRepM TypeableStuffStuffdflags kindRepTyConkindRepTyConAppDataConkindRepVarDataConkindRepAppDataConkindRepFunDataConkindRepTYPEDataConkindRepTypeLitSDataContypeLitSymbolDataContypeLitNatDataContycon tycon_rep_id SynCycleMcheckNameIsAcyclicRoleMRMunRMRoleInferenceStateRISrole_envupdate runSynCycleMtc_patsyn_finishmkPatSynRecSelBindstauifyMultipleMatches tcMatchesCmdEnvcmd_arrcheckHsigIface check_instrequirementMergesifaceDeclNeverExportedRefscheckImplementsmkDsEnvsFromTcGbl dsLoadModuleinitDPHloadDAP checkLoadDAPinitDPHBuiltinsNotClosedReasontcArgscheckClosedInStaticForm tcSynArgE tcSynArgANotLetBoundReason NotTypeClosed NotClosedrepFamilyResultSigrepFamilyResultSigToMaybeKindrepInjectivityAnn repTyVarBndr repMaybeLKind coreNothing coreNothing'coreJust coreJust'CoreMkCdsHsBind makeCorePairds_ev_typeablegetRepPmArityUncoveredCandidatesPmResult Provenance FromBuiltin FromCompleteDeltaValVec emptyPmResultuncoveredWithTy checkSingle' checkMatches'checkEmptyCase'inhabitationCandidatesfake_pat isFakeGuardmkCanFailPmPat nilPattern mkLitPattern translateNPattranslatePatVectranslateConPatVectranslateGuardscantFailPatterntranslateGuard translateLet translateBindtranslateBoolGuard pmPatType mkOneConFullmkGuardmkNegEqmkPosEqmkIdEqmkPmVarmkPmVarsmkPmId mkPmId2Forms vaToPmExpr coercePatVec coercePmPatsingleConstructorallCompleteMatchestyOracle patVecArity patternArityrunManymkInitialUncoveredpmcheckIpmcheckpmcheckGuardsI pmcheckGuards pmcheckHdI pmcheckHdusimpleutailuconkconmkUnionmkConsforcesforce_if substInValAbs wrapUpTmStatedsPmWarn warnPmIters exhaustiveexhaustiveWarningFlag ValSetAbsPatVecValAbsPatternUncoveredPatternsTypeOfUncoveredpmresultProvenancepmresultRedundantpmresultUncoveredpmresultInaccessible PartialResultpresultProvenencepresultCoveredpresultUncoveredpresultDivergentDiverged NotDivergedCovered NotCoveredMkDelta delta_ty_cs delta_tm_csPmPatPmConPmVarPmNLitPmGrd pm_con_conpm_con_arg_tys pm_con_tvs pm_con_dicts pm_con_args pm_var_id pm_lit_lit pm_lit_id pm_lit_not pm_grd_pv pm_grd_exprPatTyPATVAPatGroupPgAnyPgConPgSynPgLitPgNPgOverSPgNpKPgBangPgCoPgViewPgOverloadedList dsMcBindStmtDsCmdEnvarr_id compose_idfirst_idapp_id choice_idloop_idmaxBuildLengthderiveDerivInfoEarlyDerivSpec InferTheta GivenTheta tcInjectivity rejigConRescheckValidTyConTyVarstcDefaultAssocDecl mkGADTVars PlanResultrun_th_modfinalizers andThenCheck checkUnless checkListBycheck checkSuccesstcPreludeClashWarn getMainFunrunPlans tcUserStmt tcGhciStmts getGhciStepIOtcMissingParentClassWarn indexBuiltinlookupEnvBuiltin externalVar externalFun externalTyCon externalType externalClassMonad tyConsOfTyCon tyConsOfTypes zipWithVectprDictOfPReprInst prDFunApply buildClosure abstractType vectTyConDecl vectMethoddefMethSpecOfDefMethvectAlgTyConRhs vectDataCon identityConvidentityConvTyConmkSumTysPAInstanceBuilder buildToPReprbuildFromPReprbuildToArrPReprbuildFromArrPReprbuildToArrPReprsBoolVIParrvectAnnPolyExprvectExpr vectFnExprVIEncaps vectPolyApp vectDictExprFloatDoublevectLam VectAvoidInfoVISimple VIComplexVIDictunlessVIParrExpr vectTopBinder vectTopBind tryConvertOneSpecos_patos_ruleos_idos_rhsSpecInfoSIsi_specs si_n_specs si_mb_unspecRhsInfori_fn ri_new_rhs ri_rhs_usg ri_lam_bndrs ri_lam_body ri_arg_occsArgOccNoOccUnkOccScrutOccScUsageSCU scu_callsscu_occsRecFunRecArgValueConVal LambdaValScEnvSCE sc_dflags sc_modulesc_sizesc_count sc_recursivesc_keensc_forcesc_subst sc_how_boundsc_valssc_annotationsuseLetUpextendAnalEnvsAnalEnv ae_dflagsae_sigs ae_virgin ae_rec_tc ae_fam_envsx86_regUsageOfInstr interestingx86_patchRegsOfInstrx86_mkSpillInstrx86_mkLoadInstrx86_takeDeltaInstrx86_mkRegRegMoveInstrx86_takeRegRegMoveInstrx86_mkJumpInstr pprSizeDeclpprSectionAlignpprAlignForSectionsparc_regUsageOfInstrsparc_patchRegsOfInstrsparc_mkSpillInstrsparc_mkLoadInstrsparc_takeDeltaInstrsparc_mkRegRegMoveInstrsparc_takeRegRegMoveInstrsparc_mkJumpInstrpprRegpprReg_ofRegNo pprStFormatpprCondpprAddrpprRIpprFormatRegRegpprFormatRegRegReg pprRegRIReg expandBlockexpandBlockInstrs remapRegPairfRegHi maxSpinCount regAlloc_spin buildGraphgraphAddConflictSetgraphAddCoalescepatchRegsFromGraphppc_regUsageOfInstrppc_patchRegsOfInstrppc_isJumpishInstrppc_jumpDestsOfInstrppc_patchJumpInstrppc_mkSpillInstr stackAlignppc_takeDeltaInstrppc_mkRegRegMoveInstrppc_mkJumpInstrppc_takeRegRegMoveInstr integerExtend conversionNopidivirem coerceInt2FP coerceFP2Int coerceDbl2Flt coerceFlt2Dbl picRelativeLabelAccessStyle AccessViaStubAccessViaSymbolPtrAccessDirectlyaddSpUnwindingsjumpTableEntrygetSimpleAmodearg_to_int_vregs move_final assign_codeoutOfLineMachOpoutOfLineMachOp_tableGenCCallPlatformGCPLinux GCPDarwin GCPLinux64ELFGCPAIX InstrFormmakeRegMovementGraph expandNodehandleComponentmakeMovejoinToTargets'linearRegAlloc processBlock initBlocklinearRAraInsn clobberRegs newLocationloadTemplinearRegAlloc'SpillLocReadMemWriteNewWriteMem DwarfAbbrev DwAbbrNull pprAbbrevpprDwarfInfoOpenpprDwarfInfoClose pprFrameProc pprFrameBlockdwarfGlobalRegNo pprSetUnwind pprLEBRegNo pprUnwindExprpprUndefUnwindpprData4 pprString' pprString escapeCharDwAbbrCompileUnitDwAbbrSubprogramDwAbbrSubprogramWithParentDwAbbrBlockWithoutCode DwAbbrBlockDwAbbrGhcSrcNote mkDwarfARangecompileUnitHeadercompileUnitFooterdebugSplitProcs procToDwarf blockToDwarf debugFrame procToFrame NativeGenAcc ngs_natives ngs_unwinds cmmNativeGenscomputeUnwindingmakeImportsDocCmmOptMNGS ngs_importsngs_colorStatsngs_linearStats ngs_labels ngs_debugngs_dwarfFileslogWarningsReportErrors throwErrors ioMsgMaybe'extract_renamed_stuffhscIncrementalFrontendhscCheckSafeImportscheckSafeImports hscCheckSafe' checkPkgTrustmarkUnsafeInferhscGetSafeMode hscTypecheck hscTypecheck' seqSerializedaddModFinalizerRef runRemoteTH readQResult getTHState annotThType mkIsPolyTvsfindEnclosingDeclsupdateFixityEnv BoundedListpipeLoop getLinkInfogetGhcVersionPathName runPipeline'CompilationGraphGHC.MVarLogQueue loadFinish discardProg discardICguessOutputFilepruneHomePackageTablefindPartiallyCompletedCyclescheckStabilityupsweepbuildCompGraph BuildModule parUpsweep upsweep_mod getModLoopwarnUnnecessarySourceImports downsweepmsDepsparUpsweep_onepreprocessFilecheckBrokenTablesNextToCodecheckNewDynFlags minf_type_env minf_exports minf_rdr_envminf_instances minf_iface minf_safeminf_modBreaks DesugaredMod tm_internals modSummary MkDepFilesMkDep mkd_make_file mkd_make_hdl mkd_tmp_file mkd_tmp_hdlbindSuspensionsBkpEnv bkp_session bkp_filename bkp_table bkp_levelBkpM SessionType ExeSession TcSession CompSessionwithBkpSession hsunitDeps getBkpEnv getBkpLeveloverHscDynFlags innerBkpM updateEpsGhc_ getEpsGhcinitBkpMbackpackProgressMsg mkBackpackMsg backpackStyle msgTopPackage msgUnitId msgIncludehsunitModuleGraphhsModuleToModSummarynewInstalledUnitId