add some haskell json parsing