From 1565c1fe99daae9fe88fa8450acaa13698f30f63 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Fri, 19 Jul 2024 21:01:33 -0400
Subject: [PATCH] display hamming widget

---
 src/Hamming/App.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Hamming/App.hs b/src/Hamming/App.hs
index 02328e0..988cf44 100644
--- a/src/Hamming/App.hs
+++ b/src/Hamming/App.hs
@@ -30,9 +30,9 @@ import Brick.AttrMap (forceAttrMap)
 import Brick.Main (App (..), halt, neverShowCursor)
 import Brick.Types (BrickEvent, EventM, Widget)
 import Brick.Util (style)
-import Brick.Widgets.Core (emptyWidget)
 
 import Hamming.App.Types
+import Hamming.App.Widgets
 
 mainApp :: App AppState () ResName
 mainApp = App
@@ -44,7 +44,7 @@ mainApp = App
   }
 
 drawFunc :: AppState -> [Widget ResName]
-drawFunc = const [emptyWidget]
+drawFunc s = [hammingW s]
 
 eventHandler
   :: BrickEvent ResName ()