yogsototh/stackage-server
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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)
getSystemR :: Handler String
getSystemR = liftIO $ do
x <- readProcess "df" ["-ih"] ""
y <- readProcess "ls" ["-lh", "/tmp"] ""
return $ unlines [x, y]
getSystemR = liftIO $ readProcess "df" ["-ih"] ""