Update Haskell-solution - Harry.hs