fixed testcases + removed unused module forn ow

noinia · Jan 6, 2024 · 050e772 · 050e772
1 parent 81e6952
commit 050e772
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 152 deletions.
diff --git a/hgeometry-combinatorial/doctests.hs b/hgeometry-combinatorial/doctests.hs
@@ -29,6 +29,5 @@
                 -optF -XDerivingStrategies
                 -optF -XDerivingVia
 
-                -optF -package=semigroupoids
                 -optF -package=hgeometry-combinatorial
 #-}
diff --git a/hgeometry-combinatorial/src/HGeometry/Number/Real/WithSqrt.hs b/hgeometry-combinatorial/src/HGeometry/Number/Real/WithSqrt.hs
diff --git a/hgeometry-combinatorial/test/Algorithms/LogarithmicMethodSpec.hs b/hgeometry-combinatorial/test/Algorithms/LogarithmicMethodSpec.hs
@@ -17,7 +17,7 @@ spec = describe "Logarithmic method successor test" $ do
            \q (xs :: [Int]) ->
              successor q (fromList xs)
              `shouldBe`
-             minimum1 [ x | x <- xs, x >= q]
+             minimumMaybe [ x | x <- xs, x >= q]
 
          it "merge test" $ property $
            \q (xs :: [Int]) (ys :: [Int]) ->