parseData :: Value -> Parser Object
parseData val = do
  db <- withObject "ghost export" (.: "db") val
  -- get the first (and only?) export in the `db` array
  arrDb <- withArray "db" (return . head) db
  -- Extract the data from the db
  actualData <- withObject "data" (.: "data") arrDb
  -- Make sure it's an object
  withObject "content" return actualData
parseData :: Value -> Parser Object
parseData val = do
  db <- withObject "ghost export" (.: "db") val
  -- get the first (and only?) export in the `db` array
  arrDb <- withArray "db" (return . head) db
  -- Extract the data from the db
  actualData <- withObject "data" (.: "data") arrDb
  -- Make sure it's an object
  withObject "content" return actualData
parseData val = do
  db <- withObject "ghost export" (.: "db") val
  -- get the first (and only?) export in the `db` array
  arrDb <- withArray "db" (return . head) db
  -- Extract the data from the db
  actualData <- withObject "data" (.: "data") arrDb
  -- Make sure it's an object
  withObject "content" return actualData