Cleanup

app/WM/Core.hs

@@ -10,7 +10,8 @@ import WM.XKutu
 
 data State = State
   { mruby_pointer :: !(Ptr MrbState),
-    running :: !Bool
+    running :: !Bool,
+    root :: !(Maybe Tile)
   }
   deriving (Show)
 
@@ -18,7 +19,8 @@ newState :: Ptr MrbState -> State
 newState ptr =
   State
     { mruby_pointer = ptr,
-      running = True
+      running = True,
+      root = Nothing
     }
 
 run :: IO ()