gogol-datastore 0.1.0 → 0.1.1

raw patch · 12 files changed

+137/−46 lines, 12 filesdep ~gogol-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/Datastore.hs +5/−0
• gen/Network/Google/Datastore/Types.hs +7/−2
• gen/Network/Google/Datastore/Types/Product.hs +114/−33
• gen/Network/Google/Resource/Datastore/Projects/AllocateIds.hs +1/−1
• gen/Network/Google/Resource/Datastore/Projects/BeginTransaction.hs +1/−1
• gen/Network/Google/Resource/Datastore/Projects/Commit.hs +1/−1
• gen/Network/Google/Resource/Datastore/Projects/Lookup.hs +1/−1
• gen/Network/Google/Resource/Datastore/Projects/Rollback.hs +1/−1
• gen/Network/Google/Resource/Datastore/Projects/RunQuery.hs +1/−1
• gogol-datastore.cabal +4/−4
• src/.gitkeep +0/−0

@@ -8,7 +8,7 @@  ## Version -`0.1.0`+`0.1.1`   ## Description

@@ -77,6 +77,7 @@     , qrbSkippedResults     , qrbSkippedCursor     , qrbEntityResultType+    , qrbSnapshotVersion     , qrbEntityResults     , qrbMoreResults     , qrbEndCursor@@ -126,7 +127,9 @@     -- ** MutationResult     , MutationResult     , mutationResult+    , mrConflictDetected     , mrKey+    , mrVersion      -- ** AllocateIdsResponse     , AllocateIdsResponse@@ -179,6 +182,7 @@     -- ** Mutation     , Mutation     , mutation+    , mBaseVersion     , mInsert     , mUpsert     , mDelete@@ -229,6 +233,7 @@     , EntityResult     , entityResult     , erCursor+    , erVersion     , erEntity      -- ** Xgafv

@@ -49,6 +49,7 @@     , qrbSkippedResults     , qrbSkippedCursor     , qrbEntityResultType+    , qrbSnapshotVersion     , qrbEntityResults     , qrbMoreResults     , qrbEndCursor@@ -98,7 +99,9 @@     -- * MutationResult     , MutationResult     , mutationResult+    , mrConflictDetected     , mrKey+    , mrVersion      -- * AllocateIdsResponse     , AllocateIdsResponse@@ -151,6 +154,7 @@     -- * Mutation     , Mutation     , mutation+    , mBaseVersion     , mInsert     , mUpsert     , mDelete@@ -201,6 +205,7 @@     , EntityResult     , entityResult     , erCursor+    , erVersion     , erEntity      -- * Xgafv@@ -288,10 +293,10 @@ import           Network.Google.Datastore.Types.Sum import           Network.Google.Prelude --- | Default request referring to version 'v1beta3' of the Google Cloud Datastore API. This contains the host and root path used as a starting point for constructing service requests.+-- | Default request referring to version 'v1' of the Google Cloud Datastore API. This contains the host and root path used as a starting point for constructing service requests. datastoreService :: ServiceConfig datastoreService-  = defaultService (ServiceId "datastore:v1beta3")+  = defaultService (ServiceId "datastore:v1")       "datastore.googleapis.com"  -- | View and manage your data across Google Cloud Platform services

