Add SIGUSR1 as another signal for schema reloading

2018-08-16 11:15:09 -05:00
parent 2066220244
commit d7511a2637
2 changed files with 14 additions and 9 deletions
@@ -202,15 +202,16 @@ main = do
        throwTo mainTid UserInterrupt
      ) Nothing

-  void $ installHandler sigHUP (
-    Catch $ connectionWorker
-              mainTid
-              pool
-              (configSchema conf)
-              (configSettings conf)
-              refDbStructure
-              refIsWorkerOn
-    ) Nothing
+  forM_ [sigHUP, sigUSR1] $ \sig ->
+    void $ installHandler sig (
+      Catch $ connectionWorker
+                mainTid
+                pool
+                (configSchema conf)
+                (configSettings conf)
+                refDbStructure
+                refIsWorkerOn
+      ) Nothing
 #endif