client makereq

[blackboard-dns.git] / ServerMain.hs

diff --git a/ServerMain.hs b/ServerMain.hs
index 833256f23961a03fa4ee73774b6cc911e25e087a..5f0db3001bc24fdb162e4e260ed755ccf0bb896f 100644 (file)
--- a/ServerMain.hs
+++ b/ServerMain.hs
@@ -69,9 +69,9 @@ arginfo = [ Arg {
 main :: IO ()
 main = do m <- parseArgsIO ArgsComplete arginfo
           when (gotArg m Help)
-                   $ usageError m "" `seq` return ()
+                   $ usageError m ""
 
-          usageError m "" `seq` return ()
+          usageError m ""
 
 {-
 main = do sqliteConnect "ddns.db" $ \ db ->