fromAmazonka :: Region -> SpotPrice -> HawsSpotPrice
fromAmazonka r s = HawsSpotPrice {
  price = (read  . unpack . fromJust . (view sSpotPrice)) s,
  priceStr = (fromJust . (view sSpotPrice)) s,
  zone = (fromJust . (view sAvailabilityZone)) s,
  region = r,
  instanceType = fromJust $ view sInstanceType s,
  timestamp = (fromJust . (view sTimestamp)) s
  }
fromAmazonka :: Region -> SpotPrice -> HawsSpotPrice
fromAmazonka r s = HawsSpotPrice {
  price = (read  . unpack . fromJust . (view sSpotPrice)) s,
  priceStr = (fromJust . (view sSpotPrice)) s,
  zone = (fromJust . (view sAvailabilityZone)) s,
  region = r,
  instanceType = fromJust $ view sInstanceType s,
  timestamp = (fromJust . (view sTimestamp)) s
  }
fromAmazonka r s = HawsSpotPrice {
  price = (read  . unpack . fromJust . (view sSpotPrice)) s,
  priceStr = (fromJust . (view sSpotPrice)) s,
  zone = (fromJust . (view sAvailabilityZone)) s,
  region = r,
  instanceType = fromJust $ view sInstanceType s,
  timestamp = (fromJust . (view sTimestamp)) s
  }