7 lines
159 B
Haskell
7 lines
159 B
Haskell
module Handler.System where
|
|
|
|
import Import
|
|
import System.Process (readProcess)
|
|
|
|
getSystemR :: Handler String
|
|
getSystemR = liftIO $ readProcess "df" ["-ih"] ""
|