mu-protobuf 0.4.0.2 → 0.4.0.3

raw patch · 3 files changed

+10/−10 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• mu-protobuf.cabal +5/−5
• src/Mu/Adapter/ProtoBuf.hs +1/−1
• src/Mu/Quasi/GRpc.hs +4/−4

@@ -1,5 +1,5 @@ name:          mu-protobuf-version:       0.4.0.2+version:       0.4.0.3 synopsis:   Protocol Buffers serialization and gRPC schema import for Mu microservices @@ -33,13 +33,13 @@   build-depends:       base                    >=4.12  && <5     , bytestring              >=0.10  && <0.11-    , compendium-client       ==0.2.*+    , compendium-client       >=0.2   && <0.3     , http-client             >=0.6   && <0.7     , http2-grpc-proto3-wire  >=0.1   && <0.2     , language-protobuf       >=1.0.1 && <2-    , mu-rpc                  ==0.4.*-    , mu-schema               ==0.3.*-    , proto3-wire             >=1.1   && < 2+    , mu-rpc                  >=0.4   && <0.5+    , mu-schema               >=0.3   && <0.4+    , proto3-wire             >=1.1   && <2     , servant-client-core     >=0.16  && <0.19     , sop-core                >=0.5   && <0.6     , template-haskell        >=2.14  && <2.17

@@ -44,7 +44,7 @@ import           Data.SOP                 (All) import qualified Data.Text                as T import qualified Data.Text.Lazy           as LT-import           Data.Word                (Word64, Word32)+import           Data.Word                (Word32, Word64) import           GHC.TypeLits import           Proto3.Wire import qualified Proto3.Wire.Decode       as PBDec

@@ -86,18 +86,18 @@     argToType P.Single (P.TOther ["google","protobuf","Empty"])       = [t| '[ ] |]     argToType P.Single (P.TOther a)-      = [t| '[ 'ArgSingle ('Nothing :: Maybe Symbol) ('SchemaRef $(schemaTy s) $(textToStrLit (last a))) ] |]+      = [t| '[ 'ArgSingle ('Nothing :: Maybe Symbol) ('SchemaRef $(schemaTy s) $(textToStrLit (T.intercalate "." a))) ] |]     argToType P.Stream (P.TOther a)-      = [t| '[ 'ArgStream ('Nothing :: Maybe Symbol) ('SchemaRef $(schemaTy s) $(textToStrLit (last a))) ] |]+      = [t| '[ 'ArgStream ('Nothing :: Maybe Symbol) ('SchemaRef $(schemaTy s) $(textToStrLit (T.intercalate "." a))) ] |]     argToType _ _       = fail "only message types may be used as arguments"      retToType P.Single (P.TOther ["google","protobuf","Empty"])       = [t| 'RetNothing |]     retToType P.Single (P.TOther a)-      = [t| 'RetSingle ('SchemaRef $(schemaTy s) $(textToStrLit (last a))) |]+      = [t| 'RetSingle ('SchemaRef $(schemaTy s) $(textToStrLit (T.intercalate "." a))) |]     retToType P.Stream (P.TOther a)-      = [t| 'RetStream ('SchemaRef $(schemaTy s) $(textToStrLit (last a))) |]+      = [t| 'RetStream ('SchemaRef $(schemaTy s) $(textToStrLit (T.intercalate "." a))) |]     retToType _ _       = fail "only message types may be used as results"