From 73564537897f7573690955596097085b711c92e5 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 14 Dec 2024 19:01:02 +0530
Subject: Grid ui cleanup

---
 src/Chelleport/AppShell.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Chelleport/AppShell.hs')

diff --git a/src/Chelleport/AppShell.hs b/src/Chelleport/AppShell.hs
index 6a0195d..0a65ce2 100644
--- a/src/Chelleport/AppShell.hs
+++ b/src/Chelleport/AppShell.hs
@@ -1,6 +1,7 @@
 module Chelleport.AppShell where
 
 import Chelleport.Context (DrawContext (ctxRenderer, ctxWindow, ctxX11Display), createContext)
+import Chelleport.Draw (colorBackground)
 import Control.Monad (foldM, unless)
 import qualified Graphics.X11 as X11
 import SDL (($=))
@@ -32,7 +33,7 @@ setupAppShell initState update eventHandler draw = do
     appLoop drawCtx (state, sysState) = do
       events <- SDL.pollEvents
 
-      SDL.rendererDrawColor (ctxRenderer drawCtx) $= SDL.V4 0 0 0 0
+      SDL.rendererDrawColor (ctxRenderer drawCtx) $= colorBackground
       SDL.clear $ ctxRenderer drawCtx
       draw state drawCtx
       SDL.present $ ctxRenderer drawCtx
-- 
cgit v1.3.1