diff --git a/example/Main.hs b/example/Main.hs
index 84d9deafce384f5c572ab888b3866bd3ee1da86a..71d5d4425d5f7805369f84e46bb1374e22973db4 100644
--- a/example/Main.hs
+++ b/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"