<div dir="ltr"><br><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Mar 28, 2017 at 11:57 AM, David Feuer <span dir="ltr"><<a href="mailto:david.feuer@gmail.com" target="_blank">david.feuer@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="auto">You probably should bind the value you're forcing, </div></blockquote><div><br></div><div>I'm guessing a bang pattern should do the trick:<br></div><div><div><br></div><div><div><font face="monospace, monospace"> ascending a as (b:bs)</font></div><div><font face="monospace, monospace"> | a `cmp` b /= GT = ascending b (\ys -> as (a:ys)) bs</font></div><div><font face="monospace, monospace"> ascending a as bs = let !v = as [a] in v : sequences bs</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace"> mergePairs (a:b:xs) = let !v = merge a b in v : mergePairs xs</font></div><div><font face="monospace, monospace"> mergePairs xs = xs</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace"> {-# INLINE merge #-}</font></div><div><font face="monospace, monospace"> merge as@(a:as') bs@(b:bs')</font></div></div></div><div><font face="monospace, monospace"><br></font></div><div> </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="auto">even if the difference is small.</div></blockquote><div><br></div><div>Out of curiosity, why would there be a difference at all?<br></div><div><br></div><div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div class="gmail_extra"><br><div class="gmail_quote"><div><div class="gmail-h5">On Mar 28, 2017 2:51 PM, "Siddhanathan Shanmugam" <<a href="mailto:siddhanathan%2Beml@gmail.com" target="_blank">siddhanathan+eml@gmail.com</a>> wrote:<br type="attribution"></div></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div class="gmail-h5"><div dir="ltr"><div> mergePairs (a:b:xs) = merge a b `seq` merge a b : mergePairs xs</div><div><br></div><div>as well.</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Mar 28, 2017 at 11:43 AM, Gregory Popovitch <span dir="ltr"><<a href="mailto:greg7mdp@gmail.com" target="_blank">greg7mdp@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><u></u>
<div>
<div dir="ltr" align="left"><span class="gmail-m_-6493538399300391768m_2352767999765318258m_-3039510333604087746847204218-28032017"><font color="#000080" face="Calibri">OK, so current proposed changes are below:</font></span></div>
<div dir="ltr" align="left"><span class="gmail-m_-6493538399300391768m_2352767999765318258m_-3039510333604087746847204218-28032017"><font color="#000080" face="Calibri"></font></span> </div>
<div dir="ltr" align="left"><span class="gmail-m_-6493538399300391768m_2352767999765318258m_-3039510333604087746847204218-28032017"><img src="cid:847204218@28032017-039C"></span></div><font color="#000080" face="Calibri"></font>
<div dir="ltr" align="left"><br><span class="gmail-m_-6493538399300391768m_2352767999765318258m_-3039510333604087746847204218-28032017"><font color="#000080" face="Calibri">test results look good.</font></span></div>
<div dir="ltr" align="left"><span class="gmail-m_-6493538399300391768m_2352767999765318258m_-3039510333604087746847204218-28032017"><font color="#000080" face="Calibri"></font></span> </div>
<div dir="ltr" align="left"><span class="gmail-m_-6493538399300391768m_2352767999765318258m_-3039510333604087746847204218-28032017"><font color="#000080" face="Calibri">Thanks,</font></span></div>
<div dir="ltr" align="left"><span class="gmail-m_-6493538399300391768m_2352767999765318258m_-3039510333604087746847204218-28032017"><font color="#000080" face="Calibri"></font></span> </div>
<div dir="ltr" align="left"><span class="gmail-m_-6493538399300391768m_2352767999765318258m_-3039510333604087746847204218-28032017"><font color="#000080" face="Calibri">greg</font></span></div><br><br></div>
</blockquote></div><br></div>
<br></div></div><span class="gmail-">______________________________<wbr>_________________<br>
Libraries mailing list<br>
<a href="mailto:Libraries@haskell.org" target="_blank">Libraries@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-bi<wbr>n/mailman/listinfo/libraries</a><br>
<br></span></blockquote></div></div>
</blockquote></div><br></div></div>