Commit b5ed283a authored by John van Groningen's avatar John van Groningen

work around bug in getDirectoryContents for windows, add *.prj in path for getDirectoryContents

parent c5ccc159
......@@ -43,7 +43,8 @@ doCpmAction _ _ _ world =
*/
doMake :: String !String !*World -> *World
doMake cleanhome pwd world
# ((ok,pwd_path),world) = pd_StringToPath pwd world
# directory_contents_path = IF_WINDOWS (pwd+++"\\*.prj") pwd
((ok,pwd_path),world) = pd_StringToPath directory_contents_path world
| not ok
= error "Failed to read current directory" world
# ((err,entries), world) = getDirectoryContents pwd_path world
......
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