download base url
    = do let url' = if URL.isAbsolute url
                    then url
                    else if URL.isHostRelative url
                         then base        ++ url
                         else base ++ "/" ++ url
         (cod,obj) <- curlGetString_ url' []
         putStrLn $ show cod ++ " at " ++ url'
         return obj

{-
    La verificacion de si existe o no el archivo lo dejo al parser.
-}
download base url
    = do let url' = if URL.isAbsolute url
                    then url
                    else if URL.isHostRelative url
                         then base        ++ url
                         else base ++ "/" ++ url
         (cod,obj) <- curlGetString_ url' []
         putStrLn $ show cod ++ " at " ++ url'
         return obj

{-
    La verificacion de si existe o no el archivo lo dejo al parser.
-}
download base url
    = do let url' = if URL.isAbsolute url
                    then url
                    else if URL.isHostRelative url
                         then base        ++ url
                         else base ++ "/" ++ url
         (cod,obj) <- curlGetString_ url' []
         putStrLn $ show cod ++ " at " ++ url'
         return obj

{-
    La verificacion de si existe o no el archivo lo dejo al parser.
-}