heListToHistory :: [HistoryEntry] -> History
heListToHistory [] = HistoryRoot rootHistory
heListToHistory :: [HistoryEntry] -> History
heListToHistory [] = HistoryRoot rootHistory
heListToHistory [] = HistoryRoot rootHistory