31 Jul
2010
31 Jul
'10
4:05 p.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
time :: Parser TimeOfDay time = choice [ tTimeHourMin, t24hrClock ]