servant-subscriber 0.6.0.2 → 0.6.0.3
raw patch · 2 files changed
+7/−2 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Servant.Subscriber.Response: fromServantError :: ServantErr -> HttpResponse
+ Servant.Subscriber.Response: fromServantError :: ServerError -> HttpResponse
Files
servant-subscriber.cabal view
@@ -1,7 +1,7 @@ name: servant-subscriber-version: 0.6.0.2+version: 0.6.0.3 synopsis: When REST is not enough ...-description: Please see Readme.md+description: WebSocket based extension for your servant REST API which allows users to subscribe to change events. homepage: http://github.com/eskimor/servant-subscriber#readme license: BSD3 license-file: LICENSE
src/Servant/Subscriber/Response.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE DeriveGeneric #-} module Servant.Subscriber.Response where @@ -78,7 +79,11 @@ , statusMessage = T.decodeUtf8 . H.statusMessage $ s } +#if MIN_VERSION_servant(0,16,0)+fromServantError :: ServerError -> HttpResponse+#else fromServantError :: ServantErr -> HttpResponse+#endif fromServantError err = HttpResponse { httpStatus = Status (errHTTPCode err) (T.pack $ errReasonPhrase err) , httpHeaders = fromHTTPHeaders . errHeaders $ err