Commit 35698472 authored by Yuanle Song's avatar Yuanle Song
Browse files

add some progress info

parent 3c3b6ea9

client/Main.hs

+1 −0
Original line number Diff line number Diff line
@@ -95,6 +95,7 @@ fetchBlockFromHttp opts fbp = do 
          let blockTargetFile = fbpBlockTargetFile fbp

          debug opts $ "writing block data to " <> blockTargetFile

          LB.writeFile blockTargetFile bodyLBS

          putStrLn $ "block " <> show blockId <> " fetched"

          return True

      else do

          putStrLn $ "sha1sum verification failed for " <> filename <> " block " <> show blockId <> ", expect " <> show sha1sum

operational

+3 −0
Original line number Diff line number Diff line
@@ -417,6 +417,9 @@ that way you don't need to tell rd-server the web root dir. 


* current                                                             :entry:

** 

** 2018-05-08 added some progress log. download seems sequential.

QSem based worker not effective?



** 2018-05-08 humanReadableSize: round up when convert byte to MiB. rd shows 377 MiB

or just show as floating point with 1 digit after point.