@@ -936,10 +936,10 @@ instance FromJSON SwaggerItems where
936936instance FromJSON SwaggerHost where
937937 parseJSON (String s) =
938938 case fromInteger <$> readMaybe portStr of
939− Nothing | not (null portStr) -> empty
939+ Nothing | not (null portStr) -> fail $ "Invalid port `" ++ portStr ++ "'"
940940 mport -> pure $ SwaggerHost host mport
941941 where
942− (hostText, portText) = Text.breakOnEnd ":" s
942+ (hostText, portText) = Text.breakOn ":" s
943943 [host, portStr] = map Text.unpack [hostText, portText]
944944 parseJSON _ = empty
945945