<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>I would appreciate this too<br>
</p>
<div class="moz-cite-prefix">On 10/8/19 4:08 AM, Dannyu NDos wrote:<br>
</div>
<blockquote type="cite"
cite="mid:CAKM3oZVn+VB-wp9A_YKS0krMt-Xudy8hhzaVY4WULQaydohEYA@mail.gmail.com">
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<div dir="auto">I don't know exact sementics of Storable, but it's
addable anyway.
<div dir="auto"><br>
</div>
<div dir="auto">
<pre><span style="color:rgb(175,0,95)">instance</span> <a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#Storable" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(95,95,175)">Storable</span></a> <font color="#5f5faf">Ordering</font> <span style="color:rgb(175,0,95)">where</span>
<a name="m_-2683064632936383029_line-159" rel="noreferrer" moz-do-not-send="true"></a> <a name="m_-2683064632936383029_local-8214565720323872799" rel="noreferrer" moz-do-not-send="true"></a><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#sizeOf" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">sizeOf</span></a> <span style="color:rgb(7,54,66)">_</span> <span style="color:rgb(220,50,47)">=</span> <a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#sizeOf" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">sizeOf</span></a> <span style="color:rgb(220,50,47)">(</span><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/GHC.Err.html#undefined" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">undefined</span></a><span style="color:rgb(220,50,47)">::</span><span style="color:rgb(7,54,66)">HTYPE_INT</span><span style="color:rgb(220,50,47)">)</span>
<a name="m_-2683064632936383029_line-160" rel="noreferrer" moz-do-not-send="true"></a> <a name="m_-2683064632936383029_local-8214565720323872800" rel="noreferrer" moz-do-not-send="true"></a><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#alignment" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">alignment</span></a> <span style="color:rgb(7,54,66)">_</span> <span style="color:rgb(220,50,47)">=</span> <a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#alignment" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">alignment</span></a> <span style="color:rgb(220,50,47)">(</span><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/GHC.Err.html#undefined" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">undefined</span></a><span style="color:rgb(220,50,47)">::</span><span style="color:rgb(7,54,66)">HTYPE_INT</span><span style="color:rgb(220,50,47)">)</span>
<a name="m_-2683064632936383029_line-161" rel="noreferrer" moz-do-not-send="true"></a> <a name="m_-2683064632936383029_local-8214565720323872801" rel="noreferrer" moz-do-not-send="true"></a><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#peekElemOff" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">peekElemOff</span></a> <a name="m_-2683064632936383029_local-6989586621679097926" rel="noreferrer" moz-do-not-send="true"></a><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#local-6989586621679097926" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">p</span></a> <a name="m_-2683064632936383029_local-6989586621679097927" rel="noreferrer" moz-do-not-send="true"></a><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#local-6989586621679097927" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">i</span></a> <span style="color:rgb(220,50,47)">=</span> <a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/GHC.Base.html#liftM" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">liftM</span></a> <span style="color:rgb(220,50,47)">(</span><font color="#d33682">`compare`</font> <span style="color:rgb(220,50,47)">(</span><font color="#268bd2">1</font><span style="color:rgb(220,50,47)">::</span><span style="color:rgb(7,54,66)">HTYPE_INT</span><span style="color:rgb(220,50,47)">)</span><span style="color:rgb(220,50,47)">)</span> <a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#peekElemOff" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(211,54,130)">$</span></a> <span style="color:rgb(7,54,66)">peekElemOff</span> <span style="color:rgb(220,50,47)">(</span><span style="color:rgb(7,54,66)">castPtr</span> <span style="color:rgb(7,54,66)">p</span><span style="color:rgb(220,50,47)">)</span> <span style="color:rgb(7,54,66)">i</span>
<a name="m_-2683064632936383029_line-162" rel="noreferrer" moz-do-not-send="true"></a> <a name="m_-2683064632936383029_local-8214565720323872802" rel="noreferrer" moz-do-not-send="true"></a><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#pokeElemOff" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">pokeElemOff</span></a> <a name="m_-2683064632936383029_local-6989586621679097928" rel="noreferrer" moz-do-not-send="true"></a><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#local-6989586621679097928" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">p</span></a> <a name="m_-2683064632936383029_local-6989586621679097929" rel="noreferrer" moz-do-not-send="true"></a><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#local-6989586621679097929" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">i</span></a> <a name="m_-2683064632936383029_local-6989586621679097930" rel="noreferrer" moz-do-not-send="true"></a><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#local-6989586621679097930" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">x</span></a> <span style="color:rgb(220,50,47)">=</span> <a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#pokeElemOff" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">pokeElemOff</span></a> <span style="color:rgb(220,50,47)">(</span><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/GHC.Ptr.html#castPtr" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">castPtr</span></a> <a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#local-6989586621679097928" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">p</span></a><span style="color:rgb(220,50,47)">)</span> <a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#local-6989586621679097929" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true"><span style="color:rgb(7,54,66)">i</span></a> <span style="color:rgb(220,50,47)">(</span><font color="#af005f">fromIntegral</font> (fromEnum <span style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213);color:rgb(7,54,66)"><a href="http://hackage.haskell.org/package/base-4.12.0.0/docs/src/Foreign.Storable.html#local-6989586621679097930" style="text-decoration-line:none;border-bottom:1px solid rgb(238,232,213)" target="_blank" rel="noreferrer" moz-do-not-send="true">x</a>)</span><span style="color:rgb(220,50,47)">::</span><span style="color:rgb(7,54,66)">HTYPE_INT</span><span style="color:rgb(220,50,47)">)</span></pre>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<pre class="moz-quote-pre" wrap="">_______________________________________________
Libraries mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Libraries@haskell.org">Libraries@haskell.org</a>
<a class="moz-txt-link-freetext" href="http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries">http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries</a>
</pre>
</blockquote>
</body>
</html>