getSystemR :: Handler String
getSystemR = track "Handler.System.getSystemR" $
    liftIO $ readProcess "df" ["-ih"] ""
getSystemR :: Handler String
getSystemR = track "Handler.System.getSystemR" $
    liftIO $ readProcess "df" ["-ih"] ""
getSystemR = track "Handler.System.getSystemR" $
    liftIO $ readProcess "df" ["-ih"] ""