From 2e72273e17d99c7ad385565cb4245ea94ff66ded Mon Sep 17 00:00:00 2001 From: adamch Date: Sat, 8 Dec 2007 20:50:48 +0000 Subject: [PATCH] That password file writing was right before, gosh darn it --- app/app.sml | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/app/app.sml b/app/app.sml index 7345bbf..96d9f47 100644 --- a/app/app.sml +++ b/app/app.sml @@ -144,14 +144,7 @@ fun apply {name, rname, gname, email, forward, uses, other, paypal, checkout} = 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 -- 2.20.1