fix compile

noinia · Dec 16, 2024 · 92e6aee · 92e6aee
1 parent 71185c7
commit 92e6aee
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hgeometry/test/ConvexHull/ConvexHullSpec.hs b/hgeometry/test/ConvexHull/ConvexHullSpec.hs
@@ -62,15 +62,15 @@ spec = do
         it "JarvisMarch Manual test1" $
           (PG $ JarvisMarch.convexHull testPoints)
           `shouldBe`
-          (PG $ uncheckedFromCCWPoints (reverse
+          (PG $ uncheckedFromCCWPoints . NonEmpty.fromList $ (reverse
                                  [mPoint2 [0,10],mPoint2 [2,20],mPoint2 [6,20]
                                  ,mPoint2 [8,11],mPoint2 [8,6],mPoint2 [7,4]
                                  ,mPoint2 [5,3],mPoint2 [1,4],mPoint2 [0,5]]))
 
         it "JarvisMarch Manual test2" $
           (PG $ JarvisMarch.convexHull testPoints2)
           `shouldBe`
-          (PG $ uncheckedFromCCWPoints (reverse
+          (PG $ uncheckedFromCCWPoints . NonEmpty.fromList $  (reverse
                                  [ mPoint2 [0,10], mPoint2 [2,20]
                                  , mPoint2 [6,20], mPoint2 [8,11]
                                  , mPoint2 [7,4],  mPoint2 [5,3] , mPoint2 [1,4] ]))