historyFold folder base hist =
    folder (historyFold folder base (hs_parent hist)) (hs_entry hist)
historyFold folder base hist =
    folder (historyFold folder base (hs_parent hist)) (hs_entry hist)
historyFold folder base hist =
    folder (historyFold folder base (hs_parent hist)) (hs_entry hist)