X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=blackboard-dns.git;a=blobdiff_plain;f=ServerMain.hs;fp=ServerMain.hs;h=5f0db3001bc24fdb162e4e260ed755ccf0bb896f;hp=833256f23961a03fa4ee73774b6cc911e25e087a;hb=8109d2350f4c2855cd65b63c14efcb70fa3473c7;hpb=c0afc68ff35fc668809c488fc55d14b4dbcb863c

diff --git a/ServerMain.hs b/ServerMain.hs
index 833256f..5f0db30 100644
--- 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 ->