Skip to content
GitLab
Commit 3ffd1bf8 authored by Jurrien Stutterheim's avatar Jurrien Stutterheim
Browse files

CPM: Prettier printing

parent c1e52876
Hide whitespace changes
Inline Side-by-side
cpm/Cpm.icl
View file @ 3ffd1bf8
...@@ -193,7 +193,7 @@ doProjectPathAction world cleanhome pn project (RemovePathAction n) ...@@ -193,7 +193,7 @@ doProjectPathAction world cleanhome pn project (RemovePathAction n)
doProjectPathAction world _ _ project ListPathsAction = showLines ["Paths for project:" : paths] world doProjectPathAction world _ _ project ListPathsAction = showLines ["Paths for project:" : paths] world
where paths = map f (zip2 [0..] (StrictListToList (PR_GetPaths project))) where paths = map f (zip2 [0..] (StrictListToList (PR_GetPaths project)))
f (n, p) = " [" +++ toString n +++ "] " +++ p f (n, p) = " [" +++ toString n +++ "] " +++ p
doProjectPathAction world _ _ _ _ = doProjectPathAction world _ _ _ _ =
help "cpm project <projectname> path <action>" help "cpm project <projectname> path <action>"
......
Supports Markdown
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