mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 04:08:29 +01:00
11 lines
244 B
Haskell
11 lines
244 B
Haskell
module Handler.System where
|
|
|
|
import Import
|
|
import System.Process (readProcess)
|
|
|
|
getSystemR :: Handler String
|
|
getSystemR = liftIO $ do
|
|
x <- readProcess "df" ["-ih"] ""
|
|
y <- readProcess "ls" ["-lh", "/tmp"] ""
|
|
return $ unlines [x, y]
|