warnClipDate gameInfo@(T.GameInfo { T.date = d }) = let d' = Set.map clipDate d in do
    when (d /= d') (tell [InvalidDatesClipped d])
    return gameInfo { T.date = d' }
warnClipDate gameInfo@(T.GameInfo { T.date = d }) = let d' = Set.map clipDate d in do
    when (d /= d') (tell [InvalidDatesClipped d])
    return gameInfo { T.date = d' }
warnClipDate gameInfo@(T.GameInfo { T.date = d }) = let d' = Set.map clipDate d in do
    when (d /= d') (tell [InvalidDatesClipped d])
    return gameInfo { T.date = d' }