haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +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)
getSystemR :: Handler String
getSystemR = liftIO $ do
x <- readProcess "df" ["-ih"] ""
y <- readProcess "ls" ["-lh", "/tmp"] ""
return $ unlines [x, y]
getSystemR = liftIO $ readProcess "df" ["-ih"] ""