<div class="gmail_quote">On 30 December 2010 15:44, Antoine Latter <span dir="ltr">&lt;<a href="mailto:aslatter@gmail.com">aslatter@gmail.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 class="im">On Thu, Dec 30, 2010 at 8:33 AM, Lauri Alanko &lt;<a href="mailto:la@iki.fi">la@iki.fi</a>&gt; wrote:<br>
&gt; Even nowadays, Haddock deliberately generates the following layout for<br>
&gt; long function types:<br>
&gt;<br>
&gt; openTempFile<br>
&gt;    :: FilePath<br>
&gt;    -&gt; String<br>
&gt;    -&gt; IO (FilePath, Handle)<br>
&gt;<br>
<br>
</div>Aesthetics is a funny thing. I prefer writing my type signatures<br>
arrow-first if they grow too long.</blockquote><div class="gmail_quote"><div> </div><div>Me too:</div><div><br></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">fooBar :: Foo a</font></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">       =&gt; Bar a</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">       -&gt; Mu a</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">       -&gt; Zot ()</font></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace"><span class="Apple-style-span" style="font-family: arial; "><br></span></font></div><div>Though in Lisk I don&#39;t have to think much about this:</div>

<div><br></div><div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">(:: foo-bar (=&gt; (&#39;foo a) (-&gt; (&#39;bar a) (&#39;mu a) (&#39;zot ()))))</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace"><br>

</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">(:: foo-bar </font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">    (=&gt; (&#39;foo a)</font></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">        (-&gt; (&#39;bar a)</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">            (&#39;mu a)</font></div>

</div></div><div><span class="Apple-style-span" style="font-family: &#39;courier new&#39;, monospace; ">            (&#39;zot ()))))</span></div></div>