<div>Dear all,</div><div><br></div><div>I&#39;m currently working on a project which would benefit from access to the parse tree - ideally, we would like to deconstruct an expression into its constituent types. Currently we are using the exprType function to return the type of an expression, but this is limited as it only works for one &#39;level&#39;, per se.</div>
<div><br></div><div>An example would be as follows. Currently, if we were to type in &quot;map&quot;, we would be given a result of type Type, which we could further deconstruct into the various subtypes, as so:</div><div>
<br></div><div>map :: (a -&gt; b) -&gt; [a] -&gt; [b]</div><div>split into:</div><div>    (a -&gt; b)</div><div>    [a]</div><div>    [b]</div><div><br></div><div><br></div><div>This is sufficient for the basics of the project at the moment, but ideally, we would like to use the parse tree to analyse the structure of expressions and thereby the types of the corresponding sub-expressions. Take &quot;foldr drop&quot; for example; we can determine the different types for the different functions with exprType:</div>
<div><br></div><div>foldr :: (a -&gt; b -&gt; b) -&gt; b -&gt; [a] -&gt; [b]</div><div>drop :: Int -&gt; [c] -&gt; [c]</div><div><br></div><div>Now we can call exprType on the application &quot;foldr drop&quot;:</div><div>
<br></div><div>foldr drop :: (Int -&gt; [c] -&gt; [c]) -&gt;  [c] -&gt; [Int] -&gt; [c]</div><div>which would be split, according to our current code, into:</div><div>    arg1: (Int -&gt; [c] -&gt; [c])</div><div>    arg2: [c]</div>
<div>    arg3: [Int]</div><div>    result: [c]</div><div><br></div><div>The problem here is that we are unable to separate the &quot;drop&quot; from the &quot;foldr&quot;. The project we are working on involves composing and decomposing expressions, and it is important that we can decompose the type of &quot;foldr drop&quot; into the types of the sub-expressions &quot;foldr&quot; and &quot;drop&quot; recursively.</div>
<div><br></div><div>Ideally, we would like to construct a data structure which is much more akin to a parse tree with type annotations, in this case: </div><div>    PTreeApp</div><div>        (PTreeExpr &quot;foldr&quot;  [| (a -&gt; b -&gt; b) -&gt; b -&gt; [a] -&gt; [b] |])</div>
<div>        (PTreeExpr &quot;drop&quot;   [| Int -&gt; [c] -&gt; [c] |])</div><div>        [| (Int -&gt; [c] -&gt; [c]) -&gt; [c] -&gt; [Int] -&gt; [c] |]</div><div>where the types in semantic brackets are a structural representation (e.g. TypeRep.Type) of the given types.</div>
<div><br></div><div><br></div><div>Looking at the code of exprType, a call is firstly made to hscTcExpr, which in turn makes a call to hscParseStmt to return the parse tree. This would seem to provide the functionality that we would require, in that it would give access to a type-checkable parsed statement, but it doesn&#39;t seem to be exported by HscMain. Is there another function, which is accessible through the API, that would support this or something similar?</div>
<div><br></div><div>I am far from an expert using the GHC API, so apologies if I am doing something grossly wrong or have missed something blatantly obvious. </div><div><br></div><div>Thank you for taking the time to read this.</div>
<div><br></div><div>Kind regards,</div><div>Simon </div>