-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/


-- | A thin wrapper for the Hyperpublic API
--   
--   A thin wrapper for the Hyperpublic API, which uses
--   <a>Network.HTTP.Enumerator</a> to fetch results and <a>Data.Aeson</a>
--   to return them as JSON.
@package hyperpublic
@version 0.0.0


-- | A thin wrapper for the Hyperpublic API, which uses
--   <a>Network.HTTP.Enumerator</a> to fetch results and <a>Data.Aeson</a>
--   to return them as JSON. The <a>Web.Hyperpublic.Places</a> and
--   <a>Web.Hyperpublic.Offers</a> modules wrap <tt>find</tt> and
--   <tt>show</tt> methods of the Places+
--   (<a>http://www.hyperpublic.com/placesplus</a>) and Geo Deals and
--   Events (<a>http://www.hyperpublic.com/deals</a>) endpoints,
--   respectively. The next release of this package will also wrap the
--   <tt>create</tt> method of Places+. Full API documentation can be found
--   at <a>http://developer.hyperpublic.com/</a>.
--   
--   <a>Web.Hyperpublic.Places</a> and <a>Web.Hyperpublic.Offers</a> export
--   the functions <tt>find</tt> and <tt>show</tt>, where each works
--   similarly across the two modules. The next release of this package
--   will also wrap the <tt>create</tt> method of Places+.
--   
--   Examples (included in the distribution as <tt>Examples.hs</tt>):
--   
--   <pre>
--   {-# LANGUAGE OverloadedStrings #-}
--   
--   module Main where
--   
--   import Data.Aeson
--   import Data.ByteString.Char8 ()
--   import qualified Data.Map as M
--   import Data.Maybe
--   import Data.Text
--   import qualified Data.Vector as V
--   
--   import Web.Hyperpublic
--   import qualified Web.Hyperpublic.Places as Places
--   import qualified Web.Hyperpublic.Offers as Offers
--   
--   -- Sequence the two examples.
--   main :: IO ()
--   main = placeNamesNearHq &gt;&gt; offerDescr
--   
--   -- Find places near Hyperpublic HQ and print the name of each.
--   placeNamesNearHq :: IO ()
--   placeNamesNearHq =
--       let json = Places.find auth [( "address"
--                                    , "416 W 13th St, New York, NY 10014" )]
--       in json &gt;&gt;= putStrLn . show . getNames
--     where
--       getNames (Array arr) = mapMaybe getName $ V.toList arr
--       getName (Object obj) = getTextField obj "display_name"
--   
--   -- Find the offer with id 4e90567c297a200001008db9 and print its description.
--   offerDescr :: IO ()
--   offerDescr =
--       let json = Offers.show auth "4e90567c297a200001008db9"
--       in json &gt;&gt;= putStrLn . show . getDescr
--     where
--       getDescr (Object obj) = maybe "" id $ getTextField obj "description"
--   
--   -- Create an authorization record. Get your own credentials at
--   -- http://www.hyperpublic.com/registerapi
--   auth :: HpAuth
--   auth = HpAuth { clientId = "8UufhI6bCKQXKMBn7AUWO67Yq6C8RkfD0BGouTke"
--                 , clientSecret = "zdoROY5XRN0clIWsEJyKzHedSK4irYee8jpnOXaP" }
--   
--   -- Extract a text field from an 'Data.Aeson.Object'.
--   getTextField :: Object -&gt; Text -&gt; Maybe Text
--   getTextField obj txt = M.lookup txt obj &gt;&gt;= resultToMaybe . fromJSON
--     where
--       resultToMaybe (Success a) = Just a
--       resultToMaybe (Error _) = Nothing
--   </pre>
module Web.Hyperpublic

-- | A record for passing around API authorization credentials.
data HpAuth
HpAuth :: ByteString -> ByteString -> HpAuth
clientId :: HpAuth -> ByteString
clientSecret :: HpAuth -> ByteString
instance Show HpAuth


-- | See the usage examples in the <a>Web.Hyperpublic</a> documentation.
module Web.Hyperpublic.Places

-- | Call the show method of the Places+ endpoint. API documentation at
--   <a>http://developer.hyperpublic.com/places/show-a-place/</a>
show :: HpAuth -> ByteString -> IO Value

-- | Call the find method of the Places+ endpoint. API documentation at
--   <a>http://developer.hyperpublic.com/offers/find-offers/</a>
find :: HpAuth -> SimpleQuery -> IO Value


-- | See the usage examples in the <a>Web.Hyperpublic</a> documentation.
module Web.Hyperpublic.Offers

-- | Call the show method of the Geo Deals and Events endpoint. API
--   documentation at
--   <a>http://developer.hyperpublic.com/offers/show-an-offer/</a>
show :: HpAuth -> ByteString -> IO Value

-- | Call the find method of the Geo Deals and Events endpoint. API
--   documentation at
--   <a>http://developer.hyperpublic.com/offers/find-offers/</a>
find :: HpAuth -> SimpleQuery -> IO Value