implement environment list for cpm

f5f035ba · Mart Lubbers · 790de761 · f5f035ba
Commit f5f035ba authored Apr 10, 2019 by Mart Lubbers
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

cpm/CpmLogic.icl cpm/CpmLogic.icl +3 -1

No files found.
--- a/cpm/CpmLogic.icl
+++ b/cpm/CpmLogic.icl
@@ -244,7 +244,9 @@ doProjectAction _          _  _   _    world             =
 * Execute environment-specific actions
 */
 doEnvironmentAction :: String String EnvironmentAction *World -> *World
-doEnvironmentAction cleanhome  pwd  ListEnvironments                world = error ("Not implemented") world
+doEnvironmentAction cleanhome  pwd  ListEnvironments                world
+	# (envs, world) = readIDEEnvs cleanhome "IDEEnvs" world
+	= showLines [t.target_name\\t<-envs] world
 doEnvironmentAction cleanhome  pwd  (ImportEnvironment ef)          world = error ("Not implemented") world
 doEnvironmentAction cleanhome  pwd  (RemoveEnvironment en)          world = error ("Not implemented") world
 doEnvironmentAction cleanhome  pwd  (ShowEnvironment en)            world = error ("Not implemented") world