@@ -29,7 +29,7 @@ -- degrees longitude to [-180.0, 180.0].\"\"\" q, r = divmod(longitude, -- 360.0) if r > 180.0 or (r == 180.0 and q \<= -1.0): return r - 360.0 -- return r def NormalizeLatLng(latitude, longitude): \"\"\"Wraps decimal--- degrees latitude and longitude to [-180.0, 180.0] and [-90.0, 90.0],+-- degrees latitude and longitude to [-90.0, 90.0] and [-180.0, 180.0], -- respectively.\"\"\" r = latitude % 360.0 if r \<= 90.0: return r, -- NormalizeLongitude(longitude) elif r >= 270.0: return r - 360, -- NormalizeLongitude(longitude) else: return 180 - r,@@ -93,7 +93,7 @@                  [("latitude" .=) <$> _llLatitude,                   ("longitude" .=) <$> _llLongitude]) --- | The request for google.datastore.v1beta3.Datastore.Rollback.+-- | The request for Datastore.Rollback. -- -- /See:/ 'rollbackRequest' smart constructor. newtype RollbackRequest = RollbackRequest'@@ -113,7 +113,7 @@     }  -- | The transaction identifier, returned by a call to--- google.datastore.v1beta3.Datastore.BeginTransaction.+-- Datastore.BeginTransaction. rrTransaction :: Lens' RollbackRequest (Maybe ByteString) rrTransaction   = lens _rrTransaction@@ -195,6 +195,7 @@     { _qrbSkippedResults   :: !(Maybe (Textual Int32))     , _qrbSkippedCursor    :: !(Maybe Base64)     , _qrbEntityResultType :: !(Maybe QueryResultBatchEntityResultType)+    , _qrbSnapshotVersion  :: !(Maybe (Textual Int64))     , _qrbEntityResults    :: !(Maybe [EntityResult])     , _qrbMoreResults      :: !(Maybe QueryResultBatchMoreResults)     , _qrbEndCursor        :: !(Maybe Base64)@@ -210,6 +211,8 @@ -- -- * 'qrbEntityResultType' --+-- * 'qrbSnapshotVersion'+-- -- * 'qrbEntityResults' -- -- * 'qrbMoreResults'@@ -222,6 +225,7 @@     { _qrbSkippedResults = Nothing     , _qrbSkippedCursor = Nothing     , _qrbEntityResultType = Nothing+    , _qrbSnapshotVersion = Nothing     , _qrbEntityResults = Nothing     , _qrbMoreResults = Nothing     , _qrbEndCursor = Nothing@@ -248,6 +252,19 @@   = lens _qrbEntityResultType       (\ s a -> s{_qrbEntityResultType = a}) +-- | The version number of the snapshot this batch was returned from. This+-- applies to the range of results from the query\'s \`start_cursor\` (or+-- the beginning of the query if no cursor was given) to this batch\'s+-- \`end_cursor\` (not the query\'s \`end_cursor\`). In a single+-- transaction, subsequent query result batches for the same query can have+-- a greater snapshot version number. Each batch\'s snapshot version is+-- valid for all preceding batches.+qrbSnapshotVersion :: Lens' QueryResultBatch (Maybe Int64)+qrbSnapshotVersion+  = lens _qrbSnapshotVersion+      (\ s a -> s{_qrbSnapshotVersion = a})+      . mapping _Coerce+ -- | The results for this batch. qrbEntityResults :: Lens' QueryResultBatch [EntityResult] qrbEntityResults@@ -275,6 +292,7 @@                  QueryResultBatch' <$>                    (o .:? "skippedResults") <*> (o .:? "skippedCursor")                      <*> (o .:? "entityResultType")+                     <*> (o .:? "snapshotVersion")                      <*> (o .:? "entityResults" .!= mempty)                      <*> (o .:? "moreResults")                      <*> (o .:? "endCursor"))@@ -286,6 +304,7 @@                  [("skippedResults" .=) <$> _qrbSkippedResults,                   ("skippedCursor" .=) <$> _qrbSkippedCursor,                   ("entityResultType" .=) <$> _qrbEntityResultType,+                  ("snapshotVersion" .=) <$> _qrbSnapshotVersion,                   ("entityResults" .=) <$> _qrbEntityResults,                   ("moreResults" .=) <$> _qrbMoreResults,                   ("endCursor" .=) <$> _qrbEndCursor])@@ -326,7 +345,7 @@ instance ToJSON EntityProperties where         toJSON = toJSON . _epAddtional --- | The request for google.datastore.v1beta3.Datastore.BeginTransaction.+-- | The request for Datastore.BeginTransaction. -- -- /See:/ 'beginTransactionRequest' smart constructor. data BeginTransactionRequest =@@ -347,7 +366,7 @@ instance ToJSON BeginTransactionRequest where         toJSON = const emptyObject --- | The request for google.datastore.v1beta3.Datastore.RunQuery.+-- | The request for Datastore.RunQuery. -- -- /See:/ 'runQueryRequest' smart constructor. data RunQueryRequest = RunQueryRequest'@@ -419,7 +438,7 @@                   ("query" .=) <$> _rqrQuery,                   ("readOptions" .=) <$> _rqrReadOptions]) --- | The request for google.datastore.v1beta3.Datastore.AllocateIds.+-- | The request for Datastore.AllocateIds. -- -- /See:/ 'allocateIdsRequest' smart constructor. newtype AllocateIdsRequest = AllocateIdsRequest'@@ -502,7 +521,7 @@               (catMaybes                  [("op" .=) <$> _cfOp, ("filters" .=) <$> _cfFilters]) --- | The response for google.datastore.v1beta3.Datastore.BeginTransaction.+-- | The response for Datastore.BeginTransaction. -- -- /See:/ 'beginTransactionResponse' smart constructor. newtype BeginTransactionResponse = BeginTransactionResponse'@@ -542,37 +561,69 @@ -- | The result of applying a mutation. -- -- /See:/ 'mutationResult' smart constructor.-newtype MutationResult = MutationResult'-    { _mrKey :: Maybe Key+data MutationResult = MutationResult'+    { _mrConflictDetected :: !(Maybe Bool)+    , _mrKey              :: !(Maybe Key)+    , _mrVersion          :: !(Maybe (Textual Int64))     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'MutationResult' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'mrConflictDetected'+-- -- * 'mrKey'+--+-- * 'mrVersion' mutationResult     :: MutationResult mutationResult =     MutationResult'-    { _mrKey = Nothing+    { _mrConflictDetected = Nothing+    , _mrKey = Nothing+    , _mrVersion = Nothing     } +-- | Whether a conflict was detected for this mutation. Always false when a+-- conflict detection strategy field is not set in the mutation.+mrConflictDetected :: Lens' MutationResult (Maybe Bool)+mrConflictDetected+  = lens _mrConflictDetected+      (\ s a -> s{_mrConflictDetected = a})+ -- | The automatically allocated key. Set only when the mutation allocated a -- key. mrKey :: Lens' MutationResult (Maybe Key) mrKey = lens _mrKey (\ s a -> s{_mrKey = a}) +-- | The version of the entity on the server after processing the mutation.+-- If the mutation doesn\'t change anything on the server, then the version+-- will be the version of the current entity or, if no entity is present, a+-- version that is strictly greater than the version of any previous entity+-- and less than the version of any possible future entity.+mrVersion :: Lens' MutationResult (Maybe Int64)+mrVersion+  = lens _mrVersion (\ s a -> s{_mrVersion = a}) .+      mapping _Coerce+ instance FromJSON MutationResult where         parseJSON           = withObject "MutationResult"-              (\ o -> MutationResult' <$> (o .:? "key"))+              (\ o ->+                 MutationResult' <$>+                   (o .:? "conflictDetected") <*> (o .:? "key") <*>+                     (o .:? "version"))  instance ToJSON MutationResult where         toJSON MutationResult'{..}-          = object (catMaybes [("key" .=) <$> _mrKey])+          = object+              (catMaybes+                 [("conflictDetected" .=) <$> _mrConflictDetected,+                  ("key" .=) <$> _mrKey,+                  ("version" .=) <$> _mrVersion]) --- | The response for google.datastore.v1beta3.Datastore.AllocateIds.+-- | The response for Datastore.AllocateIds. -- -- /See:/ 'allocateIdsResponse' smart constructor. newtype AllocateIdsResponse = AllocateIdsResponse'@@ -695,7 +746,7 @@                   ("queryString" .=) <$> _gqQueryString,                   ("allowLiterals" .=) <$> _gqAllowLiterals]) --- | The response for google.datastore.v1beta3.Datastore.RunQuery.+-- | The response for Datastore.RunQuery. -- -- /See:/ 'runQueryResponse' smart constructor. data RunQueryResponse = RunQueryResponse'@@ -928,7 +979,7 @@                   ("nullValue" .=) <$> _vNullValue,                   ("blobValue" .=) <$> _vBlobValue]) --- | The request for google.datastore.v1beta3.Datastore.Lookup.+-- | The request for Datastore.Lookup. -- -- /See:/ 'lookupRequest' smart constructor. data LookupRequest = LookupRequest'@@ -981,16 +1032,19 @@ -- -- /See:/ 'mutation' smart constructor. data Mutation = Mutation'-    { _mInsert :: !(Maybe Entity)-    , _mUpsert :: !(Maybe Entity)-    , _mDelete :: !(Maybe Key)-    , _mUpdate :: !(Maybe Entity)+    { _mBaseVersion :: !(Maybe (Textual Int64))+    , _mInsert      :: !(Maybe Entity)+    , _mUpsert      :: !(Maybe Entity)+    , _mDelete      :: !(Maybe Key)+    , _mUpdate      :: !(Maybe Entity)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'Mutation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'mBaseVersion'+-- -- * 'mInsert' -- -- * 'mUpsert'@@ -1002,12 +1056,21 @@     :: Mutation mutation =     Mutation'-    { _mInsert = Nothing+    { _mBaseVersion = Nothing+    , _mInsert = Nothing     , _mUpsert = Nothing     , _mDelete = Nothing     , _mUpdate = Nothing     } +-- | The version of the entity that this mutation is being applied to. If+-- this does not match the current version on the server, the mutation+-- conflicts.+mBaseVersion :: Lens' Mutation (Maybe Int64)+mBaseVersion+  = lens _mBaseVersion (\ s a -> s{_mBaseVersion = a})+      . mapping _Coerce+ -- | The entity to insert. The entity must not already exist. The entity -- key\'s final path element may be incomplete. mInsert :: Lens' Mutation (Maybe Entity)@@ -1034,15 +1097,17 @@           = withObject "Mutation"               (\ o ->                  Mutation' <$>-                   (o .:? "insert") <*> (o .:? "upsert") <*>-                     (o .:? "delete")+                   (o .:? "baseVersion") <*> (o .:? "insert") <*>+                     (o .:? "upsert")+                     <*> (o .:? "delete")                      <*> (o .:? "update"))  instance ToJSON Mutation where         toJSON Mutation'{..}           = object               (catMaybes-                 [("insert" .=) <$> _mInsert,+                 [("baseVersion" .=) <$> _mBaseVersion,+                  ("insert" .=) <$> _mInsert,                   ("upsert" .=) <$> _mUpsert,                   ("delete" .=) <$> _mDelete,                   ("update" .=) <$> _mUpdate])@@ -1420,8 +1485,9 @@ -- -- /See:/ 'entityResult' smart constructor. data EntityResult = EntityResult'-    { _erCursor :: !(Maybe Base64)-    , _erEntity :: !(Maybe Entity)+    { _erCursor  :: !(Maybe Base64)+    , _erVersion :: !(Maybe (Textual Int64))+    , _erEntity  :: !(Maybe Entity)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'EntityResult' with the minimum fields required to make a request.@@ -1430,12 +1496,15 @@ -- -- * 'erCursor' --+-- * 'erVersion'+-- -- * 'erEntity' entityResult     :: EntityResult entityResult =     EntityResult'     { _erCursor = Nothing+    , _erVersion = Nothing     , _erEntity = Nothing     } @@ -1446,6 +1515,16 @@   = lens _erCursor (\ s a -> s{_erCursor = a}) .       mapping _Base64 +-- | The version of the entity, a strictly positive number that monotonically+-- increases with changes to the entity. This field is set for \`FULL\`+-- entity results. For missing entities in \`LookupResponse\`, this is the+-- version of the snapshot that was used to look up the entity, and it is+-- always set except for eventually consistent reads.+erVersion :: Lens' EntityResult (Maybe Int64)+erVersion+  = lens _erVersion (\ s a -> s{_erVersion = a}) .+      mapping _Coerce+ -- | The resulting entity. erEntity :: Lens' EntityResult (Maybe Entity) erEntity = lens _erEntity (\ s a -> s{_erEntity = a})@@ -1455,16 +1534,18 @@           = withObject "EntityResult"               (\ o ->                  EntityResult' <$>-                   (o .:? "cursor") <*> (o .:? "entity"))+                   (o .:? "cursor") <*> (o .:? "version") <*>+                     (o .:? "entity"))  instance ToJSON EntityResult where         toJSON EntityResult'{..}           = object               (catMaybes                  [("cursor" .=) <$> _erCursor,+                  ("version" .=) <$> _erVersion,                   ("entity" .=) <$> _erEntity]) --- | The response for google.datastore.v1beta3.Datastore.Commit.+-- | The response for Datastore.Commit. -- -- /See:/ 'commitResponse' smart constructor. data CommitResponse = CommitResponse'@@ -1582,7 +1663,7 @@       (\ s a -> s{_roReadConsistency = a})  -- | The identifier of the transaction in which to read. A transaction--- identifier is returned by a call to BeginTransaction.+-- identifier is returned by a call to Datastore.BeginTransaction. roTransaction :: Lens' ReadOptions (Maybe ByteString) roTransaction   = lens _roTransaction@@ -1603,8 +1684,7 @@                  [("readConsistency" .=) <$> _roReadConsistency,                   ("transaction" .=) <$> _roTransaction]) --- | The response for google.datastore.v1beta3.Datastore.Rollback (an empty--- message).+-- | The response for Datastore.Rollback. (an empty message). -- -- /See:/ 'rollbackResponse' smart constructor. data RollbackResponse =@@ -1708,7 +1788,7 @@                  [("compositeFilter" .=) <$> _fCompositeFilter,                   ("propertyFilter" .=) <$> _fPropertyFilter]) --- | The request for google.datastore.v1beta3.Datastore.Commit.+-- | The request for Datastore.Commit. -- -- /See:/ 'commitRequest' smart constructor. data CommitRequest = CommitRequest'@@ -1753,7 +1833,8 @@ crMode = lens _crMode (\ s a -> s{_crMode = a})  -- | The identifier of the transaction associated with the commit. A--- transaction identifier is returned by a call to BeginTransaction.+-- transaction identifier is returned by a call to+-- Datastore.BeginTransaction. crTransaction :: Lens' CommitRequest (Maybe ByteString) crTransaction   = lens _crTransaction@@ -1891,7 +1972,7 @@                  [("key" .=) <$> _eKey,                   ("properties" .=) <$> _eProperties]) --- | The response for google.datastore.v1beta3.Datastore.Lookup.+-- | The response for Datastore.Lookup. -- -- /See:/ 'lookupResponse' smart constructor. data LookupResponse = LookupResponse'

