pgdl 8.4 → 8.5

raw patch · 2 files changed

+4/−5 lines, 2 files

Files

• pgdl.cabal +1/−1
• src/RealWorld.hs +3/−4

@@ -1,6 +1,6 @@  name:                pgdl-version:             8.4+version:             8.5 license:             PublicDomain license-file:        LICENSE author:              sifmelcara

@@ -31,11 +31,10 @@     when fex $ removeFile localloc      let purepath = reverse . dropWhile (/= '/') . reverse $ servpath+    let url = "http://" ++ purepath ++ vu     case username of-        ""  -> let url = "http://" ++                                       purepath ++ vu-               in runCommand $ "nohup curl " ++ addq url ++ " -o " ++ addq localloc ++ "&>/dev/null &"-        _   -> let url = "http://" ++ username ++ ":" ++ password ++ "@" ++ purepath ++ vu-               in runCommand $ "nohup curl " ++ addq url ++ " -o " ++ addq localloc ++ "&>/dev/null &"+        ""  -> runCommand $ "nohup curl -L "                                          ++ addq url ++ " -o " ++ addq localloc ++ "&>/dev/null &"+        _   -> runCommand $ "nohup curl -L -u " ++ username ++ ":" ++ password ++ " " ++ addq url ++ " -o " ++ addq localloc ++ "&>/dev/null &"     let checkFile = doesFileExist localloc >>= \ready -> unless ready checkFile     checkFile     case buildOS of