# HG changeset patch
# User unc0rr
# Date 1224690049 0
# Node ID 471c42a1c358ee861ddbee9f44f9f7a1e6a2f7d0
# Parent  abb28dcb6d0d2844f5607b37ff5821d3b833fd4e
Use C preprocessor to allow compilation in windows

diff -r abb28dcb6d0d -r 471c42a1c358 netserver/CMakeLists.txt
--- a/netserver/CMakeLists.txt	Wed Oct 22 15:31:35 2008 +0000
+++ b/netserver/CMakeLists.txt	Wed Oct 22 15:40:49 2008 +0000
@@ -14,6 +14,7 @@
 set(hwserv_main ${hedgewars_SOURCE_DIR}/netserver/hedgewars-server.hs)
 
 set(ghc_flags
+	-cpp
 	--make ${hwserv_main}
 	-i${hedgewars_SOURCE_DIR}/netserver
 	-o ${EXECUTABLE_OUTPUT_PATH}/hedgewars-server${CMAKE_EXECUTABLE_SUFFIX}
diff -r abb28dcb6d0d -r 471c42a1c358 netserver/hedgewars-server.hs
--- a/netserver/hedgewars-server.hs	Wed Oct 22 15:31:35 2008 +0000
+++ b/netserver/hedgewars-server.hs	Wed Oct 22 15:40:49 2008 +0000
@@ -12,7 +12,11 @@
 import Miscutils
 import HWProto
 import Opts
+
+#ifndef WIN32
 import System.Posix
+#endif
+
 
 acceptLoop :: Socket -> TChan ClientInfo -> IO ()
 acceptLoop servSock acceptChan = do
@@ -97,7 +101,9 @@
 
 
 main = withSocketsDo $ do
+#ifndef WIN32
 	installHandler sigPIPE Ignore Nothing;
+#endif
 	putStrLn $ "Listening on port " ++ show (listenPort globalOptions)
 	serverSocket <- listenOn $ PortNumber (listenPort globalOptions)
 	startServer serverSocket `finally` sClose serverSocket