Commit 194eb7d4 authored by Jurrien Stutterheim's avatar Jurrien Stutterheim

CPM: actually use CLEAN_HOME when set

parent e2105c68
......@@ -43,6 +43,6 @@ Start world
(Just ch, world) -> (ch, world)
(_, world) -> (cleandir, world)
= case mpwd of
Ok pwd -> doCpmAction cleandir pwd (startParse (fromString $ mkCl cmd)) world
Ok pwd -> doCpmAction ch pwd (startParse (fromString $ mkCl cmd)) world
Error e -> abort "Failed to read current directory"
where mkCl cmd = concat (intersperse " " (tl [fromString arg \\ arg <- cmd]))
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