add cursor location widget

2024-08-01 16:04:37 -04:00
parent 417a8691e8
commit 0c74a4ba61
7 changed files with 117 additions and 10 deletions
--- a/test/Hamming/App/Widgets/InternalSpec.hs
+++ b/test/Hamming/App/Widgets/InternalSpec.hs
@@ -37,9 +37,9 @@ hammingW'Spec :: Spec
 hammingW'Spec = describe "hammingW'" $ mapM_
  ( \(desc, state, expRes) -> context desc $ do
    let
-      actRes = hammingW' state
-      numActRows = length actRes
-      numExpRows = length expRes
+      (actRes, _) = hammingW' state
+      numActRows  = length actRes
+      numExpRows  = length expRes
    context "number of rows" $
      it ("should be " ++ show numExpRows) $
        numActRows `shouldBe` numExpRows