uriIsHTTP :: B.ByteString -> Bool
uriIsHTTP uri = B.isPrefixOf "http://" uri || B.isPrefixOf "https://" uri
uriIsHTTP :: B.ByteString -> Bool
uriIsHTTP uri = B.isPrefixOf "http://" uri || B.isPrefixOf "https://" uri
uriIsHTTP uri = B.isPrefixOf "http://" uri || B.isPrefixOf "https://" uri