Add more output to example

example/Main.hs

@@ -2,10 +2,15 @@ module Main (main) where
 
 import Quasar
 import Quasar.Prelude
+import Quasar.Timer
 import Quasar.Wayland.Client
 
 main :: IO ()
-main = withResourceManagerM do
-  traceIO "Connecting"
-  client <- connectWaylandClient
-  traceIO "Connected"
+main = do
+  withResourceManagerM do
+    traceIO "Connecting"
+    client <- connectWaylandClient
+    traceIO "Connected"
+    await =<< newDelay 1000000
+    traceIO "Closing"
+  traceIO "Closed"