create globals

1 files changed, 2 insertions, 1 deletions

diff --git a/highway/Main.hs b/highway/Main.hs
index 58049df..191279a 100644
--- a/highway/Main.hs
+++ b/highway/Main.hs
@@ -48,6 +48,7 @@ handleRequest r
   | Just (BindOutput o)          <- fromRequest r = do outputs %= M.insert o Output
                                                        sendEvent o $ WLOutput.EvGeometry geometry
                                                        sendEvent o $ WLOutput.EvDone
+                                                       liftIO $ putStrLn $ "Created output " ++ show o
                                                        flushEvents
   | Just ReqSIGINT               <- fromRequest r = do c <- interruptedCount <%= (+1)
                                                        liftIO $ putStrLn $ "Received SIGINT " ++ show c ++ "/3"
@@ -59,6 +60,6 @@ main = void $ withDisplay (State M.empty 0) $ do
   socket <- bindSocket
   liftIO $ putStrLn $ "Listening on socket: " ++ socket
   registerSignalEvent ReqSIGINT 2
-  output <- registerGlobal BindOutput
+  output <- registerGlobal BindOutput 4
   processRequests handleRequest
   unregisterGlobal output