packages feed

wrecker-ui 3.1.0.0 → 3.1.1.0

raw patch · 2 files changed

+6/−6 lines, 2 files

Files

src/Main.hs view
@@ -165,12 +165,12 @@             return (fmap (builder . Text.pack) (rights parsed))   where     parseNodes str =-        let splitted = Text.splitOn "," str+        let splitted = filter (/= Text.empty) (Text.strip <$> Text.splitOn "," str)         in fmap (ensurePort . validate) splitted     validate s = (s, hostAndPort (Text.unpack s))-    ensurePort (s, (Left _)) = Left ("Invalid slave address: " <> s)-    ensurePort (s, (Right (_, Nothing))) = Left ("Invalid slave address. Missing port for: " <> s)-    ensurePort (_, (Right ((host, Just port)))) = Right (host <> ":" <> port)+    ensurePort (s, Left _) = Left ("Invalid slave address: " <> s)+    ensurePort (s, Right (_, Nothing)) = Left ("Invalid slave address. Missing port for: " <> s)+    ensurePort (_, Right (host, Just port)) = Right (host <> ":" <> port)  ---------------------------------- -- Routes and middleware
wrecker-ui.cabal view
@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: dea0db90c415ddb4073e55a6a59a9a36d1c00891558d254715e483383cf7179a+-- hash: 741cebc9d0ce3d6b63be18821ada7b9fa21d9606970059dd7a3f1ceb011d2930  name:           wrecker-ui-version:        3.1.0.0+version:        3.1.1.0 synopsis:       A web interface for Wrecker, the HTTP Performance Benchmarker description:    'wrecker-ui' is a web based interface to visualize performance tests built using the wrecker library and schedule test runs. category:       Web