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
|