haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-14 13:18:30 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Remove some incriminating info from /system

Browse Source
This commit is contained in:
Michael Snoyman 2014-05-14 08:59:33 +03:00
parent dab17dc988
commit 09cf1b10a1
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/System.hs
View File

@ -4,7 +4,4 @@ import Import
import System.Process (readProcess) import System.Process (readProcess)
getSystemR :: Handler String getSystemR :: Handler String
getSystemR = liftIO $ do getSystemR = liftIO $ readProcess "df" ["-ih"] ""
x <- readProcess "df" ["-ih"] ""
y <- readProcess "ls" ["-lh", "/tmp"] ""
return $ unlines [x, y]