From 3ef0f1fcb1df60f2d5944a9ff2902d0885fcb13f Mon Sep 17 00:00:00 2001 From: Austin Seipp Date: Wed, 28 Nov 2012 11:39:38 -0500 Subject: Fix broken implementation of 'urweb daemon stop' --- src/main.mlton.sml | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/main.mlton.sml') diff --git a/src/main.mlton.sml b/src/main.mlton.sml index 156cafe9..19022cb7 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -300,7 +300,8 @@ val () = case CommandLine.arguments () of Socket.listen (listen, 1); loop () end) - + | ["daemon", "stop"] => + (OS.FileSys.remove socket handle OS.SysErr _ => OS.Process.exit OS.Process.success) | args => let val sock = UnixSock.Strm.socket () @@ -340,6 +341,4 @@ val () = case CommandLine.arguments () of else (OS.FileSys.remove socket; raise OS.SysErr ("", NONE)) - end handle OS.SysErr _ => case args of - ["daemon", "stop"] => (OS.FileSys.remove socket handle OS.SysErr _ => ()) - | _ => OS.Process.exit (oneRun args) + end handle OS.SysErr _ => OS.Process.exit (oneRun args) -- cgit v1.2.3