-- Use Template Haskell to generate good instances.

{-# LANGUAGE CPP #-}

{-# LANGUAGE TemplateHaskell #-}

{-# OPTIONS_GHC -fno-warn-orphans #-}

#ifdef HAS_BOTH_AESON_AND_BENCHMARKS

{-# LANGUAGE PackageImports #-}

#endif

module Twitter.TH

    (

      Metadata(..)

    , Geo(..)

    , Story(..)

    , Result(..)

    ) where

import Prelude ()

import Twitter

import Twitter.Options

#ifndef HAS_BOTH_AESON_AND_BENCHMARKS

import Data.Aeson.TH

#else

import "aeson" Data.Aeson.TH

import qualified "aeson-benchmarks" Data.Aeson.TH as B

#endif

$(deriveJSON twitterOptions ''Metadata)

$(deriveJSON twitterOptions ''Geo)

$(deriveJSON twitterOptions ''Story)

$(deriveJSON twitterOptions ''Result)

#ifdef HAS_BOTH_AESON_AND_BENCHMARKS

$(B.deriveJSON btwitterOptions ''Metadata)

$(B.deriveJSON btwitterOptions ''Geo)

$(B.deriveJSON btwitterOptions ''Story)

$(B.deriveJSON btwitterOptions ''Result)

#endif