From 09cf1b10a15266b37b208eb7cefed6ae8081e653 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 14 May 2014 08:59:33 +0300
Subject: [PATCH] Remove some incriminating info from /system

---
 Handler/System.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/Handler/System.hs b/Handler/System.hs
index c5848a2..473f52f 100644
--- a/Handler/System.hs
+++ b/Handler/System.hs
@@ -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"] ""