From 5b086e236ab3903a717dfac115bebc6e5d006c07 Mon Sep 17 00:00:00 2001
From: Hannes Schulze <haschu0103@outlook.de>
Date: Tue, 6 Aug 2024 16:32:17 +0200
Subject: refactor Wayland.Server.System

---
 highway/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'highway')

diff --git a/highway/Main.hs b/highway/Main.hs
index 4c169e4..a13fa0e 100644
--- a/highway/Main.hs
+++ b/highway/Main.hs
@@ -60,7 +60,7 @@ main :: IO ()
 main = void $ withDisplay (State M.empty 0) $ do
   socket <- bindSocket
   liftIO $ putStrLn $ "Listening on socket: " ++ socket
-  registerSignalEvent ReqSIGINT 2
+  _ <- registerSignalEvent ReqSIGINT 2
   output <- registerGlobal BindOutput UnbindOutput 4
   processRequests handleRequest
   unregisterGlobal output
-- 
cgit v1.3.1