Add a pattern match for the single-element list to stop it from hitting the empty list base case.<span></span><div><br></div><div>asum [] = empty</div><div>asum [x] = x</div><div>asum (x:xs) = x <|> asum xs<br><br>On Friday, June 10, 2016, Tom Ellis <<a href="mailto:tom-lists-haskell-cafe-2013@jaguarpaw.co.uk">tom-lists-haskell-cafe-2013@jaguarpaw.co.uk</a>> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">On Fri, Jun 10, 2016 at 05:37:41PM +0300, Юрий Сыровецкий (Yuriy Syrovetskiy) wrote:<br>
> It is so because in base library<br>
><br>
>     asum = foldr (<|>) empty<br>
><br>
> What if it was defined<br>
><br>
>     asum [] = empty<br>
>     asum [x:xs] = x <|> asum xs<br>
<br>
Those are the same (assuming you mean (x:xs) instead of [x:xs]).<br>
<br>
Tom<br>
_______________________________________________<br>
Haskell-Cafe mailing list<br>
<a href="javascript:;" onclick="_e(event, 'cvml', 'Haskell-Cafe@haskell.org')">Haskell-Cafe@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe</a><br>
</blockquote></div><br><br>-- <br>-- Dan Burton<br>