mirror of
https://github.com/Start9Labs/start-os.git
synced 2026-03-26 10:21:52 +00:00
13 lines
306 B
Haskell
13 lines
306 B
Haskell
module Lib.External.Specs.Memory where
|
|
|
|
import Startlude
|
|
import Protolude.Unsafe ( unsafeFromJust )
|
|
|
|
import Lib.External.Specs.Common
|
|
|
|
catMem :: IO Text
|
|
catMem = readFile "/proc/meminfo"
|
|
|
|
getMem :: IO Text
|
|
getMem = unsafeFromJust . getSpec "MemTotal" <$> catMem
|