diff --git a/README.markdown b/README.markdown --- a/README.markdown +++ b/README.markdown @@ -5,5 +5,3 @@ To generate: $ ./generate.sh - -(this requires `stack`) diff --git a/app/MakeLenses.hs b/app/MakeLenses.hs --- a/app/MakeLenses.hs +++ b/app/MakeLenses.hs @@ -13,6 +13,8 @@ import qualified Network.Riak.Protocol.AuthRequest import qualified Network.Riak.Protocol.BucketKeyPreflistItem import qualified Network.Riak.Protocol.BucketProps +import qualified Network.Riak.Protocol.CSBucketRequest +import qualified Network.Riak.Protocol.CSBucketResponse import qualified Network.Riak.Protocol.CommitHook import qualified Network.Riak.Protocol.Content import qualified Network.Riak.Protocol.CounterGetRequest @@ -20,8 +22,6 @@ import qualified Network.Riak.Protocol.CounterOp import qualified Network.Riak.Protocol.CounterUpdateRequest import qualified Network.Riak.Protocol.CounterUpdateResponse -import qualified Network.Riak.Protocol.CSBucketRequest -import qualified Network.Riak.Protocol.CSBucketResponse import qualified Network.Riak.Protocol.DeleteRequest import qualified Network.Riak.Protocol.DtFetchRequest import qualified Network.Riak.Protocol.DtFetchResponse @@ -83,6 +83,8 @@ makeLenses ''Network.Riak.Protocol.AuthRequest.AuthRequest makeLenses ''Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem makeLenses ''Network.Riak.Protocol.BucketProps.BucketProps +makeLenses ''Network.Riak.Protocol.CSBucketRequest.CSBucketRequest +makeLenses ''Network.Riak.Protocol.CSBucketResponse.CSBucketResponse makeLenses ''Network.Riak.Protocol.CommitHook.CommitHook makeLenses ''Network.Riak.Protocol.Content.Content makeLenses ''Network.Riak.Protocol.CounterGetRequest.CounterGetRequest @@ -90,8 +92,6 @@ makeLenses ''Network.Riak.Protocol.CounterOp.CounterOp makeLenses ''Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest makeLenses ''Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse -makeLenses ''Network.Riak.Protocol.CSBucketRequest.CSBucketRequest -makeLenses ''Network.Riak.Protocol.CSBucketResponse.CSBucketResponse makeLenses ''Network.Riak.Protocol.DeleteRequest.DeleteRequest makeLenses ''Network.Riak.Protocol.DtFetchRequest.DtFetchRequest makeLenses ''Network.Riak.Protocol.DtFetchResponse.DtFetchResponse diff --git a/generate.sh b/generate.sh --- a/generate.sh +++ b/generate.sh @@ -72,7 +72,7 @@ echo "makeLenses ''$module.$type" >> $OUTFILE done -stack build riak-protobuf-lens:exe:generate --ghc-options="-ddump-splices -dppr-cols=200" +./mafia build ################################################################################ ## Generate and build Network.Riak.Protocol.Lens with the dumped splices @@ -98,7 +98,7 @@ echo "type Lens' s a = forall f. Functor f => (a -> f a) -> s -> f s" >> $OUTFILE -cat $(stack path --dist-dir)/build/generate/generate-tmp/app/MakeLenses.dump-splices \ +cat dist/build/generate/generate-tmp/app/MakeLenses.dump-splices \ | sed \ -e '/app\/MakeLenses\.hs/d' \ -e '/makeLenses/d' \ @@ -106,4 +106,4 @@ -e 's/^ //' \ >> $OUTFILE -stack build +./mafia build diff --git a/riak-protobuf-lens.cabal b/riak-protobuf-lens.cabal --- a/riak-protobuf-lens.cabal +++ b/riak-protobuf-lens.cabal @@ -1,9 +1,5 @@ --- This file has been generated from package.yaml by hpack version 0.17.1. --- --- see: https://github.com/sol/hpack - name: riak-protobuf-lens -version: 0.22.0.0 +version: 0.23.0.0 synopsis: Lenses for riak-protobuf description: A set of Haskell lenses for interacting with the protocol buffer @@ -27,6 +23,11 @@ location: https://github.com/riak-haskell-client/riak-haskell-client subdir: protobuf-lens +flag developer + description: operate in developer mode + default: False + manual: True + library hs-source-dirs: src @@ -34,7 +35,7 @@ base >= 3 && <5 , bytestring , containers - , riak-protobuf ==0.22.* + , riak-protobuf == 0.23.* exposed-modules: Network.Riak.Protocol.Lens default-language: Haskell2010 @@ -43,13 +44,16 @@ main-is: MakeLenses.hs hs-source-dirs: app + if flag(developer) + ghc-options: -ddump-splices -dppr-cols=200 -ddump-to-file + build-depends: base >= 3 && <5 , bytestring , containers - , microlens <0.5 - , microlens-th <0.5 - , riak-protobuf ==0.22.* + , microlens < 0.5 + , microlens-th < 0.5 + , riak-protobuf == 0.23.* , template-haskell other-modules: TH diff --git a/src/Network/Riak/Protocol/Lens.hs b/src/Network/Riak/Protocol/Lens.hs --- a/src/Network/Riak/Protocol/Lens.hs +++ b/src/Network/Riak/Protocol/Lens.hs @@ -12,4557 +12,72 @@ import qualified Network.Riak.Protocol.BucketKeyPreflistItem import qualified Network.Riak.Protocol.BucketProps import qualified Network.Riak.Protocol.BucketProps.ReplMode -import qualified Network.Riak.Protocol.CommitHook -import qualified Network.Riak.Protocol.Content -import qualified Network.Riak.Protocol.CounterGetRequest -import qualified Network.Riak.Protocol.CounterGetResponse -import qualified Network.Riak.Protocol.CounterOp -import qualified Network.Riak.Protocol.CounterUpdateRequest -import qualified Network.Riak.Protocol.CounterUpdateResponse -import qualified Network.Riak.Protocol.CSBucketRequest -import qualified Network.Riak.Protocol.CSBucketResponse -import qualified Network.Riak.Protocol.DeleteRequest -import qualified Network.Riak.Protocol.DtFetchRequest -import qualified Network.Riak.Protocol.DtFetchResponse -import qualified Network.Riak.Protocol.DtFetchResponse.DataType -import qualified Network.Riak.Protocol.DtOp -import qualified Network.Riak.Protocol.DtUpdateRequest -import qualified Network.Riak.Protocol.DtUpdateResponse -import qualified Network.Riak.Protocol.DtValue -import qualified Network.Riak.Protocol.ErrorResponse -import qualified Network.Riak.Protocol.GetBucketKeyPreflistRequest -import qualified Network.Riak.Protocol.GetBucketKeyPreflistResponse -import qualified Network.Riak.Protocol.GetBucketRequest -import qualified Network.Riak.Protocol.GetBucketResponse -import qualified Network.Riak.Protocol.GetBucketTypeRequest -import qualified Network.Riak.Protocol.GetClientIDRequest -import qualified Network.Riak.Protocol.GetClientIDResponse -import qualified Network.Riak.Protocol.GetRequest -import qualified Network.Riak.Protocol.GetResponse -import qualified Network.Riak.Protocol.GetServerInfoRequest -import qualified Network.Riak.Protocol.IndexObject -import qualified Network.Riak.Protocol.IndexRequest -import qualified Network.Riak.Protocol.IndexRequest.IndexQueryType -import qualified Network.Riak.Protocol.IndexResponse -import qualified Network.Riak.Protocol.Link -import qualified Network.Riak.Protocol.ListBucketsRequest -import qualified Network.Riak.Protocol.ListBucketsResponse -import qualified Network.Riak.Protocol.ListKeysRequest -import qualified Network.Riak.Protocol.ListKeysResponse -import qualified Network.Riak.Protocol.MapEntry -import qualified Network.Riak.Protocol.MapField -import qualified Network.Riak.Protocol.MapField.MapFieldType -import qualified Network.Riak.Protocol.MapOp -import qualified Network.Riak.Protocol.MapReduce -import qualified Network.Riak.Protocol.MapReduceRequest -import qualified Network.Riak.Protocol.MapUpdate -import qualified Network.Riak.Protocol.MapUpdate.FlagOp -import qualified Network.Riak.Protocol.ModFun -import qualified Network.Riak.Protocol.Pair -import qualified Network.Riak.Protocol.PingRequest -import qualified Network.Riak.Protocol.PutRequest -import qualified Network.Riak.Protocol.PutResponse -import qualified Network.Riak.Protocol.ResetBucketRequest -import qualified Network.Riak.Protocol.SearchDoc -import qualified Network.Riak.Protocol.SearchQueryRequest -import qualified Network.Riak.Protocol.SearchQueryResponse -import qualified Network.Riak.Protocol.ServerInfo -import qualified Network.Riak.Protocol.SetBucketRequest -import qualified Network.Riak.Protocol.SetBucketTypeRequest -import qualified Network.Riak.Protocol.SetClientIDRequest -import qualified Network.Riak.Protocol.SetOp -import qualified Network.Riak.Protocol.YzIndex -import qualified Network.Riak.Protocol.YzIndexDeleteRequest -import qualified Network.Riak.Protocol.YzIndexGetRequest -import qualified Network.Riak.Protocol.YzIndexGetResponse -import qualified Network.Riak.Protocol.YzIndexPutRequest -import qualified Network.Riak.Protocol.YzSchema -import qualified Network.Riak.Protocol.YzSchemaGetRequest -import qualified Network.Riak.Protocol.YzSchemaGetResponse -import qualified Network.Riak.Protocol.YzSchemaPutRequest -type Lens' s a = forall f. Functor f => (a -> f a) -> s -> f s -class HasPassword s a | s -> a where - password :: Lens' s a -instance HasPassword Network.Riak.Protocol.AuthRequest.AuthRequest ByteString where - {-# INLINE password #-} - password f_agC6 (Network.Riak.Protocol.AuthRequest.AuthRequest x_agC7 x_agC8) - = fmap (\ y_agC9 -> Network.Riak.Protocol.AuthRequest.AuthRequest x_agC7 y_agC9) (f_agC6 x_agC8) -class HasUser s a | s -> a where - user :: Lens' s a -instance HasUser Network.Riak.Protocol.AuthRequest.AuthRequest ByteString where - {-# INLINE user #-} - user f_agCa (Network.Riak.Protocol.AuthRequest.AuthRequest x_agCb x_agCc) - = fmap (\ y_agCd -> Network.Riak.Protocol.AuthRequest.AuthRequest y_agCd x_agCc) (f_agCa x_agCb) -class HasNode s a | s -> a where - node :: Lens' s a -instance HasNode Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem ByteString where - {-# INLINE node #-} - node f_agE6 (Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem x_agE7 x_agE8 x_agE9) - = fmap (\ y_agEa -> Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem x_agE7 y_agEa x_agE9) (f_agE6 x_agE8) -class HasPartition s a | s -> a where - partition :: Lens' s a -instance HasPartition Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem Int64 where - {-# INLINE partition #-} - partition f_agEb (Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem x_agEc x_agEd x_agEe) - = fmap (\ y_agEf -> Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem y_agEf x_agEd x_agEe) (f_agEb x_agEc) -class HasPrimary s a | s -> a where - primary :: Lens' s a -instance HasPrimary Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem Bool where - {-# INLINE primary #-} - primary f_agEg (Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem x_agEh x_agEi x_agEj) - = fmap (\ y_agEk -> Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem x_agEh x_agEi y_agEk) (f_agEg x_agEj) -class HasAllowMult s a | s -> a where - allow_mult :: Lens' s a -instance HasAllowMult Network.Riak.Protocol.BucketProps.BucketProps (Maybe Bool) where - {-# INLINE allow_mult #-} - allow_mult - f_agGs - (Network.Riak.Protocol.BucketProps.BucketProps x_agGt - x_agGu - x_agGv - x_agGw - x_agGx - x_agGy - x_agGz - x_agGA - x_agGB - x_agGC - x_agGD - x_agGE - x_agGF - x_agGG - x_agGH - x_agGI - x_agGJ - x_agGK - x_agGL - x_agGM - x_agGN - x_agGO - x_agGP - x_agGQ - x_agGR - x_agGS - x_agGT - x_agGU) - = fmap - (\ y_agGV - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agGt - y_agGV - x_agGv - x_agGw - x_agGx - x_agGy - x_agGz - x_agGA - x_agGB - x_agGC - x_agGD - x_agGE - x_agGF - x_agGG - x_agGH - x_agGI - x_agGJ - x_agGK - x_agGL - x_agGM - x_agGN - x_agGO - x_agGP - x_agGQ - x_agGR - x_agGS - x_agGT - x_agGU) - (f_agGs x_agGu) -class HasBackend s a | s -> a where - backend :: Lens' s a -instance HasBackend Network.Riak.Protocol.BucketProps.BucketProps (Maybe ByteString) where - {-# INLINE backend #-} - backend - f_agGW - (Network.Riak.Protocol.BucketProps.BucketProps x_agGX - x_agGY - x_agGZ - x_agH0 - x_agH1 - x_agH2 - x_agH3 - x_agH4 - x_agH5 - x_agH6 - x_agH7 - x_agH8 - x_agH9 - x_agHa - x_agHb - x_agHc - x_agHd - x_agHe - x_agHf - x_agHg - x_agHh - x_agHi - x_agHj - x_agHk - x_agHl - x_agHm - x_agHn - x_agHo) - = fmap - (\ y_agHp - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agGX - x_agGY - x_agGZ - x_agH0 - x_agH1 - x_agH2 - x_agH3 - x_agH4 - x_agH5 - x_agH6 - x_agH7 - x_agH8 - x_agH9 - x_agHa - x_agHb - x_agHc - x_agHd - x_agHe - x_agHf - x_agHg - x_agHh - y_agHp - x_agHj - x_agHk - x_agHl - x_agHm - x_agHn - x_agHo) - (f_agGW x_agHi) -class HasBasicQuorum s a | s -> a where - basic_quorum :: Lens' s a -instance HasBasicQuorum Network.Riak.Protocol.BucketProps.BucketProps (Maybe Bool) where - {-# INLINE basic_quorum #-} - basic_quorum - f_agHq - (Network.Riak.Protocol.BucketProps.BucketProps x_agHr - x_agHs - x_agHt - x_agHu - x_agHv - x_agHw - x_agHx - x_agHy - x_agHz - x_agHA - x_agHB - x_agHC - x_agHD - x_agHE - x_agHF - x_agHG - x_agHH - x_agHI - x_agHJ - x_agHK - x_agHL - x_agHM - x_agHN - x_agHO - x_agHP - x_agHQ - x_agHR - x_agHS) - = fmap - (\ y_agHT - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agHr - x_agHs - x_agHt - x_agHu - x_agHv - x_agHw - x_agHx - x_agHy - x_agHz - x_agHA - x_agHB - x_agHC - x_agHD - x_agHE - x_agHF - x_agHG - x_agHH - x_agHI - x_agHJ - y_agHT - x_agHL - x_agHM - x_agHN - x_agHO - x_agHP - x_agHQ - x_agHR - x_agHS) - (f_agHq x_agHK) -class HasBigVclock s a | s -> a where - big_vclock :: Lens' s a -instance HasBigVclock Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE big_vclock #-} - big_vclock - f_agHU - (Network.Riak.Protocol.BucketProps.BucketProps x_agHV - x_agHW - x_agHX - x_agHY - x_agHZ - x_agI0 - x_agI1 - x_agI2 - x_agI3 - x_agI4 - x_agI5 - x_agI6 - x_agI7 - x_agI8 - x_agI9 - x_agIa - x_agIb - x_agIc - x_agId - x_agIe - x_agIf - x_agIg - x_agIh - x_agIi - x_agIj - x_agIk - x_agIl - x_agIm) - = fmap - (\ y_agIn - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agHV - x_agHW - x_agHX - x_agHY - x_agHZ - x_agI0 - x_agI1 - x_agI2 - x_agI3 - x_agI4 - x_agI5 - y_agIn - x_agI7 - x_agI8 - x_agI9 - x_agIa - x_agIb - x_agIc - x_agId - x_agIe - x_agIf - x_agIg - x_agIh - x_agIi - x_agIj - x_agIk - x_agIl - x_agIm) - (f_agHU x_agI6) -class HasChashKeyfun s a | s -> a where - chash_keyfun :: Lens' s a -instance HasChashKeyfun Network.Riak.Protocol.BucketProps.BucketProps (Maybe Network.Riak.Protocol.ModFun.ModFun) where - {-# INLINE chash_keyfun #-} - chash_keyfun - f_agIo - (Network.Riak.Protocol.BucketProps.BucketProps x_agIp - x_agIq - x_agIr - x_agIs - x_agIt - x_agIu - x_agIv - x_agIw - x_agIx - x_agIy - x_agIz - x_agIA - x_agIB - x_agIC - x_agID - x_agIE - x_agIF - x_agIG - x_agIH - x_agII - x_agIJ - x_agIK - x_agIL - x_agIM - x_agIN - x_agIO - x_agIP - x_agIQ) - = fmap - (\ y_agIR - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agIp - x_agIq - x_agIr - x_agIs - x_agIt - x_agIu - x_agIv - y_agIR - x_agIx - x_agIy - x_agIz - x_agIA - x_agIB - x_agIC - x_agID - x_agIE - x_agIF - x_agIG - x_agIH - x_agII - x_agIJ - x_agIK - x_agIL - x_agIM - x_agIN - x_agIO - x_agIP - x_agIQ) - (f_agIo x_agIw) -class HasConsistent s a | s -> a where - consistent :: Lens' s a -instance HasConsistent Network.Riak.Protocol.BucketProps.BucketProps (Maybe Bool) where - {-# INLINE consistent #-} - consistent - f_agIS - (Network.Riak.Protocol.BucketProps.BucketProps x_agIT - x_agIU - x_agIV - x_agIW - x_agIX - x_agIY - x_agIZ - x_agJ0 - x_agJ1 - x_agJ2 - x_agJ3 - x_agJ4 - x_agJ5 - x_agJ6 - x_agJ7 - x_agJ8 - x_agJ9 - x_agJa - x_agJb - x_agJc - x_agJd - x_agJe - x_agJf - x_agJg - x_agJh - x_agJi - x_agJj - x_agJk) - = fmap - (\ y_agJl - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agIT - x_agIU - x_agIV - x_agIW - x_agIX - x_agIY - x_agIZ - x_agJ0 - x_agJ1 - x_agJ2 - x_agJ3 - x_agJ4 - x_agJ5 - x_agJ6 - x_agJ7 - x_agJ8 - x_agJ9 - x_agJa - x_agJb - x_agJc - x_agJd - x_agJe - x_agJf - x_agJg - x_agJh - x_agJi - y_agJl - x_agJk) - (f_agIS x_agJj) -class HasDatatype s a | s -> a where - datatype :: Lens' s a -instance HasDatatype Network.Riak.Protocol.BucketProps.BucketProps (Maybe ByteString) where - {-# INLINE datatype #-} - datatype - f_agJm - (Network.Riak.Protocol.BucketProps.BucketProps x_agJn - x_agJo - x_agJp - x_agJq - x_agJr - x_agJs - x_agJt - x_agJu - x_agJv - x_agJw - x_agJx - x_agJy - x_agJz - x_agJA - x_agJB - x_agJC - x_agJD - x_agJE - x_agJF - x_agJG - x_agJH - x_agJI - x_agJJ - x_agJK - x_agJL - x_agJM - x_agJN - x_agJO) - = fmap - (\ y_agJP - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agJn - x_agJo - x_agJp - x_agJq - x_agJr - x_agJs - x_agJt - x_agJu - x_agJv - x_agJw - x_agJx - x_agJy - x_agJz - x_agJA - x_agJB - x_agJC - x_agJD - x_agJE - x_agJF - x_agJG - x_agJH - x_agJI - x_agJJ - x_agJK - x_agJL - y_agJP - x_agJN - x_agJO) - (f_agJm x_agJM) -class HasDw s a | s -> a where - dw :: Lens' s a -instance HasDw Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE dw #-} - dw - f_agJQ - (Network.Riak.Protocol.BucketProps.BucketProps x_agJR - x_agJS - x_agJT - x_agJU - x_agJV - x_agJW - x_agJX - x_agJY - x_agJZ - x_agK0 - x_agK1 - x_agK2 - x_agK3 - x_agK4 - x_agK5 - x_agK6 - x_agK7 - x_agK8 - x_agK9 - x_agKa - x_agKb - x_agKc - x_agKd - x_agKe - x_agKf - x_agKg - x_agKh - x_agKi) - = fmap - (\ y_agKj - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agJR - x_agJS - x_agJT - x_agJU - x_agJV - x_agJW - x_agJX - x_agJY - x_agJZ - x_agK0 - x_agK1 - x_agK2 - x_agK3 - x_agK4 - x_agK5 - x_agK6 - x_agK7 - y_agKj - x_agK9 - x_agKa - x_agKb - x_agKc - x_agKd - x_agKe - x_agKf - x_agKg - x_agKh - x_agKi) - (f_agJQ x_agK8) -class HasHasPostcommit s a | s -> a where - has_postcommit :: Lens' s a -instance HasHasPostcommit Network.Riak.Protocol.BucketProps.BucketProps (Maybe Bool) where - {-# INLINE has_postcommit #-} - has_postcommit - f_agKk - (Network.Riak.Protocol.BucketProps.BucketProps x_agKl - x_agKm - x_agKn - x_agKo - x_agKp - x_agKq - x_agKr - x_agKs - x_agKt - x_agKu - x_agKv - x_agKw - x_agKx - x_agKy - x_agKz - x_agKA - x_agKB - x_agKC - x_agKD - x_agKE - x_agKF - x_agKG - x_agKH - x_agKI - x_agKJ - x_agKK - x_agKL - x_agKM) - = fmap - (\ y_agKN - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agKl - x_agKm - x_agKn - x_agKo - x_agKp - x_agKq - y_agKN - x_agKs - x_agKt - x_agKu - x_agKv - x_agKw - x_agKx - x_agKy - x_agKz - x_agKA - x_agKB - x_agKC - x_agKD - x_agKE - x_agKF - x_agKG - x_agKH - x_agKI - x_agKJ - x_agKK - x_agKL - x_agKM) - (f_agKk x_agKr) -class HasHasPrecommit s a | s -> a where - has_precommit :: Lens' s a -instance HasHasPrecommit Network.Riak.Protocol.BucketProps.BucketProps (Maybe Bool) where - {-# INLINE has_precommit #-} - has_precommit - f_agKO - (Network.Riak.Protocol.BucketProps.BucketProps x_agKP - x_agKQ - x_agKR - x_agKS - x_agKT - x_agKU - x_agKV - x_agKW - x_agKX - x_agKY - x_agKZ - x_agL0 - x_agL1 - x_agL2 - x_agL3 - x_agL4 - x_agL5 - x_agL6 - x_agL7 - x_agL8 - x_agL9 - x_agLa - x_agLb - x_agLc - x_agLd - x_agLe - x_agLf - x_agLg) - = fmap - (\ y_agLh - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agKP - x_agKQ - x_agKR - x_agKS - y_agLh - x_agKU - x_agKV - x_agKW - x_agKX - x_agKY - x_agKZ - x_agL0 - x_agL1 - x_agL2 - x_agL3 - x_agL4 - x_agL5 - x_agL6 - x_agL7 - x_agL8 - x_agL9 - x_agLa - x_agLb - x_agLc - x_agLd - x_agLe - x_agLf - x_agLg) - (f_agKO x_agKT) -class HasLastWriteWins s a | s -> a where - last_write_wins :: Lens' s a -instance HasLastWriteWins Network.Riak.Protocol.BucketProps.BucketProps (Maybe Bool) where - {-# INLINE last_write_wins #-} - last_write_wins - f_agLi - (Network.Riak.Protocol.BucketProps.BucketProps x_agLj - x_agLk - x_agLl - x_agLm - x_agLn - x_agLo - x_agLp - x_agLq - x_agLr - x_agLs - x_agLt - x_agLu - x_agLv - x_agLw - x_agLx - x_agLy - x_agLz - x_agLA - x_agLB - x_agLC - x_agLD - x_agLE - x_agLF - x_agLG - x_agLH - x_agLI - x_agLJ - x_agLK) - = fmap - (\ y_agLL - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agLj - x_agLk - y_agLL - x_agLm - x_agLn - x_agLo - x_agLp - x_agLq - x_agLr - x_agLs - x_agLt - x_agLu - x_agLv - x_agLw - x_agLx - x_agLy - x_agLz - x_agLA - x_agLB - x_agLC - x_agLD - x_agLE - x_agLF - x_agLG - x_agLH - x_agLI - x_agLJ - x_agLK) - (f_agLi x_agLl) -class HasLinkfun s a | s -> a where - linkfun :: Lens' s a -instance HasLinkfun Network.Riak.Protocol.BucketProps.BucketProps (Maybe Network.Riak.Protocol.ModFun.ModFun) where - {-# INLINE linkfun #-} - linkfun - f_agLM - (Network.Riak.Protocol.BucketProps.BucketProps x_agLN - x_agLO - x_agLP - x_agLQ - x_agLR - x_agLS - x_agLT - x_agLU - x_agLV - x_agLW - x_agLX - x_agLY - x_agLZ - x_agM0 - x_agM1 - x_agM2 - x_agM3 - x_agM4 - x_agM5 - x_agM6 - x_agM7 - x_agM8 - x_agM9 - x_agMa - x_agMb - x_agMc - x_agMd - x_agMe) - = fmap - (\ y_agMf - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agLN - x_agLO - x_agLP - x_agLQ - x_agLR - x_agLS - x_agLT - x_agLU - y_agMf - x_agLW - x_agLX - x_agLY - x_agLZ - x_agM0 - x_agM1 - x_agM2 - x_agM3 - x_agM4 - x_agM5 - x_agM6 - x_agM7 - x_agM8 - x_agM9 - x_agMa - x_agMb - x_agMc - x_agMd - x_agMe) - (f_agLM x_agLV) -class HasNVal s a | s -> a where - n_val :: Lens' s a -instance HasNVal Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE n_val #-} - n_val - f_agMg - (Network.Riak.Protocol.BucketProps.BucketProps x_agMh - x_agMi - x_agMj - x_agMk - x_agMl - x_agMm - x_agMn - x_agMo - x_agMp - x_agMq - x_agMr - x_agMs - x_agMt - x_agMu - x_agMv - x_agMw - x_agMx - x_agMy - x_agMz - x_agMA - x_agMB - x_agMC - x_agMD - x_agME - x_agMF - x_agMG - x_agMH - x_agMI) - = fmap - (\ y_agMJ - -> Network.Riak.Protocol.BucketProps.BucketProps - y_agMJ - x_agMi - x_agMj - x_agMk - x_agMl - x_agMm - x_agMn - x_agMo - x_agMp - x_agMq - x_agMr - x_agMs - x_agMt - x_agMu - x_agMv - x_agMw - x_agMx - x_agMy - x_agMz - x_agMA - x_agMB - x_agMC - x_agMD - x_agME - x_agMF - x_agMG - x_agMH - x_agMI) - (f_agMg x_agMh) -class HasNotfoundOk s a | s -> a where - notfound_ok :: Lens' s a -instance HasNotfoundOk Network.Riak.Protocol.BucketProps.BucketProps (Maybe Bool) where - {-# INLINE notfound_ok #-} - notfound_ok - f_agMK - (Network.Riak.Protocol.BucketProps.BucketProps x_agML - x_agMM - x_agMN - x_agMO - x_agMP - x_agMQ - x_agMR - x_agMS - x_agMT - x_agMU - x_agMV - x_agMW - x_agMX - x_agMY - x_agMZ - x_agN0 - x_agN1 - x_agN2 - x_agN3 - x_agN4 - x_agN5 - x_agN6 - x_agN7 - x_agN8 - x_agN9 - x_agNa - x_agNb - x_agNc) - = fmap - (\ y_agNd - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agML - x_agMM - x_agMN - x_agMO - x_agMP - x_agMQ - x_agMR - x_agMS - x_agMT - x_agMU - x_agMV - x_agMW - x_agMX - x_agMY - x_agMZ - x_agN0 - x_agN1 - x_agN2 - x_agN3 - x_agN4 - y_agNd - x_agN6 - x_agN7 - x_agN8 - x_agN9 - x_agNa - x_agNb - x_agNc) - (f_agMK x_agN5) -class HasOldVclock s a | s -> a where - old_vclock :: Lens' s a -instance HasOldVclock Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE old_vclock #-} - old_vclock - f_agNe - (Network.Riak.Protocol.BucketProps.BucketProps x_agNf - x_agNg - x_agNh - x_agNi - x_agNj - x_agNk - x_agNl - x_agNm - x_agNn - x_agNo - x_agNp - x_agNq - x_agNr - x_agNs - x_agNt - x_agNu - x_agNv - x_agNw - x_agNx - x_agNy - x_agNz - x_agNA - x_agNB - x_agNC - x_agND - x_agNE - x_agNF - x_agNG) - = fmap - (\ y_agNH - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agNf - x_agNg - x_agNh - x_agNi - x_agNj - x_agNk - x_agNl - x_agNm - x_agNn - y_agNH - x_agNp - x_agNq - x_agNr - x_agNs - x_agNt - x_agNu - x_agNv - x_agNw - x_agNx - x_agNy - x_agNz - x_agNA - x_agNB - x_agNC - x_agND - x_agNE - x_agNF - x_agNG) - (f_agNe x_agNo) -class HasPostcommit s a | s -> a where - postcommit :: Lens' s a -instance HasPostcommit Network.Riak.Protocol.BucketProps.BucketProps (Seq Network.Riak.Protocol.CommitHook.CommitHook) where - {-# INLINE postcommit #-} - postcommit - f_agNI - (Network.Riak.Protocol.BucketProps.BucketProps x_agNJ - x_agNK - x_agNL - x_agNM - x_agNN - x_agNO - x_agNP - x_agNQ - x_agNR - x_agNS - x_agNT - x_agNU - x_agNV - x_agNW - x_agNX - x_agNY - x_agNZ - x_agO0 - x_agO1 - x_agO2 - x_agO3 - x_agO4 - x_agO5 - x_agO6 - x_agO7 - x_agO8 - x_agO9 - x_agOa) - = fmap - (\ y_agOb - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agNJ - x_agNK - x_agNL - x_agNM - x_agNN - y_agOb - x_agNP - x_agNQ - x_agNR - x_agNS - x_agNT - x_agNU - x_agNV - x_agNW - x_agNX - x_agNY - x_agNZ - x_agO0 - x_agO1 - x_agO2 - x_agO3 - x_agO4 - x_agO5 - x_agO6 - x_agO7 - x_agO8 - x_agO9 - x_agOa) - (f_agNI x_agNO) -class HasPr s a | s -> a where - pr :: Lens' s a -instance HasPr Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE pr #-} - pr - f_agOc - (Network.Riak.Protocol.BucketProps.BucketProps x_agOd - x_agOe - x_agOf - x_agOg - x_agOh - x_agOi - x_agOj - x_agOk - x_agOl - x_agOm - x_agOn - x_agOo - x_agOp - x_agOq - x_agOr - x_agOs - x_agOt - x_agOu - x_agOv - x_agOw - x_agOx - x_agOy - x_agOz - x_agOA - x_agOB - x_agOC - x_agOD - x_agOE) - = fmap - (\ y_agOF - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agOd - x_agOe - x_agOf - x_agOg - x_agOh - x_agOi - x_agOj - x_agOk - x_agOl - x_agOm - x_agOn - x_agOo - x_agOp - y_agOF - x_agOr - x_agOs - x_agOt - x_agOu - x_agOv - x_agOw - x_agOx - x_agOy - x_agOz - x_agOA - x_agOB - x_agOC - x_agOD - x_agOE) - (f_agOc x_agOq) -class HasPrecommit s a | s -> a where - precommit :: Lens' s a -instance HasPrecommit Network.Riak.Protocol.BucketProps.BucketProps (Seq Network.Riak.Protocol.CommitHook.CommitHook) where - {-# INLINE precommit #-} - precommit - f_agOG - (Network.Riak.Protocol.BucketProps.BucketProps x_agOH - x_agOI - x_agOJ - x_agOK - x_agOL - x_agOM - x_agON - x_agOO - x_agOP - x_agOQ - x_agOR - x_agOS - x_agOT - x_agOU - x_agOV - x_agOW - x_agOX - x_agOY - x_agOZ - x_agP0 - x_agP1 - x_agP2 - x_agP3 - x_agP4 - x_agP5 - x_agP6 - x_agP7 - x_agP8) - = fmap - (\ y_agP9 - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agOH - x_agOI - x_agOJ - y_agP9 - x_agOL - x_agOM - x_agON - x_agOO - x_agOP - x_agOQ - x_agOR - x_agOS - x_agOT - x_agOU - x_agOV - x_agOW - x_agOX - x_agOY - x_agOZ - x_agP0 - x_agP1 - x_agP2 - x_agP3 - x_agP4 - x_agP5 - x_agP6 - x_agP7 - x_agP8) - (f_agOG x_agOK) -class HasPw s a | s -> a where - pw :: Lens' s a -instance HasPw Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE pw #-} - pw - f_agPa - (Network.Riak.Protocol.BucketProps.BucketProps x_agPb - x_agPc - x_agPd - x_agPe - x_agPf - x_agPg - x_agPh - x_agPi - x_agPj - x_agPk - x_agPl - x_agPm - x_agPn - x_agPo - x_agPp - x_agPq - x_agPr - x_agPs - x_agPt - x_agPu - x_agPv - x_agPw - x_agPx - x_agPy - x_agPz - x_agPA - x_agPB - x_agPC) - = fmap - (\ y_agPD - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agPb - x_agPc - x_agPd - x_agPe - x_agPf - x_agPg - x_agPh - x_agPi - x_agPj - x_agPk - x_agPl - x_agPm - x_agPn - x_agPo - x_agPp - x_agPq - y_agPD - x_agPs - x_agPt - x_agPu - x_agPv - x_agPw - x_agPx - x_agPy - x_agPz - x_agPA - x_agPB - x_agPC) - (f_agPa x_agPr) -class HasR s a | s -> a where - r :: Lens' s a -instance HasR Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE r #-} - r f_agPE - (Network.Riak.Protocol.BucketProps.BucketProps x_agPF - x_agPG - x_agPH - x_agPI - x_agPJ - x_agPK - x_agPL - x_agPM - x_agPN - x_agPO - x_agPP - x_agPQ - x_agPR - x_agPS - x_agPT - x_agPU - x_agPV - x_agPW - x_agPX - x_agPY - x_agPZ - x_agQ0 - x_agQ1 - x_agQ2 - x_agQ3 - x_agQ4 - x_agQ5 - x_agQ6) - = fmap - (\ y_agQ7 - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agPF - x_agPG - x_agPH - x_agPI - x_agPJ - x_agPK - x_agPL - x_agPM - x_agPN - x_agPO - x_agPP - x_agPQ - x_agPR - x_agPS - y_agQ7 - x_agPU - x_agPV - x_agPW - x_agPX - x_agPY - x_agPZ - x_agQ0 - x_agQ1 - x_agQ2 - x_agQ3 - x_agQ4 - x_agQ5 - x_agQ6) - (f_agPE x_agPT) -class HasRepl s a | s -> a where - repl :: Lens' s a -instance HasRepl Network.Riak.Protocol.BucketProps.BucketProps (Maybe Network.Riak.Protocol.BucketProps.ReplMode.ReplMode) where - {-# INLINE repl #-} - repl - f_agQ8 - (Network.Riak.Protocol.BucketProps.BucketProps x_agQ9 - x_agQa - x_agQb - x_agQc - x_agQd - x_agQe - x_agQf - x_agQg - x_agQh - x_agQi - x_agQj - x_agQk - x_agQl - x_agQm - x_agQn - x_agQo - x_agQp - x_agQq - x_agQr - x_agQs - x_agQt - x_agQu - x_agQv - x_agQw - x_agQx - x_agQy - x_agQz - x_agQA) - = fmap - (\ y_agQB - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agQ9 - x_agQa - x_agQb - x_agQc - x_agQd - x_agQe - x_agQf - x_agQg - x_agQh - x_agQi - x_agQj - x_agQk - x_agQl - x_agQm - x_agQn - x_agQo - x_agQp - x_agQq - x_agQr - x_agQs - x_agQt - x_agQu - x_agQv - y_agQB - x_agQx - x_agQy - x_agQz - x_agQA) - (f_agQ8 x_agQw) -class HasRw s a | s -> a where - rw :: Lens' s a -instance HasRw Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE rw #-} - rw - f_agQC - (Network.Riak.Protocol.BucketProps.BucketProps x_agQD - x_agQE - x_agQF - x_agQG - x_agQH - x_agQI - x_agQJ - x_agQK - x_agQL - x_agQM - x_agQN - x_agQO - x_agQP - x_agQQ - x_agQR - x_agQS - x_agQT - x_agQU - x_agQV - x_agQW - x_agQX - x_agQY - x_agQZ - x_agR0 - x_agR1 - x_agR2 - x_agR3 - x_agR4) - = fmap - (\ y_agR5 - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agQD - x_agQE - x_agQF - x_agQG - x_agQH - x_agQI - x_agQJ - x_agQK - x_agQL - x_agQM - x_agQN - x_agQO - x_agQP - x_agQQ - x_agQR - x_agQS - x_agQT - x_agQU - y_agR5 - x_agQW - x_agQX - x_agQY - x_agQZ - x_agR0 - x_agR1 - x_agR2 - x_agR3 - x_agR4) - (f_agQC x_agQV) -class HasSearch s a | s -> a where - search :: Lens' s a -instance HasSearch Network.Riak.Protocol.BucketProps.BucketProps (Maybe Bool) where - {-# INLINE search #-} - search - f_agR6 - (Network.Riak.Protocol.BucketProps.BucketProps x_agR7 - x_agR8 - x_agR9 - x_agRa - x_agRb - x_agRc - x_agRd - x_agRe - x_agRf - x_agRg - x_agRh - x_agRi - x_agRj - x_agRk - x_agRl - x_agRm - x_agRn - x_agRo - x_agRp - x_agRq - x_agRr - x_agRs - x_agRt - x_agRu - x_agRv - x_agRw - x_agRx - x_agRy) - = fmap - (\ y_agRz - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agR7 - x_agR8 - x_agR9 - x_agRa - x_agRb - x_agRc - x_agRd - x_agRe - x_agRf - x_agRg - x_agRh - x_agRi - x_agRj - x_agRk - x_agRl - x_agRm - x_agRn - x_agRo - x_agRp - x_agRq - x_agRr - x_agRs - y_agRz - x_agRu - x_agRv - x_agRw - x_agRx - x_agRy) - (f_agR6 x_agRt) -class HasSearchIndex s a | s -> a where - search_index :: Lens' s a -instance HasSearchIndex Network.Riak.Protocol.BucketProps.BucketProps (Maybe ByteString) where - {-# INLINE search_index #-} - search_index - f_agRA - (Network.Riak.Protocol.BucketProps.BucketProps x_agRB - x_agRC - x_agRD - x_agRE - x_agRF - x_agRG - x_agRH - x_agRI - x_agRJ - x_agRK - x_agRL - x_agRM - x_agRN - x_agRO - x_agRP - x_agRQ - x_agRR - x_agRS - x_agRT - x_agRU - x_agRV - x_agRW - x_agRX - x_agRY - x_agRZ - x_agS0 - x_agS1 - x_agS2) - = fmap - (\ y_agS3 - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agRB - x_agRC - x_agRD - x_agRE - x_agRF - x_agRG - x_agRH - x_agRI - x_agRJ - x_agRK - x_agRL - x_agRM - x_agRN - x_agRO - x_agRP - x_agRQ - x_agRR - x_agRS - x_agRT - x_agRU - x_agRV - x_agRW - x_agRX - x_agRY - y_agS3 - x_agS0 - x_agS1 - x_agS2) - (f_agRA x_agRZ) -class HasSmallVclock s a | s -> a where - small_vclock :: Lens' s a -instance HasSmallVclock Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE small_vclock #-} - small_vclock - f_agS4 - (Network.Riak.Protocol.BucketProps.BucketProps x_agS5 - x_agS6 - x_agS7 - x_agS8 - x_agS9 - x_agSa - x_agSb - x_agSc - x_agSd - x_agSe - x_agSf - x_agSg - x_agSh - x_agSi - x_agSj - x_agSk - x_agSl - x_agSm - x_agSn - x_agSo - x_agSp - x_agSq - x_agSr - x_agSs - x_agSt - x_agSu - x_agSv - x_agSw) - = fmap - (\ y_agSx - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agS5 - x_agS6 - x_agS7 - x_agS8 - x_agS9 - x_agSa - x_agSb - x_agSc - x_agSd - x_agSe - x_agSf - x_agSg - y_agSx - x_agSi - x_agSj - x_agSk - x_agSl - x_agSm - x_agSn - x_agSo - x_agSp - x_agSq - x_agSr - x_agSs - x_agSt - x_agSu - x_agSv - x_agSw) - (f_agS4 x_agSh) -class HasW s a | s -> a where - w :: Lens' s a -instance HasW Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE w #-} - w f_agSy - (Network.Riak.Protocol.BucketProps.BucketProps x_agSz - x_agSA - x_agSB - x_agSC - x_agSD - x_agSE - x_agSF - x_agSG - x_agSH - x_agSI - x_agSJ - x_agSK - x_agSL - x_agSM - x_agSN - x_agSO - x_agSP - x_agSQ - x_agSR - x_agSS - x_agST - x_agSU - x_agSV - x_agSW - x_agSX - x_agSY - x_agSZ - x_agT0) - = fmap - (\ y_agT1 - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agSz - x_agSA - x_agSB - x_agSC - x_agSD - x_agSE - x_agSF - x_agSG - x_agSH - x_agSI - x_agSJ - x_agSK - x_agSL - x_agSM - x_agSN - y_agT1 - x_agSP - x_agSQ - x_agSR - x_agSS - x_agST - x_agSU - x_agSV - x_agSW - x_agSX - x_agSY - x_agSZ - x_agT0) - (f_agSy x_agSO) -class HasWriteOnce s a | s -> a where - write_once :: Lens' s a -instance HasWriteOnce Network.Riak.Protocol.BucketProps.BucketProps (Maybe Bool) where - {-# INLINE write_once #-} - write_once - f_agT2 - (Network.Riak.Protocol.BucketProps.BucketProps x_agT3 - x_agT4 - x_agT5 - x_agT6 - x_agT7 - x_agT8 - x_agT9 - x_agTa - x_agTb - x_agTc - x_agTd - x_agTe - x_agTf - x_agTg - x_agTh - x_agTi - x_agTj - x_agTk - x_agTl - x_agTm - x_agTn - x_agTo - x_agTp - x_agTq - x_agTr - x_agTs - x_agTt - x_agTu) - = fmap - (\ y_agTv - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agT3 - x_agT4 - x_agT5 - x_agT6 - x_agT7 - x_agT8 - x_agT9 - x_agTa - x_agTb - x_agTc - x_agTd - x_agTe - x_agTf - x_agTg - x_agTh - x_agTi - x_agTj - x_agTk - x_agTl - x_agTm - x_agTn - x_agTo - x_agTp - x_agTq - x_agTr - x_agTs - x_agTt - y_agTv) - (f_agT2 x_agTu) -class HasYoungVclock s a | s -> a where - young_vclock :: Lens' s a -instance HasYoungVclock Network.Riak.Protocol.BucketProps.BucketProps (Maybe Word32) where - {-# INLINE young_vclock #-} - young_vclock - f_agTw - (Network.Riak.Protocol.BucketProps.BucketProps x_agTx - x_agTy - x_agTz - x_agTA - x_agTB - x_agTC - x_agTD - x_agTE - x_agTF - x_agTG - x_agTH - x_agTI - x_agTJ - x_agTK - x_agTL - x_agTM - x_agTN - x_agTO - x_agTP - x_agTQ - x_agTR - x_agTS - x_agTT - x_agTU - x_agTV - x_agTW - x_agTX - x_agTY) - = fmap - (\ y_agTZ - -> Network.Riak.Protocol.BucketProps.BucketProps - x_agTx - x_agTy - x_agTz - x_agTA - x_agTB - x_agTC - x_agTD - x_agTE - x_agTF - x_agTG - y_agTZ - x_agTI - x_agTJ - x_agTK - x_agTL - x_agTM - x_agTN - x_agTO - x_agTP - x_agTQ - x_agTR - x_agTS - x_agTT - x_agTU - x_agTV - x_agTW - x_agTX - x_agTY) - (f_agTw x_agTH) -class HasModfun s a | s -> a where - modfun :: Lens' s a -instance HasModfun Network.Riak.Protocol.CommitHook.CommitHook (Maybe Network.Riak.Protocol.ModFun.ModFun) where - {-# INLINE modfun #-} - modfun f_ahcb (Network.Riak.Protocol.CommitHook.CommitHook x_ahcc x_ahcd) - = fmap (\ y_ahce -> Network.Riak.Protocol.CommitHook.CommitHook y_ahce x_ahcd) (f_ahcb x_ahcc) -class HasName s a | s -> a where - name :: Lens' s a -instance HasName Network.Riak.Protocol.CommitHook.CommitHook (Maybe ByteString) where - {-# INLINE name #-} - name f_ahcf (Network.Riak.Protocol.CommitHook.CommitHook x_ahcg x_ahch) - = fmap (\ y_ahci -> Network.Riak.Protocol.CommitHook.CommitHook x_ahcg y_ahci) (f_ahcf x_ahch) -class HasCharset s a | s -> a where - charset :: Lens' s a -instance HasCharset Network.Riak.Protocol.Content.Content (Maybe ByteString) where - {-# INLINE charset #-} - charset f_ahdI (Network.Riak.Protocol.Content.Content x_ahdJ x_ahdK x_ahdL x_ahdM x_ahdN x_ahdO x_ahdP x_ahdQ x_ahdR x_ahdS x_ahdT) - = fmap - (\ y_ahdU -> Network.Riak.Protocol.Content.Content x_ahdJ x_ahdK y_ahdU x_ahdM x_ahdN x_ahdO x_ahdP x_ahdQ x_ahdR x_ahdS x_ahdT) - (f_ahdI x_ahdL) -class HasContentEncoding s a | s -> a where - content_encoding :: Lens' s a -instance HasContentEncoding Network.Riak.Protocol.Content.Content (Maybe ByteString) where - {-# INLINE content_encoding #-} - content_encoding - f_ahdV - (Network.Riak.Protocol.Content.Content x_ahdW x_ahdX x_ahdY x_ahdZ x_ahe0 x_ahe1 x_ahe2 x_ahe3 x_ahe4 x_ahe5 x_ahe6) - = fmap - (\ y_ahe7 -> Network.Riak.Protocol.Content.Content x_ahdW x_ahdX x_ahdY y_ahe7 x_ahe0 x_ahe1 x_ahe2 x_ahe3 x_ahe4 x_ahe5 x_ahe6) - (f_ahdV x_ahdZ) -class HasContentType s a | s -> a where - content_type :: Lens' s a -instance HasContentType Network.Riak.Protocol.Content.Content (Maybe ByteString) where - {-# INLINE content_type #-} - content_type - f_ahe8 - (Network.Riak.Protocol.Content.Content x_ahe9 x_ahea x_aheb x_ahec x_ahed x_ahee x_ahef x_aheg x_aheh x_ahei x_ahej) - = fmap - (\ y_ahek -> Network.Riak.Protocol.Content.Content x_ahe9 y_ahek x_aheb x_ahec x_ahed x_ahee x_ahef x_aheg x_aheh x_ahei x_ahej) - (f_ahe8 x_ahea) -class HasDeleted s a | s -> a where - deleted :: Lens' s a -instance HasDeleted Network.Riak.Protocol.Content.Content (Maybe Bool) where - {-# INLINE deleted #-} - deleted f_ahel (Network.Riak.Protocol.Content.Content x_ahem x_ahen x_aheo x_ahep x_aheq x_aher x_ahes x_ahet x_aheu x_ahev x_ahew) - = fmap - (\ y_ahex -> Network.Riak.Protocol.Content.Content x_ahem x_ahen x_aheo x_ahep x_aheq x_aher x_ahes x_ahet x_aheu x_ahev y_ahex) - (f_ahel x_ahew) -class HasIndexes s a | s -> a where - indexes :: Lens' s a -instance HasIndexes Network.Riak.Protocol.Content.Content (Seq Network.Riak.Protocol.Pair.Pair) where - {-# INLINE indexes #-} - indexes f_ahey (Network.Riak.Protocol.Content.Content x_ahez x_aheA x_aheB x_aheC x_aheD x_aheE x_aheF x_aheG x_aheH x_aheI x_aheJ) - = fmap - (\ y_aheK -> Network.Riak.Protocol.Content.Content x_ahez x_aheA x_aheB x_aheC x_aheD x_aheE x_aheF x_aheG x_aheH y_aheK x_aheJ) - (f_ahey x_aheI) -class HasLastMod s a | s -> a where - last_mod :: Lens' s a -instance HasLastMod Network.Riak.Protocol.Content.Content (Maybe Word32) where - {-# INLINE last_mod #-} - last_mod f_aheL (Network.Riak.Protocol.Content.Content x_aheM x_aheN x_aheO x_aheP x_aheQ x_aheR x_aheS x_aheT x_aheU x_aheV x_aheW) - = fmap - (\ y_aheX -> Network.Riak.Protocol.Content.Content x_aheM x_aheN x_aheO x_aheP x_aheQ x_aheR y_aheX x_aheT x_aheU x_aheV x_aheW) - (f_aheL x_aheS) -class HasLastModUsecs s a | s -> a where - last_mod_usecs :: Lens' s a -instance HasLastModUsecs Network.Riak.Protocol.Content.Content (Maybe Word32) where - {-# INLINE last_mod_usecs #-} - last_mod_usecs - f_aheY - (Network.Riak.Protocol.Content.Content x_aheZ x_ahf0 x_ahf1 x_ahf2 x_ahf3 x_ahf4 x_ahf5 x_ahf6 x_ahf7 x_ahf8 x_ahf9) - = fmap - (\ y_ahfa -> Network.Riak.Protocol.Content.Content x_aheZ x_ahf0 x_ahf1 x_ahf2 x_ahf3 x_ahf4 x_ahf5 y_ahfa x_ahf7 x_ahf8 x_ahf9) - (f_aheY x_ahf6) -class HasLinks s a | s -> a where - links :: Lens' s a -instance HasLinks Network.Riak.Protocol.Content.Content (Seq Network.Riak.Protocol.Link.Link) where - {-# INLINE links #-} - links f_ahfb (Network.Riak.Protocol.Content.Content x_ahfc x_ahfd x_ahfe x_ahff x_ahfg x_ahfh x_ahfi x_ahfj x_ahfk x_ahfl x_ahfm) - = fmap - (\ y_ahfn -> Network.Riak.Protocol.Content.Content x_ahfc x_ahfd x_ahfe x_ahff x_ahfg y_ahfn x_ahfi x_ahfj x_ahfk x_ahfl x_ahfm) - (f_ahfb x_ahfh) -class HasUsermeta s a | s -> a where - usermeta :: Lens' s a -instance HasUsermeta Network.Riak.Protocol.Content.Content (Seq Network.Riak.Protocol.Pair.Pair) where - {-# INLINE usermeta #-} - usermeta f_ahfo (Network.Riak.Protocol.Content.Content x_ahfp x_ahfq x_ahfr x_ahfs x_ahft x_ahfu x_ahfv x_ahfw x_ahfx x_ahfy x_ahfz) - = fmap - (\ y_ahfA -> Network.Riak.Protocol.Content.Content x_ahfp x_ahfq x_ahfr x_ahfs x_ahft x_ahfu x_ahfv x_ahfw y_ahfA x_ahfy x_ahfz) - (f_ahfo x_ahfx) -class HasValue s a | s -> a where - value :: Lens' s a -instance HasValue Network.Riak.Protocol.Content.Content ByteString where - {-# INLINE value #-} - value f_ahfB (Network.Riak.Protocol.Content.Content x_ahfC x_ahfD x_ahfE x_ahfF x_ahfG x_ahfH x_ahfI x_ahfJ x_ahfK x_ahfL x_ahfM) - = fmap - (\ y_ahfN -> Network.Riak.Protocol.Content.Content y_ahfN x_ahfD x_ahfE x_ahfF x_ahfG x_ahfH x_ahfI x_ahfJ x_ahfK x_ahfL x_ahfM) - (f_ahfB x_ahfC) -class HasVtag s a | s -> a where - vtag :: Lens' s a -instance HasVtag Network.Riak.Protocol.Content.Content (Maybe ByteString) where - {-# INLINE vtag #-} - vtag f_ahfO (Network.Riak.Protocol.Content.Content x_ahfP x_ahfQ x_ahfR x_ahfS x_ahfT x_ahfU x_ahfV x_ahfW x_ahfX x_ahfY x_ahfZ) - = fmap - (\ y_ahg0 -> Network.Riak.Protocol.Content.Content x_ahfP x_ahfQ x_ahfR x_ahfS y_ahg0 x_ahfU x_ahfV x_ahfW x_ahfX x_ahfY x_ahfZ) - (f_ahfO x_ahfT) -instance HasBasicQuorum Network.Riak.Protocol.CounterGetRequest.CounterGetRequest (Maybe Bool) where - {-# INLINE basic_quorum #-} - basic_quorum f_ahne (Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnf x_ahng x_ahnh x_ahni x_ahnj x_ahnk) - = fmap - (\ y_ahnl -> Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnf x_ahng x_ahnh x_ahni y_ahnl x_ahnk) (f_ahne x_ahnj) -class HasBucket s a | s -> a where - bucket :: Lens' s a -instance HasBucket Network.Riak.Protocol.CounterGetRequest.CounterGetRequest ByteString where - {-# INLINE bucket #-} - bucket f_ahnm (Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnn x_ahno x_ahnp x_ahnq x_ahnr x_ahns) - = fmap - (\ y_ahnt -> Network.Riak.Protocol.CounterGetRequest.CounterGetRequest y_ahnt x_ahno x_ahnp x_ahnq x_ahnr x_ahns) (f_ahnm x_ahnn) -class HasKey s a | s -> a where - key :: Lens' s a -instance HasKey Network.Riak.Protocol.CounterGetRequest.CounterGetRequest ByteString where - {-# INLINE key #-} - key f_ahnu (Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnv x_ahnw x_ahnx x_ahny x_ahnz x_ahnA) - = fmap - (\ y_ahnB -> Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnv y_ahnB x_ahnx x_ahny x_ahnz x_ahnA) (f_ahnu x_ahnw) -instance HasNotfoundOk Network.Riak.Protocol.CounterGetRequest.CounterGetRequest (Maybe Bool) where - {-# INLINE notfound_ok #-} - notfound_ok f_ahnC (Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnD x_ahnE x_ahnF x_ahnG x_ahnH x_ahnI) - = fmap - (\ y_ahnJ -> Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnD x_ahnE x_ahnF x_ahnG x_ahnH y_ahnJ) (f_ahnC x_ahnI) -instance HasPr Network.Riak.Protocol.CounterGetRequest.CounterGetRequest (Maybe Word32) where - {-# INLINE pr #-} - pr f_ahnK (Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnL x_ahnM x_ahnN x_ahnO x_ahnP x_ahnQ) - = fmap - (\ y_ahnR -> Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnL x_ahnM x_ahnN y_ahnR x_ahnP x_ahnQ) (f_ahnK x_ahnO) -instance HasR Network.Riak.Protocol.CounterGetRequest.CounterGetRequest (Maybe Word32) where - {-# INLINE r #-} - r f_ahnS (Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnT x_ahnU x_ahnV x_ahnW x_ahnX x_ahnY) - = fmap - (\ y_ahnZ -> Network.Riak.Protocol.CounterGetRequest.CounterGetRequest x_ahnT x_ahnU y_ahnZ x_ahnW x_ahnX x_ahnY) (f_ahnS x_ahnV) -instance HasValue Network.Riak.Protocol.CounterGetResponse.CounterGetResponse (Maybe Int64) where - {-# INLINE value #-} - value f_ahqj (Network.Riak.Protocol.CounterGetResponse.CounterGetResponse x_ahqk) - = fmap (\ y_ahql -> Network.Riak.Protocol.CounterGetResponse.CounterGetResponse y_ahql) (f_ahqj x_ahqk) -class HasIncrement s a | s -> a where - increment :: Lens' s a -instance HasIncrement Network.Riak.Protocol.CounterOp.CounterOp (Maybe Int64) where - {-# INLINE increment #-} - increment f_ahqH (Network.Riak.Protocol.CounterOp.CounterOp x_ahqI) - = fmap (\ y_ahqJ -> Network.Riak.Protocol.CounterOp.CounterOp y_ahqJ) (f_ahqH x_ahqI) -class HasAmount s a | s -> a where - amount :: Lens' s a -instance HasAmount Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest Int64 where - {-# INLINE amount #-} - amount f_ahrv (Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahrw x_ahrx x_ahry x_ahrz x_ahrA x_ahrB x_ahrC) - = fmap - (\ y_ahrD -> Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahrw x_ahrx y_ahrD x_ahrz x_ahrA x_ahrB x_ahrC) - (f_ahrv x_ahry) -instance HasBucket Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest ByteString where - {-# INLINE bucket #-} - bucket f_ahrE (Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahrF x_ahrG x_ahrH x_ahrI x_ahrJ x_ahrK x_ahrL) - = fmap - (\ y_ahrM -> Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest y_ahrM x_ahrG x_ahrH x_ahrI x_ahrJ x_ahrK x_ahrL) - (f_ahrE x_ahrF) -instance HasDw Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest (Maybe Word32) where - {-# INLINE dw #-} - dw f_ahrN (Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahrO x_ahrP x_ahrQ x_ahrR x_ahrS x_ahrT x_ahrU) - = fmap - (\ y_ahrV -> Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahrO x_ahrP x_ahrQ x_ahrR y_ahrV x_ahrT x_ahrU) - (f_ahrN x_ahrS) -instance HasKey Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest ByteString where - {-# INLINE key #-} - key f_ahrW (Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahrX x_ahrY x_ahrZ x_ahs0 x_ahs1 x_ahs2 x_ahs3) - = fmap - (\ y_ahs4 -> Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahrX y_ahs4 x_ahrZ x_ahs0 x_ahs1 x_ahs2 x_ahs3) - (f_ahrW x_ahrY) -instance HasPw Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest (Maybe Word32) where - {-# INLINE pw #-} - pw f_ahs5 (Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahs6 x_ahs7 x_ahs8 x_ahs9 x_ahsa x_ahsb x_ahsc) - = fmap - (\ y_ahsd -> Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahs6 x_ahs7 x_ahs8 x_ahs9 x_ahsa y_ahsd x_ahsc) - (f_ahs5 x_ahsb) -class HasReturnvalue s a | s -> a where - returnvalue :: Lens' s a -instance HasReturnvalue Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest (Maybe Bool) where - {-# INLINE returnvalue #-} - returnvalue f_ahse (Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahsf x_ahsg x_ahsh x_ahsi x_ahsj x_ahsk x_ahsl) - = fmap - (\ y_ahsm -> Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahsf x_ahsg x_ahsh x_ahsi x_ahsj x_ahsk y_ahsm) - (f_ahse x_ahsl) -instance HasW Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest (Maybe Word32) where - {-# INLINE w #-} - w f_ahsn (Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahso x_ahsp x_ahsq x_ahsr x_ahss x_ahst x_ahsu) - = fmap - (\ y_ahsv -> Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest x_ahso x_ahsp x_ahsq y_ahsv x_ahss x_ahst x_ahsu) - (f_ahsn x_ahsr) -instance HasValue Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse (Maybe Int64) where - {-# INLINE value #-} - value f_ahv4 (Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse x_ahv5) - = fmap (\ y_ahv6 -> Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse y_ahv6) (f_ahv4 x_ahv5) -instance HasBucket Network.Riak.Protocol.CSBucketRequest.CSBucketRequest ByteString where - {-# INLINE bucket #-} - bucket f_ahvs (Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahvt x_ahvu x_ahvv x_ahvw x_ahvx x_ahvy x_ahvz x_ahvA x_ahvB) - = fmap - (\ y_ahvC -> Network.Riak.Protocol.CSBucketRequest.CSBucketRequest y_ahvC x_ahvu x_ahvv x_ahvw x_ahvx x_ahvy x_ahvz x_ahvA x_ahvB) - (f_ahvs x_ahvt) -class HasContinuation s a | s -> a where - continuation :: Lens' s a -instance HasContinuation Network.Riak.Protocol.CSBucketRequest.CSBucketRequest (Maybe ByteString) where - {-# INLINE continuation #-} - continuation - f_ahvD - (Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahvE x_ahvF x_ahvG x_ahvH x_ahvI x_ahvJ x_ahvK x_ahvL x_ahvM) - = fmap - (\ y_ahvN -> Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahvE x_ahvF x_ahvG x_ahvH x_ahvI y_ahvN x_ahvK x_ahvL x_ahvM) - (f_ahvD x_ahvJ) -class HasEndIncl s a | s -> a where - end_incl :: Lens' s a -instance HasEndIncl Network.Riak.Protocol.CSBucketRequest.CSBucketRequest (Maybe Bool) where - {-# INLINE end_incl #-} - end_incl - f_ahvO - (Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahvP x_ahvQ x_ahvR x_ahvS x_ahvT x_ahvU x_ahvV x_ahvW x_ahvX) - = fmap - (\ y_ahvY -> Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahvP x_ahvQ x_ahvR x_ahvS y_ahvY x_ahvU x_ahvV x_ahvW x_ahvX) - (f_ahvO x_ahvT) -class HasEndKey s a | s -> a where - end_key :: Lens' s a -instance HasEndKey Network.Riak.Protocol.CSBucketRequest.CSBucketRequest (Maybe ByteString) where - {-# INLINE end_key #-} - end_key f_ahvZ (Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahw0 x_ahw1 x_ahw2 x_ahw3 x_ahw4 x_ahw5 x_ahw6 x_ahw7 x_ahw8) - = fmap - (\ y_ahw9 -> Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahw0 x_ahw1 y_ahw9 x_ahw3 x_ahw4 x_ahw5 x_ahw6 x_ahw7 x_ahw8) - (f_ahvZ x_ahw2) -class HasMaxResults s a | s -> a where - max_results :: Lens' s a -instance HasMaxResults Network.Riak.Protocol.CSBucketRequest.CSBucketRequest (Maybe Word32) where - {-# INLINE max_results #-} - max_results - f_ahwa - (Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahwb x_ahwc x_ahwd x_ahwe x_ahwf x_ahwg x_ahwh x_ahwi x_ahwj) - = fmap - (\ y_ahwk -> Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahwb x_ahwc x_ahwd x_ahwe x_ahwf x_ahwg y_ahwk x_ahwi x_ahwj) - (f_ahwa x_ahwh) -class HasStartIncl s a | s -> a where - start_incl :: Lens' s a -instance HasStartIncl Network.Riak.Protocol.CSBucketRequest.CSBucketRequest (Maybe Bool) where - {-# INLINE start_incl #-} - start_incl - f_ahwl - (Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahwm x_ahwn x_ahwo x_ahwp x_ahwq x_ahwr x_ahws x_ahwt x_ahwu) - = fmap - (\ y_ahwv -> Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahwm x_ahwn x_ahwo y_ahwv x_ahwq x_ahwr x_ahws x_ahwt x_ahwu) - (f_ahwl x_ahwp) -class HasStartKey s a | s -> a where - start_key :: Lens' s a -instance HasStartKey Network.Riak.Protocol.CSBucketRequest.CSBucketRequest ByteString where - {-# INLINE start_key #-} - start_key - f_ahww - (Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahwx x_ahwy x_ahwz x_ahwA x_ahwB x_ahwC x_ahwD x_ahwE x_ahwF) - = fmap - (\ y_ahwG -> Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahwx y_ahwG x_ahwz x_ahwA x_ahwB x_ahwC x_ahwD x_ahwE x_ahwF) - (f_ahww x_ahwy) -class HasTimeout s a | s -> a where - timeout :: Lens' s a -instance HasTimeout Network.Riak.Protocol.CSBucketRequest.CSBucketRequest (Maybe Word32) where - {-# INLINE timeout #-} - timeout f_ahwH (Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahwI x_ahwJ x_ahwK x_ahwL x_ahwM x_ahwN x_ahwO x_ahwP x_ahwQ) - = fmap - (\ y_ahwR -> Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahwI x_ahwJ x_ahwK x_ahwL x_ahwM x_ahwN x_ahwO y_ahwR x_ahwQ) - (f_ahwH x_ahwP) -class HasType' s a | s -> a where - type' :: Lens' s a -instance HasType' Network.Riak.Protocol.CSBucketRequest.CSBucketRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' f_ahwS (Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahwT x_ahwU x_ahwV x_ahwW x_ahwX x_ahwY x_ahwZ x_ahx0 x_ahx1) - = fmap - (\ y_ahx2 -> Network.Riak.Protocol.CSBucketRequest.CSBucketRequest x_ahwT x_ahwU x_ahwV x_ahwW x_ahwX x_ahwY x_ahwZ x_ahx0 y_ahx2) - (f_ahwS x_ahx1) -instance HasContinuation Network.Riak.Protocol.CSBucketResponse.CSBucketResponse (Maybe ByteString) where - {-# INLINE continuation #-} - continuation f_ahCy (Network.Riak.Protocol.CSBucketResponse.CSBucketResponse x_ahCz x_ahCA x_ahCB) - = fmap (\ y_ahCC -> Network.Riak.Protocol.CSBucketResponse.CSBucketResponse x_ahCz y_ahCC x_ahCB) (f_ahCy x_ahCA) -class HasDone s a | s -> a where - done :: Lens' s a -instance HasDone Network.Riak.Protocol.CSBucketResponse.CSBucketResponse (Maybe Bool) where - {-# INLINE done #-} - done f_ahCD (Network.Riak.Protocol.CSBucketResponse.CSBucketResponse x_ahCE x_ahCF x_ahCG) - = fmap (\ y_ahCH -> Network.Riak.Protocol.CSBucketResponse.CSBucketResponse x_ahCE x_ahCF y_ahCH) (f_ahCD x_ahCG) -class HasObjects s a | s -> a where - objects :: Lens' s a -instance HasObjects Network.Riak.Protocol.CSBucketResponse.CSBucketResponse (Seq Network.Riak.Protocol.IndexObject.IndexObject) where - {-# INLINE objects #-} - objects f_ahCI (Network.Riak.Protocol.CSBucketResponse.CSBucketResponse x_ahCJ x_ahCK x_ahCL) - = fmap (\ y_ahCM -> Network.Riak.Protocol.CSBucketResponse.CSBucketResponse y_ahCM x_ahCK x_ahCL) (f_ahCI x_ahCJ) -instance HasBucket Network.Riak.Protocol.DeleteRequest.DeleteRequest ByteString where - {-# INLINE bucket #-} - bucket - f_ahEq - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahEr - x_ahEs - x_ahEt - x_ahEu - x_ahEv - x_ahEw - x_ahEx - x_ahEy - x_ahEz - x_ahEA - x_ahEB - x_ahEC - x_ahED) - = fmap - (\ y_ahEE - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - y_ahEE x_ahEs x_ahEt x_ahEu x_ahEv x_ahEw x_ahEx x_ahEy x_ahEz x_ahEA x_ahEB x_ahEC x_ahED) - (f_ahEq x_ahEr) -instance HasDw Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe Word32) where - {-# INLINE dw #-} - dw - f_ahEF - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahEG - x_ahEH - x_ahEI - x_ahEJ - x_ahEK - x_ahEL - x_ahEM - x_ahEN - x_ahEO - x_ahEP - x_ahEQ - x_ahER - x_ahES) - = fmap - (\ y_ahET - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahEG x_ahEH x_ahEI x_ahEJ x_ahEK x_ahEL x_ahEM x_ahEN y_ahET x_ahEP x_ahEQ x_ahER x_ahES) - (f_ahEF x_ahEO) -instance HasKey Network.Riak.Protocol.DeleteRequest.DeleteRequest ByteString where - {-# INLINE key #-} - key - f_ahEU - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahEV - x_ahEW - x_ahEX - x_ahEY - x_ahEZ - x_ahF0 - x_ahF1 - x_ahF2 - x_ahF3 - x_ahF4 - x_ahF5 - x_ahF6 - x_ahF7) - = fmap - (\ y_ahF8 - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahEV y_ahF8 x_ahEX x_ahEY x_ahEZ x_ahF0 x_ahF1 x_ahF2 x_ahF3 x_ahF4 x_ahF5 x_ahF6 x_ahF7) - (f_ahEU x_ahEW) -instance HasNVal Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe Word32) where - {-# INLINE n_val #-} - n_val - f_ahF9 - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahFa - x_ahFb - x_ahFc - x_ahFd - x_ahFe - x_ahFf - x_ahFg - x_ahFh - x_ahFi - x_ahFj - x_ahFk - x_ahFl - x_ahFm) - = fmap - (\ y_ahFn - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahFa x_ahFb x_ahFc x_ahFd x_ahFe x_ahFf x_ahFg x_ahFh x_ahFi x_ahFj x_ahFk y_ahFn x_ahFm) - (f_ahF9 x_ahFl) -instance HasPr Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe Word32) where - {-# INLINE pr #-} - pr - f_ahFo - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahFp - x_ahFq - x_ahFr - x_ahFs - x_ahFt - x_ahFu - x_ahFv - x_ahFw - x_ahFx - x_ahFy - x_ahFz - x_ahFA - x_ahFB) - = fmap - (\ y_ahFC - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahFp x_ahFq x_ahFr x_ahFs x_ahFt x_ahFu y_ahFC x_ahFw x_ahFx x_ahFy x_ahFz x_ahFA x_ahFB) - (f_ahFo x_ahFv) -instance HasPw Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe Word32) where - {-# INLINE pw #-} - pw - f_ahFD - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahFE - x_ahFF - x_ahFG - x_ahFH - x_ahFI - x_ahFJ - x_ahFK - x_ahFL - x_ahFM - x_ahFN - x_ahFO - x_ahFP - x_ahFQ) - = fmap - (\ y_ahFR - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahFE x_ahFF x_ahFG x_ahFH x_ahFI x_ahFJ x_ahFK y_ahFR x_ahFM x_ahFN x_ahFO x_ahFP x_ahFQ) - (f_ahFD x_ahFL) -instance HasR Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe Word32) where - {-# INLINE r #-} - r f_ahFS - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahFT - x_ahFU - x_ahFV - x_ahFW - x_ahFX - x_ahFY - x_ahFZ - x_ahG0 - x_ahG1 - x_ahG2 - x_ahG3 - x_ahG4 - x_ahG5) - = fmap - (\ y_ahG6 - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahFT x_ahFU x_ahFV x_ahFW y_ahG6 x_ahFY x_ahFZ x_ahG0 x_ahG1 x_ahG2 x_ahG3 x_ahG4 x_ahG5) - (f_ahFS x_ahFX) -instance HasRw Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe Word32) where - {-# INLINE rw #-} - rw - f_ahG7 - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahG8 - x_ahG9 - x_ahGa - x_ahGb - x_ahGc - x_ahGd - x_ahGe - x_ahGf - x_ahGg - x_ahGh - x_ahGi - x_ahGj - x_ahGk) - = fmap - (\ y_ahGl - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahG8 x_ahG9 y_ahGl x_ahGb x_ahGc x_ahGd x_ahGe x_ahGf x_ahGg x_ahGh x_ahGi x_ahGj x_ahGk) - (f_ahG7 x_ahGa) -class HasSloppyQuorum s a | s -> a where - sloppy_quorum :: Lens' s a -instance HasSloppyQuorum Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe Bool) where - {-# INLINE sloppy_quorum #-} - sloppy_quorum - f_ahGm - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahGn - x_ahGo - x_ahGp - x_ahGq - x_ahGr - x_ahGs - x_ahGt - x_ahGu - x_ahGv - x_ahGw - x_ahGx - x_ahGy - x_ahGz) - = fmap - (\ y_ahGA - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahGn x_ahGo x_ahGp x_ahGq x_ahGr x_ahGs x_ahGt x_ahGu x_ahGv x_ahGw y_ahGA x_ahGy x_ahGz) - (f_ahGm x_ahGx) -instance HasTimeout Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe Word32) where - {-# INLINE timeout #-} - timeout - f_ahGB - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahGC - x_ahGD - x_ahGE - x_ahGF - x_ahGG - x_ahGH - x_ahGI - x_ahGJ - x_ahGK - x_ahGL - x_ahGM - x_ahGN - x_ahGO) - = fmap - (\ y_ahGP - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahGC x_ahGD x_ahGE x_ahGF x_ahGG x_ahGH x_ahGI x_ahGJ x_ahGK y_ahGP x_ahGM x_ahGN x_ahGO) - (f_ahGB x_ahGL) -instance HasType' Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' - f_ahGQ - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahGR - x_ahGS - x_ahGT - x_ahGU - x_ahGV - x_ahGW - x_ahGX - x_ahGY - x_ahGZ - x_ahH0 - x_ahH1 - x_ahH2 - x_ahH3) - = fmap - (\ y_ahH4 - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahGR x_ahGS x_ahGT x_ahGU x_ahGV x_ahGW x_ahGX x_ahGY x_ahGZ x_ahH0 x_ahH1 x_ahH2 y_ahH4) - (f_ahGQ x_ahH3) -class HasVclock s a | s -> a where - vclock :: Lens' s a -instance HasVclock Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe ByteString) where - {-# INLINE vclock #-} - vclock - f_ahH5 - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahH6 - x_ahH7 - x_ahH8 - x_ahH9 - x_ahHa - x_ahHb - x_ahHc - x_ahHd - x_ahHe - x_ahHf - x_ahHg - x_ahHh - x_ahHi) - = fmap - (\ y_ahHj - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahH6 x_ahH7 x_ahH8 y_ahHj x_ahHa x_ahHb x_ahHc x_ahHd x_ahHe x_ahHf x_ahHg x_ahHh x_ahHi) - (f_ahH5 x_ahH9) -instance HasW Network.Riak.Protocol.DeleteRequest.DeleteRequest (Maybe Word32) where - {-# INLINE w #-} - w f_ahHk - (Network.Riak.Protocol.DeleteRequest.DeleteRequest x_ahHl - x_ahHm - x_ahHn - x_ahHo - x_ahHp - x_ahHq - x_ahHr - x_ahHs - x_ahHt - x_ahHu - x_ahHv - x_ahHw - x_ahHx) - = fmap - (\ y_ahHy - -> Network.Riak.Protocol.DeleteRequest.DeleteRequest - x_ahHl x_ahHm x_ahHn x_ahHo x_ahHp y_ahHy x_ahHr x_ahHs x_ahHt x_ahHu x_ahHv x_ahHw x_ahHx) - (f_ahHk x_ahHq) -instance HasBasicQuorum Network.Riak.Protocol.DtFetchRequest.DtFetchRequest (Maybe Bool) where - {-# INLINE basic_quorum #-} - basic_quorum - f_ahLs - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahLt x_ahLu x_ahLv x_ahLw x_ahLx x_ahLy x_ahLz x_ahLA x_ahLB x_ahLC x_ahLD) - = fmap - (\ y_ahLE - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahLt x_ahLu x_ahLv x_ahLw x_ahLx y_ahLE x_ahLz x_ahLA x_ahLB x_ahLC x_ahLD) - (f_ahLs x_ahLy) -instance HasBucket Network.Riak.Protocol.DtFetchRequest.DtFetchRequest ByteString where - {-# INLINE bucket #-} - bucket - f_ahLF - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahLG x_ahLH x_ahLI x_ahLJ x_ahLK x_ahLL x_ahLM x_ahLN x_ahLO x_ahLP x_ahLQ) - = fmap - (\ y_ahLR - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest y_ahLR x_ahLH x_ahLI x_ahLJ x_ahLK x_ahLL x_ahLM x_ahLN x_ahLO x_ahLP x_ahLQ) - (f_ahLF x_ahLG) -class HasIncludeContext s a | s -> a where - include_context :: Lens' s a -instance HasIncludeContext Network.Riak.Protocol.DtFetchRequest.DtFetchRequest (Maybe Bool) where - {-# INLINE include_context #-} - include_context - f_ahLS - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahLT x_ahLU x_ahLV x_ahLW x_ahLX x_ahLY x_ahLZ x_ahM0 x_ahM1 x_ahM2 x_ahM3) - = fmap - (\ y_ahM4 - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahLT x_ahLU x_ahLV x_ahLW x_ahLX x_ahLY x_ahLZ x_ahM0 x_ahM1 x_ahM2 y_ahM4) - (f_ahLS x_ahM3) -instance HasKey Network.Riak.Protocol.DtFetchRequest.DtFetchRequest ByteString where - {-# INLINE key #-} - key - f_ahM5 - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahM6 x_ahM7 x_ahM8 x_ahM9 x_ahMa x_ahMb x_ahMc x_ahMd x_ahMe x_ahMf x_ahMg) - = fmap - (\ y_ahMh - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahM6 y_ahMh x_ahM8 x_ahM9 x_ahMa x_ahMb x_ahMc x_ahMd x_ahMe x_ahMf x_ahMg) - (f_ahM5 x_ahM7) -instance HasNVal Network.Riak.Protocol.DtFetchRequest.DtFetchRequest (Maybe Word32) where - {-# INLINE n_val #-} - n_val - f_ahMi - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahMj x_ahMk x_ahMl x_ahMm x_ahMn x_ahMo x_ahMp x_ahMq x_ahMr x_ahMs x_ahMt) - = fmap - (\ y_ahMu - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahMj x_ahMk x_ahMl x_ahMm x_ahMn x_ahMo x_ahMp x_ahMq x_ahMr y_ahMu x_ahMt) - (f_ahMi x_ahMs) -instance HasNotfoundOk Network.Riak.Protocol.DtFetchRequest.DtFetchRequest (Maybe Bool) where - {-# INLINE notfound_ok #-} - notfound_ok - f_ahMv - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahMw x_ahMx x_ahMy x_ahMz x_ahMA x_ahMB x_ahMC x_ahMD x_ahME x_ahMF x_ahMG) - = fmap - (\ y_ahMH - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahMw x_ahMx x_ahMy x_ahMz x_ahMA x_ahMB y_ahMH x_ahMD x_ahME x_ahMF x_ahMG) - (f_ahMv x_ahMC) -instance HasPr Network.Riak.Protocol.DtFetchRequest.DtFetchRequest (Maybe Word32) where - {-# INLINE pr #-} - pr - f_ahMI - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahMJ x_ahMK x_ahML x_ahMM x_ahMN x_ahMO x_ahMP x_ahMQ x_ahMR x_ahMS x_ahMT) - = fmap - (\ y_ahMU - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahMJ x_ahMK x_ahML x_ahMM y_ahMU x_ahMO x_ahMP x_ahMQ x_ahMR x_ahMS x_ahMT) - (f_ahMI x_ahMN) -instance HasR Network.Riak.Protocol.DtFetchRequest.DtFetchRequest (Maybe Word32) where - {-# INLINE r #-} - r f_ahMV - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahMW x_ahMX x_ahMY x_ahMZ x_ahN0 x_ahN1 x_ahN2 x_ahN3 x_ahN4 x_ahN5 x_ahN6) - = fmap - (\ y_ahN7 - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahMW x_ahMX x_ahMY y_ahN7 x_ahN0 x_ahN1 x_ahN2 x_ahN3 x_ahN4 x_ahN5 x_ahN6) - (f_ahMV x_ahMZ) -instance HasSloppyQuorum Network.Riak.Protocol.DtFetchRequest.DtFetchRequest (Maybe Bool) where - {-# INLINE sloppy_quorum #-} - sloppy_quorum - f_ahN8 - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahN9 x_ahNa x_ahNb x_ahNc x_ahNd x_ahNe x_ahNf x_ahNg x_ahNh x_ahNi x_ahNj) - = fmap - (\ y_ahNk - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahN9 x_ahNa x_ahNb x_ahNc x_ahNd x_ahNe x_ahNf x_ahNg y_ahNk x_ahNi x_ahNj) - (f_ahN8 x_ahNh) -instance HasTimeout Network.Riak.Protocol.DtFetchRequest.DtFetchRequest (Maybe Word32) where - {-# INLINE timeout #-} - timeout - f_ahNl - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahNm x_ahNn x_ahNo x_ahNp x_ahNq x_ahNr x_ahNs x_ahNt x_ahNu x_ahNv x_ahNw) - = fmap - (\ y_ahNx - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahNm x_ahNn x_ahNo x_ahNp x_ahNq x_ahNr x_ahNs y_ahNx x_ahNu x_ahNv x_ahNw) - (f_ahNl x_ahNt) -instance HasType' Network.Riak.Protocol.DtFetchRequest.DtFetchRequest ByteString where - {-# INLINE type' #-} - type' - f_ahNy - (Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahNz x_ahNA x_ahNB x_ahNC x_ahND x_ahNE x_ahNF x_ahNG x_ahNH x_ahNI x_ahNJ) - = fmap - (\ y_ahNK - -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest x_ahNz x_ahNA y_ahNK x_ahNC x_ahND x_ahNE x_ahNF x_ahNG x_ahNH x_ahNI x_ahNJ) - (f_ahNy x_ahNB) -class HasContext s a | s -> a where - context :: Lens' s a -instance HasContext Network.Riak.Protocol.DtFetchResponse.DtFetchResponse (Maybe ByteString) where - {-# INLINE context #-} - context f_ahQM (Network.Riak.Protocol.DtFetchResponse.DtFetchResponse x_ahQN x_ahQO x_ahQP) - = fmap (\ y_ahQQ -> Network.Riak.Protocol.DtFetchResponse.DtFetchResponse y_ahQQ x_ahQO x_ahQP) (f_ahQM x_ahQN) -instance HasType' Network.Riak.Protocol.DtFetchResponse.DtFetchResponse Network.Riak.Protocol.DtFetchResponse.DataType.DataType where - {-# INLINE type' #-} - type' f_ahQR (Network.Riak.Protocol.DtFetchResponse.DtFetchResponse x_ahQS x_ahQT x_ahQU) - = fmap (\ y_ahQV -> Network.Riak.Protocol.DtFetchResponse.DtFetchResponse x_ahQS y_ahQV x_ahQU) (f_ahQR x_ahQT) -instance HasValue Network.Riak.Protocol.DtFetchResponse.DtFetchResponse (Maybe Network.Riak.Protocol.DtValue.DtValue) where - {-# INLINE value #-} - value f_ahQW (Network.Riak.Protocol.DtFetchResponse.DtFetchResponse x_ahQX x_ahQY x_ahQZ) - = fmap (\ y_ahR0 -> Network.Riak.Protocol.DtFetchResponse.DtFetchResponse x_ahQX x_ahQY y_ahR0) (f_ahQW x_ahQZ) -class HasCounterOp s a | s -> a where - counter_op :: Lens' s a -instance HasCounterOp Network.Riak.Protocol.DtOp.DtOp (Maybe Network.Riak.Protocol.CounterOp.CounterOp) where - {-# INLINE counter_op #-} - counter_op f_ahSe (Network.Riak.Protocol.DtOp.DtOp x_ahSf x_ahSg x_ahSh) - = fmap (\ y_ahSi -> Network.Riak.Protocol.DtOp.DtOp y_ahSi x_ahSg x_ahSh) (f_ahSe x_ahSf) -class HasMapOp s a | s -> a where - map_op :: Lens' s a -instance HasMapOp Network.Riak.Protocol.DtOp.DtOp (Maybe Network.Riak.Protocol.MapOp.MapOp) where - {-# INLINE map_op #-} - map_op f_ahSj (Network.Riak.Protocol.DtOp.DtOp x_ahSk x_ahSl x_ahSm) - = fmap (\ y_ahSn -> Network.Riak.Protocol.DtOp.DtOp x_ahSk x_ahSl y_ahSn) (f_ahSj x_ahSm) -class HasSetOp s a | s -> a where - set_op :: Lens' s a -instance HasSetOp Network.Riak.Protocol.DtOp.DtOp (Maybe Network.Riak.Protocol.SetOp.SetOp) where - {-# INLINE set_op #-} - set_op f_ahSo (Network.Riak.Protocol.DtOp.DtOp x_ahSp x_ahSq x_ahSr) - = fmap (\ y_ahSs -> Network.Riak.Protocol.DtOp.DtOp x_ahSp y_ahSs x_ahSr) (f_ahSo x_ahSq) -instance HasBucket Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest ByteString where - {-# INLINE bucket #-} - bucket - f_ahUw - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahUx - x_ahUy - x_ahUz - x_ahUA - x_ahUB - x_ahUC - x_ahUD - x_ahUE - x_ahUF - x_ahUG - x_ahUH - x_ahUI - x_ahUJ) - = fmap - (\ y_ahUK - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - y_ahUK x_ahUy x_ahUz x_ahUA x_ahUB x_ahUC x_ahUD x_ahUE x_ahUF x_ahUG x_ahUH x_ahUI x_ahUJ) - (f_ahUw x_ahUx) -instance HasContext Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest (Maybe ByteString) where - {-# INLINE context #-} - context - f_ahUL - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahUM - x_ahUN - x_ahUO - x_ahUP - x_ahUQ - x_ahUR - x_ahUS - x_ahUT - x_ahUU - x_ahUV - x_ahUW - x_ahUX - x_ahUY) - = fmap - (\ y_ahUZ - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahUM x_ahUN x_ahUO y_ahUZ x_ahUQ x_ahUR x_ahUS x_ahUT x_ahUU x_ahUV x_ahUW x_ahUX x_ahUY) - (f_ahUL x_ahUP) -instance HasDw Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest (Maybe Word32) where - {-# INLINE dw #-} - dw - f_ahV0 - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahV1 - x_ahV2 - x_ahV3 - x_ahV4 - x_ahV5 - x_ahV6 - x_ahV7 - x_ahV8 - x_ahV9 - x_ahVa - x_ahVb - x_ahVc - x_ahVd) - = fmap - (\ y_ahVe - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahV1 x_ahV2 x_ahV3 x_ahV4 x_ahV5 x_ahV6 y_ahVe x_ahV8 x_ahV9 x_ahVa x_ahVb x_ahVc x_ahVd) - (f_ahV0 x_ahV7) -instance HasIncludeContext Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest (Maybe Bool) where - {-# INLINE include_context #-} - include_context - f_ahVf - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahVg - x_ahVh - x_ahVi - x_ahVj - x_ahVk - x_ahVl - x_ahVm - x_ahVn - x_ahVo - x_ahVp - x_ahVq - x_ahVr - x_ahVs) - = fmap - (\ y_ahVt - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahVg x_ahVh x_ahVi x_ahVj x_ahVk x_ahVl x_ahVm x_ahVn x_ahVo x_ahVp x_ahVq x_ahVr y_ahVt) - (f_ahVf x_ahVs) -instance HasKey Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest (Maybe ByteString) where - {-# INLINE key #-} - key - f_ahVu - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahVv - x_ahVw - x_ahVx - x_ahVy - x_ahVz - x_ahVA - x_ahVB - x_ahVC - x_ahVD - x_ahVE - x_ahVF - x_ahVG - x_ahVH) - = fmap - (\ y_ahVI - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahVv y_ahVI x_ahVx x_ahVy x_ahVz x_ahVA x_ahVB x_ahVC x_ahVD x_ahVE x_ahVF x_ahVG x_ahVH) - (f_ahVu x_ahVw) -instance HasNVal Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest (Maybe Word32) where - {-# INLINE n_val #-} - n_val - f_ahVJ - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahVK - x_ahVL - x_ahVM - x_ahVN - x_ahVO - x_ahVP - x_ahVQ - x_ahVR - x_ahVS - x_ahVT - x_ahVU - x_ahVV - x_ahVW) - = fmap - (\ y_ahVX - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahVK x_ahVL x_ahVM x_ahVN x_ahVO x_ahVP x_ahVQ x_ahVR x_ahVS x_ahVT x_ahVU y_ahVX x_ahVW) - (f_ahVJ x_ahVV) -class HasOp s a | s -> a where - op :: Lens' s a -instance HasOp Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest Network.Riak.Protocol.DtOp.DtOp where - {-# INLINE op #-} - op - f_ahVY - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahVZ - x_ahW0 - x_ahW1 - x_ahW2 - x_ahW3 - x_ahW4 - x_ahW5 - x_ahW6 - x_ahW7 - x_ahW8 - x_ahW9 - x_ahWa - x_ahWb) - = fmap - (\ y_ahWc - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahVZ x_ahW0 x_ahW1 x_ahW2 y_ahWc x_ahW4 x_ahW5 x_ahW6 x_ahW7 x_ahW8 x_ahW9 x_ahWa x_ahWb) - (f_ahVY x_ahW3) -instance HasPw Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest (Maybe Word32) where - {-# INLINE pw #-} - pw - f_ahWd - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahWe - x_ahWf - x_ahWg - x_ahWh - x_ahWi - x_ahWj - x_ahWk - x_ahWl - x_ahWm - x_ahWn - x_ahWo - x_ahWp - x_ahWq) - = fmap - (\ y_ahWr - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahWe x_ahWf x_ahWg x_ahWh x_ahWi x_ahWj x_ahWk y_ahWr x_ahWm x_ahWn x_ahWo x_ahWp x_ahWq) - (f_ahWd x_ahWl) -class HasReturnBody s a | s -> a where - return_body :: Lens' s a -instance HasReturnBody Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest (Maybe Bool) where - {-# INLINE return_body #-} - return_body - f_ahWs - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahWt - x_ahWu - x_ahWv - x_ahWw - x_ahWx - x_ahWy - x_ahWz - x_ahWA - x_ahWB - x_ahWC - x_ahWD - x_ahWE - x_ahWF) - = fmap - (\ y_ahWG - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahWt x_ahWu x_ahWv x_ahWw x_ahWx x_ahWy x_ahWz x_ahWA y_ahWG x_ahWC x_ahWD x_ahWE x_ahWF) - (f_ahWs x_ahWB) -instance HasSloppyQuorum Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest (Maybe Bool) where - {-# INLINE sloppy_quorum #-} - sloppy_quorum - f_ahWH - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahWI - x_ahWJ - x_ahWK - x_ahWL - x_ahWM - x_ahWN - x_ahWO - x_ahWP - x_ahWQ - x_ahWR - x_ahWS - x_ahWT - x_ahWU) - = fmap - (\ y_ahWV - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahWI x_ahWJ x_ahWK x_ahWL x_ahWM x_ahWN x_ahWO x_ahWP x_ahWQ x_ahWR y_ahWV x_ahWT x_ahWU) - (f_ahWH x_ahWS) -instance HasTimeout Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest (Maybe Word32) where - {-# INLINE timeout #-} - timeout - f_ahWW - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahWX - x_ahWY - x_ahWZ - x_ahX0 - x_ahX1 - x_ahX2 - x_ahX3 - x_ahX4 - x_ahX5 - x_ahX6 - x_ahX7 - x_ahX8 - x_ahX9) - = fmap - (\ y_ahXa - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahWX x_ahWY x_ahWZ x_ahX0 x_ahX1 x_ahX2 x_ahX3 x_ahX4 x_ahX5 y_ahXa x_ahX7 x_ahX8 x_ahX9) - (f_ahWW x_ahX6) -instance HasType' Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest ByteString where - {-# INLINE type' #-} - type' - f_ahXb - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahXc - x_ahXd - x_ahXe - x_ahXf - x_ahXg - x_ahXh - x_ahXi - x_ahXj - x_ahXk - x_ahXl - x_ahXm - x_ahXn - x_ahXo) - = fmap - (\ y_ahXp - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahXc x_ahXd y_ahXp x_ahXf x_ahXg x_ahXh x_ahXi x_ahXj x_ahXk x_ahXl x_ahXm x_ahXn x_ahXo) - (f_ahXb x_ahXe) -instance HasW Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest (Maybe Word32) where - {-# INLINE w #-} - w f_ahXq - (Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest x_ahXr - x_ahXs - x_ahXt - x_ahXu - x_ahXv - x_ahXw - x_ahXx - x_ahXy - x_ahXz - x_ahXA - x_ahXB - x_ahXC - x_ahXD) - = fmap - (\ y_ahXE - -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest - x_ahXr x_ahXs x_ahXt x_ahXu x_ahXv y_ahXE x_ahXx x_ahXy x_ahXz x_ahXA x_ahXB x_ahXC x_ahXD) - (f_ahXq x_ahXw) -instance HasContext Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse (Maybe ByteString) where - {-# INLINE context #-} - context f_ai1y (Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse x_ai1z x_ai1A x_ai1B x_ai1C x_ai1D) - = fmap (\ y_ai1E -> Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse x_ai1z y_ai1E x_ai1B x_ai1C x_ai1D) (f_ai1y x_ai1A) -class HasCounterValue s a | s -> a where - counter_value :: Lens' s a -instance HasCounterValue Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse (Maybe Int64) where - {-# INLINE counter_value #-} - counter_value f_ai1F (Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse x_ai1G x_ai1H x_ai1I x_ai1J x_ai1K) - = fmap (\ y_ai1L -> Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse x_ai1G x_ai1H y_ai1L x_ai1J x_ai1K) (f_ai1F x_ai1I) -instance HasKey Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse (Maybe ByteString) where - {-# INLINE key #-} - key f_ai1M (Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse x_ai1N x_ai1O x_ai1P x_ai1Q x_ai1R) - = fmap (\ y_ai1S -> Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse y_ai1S x_ai1O x_ai1P x_ai1Q x_ai1R) (f_ai1M x_ai1N) -class HasMapValue s a | s -> a where - map_value :: Lens' s a -instance HasMapValue Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse (Seq Network.Riak.Protocol.MapEntry.MapEntry) where - {-# INLINE map_value #-} - map_value f_ai1T (Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse x_ai1U x_ai1V x_ai1W x_ai1X x_ai1Y) - = fmap (\ y_ai1Z -> Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse x_ai1U x_ai1V x_ai1W x_ai1X y_ai1Z) (f_ai1T x_ai1Y) -class HasSetValue s a | s -> a where - set_value :: Lens' s a -instance HasSetValue Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse (Seq ByteString) where - {-# INLINE set_value #-} - set_value f_ai20 (Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse x_ai21 x_ai22 x_ai23 x_ai24 x_ai25) - = fmap (\ y_ai26 -> Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse x_ai21 x_ai22 x_ai23 y_ai26 x_ai25) (f_ai20 x_ai24) -instance HasCounterValue Network.Riak.Protocol.DtValue.DtValue (Maybe Int64) where - {-# INLINE counter_value #-} - counter_value f_ai4C (Network.Riak.Protocol.DtValue.DtValue x_ai4D x_ai4E x_ai4F) - = fmap (\ y_ai4G -> Network.Riak.Protocol.DtValue.DtValue y_ai4G x_ai4E x_ai4F) (f_ai4C x_ai4D) -instance HasMapValue Network.Riak.Protocol.DtValue.DtValue (Seq Network.Riak.Protocol.MapEntry.MapEntry) where - {-# INLINE map_value #-} - map_value f_ai4H (Network.Riak.Protocol.DtValue.DtValue x_ai4I x_ai4J x_ai4K) - = fmap (\ y_ai4L -> Network.Riak.Protocol.DtValue.DtValue x_ai4I x_ai4J y_ai4L) (f_ai4H x_ai4K) -instance HasSetValue Network.Riak.Protocol.DtValue.DtValue (Seq ByteString) where - {-# INLINE set_value #-} - set_value f_ai4M (Network.Riak.Protocol.DtValue.DtValue x_ai4N x_ai4O x_ai4P) - = fmap (\ y_ai4Q -> Network.Riak.Protocol.DtValue.DtValue x_ai4N y_ai4Q x_ai4P) (f_ai4M x_ai4O) -class HasErrcode s a | s -> a where - errcode :: Lens' s a -instance HasErrcode Network.Riak.Protocol.ErrorResponse.ErrorResponse Word32 where - {-# INLINE errcode #-} - errcode f_ai5E (Network.Riak.Protocol.ErrorResponse.ErrorResponse x_ai5F x_ai5G) - = fmap (\ y_ai5H -> Network.Riak.Protocol.ErrorResponse.ErrorResponse x_ai5F y_ai5H) (f_ai5E x_ai5G) -class HasErrmsg s a | s -> a where - errmsg :: Lens' s a -instance HasErrmsg Network.Riak.Protocol.ErrorResponse.ErrorResponse ByteString where - {-# INLINE errmsg #-} - errmsg f_ai5I (Network.Riak.Protocol.ErrorResponse.ErrorResponse x_ai5J x_ai5K) - = fmap (\ y_ai5L -> Network.Riak.Protocol.ErrorResponse.ErrorResponse y_ai5L x_ai5K) (f_ai5I x_ai5J) -instance HasBucket Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest ByteString where - {-# INLINE bucket #-} - bucket f_ai7c (Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest x_ai7d x_ai7e x_ai7f) - = fmap - (\ y_ai7g -> Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest y_ai7g x_ai7e x_ai7f) (f_ai7c x_ai7d) -instance HasKey Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest ByteString where - {-# INLINE key #-} - key f_ai7h (Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest x_ai7i x_ai7j x_ai7k) - = fmap - (\ y_ai7l -> Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest x_ai7i y_ai7l x_ai7k) (f_ai7h x_ai7j) -instance HasType' Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' f_ai7m (Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest x_ai7n x_ai7o x_ai7p) - = fmap - (\ y_ai7q -> Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest x_ai7n x_ai7o y_ai7q) (f_ai7m x_ai7p) -class HasPreflist s a | s -> a where - preflist :: Lens' s a -instance HasPreflist Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse (Seq Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem) where - {-# INLINE preflist #-} - preflist f_ai8e (Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse x_ai8f) - = fmap (\ y_ai8g -> Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse y_ai8g) (f_ai8e x_ai8f) -instance HasBucket Network.Riak.Protocol.GetBucketRequest.GetBucketRequest ByteString where - {-# INLINE bucket #-} - bucket f_ai92 (Network.Riak.Protocol.GetBucketRequest.GetBucketRequest x_ai93 x_ai94) - = fmap (\ y_ai95 -> Network.Riak.Protocol.GetBucketRequest.GetBucketRequest y_ai95 x_ai94) (f_ai92 x_ai93) -instance HasType' Network.Riak.Protocol.GetBucketRequest.GetBucketRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' f_ai96 (Network.Riak.Protocol.GetBucketRequest.GetBucketRequest x_ai97 x_ai98) - = fmap (\ y_ai99 -> Network.Riak.Protocol.GetBucketRequest.GetBucketRequest x_ai97 y_ai99) (f_ai96 x_ai98) -class HasProps s a | s -> a where - props :: Lens' s a -instance HasProps Network.Riak.Protocol.GetBucketResponse.GetBucketResponse Network.Riak.Protocol.BucketProps.BucketProps where - {-# INLINE props #-} - props f_ai9J (Network.Riak.Protocol.GetBucketResponse.GetBucketResponse x_ai9K) - = fmap (\ y_ai9L -> Network.Riak.Protocol.GetBucketResponse.GetBucketResponse y_ai9L) (f_ai9J x_ai9K) -instance HasType' Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest ByteString where - {-# INLINE type' #-} - type' f_aiax (Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest x_aiay) - = fmap (\ y_aiaz -> Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest y_aiaz) (f_aiax x_aiay) -class HasClientId s a | s -> a where - client_id :: Lens' s a -instance HasClientId Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse ByteString where - {-# INLINE client_id #-} - client_id f_aib2 (Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse x_aib3) - = fmap (\ y_aib4 -> Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse y_aib4) (f_aib2 x_aib3) -instance HasBasicQuorum Network.Riak.Protocol.GetRequest.GetRequest (Maybe Bool) where - {-# INLINE basic_quorum #-} - basic_quorum - f_aibQ - (Network.Riak.Protocol.GetRequest.GetRequest x_aibR - x_aibS - x_aibT - x_aibU - x_aibV - x_aibW - x_aibX - x_aibY - x_aibZ - x_aic0 - x_aic1 - x_aic2 - x_aic3) - = fmap - (\ y_aic4 - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aibR x_aibS x_aibT x_aibU y_aic4 x_aibW x_aibX x_aibY x_aibZ x_aic0 x_aic1 x_aic2 x_aic3) - (f_aibQ x_aibV) -instance HasBucket Network.Riak.Protocol.GetRequest.GetRequest ByteString where - {-# INLINE bucket #-} - bucket - f_aic5 - (Network.Riak.Protocol.GetRequest.GetRequest x_aic6 - x_aic7 - x_aic8 - x_aic9 - x_aica - x_aicb - x_aicc - x_aicd - x_aice - x_aicf - x_aicg - x_aich - x_aici) - = fmap - (\ y_aicj - -> Network.Riak.Protocol.GetRequest.GetRequest - y_aicj x_aic7 x_aic8 x_aic9 x_aica x_aicb x_aicc x_aicd x_aice x_aicf x_aicg x_aich x_aici) - (f_aic5 x_aic6) -class HasDeletedvclock s a | s -> a where - deletedvclock :: Lens' s a -instance HasDeletedvclock Network.Riak.Protocol.GetRequest.GetRequest (Maybe Bool) where - {-# INLINE deletedvclock #-} - deletedvclock - f_aick - (Network.Riak.Protocol.GetRequest.GetRequest x_aicl - x_aicm - x_aicn - x_aico - x_aicp - x_aicq - x_aicr - x_aics - x_aict - x_aicu - x_aicv - x_aicw - x_aicx) - = fmap - (\ y_aicy - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aicl x_aicm x_aicn x_aico x_aicp x_aicq x_aicr x_aics y_aicy x_aicu x_aicv x_aicw x_aicx) - (f_aick x_aict) -class HasHead s a | s -> a where - head :: Lens' s a -instance HasHead Network.Riak.Protocol.GetRequest.GetRequest (Maybe Bool) where - {-# INLINE head #-} - head - f_aicz - (Network.Riak.Protocol.GetRequest.GetRequest x_aicA - x_aicB - x_aicC - x_aicD - x_aicE - x_aicF - x_aicG - x_aicH - x_aicI - x_aicJ - x_aicK - x_aicL - x_aicM) - = fmap - (\ y_aicN - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aicA x_aicB x_aicC x_aicD x_aicE x_aicF x_aicG y_aicN x_aicI x_aicJ x_aicK x_aicL x_aicM) - (f_aicz x_aicH) -class HasIfModified s a | s -> a where - if_modified :: Lens' s a -instance HasIfModified Network.Riak.Protocol.GetRequest.GetRequest (Maybe ByteString) where - {-# INLINE if_modified #-} - if_modified - f_aicO - (Network.Riak.Protocol.GetRequest.GetRequest x_aicP - x_aicQ - x_aicR - x_aicS - x_aicT - x_aicU - x_aicV - x_aicW - x_aicX - x_aicY - x_aicZ - x_aid0 - x_aid1) - = fmap - (\ y_aid2 - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aicP x_aicQ x_aicR x_aicS x_aicT x_aicU y_aid2 x_aicW x_aicX x_aicY x_aicZ x_aid0 x_aid1) - (f_aicO x_aicV) -instance HasKey Network.Riak.Protocol.GetRequest.GetRequest ByteString where - {-# INLINE key #-} - key - f_aid3 - (Network.Riak.Protocol.GetRequest.GetRequest x_aid4 - x_aid5 - x_aid6 - x_aid7 - x_aid8 - x_aid9 - x_aida - x_aidb - x_aidc - x_aidd - x_aide - x_aidf - x_aidg) - = fmap - (\ y_aidh - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aid4 y_aidh x_aid6 x_aid7 x_aid8 x_aid9 x_aida x_aidb x_aidc x_aidd x_aide x_aidf x_aidg) - (f_aid3 x_aid5) -instance HasNVal Network.Riak.Protocol.GetRequest.GetRequest (Maybe Word32) where - {-# INLINE n_val #-} - n_val - f_aidi - (Network.Riak.Protocol.GetRequest.GetRequest x_aidj - x_aidk - x_aidl - x_aidm - x_aidn - x_aido - x_aidp - x_aidq - x_aidr - x_aids - x_aidt - x_aidu - x_aidv) - = fmap - (\ y_aidw - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aidj x_aidk x_aidl x_aidm x_aidn x_aido x_aidp x_aidq x_aidr x_aids x_aidt y_aidw x_aidv) - (f_aidi x_aidu) -instance HasNotfoundOk Network.Riak.Protocol.GetRequest.GetRequest (Maybe Bool) where - {-# INLINE notfound_ok #-} - notfound_ok - f_aidx - (Network.Riak.Protocol.GetRequest.GetRequest x_aidy - x_aidz - x_aidA - x_aidB - x_aidC - x_aidD - x_aidE - x_aidF - x_aidG - x_aidH - x_aidI - x_aidJ - x_aidK) - = fmap - (\ y_aidL - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aidy x_aidz x_aidA x_aidB x_aidC y_aidL x_aidE x_aidF x_aidG x_aidH x_aidI x_aidJ x_aidK) - (f_aidx x_aidD) -instance HasPr Network.Riak.Protocol.GetRequest.GetRequest (Maybe Word32) where - {-# INLINE pr #-} - pr - f_aidM - (Network.Riak.Protocol.GetRequest.GetRequest x_aidN - x_aidO - x_aidP - x_aidQ - x_aidR - x_aidS - x_aidT - x_aidU - x_aidV - x_aidW - x_aidX - x_aidY - x_aidZ) - = fmap - (\ y_aie0 - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aidN x_aidO x_aidP y_aie0 x_aidR x_aidS x_aidT x_aidU x_aidV x_aidW x_aidX x_aidY x_aidZ) - (f_aidM x_aidQ) -instance HasR Network.Riak.Protocol.GetRequest.GetRequest (Maybe Word32) where - {-# INLINE r #-} - r f_aie1 - (Network.Riak.Protocol.GetRequest.GetRequest x_aie2 - x_aie3 - x_aie4 - x_aie5 - x_aie6 - x_aie7 - x_aie8 - x_aie9 - x_aiea - x_aieb - x_aiec - x_aied - x_aiee) - = fmap - (\ y_aief - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aie2 x_aie3 y_aief x_aie5 x_aie6 x_aie7 x_aie8 x_aie9 x_aiea x_aieb x_aiec x_aied x_aiee) - (f_aie1 x_aie4) -instance HasSloppyQuorum Network.Riak.Protocol.GetRequest.GetRequest (Maybe Bool) where - {-# INLINE sloppy_quorum #-} - sloppy_quorum - f_aieg - (Network.Riak.Protocol.GetRequest.GetRequest x_aieh - x_aiei - x_aiej - x_aiek - x_aiel - x_aiem - x_aien - x_aieo - x_aiep - x_aieq - x_aier - x_aies - x_aiet) - = fmap - (\ y_aieu - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aieh x_aiei x_aiej x_aiek x_aiel x_aiem x_aien x_aieo x_aiep x_aieq y_aieu x_aies x_aiet) - (f_aieg x_aier) -instance HasTimeout Network.Riak.Protocol.GetRequest.GetRequest (Maybe Word32) where - {-# INLINE timeout #-} - timeout - f_aiev - (Network.Riak.Protocol.GetRequest.GetRequest x_aiew - x_aiex - x_aiey - x_aiez - x_aieA - x_aieB - x_aieC - x_aieD - x_aieE - x_aieF - x_aieG - x_aieH - x_aieI) - = fmap - (\ y_aieJ - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aiew x_aiex x_aiey x_aiez x_aieA x_aieB x_aieC x_aieD x_aieE y_aieJ x_aieG x_aieH x_aieI) - (f_aiev x_aieF) -instance HasType' Network.Riak.Protocol.GetRequest.GetRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' - f_aieK - (Network.Riak.Protocol.GetRequest.GetRequest x_aieL - x_aieM - x_aieN - x_aieO - x_aieP - x_aieQ - x_aieR - x_aieS - x_aieT - x_aieU - x_aieV - x_aieW - x_aieX) - = fmap - (\ y_aieY - -> Network.Riak.Protocol.GetRequest.GetRequest - x_aieL x_aieM x_aieN x_aieO x_aieP x_aieQ x_aieR x_aieS x_aieT x_aieU x_aieV x_aieW y_aieY) - (f_aieK x_aieX) -class HasContent s a | s -> a where - content :: Lens' s a -instance HasContent Network.Riak.Protocol.GetResponse.GetResponse (Seq Network.Riak.Protocol.Content.Content) where - {-# INLINE content #-} - content f_aiji (Network.Riak.Protocol.GetResponse.GetResponse x_aijj x_aijk x_aijl) - = fmap (\ y_aijm -> Network.Riak.Protocol.GetResponse.GetResponse y_aijm x_aijk x_aijl) (f_aiji x_aijj) -class HasUnchanged s a | s -> a where - unchanged :: Lens' s a -instance HasUnchanged Network.Riak.Protocol.GetResponse.GetResponse (Maybe Bool) where - {-# INLINE unchanged #-} - unchanged f_aijn (Network.Riak.Protocol.GetResponse.GetResponse x_aijo x_aijp x_aijq) - = fmap (\ y_aijr -> Network.Riak.Protocol.GetResponse.GetResponse x_aijo x_aijp y_aijr) (f_aijn x_aijq) -instance HasVclock Network.Riak.Protocol.GetResponse.GetResponse (Maybe ByteString) where - {-# INLINE vclock #-} - vclock f_aijs (Network.Riak.Protocol.GetResponse.GetResponse x_aijt x_aiju x_aijv) - = fmap (\ y_aijw -> Network.Riak.Protocol.GetResponse.GetResponse x_aijt y_aijw x_aijv) (f_aijs x_aiju) -instance HasKey Network.Riak.Protocol.IndexObject.IndexObject ByteString where - {-# INLINE key #-} - key f_ailh (Network.Riak.Protocol.IndexObject.IndexObject x_aili x_ailj) - = fmap (\ y_ailk -> Network.Riak.Protocol.IndexObject.IndexObject y_ailk x_ailj) (f_ailh x_aili) -class HasObject s a | s -> a where - object :: Lens' s a -instance HasObject Network.Riak.Protocol.IndexObject.IndexObject Network.Riak.Protocol.GetResponse.GetResponse where - {-# INLINE object #-} - object f_aill (Network.Riak.Protocol.IndexObject.IndexObject x_ailm x_ailn) - = fmap (\ y_ailo -> Network.Riak.Protocol.IndexObject.IndexObject x_ailm y_ailo) (f_aill x_ailn) -instance HasBucket Network.Riak.Protocol.IndexRequest.IndexRequest ByteString where - {-# INLINE bucket #-} - bucket - f_aimo - (Network.Riak.Protocol.IndexRequest.IndexRequest x_aimp - x_aimq - x_aimr - x_aims - x_aimt - x_aimu - x_aimv - x_aimw - x_aimx - x_aimy - x_aimz - x_aimA - x_aimB - x_aimC) - = fmap - (\ y_aimD - -> Network.Riak.Protocol.IndexRequest.IndexRequest - y_aimD x_aimq x_aimr x_aims x_aimt x_aimu x_aimv x_aimw x_aimx x_aimy x_aimz x_aimA x_aimB x_aimC) - (f_aimo x_aimp) -instance HasContinuation Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe ByteString) where - {-# INLINE continuation #-} - continuation - f_aimE - (Network.Riak.Protocol.IndexRequest.IndexRequest x_aimF - x_aimG - x_aimH - x_aimI - x_aimJ - x_aimK - x_aimL - x_aimM - x_aimN - x_aimO - x_aimP - x_aimQ - x_aimR - x_aimS) - = fmap - (\ y_aimT - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_aimF x_aimG x_aimH x_aimI x_aimJ x_aimK x_aimL x_aimM x_aimN y_aimT x_aimP x_aimQ x_aimR x_aimS) - (f_aimE x_aimO) -class HasIndex s a | s -> a where - index :: Lens' s a -instance HasIndex Network.Riak.Protocol.IndexRequest.IndexRequest ByteString where - {-# INLINE index #-} - index - f_aimU - (Network.Riak.Protocol.IndexRequest.IndexRequest x_aimV - x_aimW - x_aimX - x_aimY - x_aimZ - x_ain0 - x_ain1 - x_ain2 - x_ain3 - x_ain4 - x_ain5 - x_ain6 - x_ain7 - x_ain8) - = fmap - (\ y_ain9 - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_aimV y_ain9 x_aimX x_aimY x_aimZ x_ain0 x_ain1 x_ain2 x_ain3 x_ain4 x_ain5 x_ain6 x_ain7 x_ain8) - (f_aimU x_aimW) -instance HasKey Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe ByteString) where - {-# INLINE key #-} - key - f_aina - (Network.Riak.Protocol.IndexRequest.IndexRequest x_ainb - x_ainc - x_aind - x_aine - x_ainf - x_aing - x_ainh - x_aini - x_ainj - x_aink - x_ainl - x_ainm - x_ainn - x_aino) - = fmap - (\ y_ainp - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_ainb x_ainc x_aind y_ainp x_ainf x_aing x_ainh x_aini x_ainj x_aink x_ainl x_ainm x_ainn x_aino) - (f_aina x_aine) -instance HasMaxResults Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe Word32) where - {-# INLINE max_results #-} - max_results - f_ainq - (Network.Riak.Protocol.IndexRequest.IndexRequest x_ainr - x_ains - x_aint - x_ainu - x_ainv - x_ainw - x_ainx - x_ainy - x_ainz - x_ainA - x_ainB - x_ainC - x_ainD - x_ainE) - = fmap - (\ y_ainF - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_ainr x_ains x_aint x_ainu x_ainv x_ainw x_ainx x_ainy y_ainF x_ainA x_ainB x_ainC x_ainD x_ainE) - (f_ainq x_ainz) -class HasPaginationSort s a | s -> a where - pagination_sort :: Lens' s a -instance HasPaginationSort Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe Bool) where - {-# INLINE pagination_sort #-} - pagination_sort - f_ainG - (Network.Riak.Protocol.IndexRequest.IndexRequest x_ainH - x_ainI - x_ainJ - x_ainK - x_ainL - x_ainM - x_ainN - x_ainO - x_ainP - x_ainQ - x_ainR - x_ainS - x_ainT - x_ainU) - = fmap - (\ y_ainV - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_ainH x_ainI x_ainJ x_ainK x_ainL x_ainM x_ainN x_ainO x_ainP x_ainQ x_ainR x_ainS x_ainT y_ainV) - (f_ainG x_ainU) -class HasQtype s a | s -> a where - qtype :: Lens' s a -instance HasQtype Network.Riak.Protocol.IndexRequest.IndexRequest Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType where - {-# INLINE qtype #-} - qtype - f_ainW - (Network.Riak.Protocol.IndexRequest.IndexRequest x_ainX - x_ainY - x_ainZ - x_aio0 - x_aio1 - x_aio2 - x_aio3 - x_aio4 - x_aio5 - x_aio6 - x_aio7 - x_aio8 - x_aio9 - x_aioa) - = fmap - (\ y_aiob - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_ainX x_ainY y_aiob x_aio0 x_aio1 x_aio2 x_aio3 x_aio4 x_aio5 x_aio6 x_aio7 x_aio8 x_aio9 x_aioa) - (f_ainW x_ainZ) -class HasRangeMax s a | s -> a where - range_max :: Lens' s a -instance HasRangeMax Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe ByteString) where - {-# INLINE range_max #-} - range_max - f_aioc - (Network.Riak.Protocol.IndexRequest.IndexRequest x_aiod - x_aioe - x_aiof - x_aiog - x_aioh - x_aioi - x_aioj - x_aiok - x_aiol - x_aiom - x_aion - x_aioo - x_aiop - x_aioq) - = fmap - (\ y_aior - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_aiod x_aioe x_aiof x_aiog x_aioh y_aior x_aioj x_aiok x_aiol x_aiom x_aion x_aioo x_aiop x_aioq) - (f_aioc x_aioi) -class HasRangeMin s a | s -> a where - range_min :: Lens' s a -instance HasRangeMin Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe ByteString) where - {-# INLINE range_min #-} - range_min - f_aios - (Network.Riak.Protocol.IndexRequest.IndexRequest x_aiot - x_aiou - x_aiov - x_aiow - x_aiox - x_aioy - x_aioz - x_aioA - x_aioB - x_aioC - x_aioD - x_aioE - x_aioF - x_aioG) - = fmap - (\ y_aioH - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_aiot x_aiou x_aiov x_aiow y_aioH x_aioy x_aioz x_aioA x_aioB x_aioC x_aioD x_aioE x_aioF x_aioG) - (f_aios x_aiox) -class HasReturnTerms s a | s -> a where - return_terms :: Lens' s a -instance HasReturnTerms Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe Bool) where - {-# INLINE return_terms #-} - return_terms - f_aioI - (Network.Riak.Protocol.IndexRequest.IndexRequest x_aioJ - x_aioK - x_aioL - x_aioM - x_aioN - x_aioO - x_aioP - x_aioQ - x_aioR - x_aioS - x_aioT - x_aioU - x_aioV - x_aioW) - = fmap - (\ y_aioX - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_aioJ x_aioK x_aioL x_aioM x_aioN x_aioO y_aioX x_aioQ x_aioR x_aioS x_aioT x_aioU x_aioV x_aioW) - (f_aioI x_aioP) -class HasStream s a | s -> a where - stream :: Lens' s a -instance HasStream Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe Bool) where - {-# INLINE stream #-} - stream - f_aioY - (Network.Riak.Protocol.IndexRequest.IndexRequest x_aioZ - x_aip0 - x_aip1 - x_aip2 - x_aip3 - x_aip4 - x_aip5 - x_aip6 - x_aip7 - x_aip8 - x_aip9 - x_aipa - x_aipb - x_aipc) - = fmap - (\ y_aipd - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_aioZ x_aip0 x_aip1 x_aip2 x_aip3 x_aip4 x_aip5 y_aipd x_aip7 x_aip8 x_aip9 x_aipa x_aipb x_aipc) - (f_aioY x_aip6) -class HasTermRegex s a | s -> a where - term_regex :: Lens' s a -instance HasTermRegex Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe ByteString) where - {-# INLINE term_regex #-} - term_regex - f_aipe - (Network.Riak.Protocol.IndexRequest.IndexRequest x_aipf - x_aipg - x_aiph - x_aipi - x_aipj - x_aipk - x_aipl - x_aipm - x_aipn - x_aipo - x_aipp - x_aipq - x_aipr - x_aips) - = fmap - (\ y_aipt - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_aipf x_aipg x_aiph x_aipi x_aipj x_aipk x_aipl x_aipm x_aipn x_aipo x_aipp x_aipq y_aipt x_aips) - (f_aipe x_aipr) -instance HasTimeout Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe Word32) where - {-# INLINE timeout #-} - timeout - f_aipu - (Network.Riak.Protocol.IndexRequest.IndexRequest x_aipv - x_aipw - x_aipx - x_aipy - x_aipz - x_aipA - x_aipB - x_aipC - x_aipD - x_aipE - x_aipF - x_aipG - x_aipH - x_aipI) - = fmap - (\ y_aipJ - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_aipv x_aipw x_aipx x_aipy x_aipz x_aipA x_aipB x_aipC x_aipD x_aipE y_aipJ x_aipG x_aipH x_aipI) - (f_aipu x_aipF) -instance HasType' Network.Riak.Protocol.IndexRequest.IndexRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' - f_aipK - (Network.Riak.Protocol.IndexRequest.IndexRequest x_aipL - x_aipM - x_aipN - x_aipO - x_aipP - x_aipQ - x_aipR - x_aipS - x_aipT - x_aipU - x_aipV - x_aipW - x_aipX - x_aipY) - = fmap - (\ y_aipZ - -> Network.Riak.Protocol.IndexRequest.IndexRequest - x_aipL x_aipM x_aipN x_aipO x_aipP x_aipQ x_aipR x_aipS x_aipT x_aipU x_aipV y_aipZ x_aipX x_aipY) - (f_aipK x_aipW) -instance HasContinuation Network.Riak.Protocol.IndexResponse.IndexResponse (Maybe ByteString) where - {-# INLINE continuation #-} - continuation f_aiwD (Network.Riak.Protocol.IndexResponse.IndexResponse x_aiwE x_aiwF x_aiwG x_aiwH) - = fmap (\ y_aiwI -> Network.Riak.Protocol.IndexResponse.IndexResponse x_aiwE x_aiwF y_aiwI x_aiwH) (f_aiwD x_aiwG) -instance HasDone Network.Riak.Protocol.IndexResponse.IndexResponse (Maybe Bool) where - {-# INLINE done #-} - done f_aiwJ (Network.Riak.Protocol.IndexResponse.IndexResponse x_aiwK x_aiwL x_aiwM x_aiwN) - = fmap (\ y_aiwO -> Network.Riak.Protocol.IndexResponse.IndexResponse x_aiwK x_aiwL x_aiwM y_aiwO) (f_aiwJ x_aiwN) -class HasKeys s a | s -> a where - keys :: Lens' s a -instance HasKeys Network.Riak.Protocol.IndexResponse.IndexResponse (Seq ByteString) where - {-# INLINE keys #-} - keys f_aiwP (Network.Riak.Protocol.IndexResponse.IndexResponse x_aiwQ x_aiwR x_aiwS x_aiwT) - = fmap (\ y_aiwU -> Network.Riak.Protocol.IndexResponse.IndexResponse y_aiwU x_aiwR x_aiwS x_aiwT) (f_aiwP x_aiwQ) -class HasResults s a | s -> a where - results :: Lens' s a -instance HasResults Network.Riak.Protocol.IndexResponse.IndexResponse (Seq Network.Riak.Protocol.Pair.Pair) where - {-# INLINE results #-} - results f_aiwV (Network.Riak.Protocol.IndexResponse.IndexResponse x_aiwW x_aiwX x_aiwY x_aiwZ) - = fmap (\ y_aix0 -> Network.Riak.Protocol.IndexResponse.IndexResponse x_aiwW y_aix0 x_aiwY x_aiwZ) (f_aiwV x_aiwX) -instance HasBucket Network.Riak.Protocol.Link.Link (Maybe ByteString) where - {-# INLINE bucket #-} - bucket f_aiyS (Network.Riak.Protocol.Link.Link x_aiyT x_aiyU x_aiyV) - = fmap (\ y_aiyW -> Network.Riak.Protocol.Link.Link y_aiyW x_aiyU x_aiyV) (f_aiyS x_aiyT) -instance HasKey Network.Riak.Protocol.Link.Link (Maybe ByteString) where - {-# INLINE key #-} - key f_aiyX (Network.Riak.Protocol.Link.Link x_aiyY x_aiyZ x_aiz0) - = fmap (\ y_aiz1 -> Network.Riak.Protocol.Link.Link x_aiyY y_aiz1 x_aiz0) (f_aiyX x_aiyZ) -class HasTag s a | s -> a where - tag :: Lens' s a -instance HasTag Network.Riak.Protocol.Link.Link (Maybe ByteString) where - {-# INLINE tag #-} - tag f_aiz2 (Network.Riak.Protocol.Link.Link x_aiz3 x_aiz4 x_aiz5) - = fmap (\ y_aiz6 -> Network.Riak.Protocol.Link.Link x_aiz3 x_aiz4 y_aiz6) (f_aiz2 x_aiz5) -instance HasStream Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest (Maybe Bool) where - {-# INLINE stream #-} - stream f_aiAk (Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest x_aiAl x_aiAm x_aiAn) - = fmap (\ y_aiAo -> Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest x_aiAl y_aiAo x_aiAn) (f_aiAk x_aiAm) -instance HasTimeout Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest (Maybe Word32) where - {-# INLINE timeout #-} - timeout f_aiAp (Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest x_aiAq x_aiAr x_aiAs) - = fmap (\ y_aiAt -> Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest y_aiAt x_aiAr x_aiAs) (f_aiAp x_aiAq) -instance HasType' Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' f_aiAu (Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest x_aiAv x_aiAw x_aiAx) - = fmap (\ y_aiAy -> Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest x_aiAv x_aiAw y_aiAy) (f_aiAu x_aiAx) -class HasBuckets s a | s -> a where - buckets :: Lens' s a -instance HasBuckets Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse (Seq ByteString) where - {-# INLINE buckets #-} - buckets f_aiBm (Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse x_aiBn x_aiBo) - = fmap (\ y_aiBp -> Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse y_aiBp x_aiBo) (f_aiBm x_aiBn) -instance HasDone Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse (Maybe Bool) where - {-# INLINE done #-} - done f_aiBq (Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse x_aiBr x_aiBs) - = fmap (\ y_aiBt -> Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse x_aiBr y_aiBt) (f_aiBq x_aiBs) -instance HasBucket Network.Riak.Protocol.ListKeysRequest.ListKeysRequest ByteString where - {-# INLINE bucket #-} - bucket f_aiCt (Network.Riak.Protocol.ListKeysRequest.ListKeysRequest x_aiCu x_aiCv x_aiCw) - = fmap (\ y_aiCx -> Network.Riak.Protocol.ListKeysRequest.ListKeysRequest y_aiCx x_aiCv x_aiCw) (f_aiCt x_aiCu) -instance HasTimeout Network.Riak.Protocol.ListKeysRequest.ListKeysRequest (Maybe Word32) where - {-# INLINE timeout #-} - timeout f_aiCy (Network.Riak.Protocol.ListKeysRequest.ListKeysRequest x_aiCz x_aiCA x_aiCB) - = fmap (\ y_aiCC -> Network.Riak.Protocol.ListKeysRequest.ListKeysRequest x_aiCz y_aiCC x_aiCB) (f_aiCy x_aiCA) -instance HasType' Network.Riak.Protocol.ListKeysRequest.ListKeysRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' f_aiCD (Network.Riak.Protocol.ListKeysRequest.ListKeysRequest x_aiCE x_aiCF x_aiCG) - = fmap (\ y_aiCH -> Network.Riak.Protocol.ListKeysRequest.ListKeysRequest x_aiCE x_aiCF y_aiCH) (f_aiCD x_aiCG) -instance HasDone Network.Riak.Protocol.ListKeysResponse.ListKeysResponse (Maybe Bool) where - {-# INLINE done #-} - done f_aiDv (Network.Riak.Protocol.ListKeysResponse.ListKeysResponse x_aiDw x_aiDx) - = fmap (\ y_aiDy -> Network.Riak.Protocol.ListKeysResponse.ListKeysResponse x_aiDw y_aiDy) (f_aiDv x_aiDx) -instance HasKeys Network.Riak.Protocol.ListKeysResponse.ListKeysResponse (Seq ByteString) where - {-# INLINE keys #-} - keys f_aiDz (Network.Riak.Protocol.ListKeysResponse.ListKeysResponse x_aiDA x_aiDB) - = fmap (\ y_aiDC -> Network.Riak.Protocol.ListKeysResponse.ListKeysResponse y_aiDC x_aiDB) (f_aiDz x_aiDA) -instance HasCounterValue Network.Riak.Protocol.MapEntry.MapEntry (Maybe Int64) where - {-# INLINE counter_value #-} - counter_value f_aiEc (Network.Riak.Protocol.MapEntry.MapEntry x_aiEd x_aiEe x_aiEf x_aiEg x_aiEh x_aiEi) - = fmap (\ y_aiEj -> Network.Riak.Protocol.MapEntry.MapEntry x_aiEd y_aiEj x_aiEf x_aiEg x_aiEh x_aiEi) (f_aiEc x_aiEe) -class HasField s a | s -> a where - field :: Lens' s a -instance HasField Network.Riak.Protocol.MapEntry.MapEntry Network.Riak.Protocol.MapField.MapField where - {-# INLINE field #-} - field f_aiEk (Network.Riak.Protocol.MapEntry.MapEntry x_aiEl x_aiEm x_aiEn x_aiEo x_aiEp x_aiEq) - = fmap (\ y_aiEr -> Network.Riak.Protocol.MapEntry.MapEntry y_aiEr x_aiEm x_aiEn x_aiEo x_aiEp x_aiEq) (f_aiEk x_aiEl) -class HasFlagValue s a | s -> a where - flag_value :: Lens' s a -instance HasFlagValue Network.Riak.Protocol.MapEntry.MapEntry (Maybe Bool) where - {-# INLINE flag_value #-} - flag_value f_aiEs (Network.Riak.Protocol.MapEntry.MapEntry x_aiEt x_aiEu x_aiEv x_aiEw x_aiEx x_aiEy) - = fmap (\ y_aiEz -> Network.Riak.Protocol.MapEntry.MapEntry x_aiEt x_aiEu x_aiEv x_aiEw y_aiEz x_aiEy) (f_aiEs x_aiEx) -instance HasMapValue Network.Riak.Protocol.MapEntry.MapEntry (Seq Network.Riak.Protocol.MapEntry.MapEntry) where - {-# INLINE map_value #-} - map_value f_aiEA (Network.Riak.Protocol.MapEntry.MapEntry x_aiEB x_aiEC x_aiED x_aiEE x_aiEF x_aiEG) - = fmap (\ y_aiEH -> Network.Riak.Protocol.MapEntry.MapEntry x_aiEB x_aiEC x_aiED x_aiEE x_aiEF y_aiEH) (f_aiEA x_aiEG) -class HasRegisterValue s a | s -> a where - register_value :: Lens' s a -instance HasRegisterValue Network.Riak.Protocol.MapEntry.MapEntry (Maybe ByteString) where - {-# INLINE register_value #-} - register_value f_aiEI (Network.Riak.Protocol.MapEntry.MapEntry x_aiEJ x_aiEK x_aiEL x_aiEM x_aiEN x_aiEO) - = fmap (\ y_aiEP -> Network.Riak.Protocol.MapEntry.MapEntry x_aiEJ x_aiEK x_aiEL y_aiEP x_aiEN x_aiEO) (f_aiEI x_aiEM) -instance HasSetValue Network.Riak.Protocol.MapEntry.MapEntry (Seq ByteString) where - {-# INLINE set_value #-} - set_value f_aiEQ (Network.Riak.Protocol.MapEntry.MapEntry x_aiER x_aiES x_aiET x_aiEU x_aiEV x_aiEW) - = fmap (\ y_aiEX -> Network.Riak.Protocol.MapEntry.MapEntry x_aiER x_aiES y_aiEX x_aiEU x_aiEV x_aiEW) (f_aiEQ x_aiET) -instance HasName Network.Riak.Protocol.MapField.MapField ByteString where - {-# INLINE name #-} - name f_aiHH (Network.Riak.Protocol.MapField.MapField x_aiHI x_aiHJ) - = fmap (\ y_aiHK -> Network.Riak.Protocol.MapField.MapField y_aiHK x_aiHJ) (f_aiHH x_aiHI) -instance HasType' Network.Riak.Protocol.MapField.MapField Network.Riak.Protocol.MapField.MapFieldType.MapFieldType where - {-# INLINE type' #-} - type' f_aiHL (Network.Riak.Protocol.MapField.MapField x_aiHM x_aiHN) - = fmap (\ y_aiHO -> Network.Riak.Protocol.MapField.MapField x_aiHM y_aiHO) (f_aiHL x_aiHN) -class HasRemoves s a | s -> a where - removes :: Lens' s a -instance HasRemoves Network.Riak.Protocol.MapOp.MapOp (Seq Network.Riak.Protocol.MapField.MapField) where - {-# INLINE removes #-} - removes f_aiIv (Network.Riak.Protocol.MapOp.MapOp x_aiIw x_aiIx) - = fmap (\ y_aiIy -> Network.Riak.Protocol.MapOp.MapOp y_aiIy x_aiIx) (f_aiIv x_aiIw) -class HasUpdates s a | s -> a where - updates :: Lens' s a -instance HasUpdates Network.Riak.Protocol.MapOp.MapOp (Seq Network.Riak.Protocol.MapUpdate.MapUpdate) where - {-# INLINE updates #-} - updates f_aiIz (Network.Riak.Protocol.MapOp.MapOp x_aiIA x_aiIB) - = fmap (\ y_aiIC -> Network.Riak.Protocol.MapOp.MapOp x_aiIA y_aiIC) (f_aiIz x_aiIB) -instance HasDone Network.Riak.Protocol.MapReduce.MapReduce (Maybe Bool) where - {-# INLINE done #-} - done f_aiK2 (Network.Riak.Protocol.MapReduce.MapReduce x_aiK3 x_aiK4 x_aiK5) - = fmap (\ y_aiK6 -> Network.Riak.Protocol.MapReduce.MapReduce x_aiK3 x_aiK4 y_aiK6) (f_aiK2 x_aiK5) -class HasPhase s a | s -> a where - phase :: Lens' s a -instance HasPhase Network.Riak.Protocol.MapReduce.MapReduce (Maybe Word32) where - {-# INLINE phase #-} - phase f_aiK7 (Network.Riak.Protocol.MapReduce.MapReduce x_aiK8 x_aiK9 x_aiKa) - = fmap (\ y_aiKb -> Network.Riak.Protocol.MapReduce.MapReduce y_aiKb x_aiK9 x_aiKa) (f_aiK7 x_aiK8) -class HasResponse s a | s -> a where - response :: Lens' s a -instance HasResponse Network.Riak.Protocol.MapReduce.MapReduce (Maybe ByteString) where - {-# INLINE response #-} - response f_aiKc (Network.Riak.Protocol.MapReduce.MapReduce x_aiKd x_aiKe x_aiKf) - = fmap (\ y_aiKg -> Network.Riak.Protocol.MapReduce.MapReduce x_aiKd y_aiKg x_aiKf) (f_aiKc x_aiKe) -instance HasContentType Network.Riak.Protocol.MapReduceRequest.MapReduceRequest ByteString where - {-# INLINE content_type #-} - content_type f_aiLU (Network.Riak.Protocol.MapReduceRequest.MapReduceRequest x_aiLV x_aiLW) - = fmap (\ y_aiLX -> Network.Riak.Protocol.MapReduceRequest.MapReduceRequest x_aiLV y_aiLX) (f_aiLU x_aiLW) -class HasRequest s a | s -> a where - request :: Lens' s a -instance HasRequest Network.Riak.Protocol.MapReduceRequest.MapReduceRequest ByteString where - {-# INLINE request #-} - request f_aiLY (Network.Riak.Protocol.MapReduceRequest.MapReduceRequest x_aiLZ x_aiM0) - = fmap (\ y_aiM1 -> Network.Riak.Protocol.MapReduceRequest.MapReduceRequest y_aiM1 x_aiM0) (f_aiLY x_aiLZ) -instance HasCounterOp Network.Riak.Protocol.MapUpdate.MapUpdate (Maybe Network.Riak.Protocol.CounterOp.CounterOp) where - {-# INLINE counter_op #-} - counter_op f_aiN1 (Network.Riak.Protocol.MapUpdate.MapUpdate x_aiN2 x_aiN3 x_aiN4 x_aiN5 x_aiN6 x_aiN7) - = fmap (\ y_aiN8 -> Network.Riak.Protocol.MapUpdate.MapUpdate x_aiN2 y_aiN8 x_aiN4 x_aiN5 x_aiN6 x_aiN7) (f_aiN1 x_aiN3) -instance HasField Network.Riak.Protocol.MapUpdate.MapUpdate Network.Riak.Protocol.MapField.MapField where - {-# INLINE field #-} - field f_aiN9 (Network.Riak.Protocol.MapUpdate.MapUpdate x_aiNa x_aiNb x_aiNc x_aiNd x_aiNe x_aiNf) - = fmap (\ y_aiNg -> Network.Riak.Protocol.MapUpdate.MapUpdate y_aiNg x_aiNb x_aiNc x_aiNd x_aiNe x_aiNf) (f_aiN9 x_aiNa) -class HasFlagOp s a | s -> a where - flag_op :: Lens' s a -instance HasFlagOp Network.Riak.Protocol.MapUpdate.MapUpdate (Maybe Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp) where - {-# INLINE flag_op #-} - flag_op f_aiNh (Network.Riak.Protocol.MapUpdate.MapUpdate x_aiNi x_aiNj x_aiNk x_aiNl x_aiNm x_aiNn) - = fmap (\ y_aiNo -> Network.Riak.Protocol.MapUpdate.MapUpdate x_aiNi x_aiNj x_aiNk x_aiNl y_aiNo x_aiNn) (f_aiNh x_aiNm) -instance HasMapOp Network.Riak.Protocol.MapUpdate.MapUpdate (Maybe Network.Riak.Protocol.MapOp.MapOp) where - {-# INLINE map_op #-} - map_op f_aiNp (Network.Riak.Protocol.MapUpdate.MapUpdate x_aiNq x_aiNr x_aiNs x_aiNt x_aiNu x_aiNv) - = fmap (\ y_aiNw -> Network.Riak.Protocol.MapUpdate.MapUpdate x_aiNq x_aiNr x_aiNs x_aiNt x_aiNu y_aiNw) (f_aiNp x_aiNv) -class HasRegisterOp s a | s -> a where - register_op :: Lens' s a -instance HasRegisterOp Network.Riak.Protocol.MapUpdate.MapUpdate (Maybe ByteString) where - {-# INLINE register_op #-} - register_op f_aiNx (Network.Riak.Protocol.MapUpdate.MapUpdate x_aiNy x_aiNz x_aiNA x_aiNB x_aiNC x_aiND) - = fmap (\ y_aiNE -> Network.Riak.Protocol.MapUpdate.MapUpdate x_aiNy x_aiNz x_aiNA y_aiNE x_aiNC x_aiND) (f_aiNx x_aiNB) -instance HasSetOp Network.Riak.Protocol.MapUpdate.MapUpdate (Maybe Network.Riak.Protocol.SetOp.SetOp) where - {-# INLINE set_op #-} - set_op f_aiNF (Network.Riak.Protocol.MapUpdate.MapUpdate x_aiNG x_aiNH x_aiNI x_aiNJ x_aiNK x_aiNL) - = fmap (\ y_aiNM -> Network.Riak.Protocol.MapUpdate.MapUpdate x_aiNG x_aiNH y_aiNM x_aiNJ x_aiNK x_aiNL) (f_aiNF x_aiNI) -class HasFunction s a | s -> a where - function :: Lens' s a -instance HasFunction Network.Riak.Protocol.ModFun.ModFun ByteString where - {-# INLINE function #-} - function f_aiQd (Network.Riak.Protocol.ModFun.ModFun x_aiQe x_aiQf) - = fmap (\ y_aiQg -> Network.Riak.Protocol.ModFun.ModFun x_aiQe y_aiQg) (f_aiQd x_aiQf) -class HasModule' s a | s -> a where - module' :: Lens' s a -instance HasModule' Network.Riak.Protocol.ModFun.ModFun ByteString where - {-# INLINE module' #-} - module' f_aiQh (Network.Riak.Protocol.ModFun.ModFun x_aiQi x_aiQj) - = fmap (\ y_aiQk -> Network.Riak.Protocol.ModFun.ModFun y_aiQk x_aiQj) (f_aiQh x_aiQi) -instance HasKey Network.Riak.Protocol.Pair.Pair ByteString where - {-# INLINE key #-} - key f_aiRK (Network.Riak.Protocol.Pair.Pair x_aiRL x_aiRM) - = fmap (\ y_aiRN -> Network.Riak.Protocol.Pair.Pair y_aiRN x_aiRM) (f_aiRK x_aiRL) -instance HasValue Network.Riak.Protocol.Pair.Pair (Maybe ByteString) where - {-# INLINE value #-} - value f_aiRO (Network.Riak.Protocol.Pair.Pair x_aiRP x_aiRQ) - = fmap (\ y_aiRR -> Network.Riak.Protocol.Pair.Pair x_aiRP y_aiRR) (f_aiRO x_aiRQ) -class HasAsis s a | s -> a where - asis :: Lens' s a -instance HasAsis Network.Riak.Protocol.PutRequest.PutRequest (Maybe Bool) where - {-# INLINE asis #-} - asis - f_aiSy - (Network.Riak.Protocol.PutRequest.PutRequest x_aiSz - x_aiSA - x_aiSB - x_aiSC - x_aiSD - x_aiSE - x_aiSF - x_aiSG - x_aiSH - x_aiSI - x_aiSJ - x_aiSK - x_aiSL - x_aiSM - x_aiSN - x_aiSO) - = fmap - (\ y_aiSP - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiSz x_aiSA x_aiSB x_aiSC x_aiSD x_aiSE x_aiSF x_aiSG x_aiSH x_aiSI x_aiSJ x_aiSK y_aiSP x_aiSM x_aiSN x_aiSO) - (f_aiSy x_aiSL) -instance HasBucket Network.Riak.Protocol.PutRequest.PutRequest ByteString where - {-# INLINE bucket #-} - bucket - f_aiSQ - (Network.Riak.Protocol.PutRequest.PutRequest x_aiSR - x_aiSS - x_aiST - x_aiSU - x_aiSV - x_aiSW - x_aiSX - x_aiSY - x_aiSZ - x_aiT0 - x_aiT1 - x_aiT2 - x_aiT3 - x_aiT4 - x_aiT5 - x_aiT6) - = fmap - (\ y_aiT7 - -> Network.Riak.Protocol.PutRequest.PutRequest - y_aiT7 x_aiSS x_aiST x_aiSU x_aiSV x_aiSW x_aiSX x_aiSY x_aiSZ x_aiT0 x_aiT1 x_aiT2 x_aiT3 x_aiT4 x_aiT5 x_aiT6) - (f_aiSQ x_aiSR) -instance HasContent Network.Riak.Protocol.PutRequest.PutRequest Network.Riak.Protocol.Content.Content where - {-# INLINE content #-} - content - f_aiT8 - (Network.Riak.Protocol.PutRequest.PutRequest x_aiT9 - x_aiTa - x_aiTb - x_aiTc - x_aiTd - x_aiTe - x_aiTf - x_aiTg - x_aiTh - x_aiTi - x_aiTj - x_aiTk - x_aiTl - x_aiTm - x_aiTn - x_aiTo) - = fmap - (\ y_aiTp - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiT9 x_aiTa x_aiTb y_aiTp x_aiTd x_aiTe x_aiTf x_aiTg x_aiTh x_aiTi x_aiTj x_aiTk x_aiTl x_aiTm x_aiTn x_aiTo) - (f_aiT8 x_aiTc) -instance HasDw Network.Riak.Protocol.PutRequest.PutRequest (Maybe Word32) where - {-# INLINE dw #-} - dw - f_aiTq - (Network.Riak.Protocol.PutRequest.PutRequest x_aiTr - x_aiTs - x_aiTt - x_aiTu - x_aiTv - x_aiTw - x_aiTx - x_aiTy - x_aiTz - x_aiTA - x_aiTB - x_aiTC - x_aiTD - x_aiTE - x_aiTF - x_aiTG) - = fmap - (\ y_aiTH - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiTr x_aiTs x_aiTt x_aiTu x_aiTv y_aiTH x_aiTx x_aiTy x_aiTz x_aiTA x_aiTB x_aiTC x_aiTD x_aiTE x_aiTF x_aiTG) - (f_aiTq x_aiTw) -class HasIfNoneMatch s a | s -> a where - if_none_match :: Lens' s a -instance HasIfNoneMatch Network.Riak.Protocol.PutRequest.PutRequest (Maybe Bool) where - {-# INLINE if_none_match #-} - if_none_match - f_aiTI - (Network.Riak.Protocol.PutRequest.PutRequest x_aiTJ - x_aiTK - x_aiTL - x_aiTM - x_aiTN - x_aiTO - x_aiTP - x_aiTQ - x_aiTR - x_aiTS - x_aiTT - x_aiTU - x_aiTV - x_aiTW - x_aiTX - x_aiTY) - = fmap - (\ y_aiTZ - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiTJ x_aiTK x_aiTL x_aiTM x_aiTN x_aiTO x_aiTP x_aiTQ x_aiTR y_aiTZ x_aiTT x_aiTU x_aiTV x_aiTW x_aiTX x_aiTY) - (f_aiTI x_aiTS) -class HasIfNotModified s a | s -> a where - if_not_modified :: Lens' s a -instance HasIfNotModified Network.Riak.Protocol.PutRequest.PutRequest (Maybe Bool) where - {-# INLINE if_not_modified #-} - if_not_modified - f_aiU0 - (Network.Riak.Protocol.PutRequest.PutRequest x_aiU1 - x_aiU2 - x_aiU3 - x_aiU4 - x_aiU5 - x_aiU6 - x_aiU7 - x_aiU8 - x_aiU9 - x_aiUa - x_aiUb - x_aiUc - x_aiUd - x_aiUe - x_aiUf - x_aiUg) - = fmap - (\ y_aiUh - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiU1 x_aiU2 x_aiU3 x_aiU4 x_aiU5 x_aiU6 x_aiU7 x_aiU8 y_aiUh x_aiUa x_aiUb x_aiUc x_aiUd x_aiUe x_aiUf x_aiUg) - (f_aiU0 x_aiU9) -instance HasKey Network.Riak.Protocol.PutRequest.PutRequest (Maybe ByteString) where - {-# INLINE key #-} - key - f_aiUi - (Network.Riak.Protocol.PutRequest.PutRequest x_aiUj - x_aiUk - x_aiUl - x_aiUm - x_aiUn - x_aiUo - x_aiUp - x_aiUq - x_aiUr - x_aiUs - x_aiUt - x_aiUu - x_aiUv - x_aiUw - x_aiUx - x_aiUy) - = fmap - (\ y_aiUz - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiUj y_aiUz x_aiUl x_aiUm x_aiUn x_aiUo x_aiUp x_aiUq x_aiUr x_aiUs x_aiUt x_aiUu x_aiUv x_aiUw x_aiUx x_aiUy) - (f_aiUi x_aiUk) -instance HasNVal Network.Riak.Protocol.PutRequest.PutRequest (Maybe Word32) where - {-# INLINE n_val #-} - n_val - f_aiUA - (Network.Riak.Protocol.PutRequest.PutRequest x_aiUB - x_aiUC - x_aiUD - x_aiUE - x_aiUF - x_aiUG - x_aiUH - x_aiUI - x_aiUJ - x_aiUK - x_aiUL - x_aiUM - x_aiUN - x_aiUO - x_aiUP - x_aiUQ) - = fmap - (\ y_aiUR - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiUB x_aiUC x_aiUD x_aiUE x_aiUF x_aiUG x_aiUH x_aiUI x_aiUJ x_aiUK x_aiUL x_aiUM x_aiUN x_aiUO y_aiUR x_aiUQ) - (f_aiUA x_aiUP) -instance HasPw Network.Riak.Protocol.PutRequest.PutRequest (Maybe Word32) where - {-# INLINE pw #-} - pw - f_aiUS - (Network.Riak.Protocol.PutRequest.PutRequest x_aiUT - x_aiUU - x_aiUV - x_aiUW - x_aiUX - x_aiUY - x_aiUZ - x_aiV0 - x_aiV1 - x_aiV2 - x_aiV3 - x_aiV4 - x_aiV5 - x_aiV6 - x_aiV7 - x_aiV8) - = fmap - (\ y_aiV9 - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiUT x_aiUU x_aiUV x_aiUW x_aiUX x_aiUY x_aiUZ y_aiV9 x_aiV1 x_aiV2 x_aiV3 x_aiV4 x_aiV5 x_aiV6 x_aiV7 x_aiV8) - (f_aiUS x_aiV0) -instance HasReturnBody Network.Riak.Protocol.PutRequest.PutRequest (Maybe Bool) where - {-# INLINE return_body #-} - return_body - f_aiVa - (Network.Riak.Protocol.PutRequest.PutRequest x_aiVb - x_aiVc - x_aiVd - x_aiVe - x_aiVf - x_aiVg - x_aiVh - x_aiVi - x_aiVj - x_aiVk - x_aiVl - x_aiVm - x_aiVn - x_aiVo - x_aiVp - x_aiVq) - = fmap - (\ y_aiVr - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiVb x_aiVc x_aiVd x_aiVe x_aiVf x_aiVg y_aiVr x_aiVi x_aiVj x_aiVk x_aiVl x_aiVm x_aiVn x_aiVo x_aiVp x_aiVq) - (f_aiVa x_aiVh) -class HasReturnHead s a | s -> a where - return_head :: Lens' s a -instance HasReturnHead Network.Riak.Protocol.PutRequest.PutRequest (Maybe Bool) where - {-# INLINE return_head #-} - return_head - f_aiVs - (Network.Riak.Protocol.PutRequest.PutRequest x_aiVt - x_aiVu - x_aiVv - x_aiVw - x_aiVx - x_aiVy - x_aiVz - x_aiVA - x_aiVB - x_aiVC - x_aiVD - x_aiVE - x_aiVF - x_aiVG - x_aiVH - x_aiVI) - = fmap - (\ y_aiVJ - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiVt x_aiVu x_aiVv x_aiVw x_aiVx x_aiVy x_aiVz x_aiVA x_aiVB x_aiVC y_aiVJ x_aiVE x_aiVF x_aiVG x_aiVH x_aiVI) - (f_aiVs x_aiVD) -instance HasSloppyQuorum Network.Riak.Protocol.PutRequest.PutRequest (Maybe Bool) where - {-# INLINE sloppy_quorum #-} - sloppy_quorum - f_aiVK - (Network.Riak.Protocol.PutRequest.PutRequest x_aiVL - x_aiVM - x_aiVN - x_aiVO - x_aiVP - x_aiVQ - x_aiVR - x_aiVS - x_aiVT - x_aiVU - x_aiVV - x_aiVW - x_aiVX - x_aiVY - x_aiVZ - x_aiW0) - = fmap - (\ y_aiW1 - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiVL x_aiVM x_aiVN x_aiVO x_aiVP x_aiVQ x_aiVR x_aiVS x_aiVT x_aiVU x_aiVV x_aiVW x_aiVX y_aiW1 x_aiVZ x_aiW0) - (f_aiVK x_aiVY) -instance HasTimeout Network.Riak.Protocol.PutRequest.PutRequest (Maybe Word32) where - {-# INLINE timeout #-} - timeout - f_aiW2 - (Network.Riak.Protocol.PutRequest.PutRequest x_aiW3 - x_aiW4 - x_aiW5 - x_aiW6 - x_aiW7 - x_aiW8 - x_aiW9 - x_aiWa - x_aiWb - x_aiWc - x_aiWd - x_aiWe - x_aiWf - x_aiWg - x_aiWh - x_aiWi) - = fmap - (\ y_aiWj - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiW3 x_aiW4 x_aiW5 x_aiW6 x_aiW7 x_aiW8 x_aiW9 x_aiWa x_aiWb x_aiWc x_aiWd y_aiWj x_aiWf x_aiWg x_aiWh x_aiWi) - (f_aiW2 x_aiWe) -instance HasType' Network.Riak.Protocol.PutRequest.PutRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' - f_aiWk - (Network.Riak.Protocol.PutRequest.PutRequest x_aiWl - x_aiWm - x_aiWn - x_aiWo - x_aiWp - x_aiWq - x_aiWr - x_aiWs - x_aiWt - x_aiWu - x_aiWv - x_aiWw - x_aiWx - x_aiWy - x_aiWz - x_aiWA) - = fmap - (\ y_aiWB - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiWl x_aiWm x_aiWn x_aiWo x_aiWp x_aiWq x_aiWr x_aiWs x_aiWt x_aiWu x_aiWv x_aiWw x_aiWx x_aiWy x_aiWz y_aiWB) - (f_aiWk x_aiWA) -instance HasVclock Network.Riak.Protocol.PutRequest.PutRequest (Maybe ByteString) where - {-# INLINE vclock #-} - vclock - f_aiWC - (Network.Riak.Protocol.PutRequest.PutRequest x_aiWD - x_aiWE - x_aiWF - x_aiWG - x_aiWH - x_aiWI - x_aiWJ - x_aiWK - x_aiWL - x_aiWM - x_aiWN - x_aiWO - x_aiWP - x_aiWQ - x_aiWR - x_aiWS) - = fmap - (\ y_aiWT - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiWD x_aiWE y_aiWT x_aiWG x_aiWH x_aiWI x_aiWJ x_aiWK x_aiWL x_aiWM x_aiWN x_aiWO x_aiWP x_aiWQ x_aiWR x_aiWS) - (f_aiWC x_aiWF) -instance HasW Network.Riak.Protocol.PutRequest.PutRequest (Maybe Word32) where - {-# INLINE w #-} - w f_aiWU - (Network.Riak.Protocol.PutRequest.PutRequest x_aiWV - x_aiWW - x_aiWX - x_aiWY - x_aiWZ - x_aiX0 - x_aiX1 - x_aiX2 - x_aiX3 - x_aiX4 - x_aiX5 - x_aiX6 - x_aiX7 - x_aiX8 - x_aiX9 - x_aiXa) - = fmap - (\ y_aiXb - -> Network.Riak.Protocol.PutRequest.PutRequest - x_aiWV x_aiWW x_aiWX x_aiWY y_aiXb x_aiX0 x_aiX1 x_aiX2 x_aiX3 x_aiX4 x_aiX5 x_aiX6 x_aiX7 x_aiX8 x_aiX9 x_aiXa) - (f_aiWU x_aiWZ) -instance HasContent Network.Riak.Protocol.PutResponse.PutResponse (Seq Network.Riak.Protocol.Content.Content) where - {-# INLINE content #-} - content f_aj2B (Network.Riak.Protocol.PutResponse.PutResponse x_aj2C x_aj2D x_aj2E) - = fmap (\ y_aj2F -> Network.Riak.Protocol.PutResponse.PutResponse y_aj2F x_aj2D x_aj2E) (f_aj2B x_aj2C) -instance HasKey Network.Riak.Protocol.PutResponse.PutResponse (Maybe ByteString) where - {-# INLINE key #-} - key f_aj2G (Network.Riak.Protocol.PutResponse.PutResponse x_aj2H x_aj2I x_aj2J) - = fmap (\ y_aj2K -> Network.Riak.Protocol.PutResponse.PutResponse x_aj2H x_aj2I y_aj2K) (f_aj2G x_aj2J) -instance HasVclock Network.Riak.Protocol.PutResponse.PutResponse (Maybe ByteString) where - {-# INLINE vclock #-} - vclock f_aj2L (Network.Riak.Protocol.PutResponse.PutResponse x_aj2M x_aj2N x_aj2O) - = fmap (\ y_aj2P -> Network.Riak.Protocol.PutResponse.PutResponse x_aj2M y_aj2P x_aj2O) (f_aj2L x_aj2N) -instance HasBucket Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest ByteString where - {-# INLINE bucket #-} - bucket f_aj3D (Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest x_aj3E x_aj3F) - = fmap (\ y_aj3G -> Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest y_aj3G x_aj3F) (f_aj3D x_aj3E) -instance HasType' Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' f_aj3H (Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest x_aj3I x_aj3J) - = fmap (\ y_aj3K -> Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest x_aj3I y_aj3K) (f_aj3H x_aj3J) -class HasFields s a | s -> a where - fields :: Lens' s a -instance HasFields Network.Riak.Protocol.SearchDoc.SearchDoc (Seq Network.Riak.Protocol.Pair.Pair) where - {-# INLINE fields #-} - fields f_aj4k (Network.Riak.Protocol.SearchDoc.SearchDoc x_aj4l) - = fmap (\ y_aj4m -> Network.Riak.Protocol.SearchDoc.SearchDoc y_aj4m) (f_aj4k x_aj4l) -class HasDf s a | s -> a where - df :: Lens' s a -instance HasDf Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest (Maybe ByteString) where - {-# INLINE df #-} - df - f_aj58 - (Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj59 x_aj5a x_aj5b x_aj5c x_aj5d x_aj5e x_aj5f x_aj5g x_aj5h x_aj5i) - = fmap - (\ y_aj5j - -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj59 x_aj5a x_aj5b x_aj5c x_aj5d x_aj5e y_aj5j x_aj5g x_aj5h x_aj5i) - (f_aj58 x_aj5f) -class HasFilter s a | s -> a where - filter :: Lens' s a -instance HasFilter Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest (Maybe ByteString) where - {-# INLINE filter #-} - filter - f_aj5k - (Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj5l x_aj5m x_aj5n x_aj5o x_aj5p x_aj5q x_aj5r x_aj5s x_aj5t x_aj5u) - = fmap - (\ y_aj5v - -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj5l x_aj5m x_aj5n x_aj5o x_aj5p y_aj5v x_aj5r x_aj5s x_aj5t x_aj5u) - (f_aj5k x_aj5q) -class HasFl s a | s -> a where - fl :: Lens' s a -instance HasFl Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest (Seq ByteString) where - {-# INLINE fl #-} - fl - f_aj5w - (Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj5x x_aj5y x_aj5z x_aj5A x_aj5B x_aj5C x_aj5D x_aj5E x_aj5F x_aj5G) - = fmap - (\ y_aj5H - -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj5x x_aj5y x_aj5z x_aj5A x_aj5B x_aj5C x_aj5D x_aj5E y_aj5H x_aj5G) - (f_aj5w x_aj5F) -instance HasIndex Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest ByteString where - {-# INLINE index #-} - index - f_aj5I - (Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj5J x_aj5K x_aj5L x_aj5M x_aj5N x_aj5O x_aj5P x_aj5Q x_aj5R x_aj5S) - = fmap - (\ y_aj5T - -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj5J y_aj5T x_aj5L x_aj5M x_aj5N x_aj5O x_aj5P x_aj5Q x_aj5R x_aj5S) - (f_aj5I x_aj5K) -instance HasOp Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest (Maybe ByteString) where - {-# INLINE op #-} - op - f_aj5U - (Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj5V x_aj5W x_aj5X x_aj5Y x_aj5Z x_aj60 x_aj61 x_aj62 x_aj63 x_aj64) - = fmap - (\ y_aj65 - -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj5V x_aj5W x_aj5X x_aj5Y x_aj5Z x_aj60 x_aj61 y_aj65 x_aj63 x_aj64) - (f_aj5U x_aj62) -class HasPresort s a | s -> a where - presort :: Lens' s a -instance HasPresort Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest (Maybe ByteString) where - {-# INLINE presort #-} - presort - f_aj66 - (Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj67 x_aj68 x_aj69 x_aj6a x_aj6b x_aj6c x_aj6d x_aj6e x_aj6f x_aj6g) - = fmap - (\ y_aj6h - -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj67 x_aj68 x_aj69 x_aj6a x_aj6b x_aj6c x_aj6d x_aj6e x_aj6f y_aj6h) - (f_aj66 x_aj6g) -class HasQ s a | s -> a where - q :: Lens' s a -instance HasQ Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest ByteString where - {-# INLINE q #-} - q f_aj6i - (Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj6j x_aj6k x_aj6l x_aj6m x_aj6n x_aj6o x_aj6p x_aj6q x_aj6r x_aj6s) - = fmap - (\ y_aj6t - -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest y_aj6t x_aj6k x_aj6l x_aj6m x_aj6n x_aj6o x_aj6p x_aj6q x_aj6r x_aj6s) - (f_aj6i x_aj6j) -class HasRows s a | s -> a where - rows :: Lens' s a -instance HasRows Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest (Maybe Word32) where - {-# INLINE rows #-} - rows - f_aj6u - (Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj6v x_aj6w x_aj6x x_aj6y x_aj6z x_aj6A x_aj6B x_aj6C x_aj6D x_aj6E) - = fmap - (\ y_aj6F - -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj6v x_aj6w y_aj6F x_aj6y x_aj6z x_aj6A x_aj6B x_aj6C x_aj6D x_aj6E) - (f_aj6u x_aj6x) -class HasSort s a | s -> a where - sort :: Lens' s a -instance HasSort Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest (Maybe ByteString) where - {-# INLINE sort #-} - sort - f_aj6G - (Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj6H x_aj6I x_aj6J x_aj6K x_aj6L x_aj6M x_aj6N x_aj6O x_aj6P x_aj6Q) - = fmap - (\ y_aj6R - -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj6H x_aj6I x_aj6J x_aj6K y_aj6R x_aj6M x_aj6N x_aj6O x_aj6P x_aj6Q) - (f_aj6G x_aj6L) -class HasStart s a | s -> a where - start :: Lens' s a -instance HasStart Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest (Maybe Word32) where - {-# INLINE start #-} - start - f_aj6S - (Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj6T x_aj6U x_aj6V x_aj6W x_aj6X x_aj6Y x_aj6Z x_aj70 x_aj71 x_aj72) - = fmap - (\ y_aj73 - -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest x_aj6T x_aj6U x_aj6V y_aj73 x_aj6X x_aj6Y x_aj6Z x_aj70 x_aj71 x_aj72) - (f_aj6S x_aj6W) -class HasDocs s a | s -> a where - docs :: Lens' s a -instance HasDocs Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse (Seq Network.Riak.Protocol.SearchDoc.SearchDoc) where - {-# INLINE docs #-} - docs f_ajcN (Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse x_ajcO x_ajcP x_ajcQ) - = fmap (\ y_ajcR -> Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse y_ajcR x_ajcP x_ajcQ) (f_ajcN x_ajcO) -class HasMaxScore s a | s -> a where - max_score :: Lens' s a -instance HasMaxScore Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse (Maybe Float) where - {-# INLINE max_score #-} - max_score f_ajcS (Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse x_ajcT x_ajcU x_ajcV) - = fmap (\ y_ajcW -> Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse x_ajcT y_ajcW x_ajcV) (f_ajcS x_ajcU) -class HasNumFound s a | s -> a where - num_found :: Lens' s a -instance HasNumFound Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse (Maybe Word32) where - {-# INLINE num_found #-} - num_found f_ajcX (Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse x_ajcY x_ajcZ x_ajd0) - = fmap (\ y_ajd1 -> Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse x_ajcY x_ajcZ y_ajd1) (f_ajcX x_ajd0) -instance HasNode Network.Riak.Protocol.ServerInfo.ServerInfo (Maybe ByteString) where - {-# INLINE node #-} - node f_ajf5 (Network.Riak.Protocol.ServerInfo.ServerInfo x_ajf6 x_ajf7) - = fmap (\ y_ajf8 -> Network.Riak.Protocol.ServerInfo.ServerInfo y_ajf8 x_ajf7) (f_ajf5 x_ajf6) -class HasServerVersion s a | s -> a where - server_version :: Lens' s a -instance HasServerVersion Network.Riak.Protocol.ServerInfo.ServerInfo (Maybe ByteString) where - {-# INLINE server_version #-} - server_version f_ajf9 (Network.Riak.Protocol.ServerInfo.ServerInfo x_ajfa x_ajfb) - = fmap (\ y_ajfc -> Network.Riak.Protocol.ServerInfo.ServerInfo x_ajfa y_ajfc) (f_ajf9 x_ajfb) -instance HasBucket Network.Riak.Protocol.SetBucketRequest.SetBucketRequest ByteString where - {-# INLINE bucket #-} - bucket f_ajgc (Network.Riak.Protocol.SetBucketRequest.SetBucketRequest x_ajgd x_ajge x_ajgf) - = fmap (\ y_ajgg -> Network.Riak.Protocol.SetBucketRequest.SetBucketRequest y_ajgg x_ajge x_ajgf) (f_ajgc x_ajgd) -instance HasProps Network.Riak.Protocol.SetBucketRequest.SetBucketRequest Network.Riak.Protocol.BucketProps.BucketProps where - {-# INLINE props #-} - props f_ajgh (Network.Riak.Protocol.SetBucketRequest.SetBucketRequest x_ajgi x_ajgj x_ajgk) - = fmap (\ y_ajgl -> Network.Riak.Protocol.SetBucketRequest.SetBucketRequest x_ajgi y_ajgl x_ajgk) (f_ajgh x_ajgj) -instance HasType' Network.Riak.Protocol.SetBucketRequest.SetBucketRequest (Maybe ByteString) where - {-# INLINE type' #-} - type' f_ajgm (Network.Riak.Protocol.SetBucketRequest.SetBucketRequest x_ajgn x_ajgo x_ajgp) - = fmap (\ y_ajgq -> Network.Riak.Protocol.SetBucketRequest.SetBucketRequest x_ajgn x_ajgo y_ajgq) (f_ajgm x_ajgp) -instance HasProps Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest Network.Riak.Protocol.BucketProps.BucketProps where - {-# INLINE props #-} - props f_ajhe (Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest x_ajhf x_ajhg) - = fmap (\ y_ajhh -> Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest x_ajhf y_ajhh) (f_ajhe x_ajhg) -instance HasType' Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest ByteString where - {-# INLINE type' #-} - type' f_ajhi (Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest x_ajhj x_ajhk) - = fmap (\ y_ajhl -> Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest y_ajhl x_ajhk) (f_ajhi x_ajhj) -instance HasClientId Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest ByteString where - {-# INLINE client_id #-} - client_id f_ajhV (Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest x_ajhW) - = fmap (\ y_ajhX -> Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest y_ajhX) (f_ajhV x_ajhW) -class HasAdds s a | s -> a where - adds :: Lens' s a -instance HasAdds Network.Riak.Protocol.SetOp.SetOp (Seq ByteString) where - {-# INLINE adds #-} - adds f_ajij (Network.Riak.Protocol.SetOp.SetOp x_ajik x_ajil) - = fmap (\ y_ajim -> Network.Riak.Protocol.SetOp.SetOp y_ajim x_ajil) (f_ajij x_ajik) -instance HasRemoves Network.Riak.Protocol.SetOp.SetOp (Seq ByteString) where - {-# INLINE removes #-} - removes f_ajin (Network.Riak.Protocol.SetOp.SetOp x_ajio x_ajip) - = fmap (\ y_ajiq -> Network.Riak.Protocol.SetOp.SetOp x_ajio y_ajiq) (f_ajin x_ajip) -instance HasNVal Network.Riak.Protocol.YzIndex.YzIndex (Maybe Word32) where - {-# INLINE n_val #-} - n_val f_ajjq (Network.Riak.Protocol.YzIndex.YzIndex x_ajjr x_ajjs x_ajjt) - = fmap (\ y_ajju -> Network.Riak.Protocol.YzIndex.YzIndex x_ajjr x_ajjs y_ajju) (f_ajjq x_ajjt) -instance HasName Network.Riak.Protocol.YzIndex.YzIndex ByteString where - {-# INLINE name #-} - name f_ajjv (Network.Riak.Protocol.YzIndex.YzIndex x_ajjw x_ajjx x_ajjy) - = fmap (\ y_ajjz -> Network.Riak.Protocol.YzIndex.YzIndex y_ajjz x_ajjx x_ajjy) (f_ajjv x_ajjw) -class HasSchema s a | s -> a where - schema :: Lens' s a -instance HasSchema Network.Riak.Protocol.YzIndex.YzIndex (Maybe ByteString) where - {-# INLINE schema #-} - schema f_ajjA (Network.Riak.Protocol.YzIndex.YzIndex x_ajjB x_ajjC x_ajjD) - = fmap (\ y_ajjE -> Network.Riak.Protocol.YzIndex.YzIndex x_ajjB y_ajjE x_ajjD) (f_ajjA x_ajjC) -instance HasName Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest ByteString where - {-# INLINE name #-} - name f_ajkS (Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest x_ajkT) - = fmap (\ y_ajkU -> Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest y_ajkU) (f_ajkS x_ajkT) -instance HasName Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest (Maybe ByteString) where - {-# INLINE name #-} - name f_ajlg (Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest x_ajlh) - = fmap (\ y_ajli -> Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest y_ajli) (f_ajlg x_ajlh) -instance HasIndex Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse (Seq Network.Riak.Protocol.YzIndex.YzIndex) where - {-# INLINE index #-} - index f_ajlE (Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse x_ajlF) - = fmap (\ y_ajlG -> Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse y_ajlG) (f_ajlE x_ajlF) -instance HasIndex Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest Network.Riak.Protocol.YzIndex.YzIndex where - {-# INLINE index #-} - index f_ajm2 (Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest x_ajm3 x_ajm4) - = fmap (\ y_ajm5 -> Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest y_ajm5 x_ajm4) (f_ajm2 x_ajm3) -instance HasTimeout Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest (Maybe Word32) where - {-# INLINE timeout #-} - timeout f_ajm6 (Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest x_ajm7 x_ajm8) - = fmap (\ y_ajm9 -> Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest x_ajm7 y_ajm9) (f_ajm6 x_ajm8) -instance HasContent Network.Riak.Protocol.YzSchema.YzSchema (Maybe ByteString) where - {-# INLINE content #-} - content f_ajmL (Network.Riak.Protocol.YzSchema.YzSchema x_ajmM x_ajmN) - = fmap (\ y_ajmO -> Network.Riak.Protocol.YzSchema.YzSchema x_ajmM y_ajmO) (f_ajmL x_ajmN) -instance HasName Network.Riak.Protocol.YzSchema.YzSchema ByteString where - {-# INLINE name #-} - name f_ajmP (Network.Riak.Protocol.YzSchema.YzSchema x_ajmQ x_ajmR) - = fmap (\ y_ajmS -> Network.Riak.Protocol.YzSchema.YzSchema y_ajmS x_ajmR) (f_ajmP x_ajmQ) -instance HasName Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest ByteString where - {-# INLINE name #-} - name f_ajns (Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest x_ajnt) - = fmap (\ y_ajnu -> Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest y_ajnu) (f_ajns x_ajnt) -instance HasSchema Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse Network.Riak.Protocol.YzSchema.YzSchema where - {-# INLINE schema #-} - schema f_ajnQ (Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse x_ajnR) - = fmap (\ y_ajnS -> Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse y_ajnS) (f_ajnQ x_ajnR) -instance HasSchema Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest Network.Riak.Protocol.YzSchema.YzSchema where - {-# INLINE schema #-} - schema f_ajoe (Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest x_ajof) - = fmap (\ y_ajog -> Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest y_ajog) (f_ajoe x_ajof) +import qualified Network.Riak.Protocol.CSBucketRequest +import qualified Network.Riak.Protocol.CSBucketResponse +import qualified Network.Riak.Protocol.CommitHook +import qualified Network.Riak.Protocol.Content +import qualified Network.Riak.Protocol.CounterGetRequest +import qualified Network.Riak.Protocol.CounterGetResponse +import qualified Network.Riak.Protocol.CounterOp +import qualified Network.Riak.Protocol.CounterUpdateRequest +import qualified Network.Riak.Protocol.CounterUpdateResponse +import qualified Network.Riak.Protocol.DeleteRequest +import qualified Network.Riak.Protocol.DtFetchRequest +import qualified Network.Riak.Protocol.DtFetchResponse +import qualified Network.Riak.Protocol.DtFetchResponse.DataType +import qualified Network.Riak.Protocol.DtOp +import qualified Network.Riak.Protocol.DtUpdateRequest +import qualified Network.Riak.Protocol.DtUpdateResponse +import qualified Network.Riak.Protocol.DtValue +import qualified Network.Riak.Protocol.ErrorResponse +import qualified Network.Riak.Protocol.GetBucketKeyPreflistRequest +import qualified Network.Riak.Protocol.GetBucketKeyPreflistResponse +import qualified Network.Riak.Protocol.GetBucketRequest +import qualified Network.Riak.Protocol.GetBucketResponse +import qualified Network.Riak.Protocol.GetBucketTypeRequest +import qualified Network.Riak.Protocol.GetClientIDRequest +import qualified Network.Riak.Protocol.GetClientIDResponse +import qualified Network.Riak.Protocol.GetRequest +import qualified Network.Riak.Protocol.GetResponse +import qualified Network.Riak.Protocol.GetServerInfoRequest +import qualified Network.Riak.Protocol.IndexObject +import qualified Network.Riak.Protocol.IndexRequest +import qualified Network.Riak.Protocol.IndexRequest.IndexQueryType +import qualified Network.Riak.Protocol.IndexResponse +import qualified Network.Riak.Protocol.Link +import qualified Network.Riak.Protocol.ListBucketsRequest +import qualified Network.Riak.Protocol.ListBucketsResponse +import qualified Network.Riak.Protocol.ListKeysRequest +import qualified Network.Riak.Protocol.ListKeysResponse +import qualified Network.Riak.Protocol.MapEntry +import qualified Network.Riak.Protocol.MapField +import qualified Network.Riak.Protocol.MapField.MapFieldType +import qualified Network.Riak.Protocol.MapOp +import qualified Network.Riak.Protocol.MapReduce +import qualified Network.Riak.Protocol.MapReduceRequest +import qualified Network.Riak.Protocol.MapUpdate +import qualified Network.Riak.Protocol.MapUpdate.FlagOp +import qualified Network.Riak.Protocol.ModFun +import qualified Network.Riak.Protocol.Pair +import qualified Network.Riak.Protocol.PingRequest +import qualified Network.Riak.Protocol.PutRequest +import qualified Network.Riak.Protocol.PutResponse +import qualified Network.Riak.Protocol.ResetBucketRequest +import qualified Network.Riak.Protocol.SearchDoc +import qualified Network.Riak.Protocol.SearchQueryRequest +import qualified Network.Riak.Protocol.SearchQueryResponse +import qualified Network.Riak.Protocol.ServerInfo +import qualified Network.Riak.Protocol.SetBucketRequest +import qualified Network.Riak.Protocol.SetBucketTypeRequest +import qualified Network.Riak.Protocol.SetClientIDRequest +import qualified Network.Riak.Protocol.SetOp +import qualified Network.Riak.Protocol.YzIndex +import qualified Network.Riak.Protocol.YzIndexDeleteRequest +import qualified Network.Riak.Protocol.YzIndexGetRequest +import qualified Network.Riak.Protocol.YzIndexGetResponse +import qualified Network.Riak.Protocol.YzIndexPutRequest +import qualified Network.Riak.Protocol.YzSchema +import qualified Network.Riak.Protocol.YzSchemaGetRequest +import qualified Network.Riak.Protocol.YzSchemaGetResponse +import qualified Network.Riak.Protocol.YzSchemaPutRequest +type Lens' s a = forall f. Functor f => (a -> f a) -> s -> f s