From 7a9aac48f2fce05bd6fd8daf9cb3a52098a841eb Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Mon, 3 Nov 2014 19:59:44 +0000
Subject: Reduce redundancy in CGroup documentation.

---
 CGroup.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'CGroup.hs')

diff --git a/CGroup.hs b/CGroup.hs
index 399ec84..11b54cd 100644
--- a/CGroup.hs
+++ b/CGroup.hs
@@ -25,19 +25,19 @@ import System.IO.Streams.Attoparsec (parseFromStream)
 import System.IO.Streams.File (withFileAsInput)
 
 
--- | @'createCGroup' g@ creates a new cgroup @g@.
+-- | Create a new cgroup.
 createCGroup :: CGroup -> IO ()
 createCGroup =
     createDirectory . cgroupPath
 
 
--- | @'classifyTask' g pid@ places task @pid@ into cgroup @g@.
+-- | Places a task into a cgroup.
 classifyTask :: ProcessID -> CGroup -> IO ()
 classifyTask pid g =
     writeFile (tasksFile g) (show pid)
 
 
--- | @'listTasks' g@ returns tasks of cgroup @g@.
+-- | Retrieve the tasks of a cgroup.
 listTasks :: CGroup -> IO (Set ProcessID)
 listTasks g =
     withFileAsInput (tasksFile g) $ parseFromStream tasksParser
-- 
cgit v1.2.3