uncommented the partial instance for now

noinia · Aug 15, 2024 · ad13f0c · ad13f0c
1 parent b7bb550
commit ad13f0c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/hgeometry/geojson/src/HGeometry/GeoJSON.hs b/hgeometry/geojson/src/HGeometry/GeoJSON.hs
@@ -310,9 +310,9 @@ instance HasOuterBoundary GeoPolygon where
   outerBoundaryEdgeAt (_,j) = reIndexEdge
                             $ firstRing <.> outerBoundaryEdgeAt j <. edge'
 
-instance Polygon_ GeoPolygon GeoPositionWithoutCRS' Double where
-  area pg = case toNonEmptyOf (_Wrapped.from _Seq1Seq.traverse1._RingAsSimplePolygon') pg of
-    outer :| inners -> area outer - sum (map area inners)
+-- instance Polygon_ GeoPolygon GeoPositionWithoutCRS' Double where
+--   area pg = case toNonEmptyOf (_Wrapped.from _Seq1Seq.traverse1._RingAsSimplePolygon') pg of
+--     outer :| inners -> area outer - sum (map area inners)
 
   -- ccwPredecessorOf (i,j) = withRing i <.> ccwPredecessorOf j <. singular _GeoPositionWithoutCRS
   -- ccwSuccessorOf   (i,j) = withRing i <.> ccwSuccessorOf   j <. singular _GeoPositionWithoutCRS