ntwrkAddrToBaseUrl :: NetworkAddress -> BaseUrl
ntwrkAddrToBaseUrl (host, port) =
    BaseUrl Https (B8.unpack host) (fromIntegral port) mempty
ntwrkAddrToBaseUrl :: NetworkAddress -> BaseUrl
ntwrkAddrToBaseUrl (host, port) =
    BaseUrl Https (B8.unpack host) (fromIntegral port) mempty
ntwrkAddrToBaseUrl (host, port) =
    BaseUrl Https (B8.unpack host) (fromIntegral port) mempty