mu-rpc 0.5.0.0 → 0.5.0.1

raw patch · 2 files changed

+14/−7 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• mu-rpc.cabal +1/−1
• src/Mu/Server.hs +13/−6

@@ -1,5 +1,5 @@ name:               mu-rpc-version:            0.5.0.0+version:            0.5.0.1 synopsis:           Protocol-independent declaration of services and servers. description:   Protocol-independent declaration of services and servers for mu-haskell.

@@ -82,8 +82,8 @@ import           Mu.Rpc import           Mu.Schema -#if __GLASGOW_HASKELL__ < 880-import Unsafe.Coerce (unsafeCoerce)+#if __GLASGOW_HASKELL__ < 808+import           Unsafe.Coerce        (unsafeCoerce) #endif  -- | Constraint for monads that can be used as servers@@ -473,11 +473,18 @@                     ServicesT chn info ss m hs                  -> ServicesT chn info ss m hs     wrapServices S0 = S0-    wrapServices (h :<&>: rest)-#if __GLASGOW_HASKELL__ >= 880-      = wrapHandlers h :<&>: wrapServices rest+#if __GLASGOW_HASKELL__ >= 808+    wrapServices (ProperSvc h :<&>: rest)+      = ProperSvc (wrapHandlers h) :<&>: wrapServices rest+    wrapServices (OneOfSvc h :<&>: rest)+      = OneOfSvc h :<&>: wrapServices rest #else-      = unsafeCoerce (wrapHandlers (unsafeCoerce h)) :<&>: unsafeCoerce (wrapServices rest)+    wrapServices (ProperSvc h :<&>: rest)+      = ProperSvc (unsafeCoerce (wrapHandlers (unsafeCoerce h)))+        :<&>: unsafeCoerce (wrapServices rest)+    wrapServices (OneOfSvc h :<&>: rest)+      = OneOfSvc (unsafeCoerce h)+        :<&>: unsafeCoerce (wrapServices rest) #endif      wrapHandlers :: forall inh ms innerHs.