- let createProc = (shell serverExe) { std_in = CreatePipe, std_out = CreatePipe, std_err = CreatePipe }
+ -- TODO Probably should just change runServer to accept
+ -- separate command and arguments
+ let cmd:args = words serverExe
+ createProc = (proc cmd args) { std_in = CreatePipe, std_out = CreatePipe, std_err = CreatePipe }