validateHistoryWorker :: Worker -> [HistoryEntry] -> IO Bool
validateHistoryWorker w he = if validateHistories
                             then validateHistoryWorker' w he
                             else return True
validateHistoryWorker :: Worker -> [HistoryEntry] -> IO Bool
validateHistoryWorker w he = if validateHistories
                             then validateHistoryWorker' w he
                             else return True
validateHistoryWorker w he = if validateHistories
                             then validateHistoryWorker' w he
                             else return True