@@ -51,7 +51,7 @@ -- | A resource alias for @datastore.projects.allocateIds@ method which the -- 'ProjectsAllocateIds' request conforms to. type ProjectsAllocateIdsResource =-     "v1beta3" :>+     "v1" :>        "projects" :>          CaptureMode "projectId" "allocateIds" Text :>            QueryParam "$.xgafv" Xgafv :>

@@ -50,7 +50,7 @@ -- | A resource alias for @datastore.projects.beginTransaction@ method which the -- 'ProjectsBeginTransaction' request conforms to. type ProjectsBeginTransactionResource =-     "v1beta3" :>+     "v1" :>        "projects" :>          CaptureMode "projectId" "beginTransaction" Text :>            QueryParam "$.xgafv" Xgafv :>

@@ -51,7 +51,7 @@ -- | A resource alias for @datastore.projects.commit@ method which the -- 'ProjectsCommit' request conforms to. type ProjectsCommitResource =-     "v1beta3" :>+     "v1" :>        "projects" :>          CaptureMode "projectId" "commit" Text :>            QueryParam "$.xgafv" Xgafv :>

@@ -50,7 +50,7 @@ -- | A resource alias for @datastore.projects.lookup@ method which the -- 'ProjectsLookup' request conforms to. type ProjectsLookupResource =-     "v1beta3" :>+     "v1" :>        "projects" :>          CaptureMode "projectId" "lookup" Text :>            QueryParam "$.xgafv" Xgafv :>

