BufferBuilder.hs

module Main.BufferBuilder where

import Data.BufferBuilder.Json
import qualified Main.Model as M
import Prelude

encodeResult :: M.Result -> ByteString
encodeResult =
  encodeJson

instance ToJson M.Geo where
  toJson M.Geo {..} =
    toJson $
      "type_"# .=# toJson type_
        <> "coordinates"# .=# toJson coordinates

instance ToJson (Double, Double) where
  toJson (a, b) =
    toJson [toJson a, toJson b]

instance ToJson M.Story where
  toJson M.Story {..} =
    toJson $
      "from_user_id_str"# .=# toJson from_user_id_str
        <> "profile_image_url"# .=# toJson profile_image_url
        <> "created_at"# .=# toJson created_at
        <> "from_user"# .=# toJson from_user
        <> "id_str"# .=# toJson id_str
        <> "metadata"# .=# toJson metadata
        <> "to_user_id"# .=# toJson to_user_id
        <> "text"# .=# toJson text
        <> "id"# .=# toJson id
        <> "from_user_id"# .=# toJson from_user_id
        <> "geo"# .=# toJson geo
        <> "iso_language_code"# .=# toJson iso_language_code
        <> "to_user_id_str"# .=# toJson to_user_id_str
        <> "source"# .=# toJson source

instance ToJson M.Metadata where
  toJson M.Metadata {..} =
    toJson $
      "result_type"# .=# toJson result_type

instance ToJson M.Result where
  toJson M.Result {..} =
    toJson $
      "results"# .=# toJson results
        <> "max_id"# .=# toJson max_id
        <> "since_id"# .=# toJson since_id
        <> "refresh_url"# .=# toJson refresh_url
        <> "next_page"# .=# toJson next_page
        <> "results_per_page"# .=# toJson results_per_page
        <> "page"# .=# toJson page
        <> "completed_in"# .=# toJson completed_in
        <> "since_id_str"# .=# toJson since_id_str
        <> "max_id_str"# .=# toJson max_id_str
        <> "query"# .=# toJson query