historyGetHeList :: History -> [HistoryEntry]
historyGetHeList = reverse . historyFold (flip (:)) []
historyGetHeList :: History -> [HistoryEntry]
historyGetHeList = reverse . historyFold (flip (:)) []
historyGetHeList = reverse . historyFold (flip (:)) []