Added in json file from Real World Haskell