git.iko.soy/metric-collector
on patch-1 help sign in
metric-collector/metric-collector.hs
8 lines 263 B history raw
1--import System.Posix.StatVFS ( fStatVFS, statVFS )
2--import System.Posix.IO ( openFd, defaultFileFlags, OpenMode(ReadOnly) )
4main :: IO ()
5main = do
6 fd <- openFd "/etc/fstab" ReadOnly Nothing defaultFileFlags
7 fStatVFS fd >>= print
8 statVFS "/dev" >>= print