-- | Utilities to compute area, perimeterPolygon, etc. on the surface of a sphere.
module GIS.Math.Spherical ( totalPerimeter
                          ) where

import           GIS.Types
import           Math.Geometry.Spherical

-- | Given a list of polygons, return the total perimeter.
totalPerimeter :: [Polygon] -> Double
totalPerimeter = sum . fmap (perimeterPolygon 6371)