1 Aug
2010
1 Aug
'10
4:05 a.m.
Could you try it with try's: time :: Parser TimeOfDay time = choice $ map try [ tTimeHourMin, t24hrClock ] In a very informal and loose description, if tTimeHourMin consumes some input before failing, parsec gives up. Best, Ozgur On 31 July 2010 20:57, Vladimir Solmon <vvvladistan@gmail.com> wrote:
time :: Parser TimeOfDay time = choice [ tTimeHourMin, t24hrClock ]