Update Haskell day 3