Haskell view 2