make hlint happy

LeventErkok · Sep 20, 2024 · a5b90f6 · a5b90f6
1 parent 2304b1f
commit a5b90f6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/Data/SBV/Core/Operations.hs b/Data/SBV/Core/Operations.hs
@@ -554,7 +554,9 @@ cCompare k op x y =
                -- Check if keys cover everything. Clearly, we can't do this for all kinds; but only finite ones
                -- For the time being, we're retricting ourselves to bool only. Might want to extend this later.
                complete  = case k1 of
-                             KBool -> all (\key -> key `elem` map fst asc1 && key `elem` map fst asc2) (map (cvVal . mkConstCV KBool) [0, 1 :: Integer])
+                             KBool -> let bools       = map cvVal [falseCV, trueCV]
+                                          covered asc = all (`elem` map fst asc) bools
+                                      in covered asc1 && covered asc2
                              _     -> False
 
            in case (keysMatch, defsMatch, complete) of

diff --git a/SBVTestSuite/TestSuite/Arrays/InitVals.hs b/SBVTestSuite/TestSuite/Arrays/InitVals.hs
@@ -78,8 +78,8 @@ tests = testGroup "Arrays" [
                                                           .== write (empty True)  [(True, True), (False, False)]) `showsAs` "True"
 
       , goldenCapturedIO "array_misc_5"  $ t proveWith $ do setLogic Logic_ALL
-                                                            pure $ (    write (empty 0) [(i, i) | i <- [0 .. (3 :: WordN 2)]]
-                                                                    .== write (empty 1) [(i, i) | i <- [0 .. (3 :: WordN 2)]]) :: Symbolic SBool
+                                                            pure (    write (empty 0) [(i, i) | i <- [0 .. (3 :: WordN 2)]]
+                                                                  .== write (empty 1) [(i, i) | i <- [0 .. (3 :: WordN 2)]]) :: Symbolic SBool
 
       , testCase         "array_misc_6"  $                   (write (empty 0) [(i, i) | i <- [0 .. (3 :: WordN 2)]]
                                                           .== write (empty 1) [(i, i) | i <- [0 .. (3 :: WordN 2)]]) `showsAs` "<symbolic> :: SBool"