Fix size tag

This commit is contained in:
Gregory Schier committed 2016-08-30 13:45:44 -07:00
1 parent 8aa0005863
commit cc1e2eec20
1 file changed
+3 -3
+3 -3
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