ws 0.0.4 → 0.0.5

raw patch · 2 files changed

+16/−10 lines, 2 filesdep ~attoparsec-uriPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: attoparsec-uri

API changes (from Hackage documentation)

- App.Types: instance GHC.Exception.Exception App.Types.InitException

+ App.Types: instance GHC.Exception.Type.Exception App.Types.InitException

Files

app/Main.hs +13/−7
ws.cabal +3/−3

app/Main.hs view

@@ -88,14 +88,20 @@                   | uriScheme == Strict.Just "wss" -> 433                   | otherwise -> 80                 Strict.Just p -> fromIntegral p-              path' = T.unpack $-                "/" <> T.intercalate "/" (V.toList uriPath) <>-                ( if V.null uriQuery-                  then ""-                  else "?" <> T.intercalate "&" ((\(k :!: mv) -> k <> Strict.maybe "" ("=" <>) mv) <$> V.toList uriQuery)-                )+              path' = case uriPath of+                Strict.Nothing+                  -> Strict.Nothing+                Strict.Just uriPath'+                  -> Strict.Just $ T.unpack $+                        "/" <> T.intercalate "/" (V.toList uriPath') <>+                        ( if V.null uriQuery+                          then ""+                          else "?" <> T.intercalate "&" ((\(k :!: mv) -> k <> Strict.maybe "" ("=" <>) mv) <$> V.toList uriQuery)+                        )           in  pure Env { envHost   = host                        , envPort   = port-                       , envPath   = path'+                       , envPath   = case path' of+                           Strict.Nothing -> ""+                           Strict.Just x -> x                        , envSecure = uriScheme == Strict.Just "wss"                        }

ws.cabal view

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: b6402f73c4dc03d95debbd67a2f16770b5dac6fc20c70e0bfa61dcc04a2950f4+-- hash: 1e0b3978e09bab9b1ca1ae88ade2d3c827cf4b771cc6e914a438477eace47d3d  name:           ws-version:        0.0.4+version:        0.0.5 synopsis:       A simple CLI utility for interacting with a websocket description:    Please see the README on Github at <https://git.localcooking.com/tooling/ws#readme> category:       Web@@ -37,7 +37,7 @@   ghc-options: -Wall   build-depends:       async-    , attoparsec-uri+    , attoparsec-uri >=0.0.6     , base >=4.7 && <5     , bytestring     , exceptions