From b4f365e7a37f1b5901065f93e8f8d82d2abd1de2 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 5 Sep 2021 22:06:32 +0200
Subject: [PATCH] Add more output to example

---
 example/Main.hs | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/example/Main.hs b/example/Main.hs
index 84d9dea..71d5d44 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"
-- 
GitLab