Fun with Haskell view patterns