dlUrl :: String -> IO (Maybe String)
dlUrl url = readProcessWithExitCode cmd args "" >>= adapt
    where cmd  = "/usr/bin/curl"
          args = [url]
dlUrl :: String -> IO (Maybe String)
dlUrl url = readProcessWithExitCode cmd args "" >>= adapt
    where cmd  = "/usr/bin/curl"
          args = [url]
dlUrl url = readProcessWithExitCode cmd args "" >>= adapt
    where cmd  = "/usr/bin/curl"
          args = [url]