11 lines
320 B
Haskell
11 lines
320 B
Haskell
import System.Exit
|
||
|
||
main :: IO ()
|
||
main = do
|
||
freeMemory <- read
|
||
<$> (!!1) <$> words
|
||
<$> (!!2) <$> lines
|
||
<$> readFile "/proc/meminfo"
|
||
putStr $ (take 5 $ show $ freeMemory / 1048576) ++ "GiB"
|
||
exitWith $ if freeMemory > 500000 then ExitSuccess else ExitFailure 33
|