foo.hs

readHex :: BC.ByteString -> Some Geometry
readHex bs = runGeos $ do
  r <- S.createReader
  g <- S.readHex r bs
  convertGeometryFromRaw g

readLotsOfHex :: [BC.ByteString] -> [Some Geometry]
readLotsOfHex bs = runGeos $ do
  r <- S.createReader
  x <- mapM (S.readHex r) bs
  return x
  
  
/Users/jamie/src/geos/src/Data/Geometry/Geos/Serialize.hs:25:20: error:
    • Couldn't match type ‘R.Geom’ with ‘Some Geometry’
      Expected type: [Some Geometry]
        Actual type: [R.Geom]
    • In the expression:
        runGeos
        $ do { r <- S.createReader;
               x <- mapM (S.readHex r) bs;
               return x }