add cursor location widget

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