-hour :: Stream s m Char => ParsecT s u m TimeOfDay
-hour = do hour <- read2
- _ <- optional (char ':')
- minute <- read2
- second <- option 0 $
- do _ <- optional (char ':')
- read2
- assertTimeOfDayIsGood hour minute second
+hms ∷ Parser TimeOfDay
+hms = do hour ← read2
+ _ ← optional (char ':')
+ minute ← read2
+ second ← option 0 $
+ do _ ← optional (char ':')
+ read2
+ assertTimeOfDayIsGood hour minute second