Haskell: partial function application