Fix size tag

This commit is contained in:
Gregory Schier
2016-08-30 13:45:44 -07:00
parent 8aa0005863
commit cc1e2eec20

View File

@@ -26,10 +26,10 @@ view bytes =
( size, unit ) =
if bytes < 1024 then
( bytes, "B" )
else if bytes < 1024 * 2024 then
( bytes / 1024, "B" )
else if bytes < 1024 * 1024 then
( bytes / 1024, "KB" )
else if bytes < 1024 * 1024 * 1024 then
( bytes / 1024 / 1024, "B" )
( bytes / 1024 / 1024, "MB" )
else
( bytes / 1024 / 1024 / 1024, "GB" )
in