system: monitoring: Fix ram-total to display total available ram in bytes instead of kilobytes

2024-11-07 21:50:24 -03:00 · 2024-11-07 21:50:24 -03:00 · 8b4b9c7e5d
parent de278ddb71
commit 8b4b9c7e5d
1 changed files with 2 additions and 1 deletions
--- a/radix/system/monitoring.scm
+++ b/radix/system/monitoring.scm
@ -55,10 +55,11 @@
         lines)))

 (define (ram-total)
+  "Returns the total available ram in bytes."
  (call-with-input-file "/proc/meminfo"
    (lambda (port)
      (let ((_ (read port)))
-        (read port)))))
+        (* 1000 (read port))))))

 (define (current-ram-usage)
  (apply - (map (cut assoc-ref (current-memory-info) <>)