import "Prelude"

importJava "java.net.URL" where
    data URL
    
    @JavaName "<init>"
    urlSimple :: String -> URL
    
    @JavaName "<init>"
    url :: String -> String -> Integer -> String -> URL
    
    @JavaName "getQuery"
    getURLQuery :: URL -> String 
    
    @JavaName "getPath"
    getURLPath :: URL -> String
    
    @JavaName "getHost"
    getURLHost :: URL -> String
    
    @JavaName "getPort"
    getURLPort :: URL -> Integer
    
    @JavaName "getProtocol"
    getURLScheme :: URL -> String
    
    @JavaName "toExternalForm"
    urlToString :: URL -> String
    
instance Show URL where
    show = urlToString