history_logfile_ptr :: History -> LogfilePtr
history_logfile_ptr =
    historyFold (\acc ent ->
                      case ent of
                        HistoryAdvanceLog ptr -> ptr
                        _ -> acc) (LogfilePtr 0 0)
history_logfile_ptr :: History -> LogfilePtr
history_logfile_ptr =
    historyFold (\acc ent ->
                      case ent of
                        HistoryAdvanceLog ptr -> ptr
                        _ -> acc) (LogfilePtr 0 0)
history_logfile_ptr =
    historyFold (\acc ent ->
                      case ent of
                        HistoryAdvanceLog ptr -> ptr
                        _ -> acc) (LogfilePtr 0 0)