module Data.GeoJSON ( module Data.GeoJSON.Objects, module Data.GeoJSON.Features, module Data.GeoJSON.Classes, readFeatureCollection ) where import Data.GeoJSON.Objects import Data.GeoJSON.Features import Data.GeoJSON.Classes import qualified Data.Aeson as Aeson import qualified Data.ByteString.Lazy as BL import Control.Lens.Operators readFeatureCollection :: BaseType t => FilePath -> IO (Either String (FeatureCollection Aeson.Value t)) readFeatureCollection f = Aeson.eitherDecode <$> BL.readFile f