GeolocationProvider.rna

import Network;
import JSON;

+ GeolocationProvider inherits \Objects\MappableAdopter<Float, Float>{
  public f constructor <> {
    \Network\Fetch({
      Method: 'GET',
      URL: \Network\Path <String "http://iplocation.net/api/" +toString<\Network\ClientIPAddress> >,
      isSuccessful: <\Network\FetchResponse response> {
        yield new \JSON\JsonObject {
          status: 'ok',
          location_data: response.json().get("location_data")
        };
      },
      isFailure: <\Error error> {
        yield new \JSON\JsonObject {
          status: 'bad',
          error_msg: toString<error>,
          error_line: toInt<error.getLinePosition>
        };
      }
    }
  }
}

To be finished!