@@ -50,7 +50,7 @@ -- | A resource alias for @datastore.projects.rollback@ method which the -- 'ProjectsRollback' request conforms to. type ProjectsRollbackResource =-     "v1beta3" :>+     "v1" :>        "projects" :>          CaptureMode "projectId" "rollback" Text :>            QueryParam "$.xgafv" Xgafv :>

@@ -50,7 +50,7 @@ -- | A resource alias for @datastore.projects.runQuery@ method which the -- 'ProjectsRunQuery' request conforms to. type ProjectsRunQueryResource =-     "v1beta3" :>+     "v1" :>        "projects" :>          CaptureMode "projectId" "runQuery" Text :>            QueryParam "$.xgafv" Xgafv :>

@@ -1,5 +1,5 @@ name:                  gogol-datastore-version:               0.1.0+version:               0.1.1 synopsis:              Google Cloud Datastore SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -11,7 +11,7 @@ category:              Network, Google, Cloud build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md+extra-source-files:    README.md src/.gitkeep  description:     Accesses the schemaless NoSQL database to provide fully managed, robust,@@ -20,7 +20,7 @@     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!     .-    This library is compatible with version @v1beta3@+    This library is compatible with version @v1@     of the API.  source-repository head@@ -48,5 +48,5 @@         , Network.Google.Datastore.Types.Sum      build-depends:-          gogol-core == 0.1.0.*+          gogol-core == 0.1.1.*         , base       >= 4.7 && < 5