From f5331d1a779aa1dcc953dde781be11a0b66de360 Mon Sep 17 00:00:00 2001
From: Wolfgang Walther <walther@technowledgy.de>
Date: Wed, 14 Oct 2020 12:06:34 +0200
Subject: [PATCH] fix build error on windows

---
 main/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/main/Main.hs b/main/Main.hs
index edbc96010..7e4b28c8a 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -67,7 +67,9 @@ main = do
     host = configHost conf
     port = configPort conf
     maybeSocketAddr = configSocket conf
+#ifndef mingw32_HOST_OS
     socketFileMode = configSocketMode conf
+#endif
     dbUri = toS (configDbUri conf)
     (dbChannelEnabled, dbChannel) = (configDbChannelEnabled conf, toS $ configDbChannel conf)
     serverSettings =