Changed Polygon definition to be more in line with

http://geojson.org/geojson-spec.html#polygon
amcvega · May 7, 2014 · 8f0c4c0 · 8f0c4c0
1 parent 342b445
commit 8f0c4c0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Data/Geospatial/GeoFeatureCollection.hs b/src/Data/Geospatial/GeoFeatureCollection.hs
@@ -75,10 +75,10 @@ import Data.Text ( Text )
 --                 *-----------*
 --               (124, -25)  (127, -25)
 --
--- >>> let lShapedGeoPoly = GeoPolygon lshapedPolyVertices
+-- >>> let lShapedGeoPoly = GeoPolygon [lshapedPolyVertices]
 -- >>> let lShapedPoly = Polygon lShapedGeoPoly
 -- >>> let emptyPolyJSON = "{\"type\":\"Polygon\",\"coordinates\":[]}"
--- >>> let emptyGeoPoly = GeoPolygon emptyVertices
+-- >>> let emptyGeoPoly = GeoPolygon [emptyVertices]
 -- >>> let emptyPoly = Polygon emptyGeoPoly
 --
 -- Multi Polys

diff --git a/src/Data/Geospatial/Geometry/GeoPolygon.hs b/src/Data/Geospatial/Geometry/GeoPolygon.hs
@@ -22,7 +22,7 @@ import Control.Lens ( makeLenses )
 import Control.Monad ( mzero )
 import Data.Aeson ( FromJSON(..), ToJSON(..), Value(..), Object )
 
-newtype GeoPolygon = GeoPolygon { _unGeoPolygon :: [GeoPositionWithoutCRS] } deriving (Show, Eq)
+newtype GeoPolygon = GeoPolygon { _unGeoPolygon :: [[GeoPositionWithoutCRS]] } deriving (Show, Eq)
 
 makeLenses ''GeoPolygon