advanceLog :: History -> LogfilePtr -> History
advanceLog hist lp = appendHistory hist $ HistoryAdvanceLog lp
advanceLog :: History -> LogfilePtr -> History
advanceLog hist lp = appendHistory hist $ HistoryAdvanceLog lp
advanceLog hist lp = appendHistory hist $ HistoryAdvanceLog lp