From 0103b9816a998eec46c5a10a15dddd906f13ac52 Mon Sep 17 00:00:00 2001
From: Stanislav Smirnov <stanislav.ktak.smirnov@gmail.com>
Date: Tue, 24 Mar 2026 02:48:00 +0200
Subject: [PATCH] Fix issue #294 (use Linux signals)

---
 src/Keter/Main.hs | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/src/Keter/Main.hs b/src/Keter/Main.hs
index 9e4c4bf..86a8e79 100644
--- a/src/Keter/Main.hs
+++ b/src/Keter/Main.hs
@@ -6,6 +6,7 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE TypeSynonymInstances #-}
+{-# LANGUAGE CPP #-}
 
 module Keter.Main
     ( keter
@@ -188,12 +189,27 @@ startWatching appMan = do
                         FSN.Removed fp _ _ -> do
                             rio $ $logInfo $ "Watched file removed: " <> T.pack fp
                             return $ Left fp
-                        FSN.Added fp _ _ -> do
+#if linux_BUILD_OS
+                        FSN.Added fp _ _ True -> do
+                            rio $ $logInfo $ "Watched file added atomically: " <> T.pack fp
+                            return $ Right fp
+                        FSN.Added fp _ _ False -> do
+                            rio $ $logInfo $ "Watched file added: " <> T.pack fp
+                            return $ Left []
+                        FSN.Modified fp _ _ -> do
+                            rio $ $logInfo $ "Watched file modified: " <> T.pack fp
+                            return $ Left []
+                        FSN.CloseWrite fp _ _ -> do
+                            rio $ $logInfo $ "Watched file close write: " <> T.pack fp
+                            return $ Right fp
+#else
+                        FSN.Added fp _ _ _ -> do
                             rio $ $logInfo $ "Watched file added: " <> T.pack fp
                             return $ Right fp
                         FSN.Modified fp _ _ -> do
                             rio $ $logInfo $ "Watched file modified: " <> T.pack fp
                             return $ Right fp
+#endif
                         _ -> do
                             rio $ $logInfo $ "Watched file unknown" <> T.pack mempty
                             return $ Left []