aboutsummaryrefslogtreecommitdiff
path: root/guix/ui.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/ui.scm')
-rw-r--r--guix/ui.scm18
1 files changed, 13 insertions, 5 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index 531d922ad9..04345d4770 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -189,14 +189,22 @@ interpreted."
((compose inexact->exact round)
(* num
(match unit
- ("KiB" (expt 2 10))
- ("MiB" (expt 2 20))
- ("GiB" (expt 2 30))
- ("TiB" (expt 2 40))
- ("KB" (expt 10 3))
+ ((or "KiB" "K" "k") (expt 2 10))
+ ((or "MiB" "M") (expt 2 20))
+ ((or "GiB" "G") (expt 2 30))
+ ((or "TiB" "T") (expt 2 40))
+ ((or "PiB" "P") (expt 2 50))
+ ((or "EiB" "E") (expt 2 60))
+ ((or "ZiB" "Z") (expt 2 70))
+ ((or "YiB" "Y") (expt 2 80))
+ ("kB" (expt 10 3))
("MB" (expt 10 6))
("GB" (expt 10 9))
("TB" (expt 10 12))
+ ("PB" (expt 10 15))
+ ("EB" (expt 10 18))
+ ("ZB" (expt 10 21))
+ ("YB" (expt 10 24))
("" 1)
(_
(leave (_ "unknown unit: ~a~%") unit)))))))