Update Haskell day 2