added edit mode to application state

test/Hamming/App/Widgets/InternalSpec.hs

@@ -44,16 +44,16 @@ hammingW'Spec = describe "hammingW'" $ mapM_
       it ("should be " ++ show numExpRows) $
         numActRows `shouldBe` numExpRows
     mapM_
-      ( \(rowNum, actRow, expRow) -> let
+      ( \(row, actRow, expRow) -> let
         numActCols = length actRow
         numExpCols = length expRow
-        in context ("row " ++ show rowNum) $ do
+        in context ("row " ++ show row) $ do
           context "number of columns" $
             it ("should be " ++ show numExpCols) $
               numActCols `shouldBe` numExpCols
           mapM_
-            ( \(colNum, actBit, expBit) ->
-              context ("column " ++ show colNum) $
+            ( \(col, actBit, expBit) ->
+              context ("column " ++ show col) $
                 it ("should be " ++ show expBit) $
                   actBit `shouldBe` expBit
             ) $ zip3 [(0 :: Int)..] actRow expRow