Skip to content
Snippets Groups Projects
Commit 6e75a445 authored by Iustin Pop's avatar Iustin Pop
Browse files

Remove unused and obsolete function

The Node.str function is very old and is not useful since the node
objects have much more fields today. This patch removes it, and if
needed a full node display can be done via ‘show’.
parent 04be800a
No related branches found
No related tags found
No related merge requests found
......@@ -201,15 +201,6 @@ setPri t idx = t { plist = idx:(plist t) }
setSec :: Node -> Int -> Node
setSec t idx = t { slist = idx:(slist t) }
-- | Simple converter to string.
str :: Node -> String
str t =
printf ("Node %d (mem=%5d MiB, disk=%5.2f GiB)\n Primaries:" ++
" %s\nSecondaries: %s")
(idx t) (f_mem t) ((f_dsk t) `div` 1024)
(commaJoin (map show (plist t)))
(commaJoin (map show (slist t)))
-- | String converter for the node list functionality.
list :: Int -> String -> Node -> String
list mname n t =
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment