<div dir="ltr">Ah, yes. But I am interested in the SrcSpan of the *usage site* (as well as the binding site).<div><br></div><div style>Edsko</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Mon, Feb 25, 2013 at 4:41 PM, Simon Peyton-Jones <span dir="ltr">&lt;<a href="mailto:simonpj@microsoft.com" target="_blank">simonpj@microsoft.com</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">





<div lang="EN-GB" link="blue" vlink="purple">
<div>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Verdana&quot;,&quot;sans-serif&quot;;color:#1f497d">The SrcSpan of the binding site is stored inside the Id.† getSrcSpan should do it.<u></u><u></u></span></p>

<p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Verdana&quot;,&quot;sans-serif&quot;;color:#1f497d"><u></u>†<u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Verdana&quot;,&quot;sans-serif&quot;;color:#1f497d">S<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Verdana&quot;,&quot;sans-serif&quot;;color:#1f497d"><u></u>†<u></u></span></p>
<div style="border:none;border-left:solid blue 1.5pt;padding:0cm 0cm 0cm 4.0pt">
<div>
<div style="border:none;border-top:solid #b5c4df 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:&quot;Tahoma&quot;,&quot;sans-serif&quot;">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:&quot;Tahoma&quot;,&quot;sans-serif&quot;"> Edsko de Vries [mailto:<a href="mailto:edskodevries@gmail.com" target="_blank">edskodevries@gmail.com</a>]
<br>
<b>Sent:</b> 25 February 2013 16:27</span></p><div class="im"><br>
<b>To:</b> Simon Peyton-Jones<br>
<b>Cc:</b> <a href="mailto:ghc-devs@haskell.org" target="_blank">ghc-devs@haskell.org</a><br>
</div><b>Subject:</b> Re: Top-level type signatures in TcGblEnv?<u></u><u></u><p></p>
</div>
</div><div><div class="h5">
<p class="MsoNormal"><u></u>†<u></u></p>
<div>
<p class="MsoNormal">I&#39;m sorry, I don&#39;t see any location information (&quot;Located ..&quot; types) in tcg_type_env?<u></u><u></u></p>
<div>
<p class="MsoNormal"><u></u>†<u></u></p>
</div>
<div>
<p class="MsoNormal">Edsko<u></u><u></u></p>
</div>
</div>
<div>
<p class="MsoNormal" style="margin-bottom:12.0pt"><u></u>†<u></u></p>
<div>
<p class="MsoNormal">On Mon, Feb 25, 2013 at 3:22 PM, Simon Peyton-Jones &lt;<a href="mailto:simonpj@microsoft.com" target="_blank">simonpj@microsoft.com</a>&gt; wrote:<u></u><u></u></p>
<div>
<div>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Verdana&quot;,&quot;sans-serif&quot;;color:#1f497d">Canít you just use the range of the tcg_type_env?<br>
<br>
Simon</span><u></u><u></u></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Verdana&quot;,&quot;sans-serif&quot;;color:#1f497d">†</span><u></u><u></u></p>
<div style="border:none;border-left:solid blue 1.5pt;padding:0cm 0cm 0cm 4.0pt">
<div>
<div style="border:none;border-top:solid #b5c4df 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:&quot;Tahoma&quot;,&quot;sans-serif&quot;">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:&quot;Tahoma&quot;,&quot;sans-serif&quot;"> Edsko
 de Vries [mailto:<a href="mailto:edskodevries@gmail.com" target="_blank">edskodevries@gmail.com</a>]
<br>
<b>Sent:</b> 18 February 2013 14:03<br>
<b>To:</b> Simon Peyton-Jones<br>
<b>Cc:</b> <a href="mailto:ghc-devs@haskell.org" target="_blank">ghc-devs@haskell.org</a><br>
<b>Subject:</b> Top-level type signatures in TcGblEnv?</span><u></u><u></u></p>
</div>
</div>
<div>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
<div>
<p class="MsoNormal">Dear Simon, other ghc devs,<u></u><u></u></p>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">I hooked into genericHscRecompile to traverse the typechecked source and construct an environment of type<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">† † †[(SrcSpan, Id)]<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">recording all identifiers in the source with their type, definition site, etc. To be precise, I am traversing the†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
</div>
<div>
<div>
<p class="MsoNormal">† † tcg_binds † † :: LHsBinds Id,††††††† † †-- Value bindings in this module<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">field of the TcGblEnv structure returned by the type checker. The problem is that I have so far been unable to find top-level user-supplied type annotations inside LHsBinds. The
 closest thing I&#39;ve found is the PostTcType of a MatchGroup, but that is not Located; what I&#39;m really looking for is an LSig.†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">Now, let-bindings get a HsValBindsLR instead of an LHsBinds, and that *does* contain signatures. My question is two-fold:<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">1. First, am I missing something? Are there LSigs somewhere inside the TcGblEnv where I simply haven&#39;t seen them?<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">2. If not, is there a good reason why tcg_binds is an LHsBinds rather than an HsValBindsLR? And if there isn&#39;t, would you accept a patch making the change?<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">Thanks,<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">†<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal">Edsko<u></u><u></u></p>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<p class="MsoNormal"><u></u>†<u></u></p>
</div>
</div></div></div>
</div>
</div>

</blockquote></div><br></div>