mwrite passwd;
mwrite ("\n")),
id) then
- let
- val outf = TextIO.openOut (OS.Path.joinDirFile {dir = "/var/lib/portal",
- file = name})
- in
- TextIO.output (outf, unix_passwd);
- TextIO.closeOut outf;
- SOME unix_passwd
- end
+ SOME unix_passwd
else
NONE
end