Model.hs

module Main.Model
(
  Metadata(..),
  Geo(..),
  Story(..),
  Result(..)
)
where

import Prelude hiding (id)

data Metadata =
  Metadata {
    result_type :: Text
  }
  deriving (Eq, Show, Typeable, Data, Generic)

instance NFData Metadata

data Geo =
  Geo {
    type_       :: Text,
    coordinates :: (Double, Double)
  }
  deriving (Eq, Show, Typeable, Data, Generic)

instance NFData Geo

data Story =
  Story {
    from_user_id_str  :: Text,
    profile_image_url :: Text,
    created_at        :: Text,
    from_user         :: Text,
    id_str            :: Text,
    metadata          :: Metadata,
    to_user_id        :: Maybe Int,
    text              :: Text,
    id                :: Int,
    from_user_id      :: Int,
    geo               :: Maybe Geo,
    iso_language_code :: Text,
    to_user_id_str    :: Maybe Text,
    source            :: Text
  }
  deriving (Eq, Show, Typeable, Data, Generic)

instance NFData Story

data Result =
  Result {
    results          :: [Story],
    max_id           :: Int,
    since_id         :: Int,
    refresh_url      :: Text,
    next_page        :: Text,
    results_per_page :: Int,
    page             :: Int,
    completed_in     :: Double,
    since_id_str     :: Text,
    max_id_str       :: Text,
    query            :: Text
  }
  deriving (Eq, Show, Typeable, Data, Generic)

instance NFData Result