Todo list in Haskell