uber 0.1.0.0 → 0.1.1.0

raw patch · 6 files changed

+15/−16 lines, 6 filesdep ~aesondep ~textdep ~webapi

Dependency ranges changed: aeson, text, webapi

Files

src/Uber/Client.hs +2/−2
src/Uber/Types/History.hs +1/−1
src/Uber/Types/PriceEstimate.hs +1/−1
src/Uber/Types/Product.hs +4/−3
src/Uber/Types/TimeEstimate.hs +1/−1
uber.cabal +6/−8

src/Uber/Client.hs view

@@ -14,7 +14,7 @@ import Uber.Types.Reminder import WebApi --- | Returns information about the Uber products offered at a given location +-- | Returns information about the Uber products offered at a given location getProducts :: Settings -> LatLng -> IO (Response GET ProductsR) getProducts settings ll = do     client (addV1 $ toClientSettings settings) $@@ -24,7 +24,7 @@ getProductDetails :: Settings -> ProductId -> IO (Response GET ProductDetailsR) getProductDetails settings (ProductId pid) = do     client (addV1 $ toClientSettings settings) $-        Request (ProdId $ Field pid) () () () (auth settings) () ()+        Request (ProdId pid) () () () (auth settings) () ()  -- | Returns an estimated price range for each product offered at a given location getPriceEstimate :: Settings -> PriceEstimateParams -> IO (Response GET PriceEstimateR)

src/Uber/Types/History.hs view

@@ -38,7 +38,7 @@     , longitude :: Double     } deriving (Show, Generic) -instance ToParam HistoryParams 'QueryParam+instance ToParam 'QueryParam HistoryParams instance FromJSON History where instance FromJSON City where instance FromJSON HistoryResp where

src/Uber/Types/PriceEstimate.hs view

@@ -32,6 +32,6 @@     , distance         :: Double     } deriving (Show, Generic) -instance ToParam PriceEstimateParams 'QueryParam+instance ToParam 'QueryParam PriceEstimateParams instance FromJSON PriceEstimates instance FromJSON PriceEstimate

src/Uber/Types/Product.hs view

@@ -1,6 +1,7 @@ {-# LANGUAGE DataKinds             #-} {-# LANGUAGE DeriveGeneric         #-} {-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE OverloadedStrings     #-} module Uber.Types.Product where  import Data.Aeson@@ -44,13 +45,13 @@     } deriving (Show, Generic)  newtype ProdId = ProdId-    { pid :: Field "product_id" Text+    { pid :: Text     } deriving (Generic)  data ProductId = ProductId Text -instance ToParam LatLng 'QueryParam-instance ToParam ProdId 'PathParam+instance ToParam 'QueryParam LatLng+instance ToParam 'PathParam ProdId instance FromJSON Products instance FromJSON Product instance FromJSON PriceDetails

src/Uber/Types/TimeEstimate.hs view

@@ -25,7 +25,7 @@     , t_estimate     :: Int     } deriving (Show, Generic) -instance ToParam TimeEstimateParams 'QueryParam+instance ToParam 'QueryParam TimeEstimateParams instance FromJSON TimeEstimates where instance FromJSON TimeEstimate where     parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = drop 2 }

uber.cabal view

@@ -1,16 +1,14 @@ name:                uber-version:             0.1.0.0-synopsis:            Uber client for Haskell +version:             0.1.1.0+synopsis:            Uber client for Haskell description:         Bindings for Uber API homepage:            https://github.com/byteally/webapi-uber.git license:             BSD3 license-file:        LICENSE author:              Tarun maintainer:          Tarun <tj.joshi7@gmail.com>---copyright:           2016 Author name here category:            Web, Network build-type:          Simple--- extra-source-files: cabal-version:       >=1.10  library@@ -28,10 +26,10 @@                      , Uber.Types.RideRequest                      , Uber.Types.Misc                      , Uber.Types.Reminder-  build-depends:       base >= 4.7 && < 5-                     , aeson-                     , text-                     , webapi == 0.2.*+  build-depends:       base  >= 4.7 && < 5+                     , aeson >= 0.8 && < 0.12+                     , text  >= 1.2 && < 1.3+                     , webapi == 0.3.*   default-language:    Haskell2010  test-suite uber-test