historyFold :: (a -> HistoryEntry -> a) -> a -> History -> a
historyFold _ base (HistoryRoot _) = base
historyFold :: (a -> HistoryEntry -> a) -> a -> History -> a
historyFold _ base (HistoryRoot _) = base
historyFold _ base (HistoryRoot _) = base