simple JSON send in haskell