appendHistory :: History -> HistoryEntry -> History
appendHistory hist@(HistoryRoot _) he =
    mkSimpleHistory hist he
appendHistory :: History -> HistoryEntry -> History
appendHistory hist@(HistoryRoot _) he =
    mkSimpleHistory hist he
appendHistory hist@(HistoryRoot _) he =
    mkSimpleHistory hist he