old-time -> time, make it work in current haskell platform