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"] ""