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