From 8f6acc6b6b7494918a20bf82c5f796fd7f38a403 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Sat, 6 Jul 2024 21:01:17 -0400
Subject: [PATCH] simplified double bit error test

---
 test/Hamming/Word16Spec.hs | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/test/Hamming/Word16Spec.hs b/test/Hamming/Word16Spec.hs
index 2e75abb..7d88354 100644
--- a/test/Hamming/Word16Spec.hs
+++ b/test/Hamming/Word16Spec.hs
@@ -80,15 +80,14 @@ singleBitErrors = map
 
 doubleBitErrors :: [(String, Word16, Maybe Word16)]
 doubleBitErrors =
-  [ ( \(bitA, bitB) -> let
-      mask = (1 `shiftL` bitA) .|. (1 `shiftL` bitB)
-      code = withChkBits `xor` mask
-      in
-        ( "bad bits " ++ show bitA ++ " & " ++ show bitB
-        , code
-        , Nothing
-        )
-    ) (a, b)
+  [ let
+    mask = (1 `shiftL` a) .|. (1 `shiftL` b)
+    code = withChkBits `xor` mask
+    in
+      ( "bad bits " ++ show a ++ " & " ++ show b
+      , code
+      , Nothing
+      )
   | a <- [0..14]
   , b <- [1..15]
   , a < b