Add border to terminal display

2025-12-23 15:43:56 +00:00
parent 183bb16fca
commit 238d6b8799
9 changed files with 133 additions and 125 deletions
@@ -209,19 +209,22 @@ setupConLoop' ::
    (world -> Event ->  world) ->
    IO ()
 setupConLoop' spf title winconfig paramCleanup ioStartWorld coneffs sideEffects eventFn = do
-    initializeAll
-    themvar <- newEmptyMVar
-    bracket
-        (createWindow title winconfig)
-        destroyWindow
-        $ \window -> bracket
-            (glCreateContext window)
-            (\con -> glFinish >> glDeleteContext con)
-            $ \_ ->
-                bracket
-                    ioStartWorld
-                    paramCleanup
-                    (doConLoop' themvar spf window coneffs sideEffects eventFn)
+    bracket_
+        initializeAll
+        (putStrLn "Quit SDL" >> quit)
+        $ do
+            themvar <- newEmptyMVar
+            bracket
+                (createWindow title winconfig)
+                destroyWindow
+                $ \window -> bracket
+                    (glCreateContext window)
+                    (\con -> glFinish >> glDeleteContext con)
+                    $ \_ ->
+                        bracket
+                            ioStartWorld
+                            paramCleanup
+                            (doConLoop' themvar spf window coneffs sideEffects eventFn)

 -- | The internal loop.
 doConLoop' ::