parseTime :: Parser TimeOfDay
parseTime = do hours <- decimal
               char ':'
               minutes <- decimal
               char ':'
               seconds <- decimal
               return (TimeOfDay hours minutes (fromIntegral seconds))

-- | Parse the day of the week field.
parseTime :: Parser TimeOfDay
parseTime = do hours <- decimal
               char ':'
               minutes <- decimal
               char ':'
               seconds <- decimal
               return (TimeOfDay hours minutes (fromIntegral seconds))

-- | Parse the day of the week field.
parseTime = do hours <- decimal
               char ':'
               minutes <- decimal
               char ':'
               seconds <- decimal
               return (TimeOfDay hours minutes (fromIntegral seconds))

-- | Parse the day of the week field.