Add debug screen

grancalavera · Jan 12, 2019 · 8ecb87e · 8ecb87e
1 parent 065f349
commit 8ecb87e
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/lib/Labyrinth/UI/Debug.hs b/lib/Labyrinth/UI/Debug.hs
@@ -0,0 +1,19 @@
+module Labyrinth.UI.Debug
+  ( draw
+  )
+where
+
+import           Brick
+import           Lens.Micro                     ( (^.) )
+import qualified Labyrinth.Store               as S
+import           Labyrinth.Store                ( Store, State(..) )
+
+draw :: Store e -> Widget n
+draw store = vBox [state, modals]
+  where
+    state = txt $ case (store ^. S.state) of
+      Splash _ -> "State: Splash"
+      Setup _ -> "State: Setup"
+      Plan _ -> "State: Plan"
+      _ -> "State: not implemented"
+    modals = str $ show $ store ^. S.modal