Could you try it with try&#39;s:<br><br>time :: Parser TimeOfDay<br>
time = choice $ map try [ tTimeHourMin, t24hrClock ]<br><br>In a very informal and loose description, if tTimeHourMin consumes some input before failing, parsec gives up.<br><br>Best,<br>Ozgur<br><br><div class="gmail_quote">
On 31 July 2010 20:57, Vladimir Solmon <span dir="ltr">&lt;<a href="mailto:vvvladistan@gmail.com">vvvladistan@gmail.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div id=":1t7">time :: Parser TimeOfDay<br>
time = choice [ tTimeHourMin,<br>
                          t24hrClock<br>
                       ]</div></blockquote></div><br>