mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 12:18:29 +01:00
9 lines
199 B
Haskell
9 lines
199 B
Haskell
module Handler.System where
|
|
|
|
import Import
|
|
import System.Process (readProcess)
|
|
|
|
getSystemR :: Handler String
|
|
getSystemR = track "Handler.System.getSystemR" $
|
|
liftIO $ readProcess "df" ["-ih"] ""
|