refactoring Entry.hs.