Skip to content
Snippets Groups Projects
Commit b4f365e7 authored by Jens Nolte's avatar Jens Nolte
Browse files

Add more output to example

parent 4c299a8e
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 9 additions and 4 deletions
example/Main.hs
+ 9
− 4
View file @ b4f365e7
...@@ -2,10 +2,15 @@ module Main (main) where ...@@ -2,10 +2,15 @@ module Main (main) where
import Quasar import Quasar
import Quasar.Prelude import Quasar.Prelude
import Quasar.Timer
import Quasar.Wayland.Client import Quasar.Wayland.Client
main :: IO () main :: IO ()
main = withResourceManagerM do main = do
traceIO "Connecting" withResourceManagerM do
client <- connectWaylandClient traceIO "Connecting"
traceIO "Connected" client <- connectWaylandClient
traceIO "Connected"
await =<< newDelay 1000000
traceIO "Closing"
traceIO "Closed"
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment