Commit 3ffd1bf8 authored by Jurrien Stutterheim's avatar Jurrien Stutterheim

CPM: Prettier printing

parent c1e52876
......@@ -193,7 +193,7 @@ doProjectPathAction world cleanhome pn project (RemovePathAction n)
doProjectPathAction world _ _ project ListPathsAction = showLines ["Paths for project:" : paths] world
where paths = map f (zip2 [0..] (StrictListToList (PR_GetPaths project)))
f (n, p) = " [" +++ toString n +++ "] " +++ p
f (n, p) = " [" +++ toString n +++ "] " +++ p
doProjectPathAction world _ _ _ _ =
help "cpm project <projectname> path <action>"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment