WIP: add toBoxUsage

Author: tiphdousset

src/AWS/Pricing/Utils.purs

@@ -38,3 +38,17 @@ toLocation r = case unwrap r of
   "eu-central-1" -> FilterValue "EU (Frankfurt)"
   "eu-west-1" -> FilterValue "EU (Ireland)"
   _ -> FilterValue "EU (Frankfurt)"
+
+toBoxUsage :: Region -> FilterValue
+toBoxUsage r = case unwrap r of
+  "eu-central-1" -> FilterValue "EUC1-BoxUsage"
+  "eu-west-1" -> FilterValue "EU-BoxUsage"
+  _ -> FilterValue "EUC1-BoxUsage"
+
+-- "EU-Reservation:"
+-- "EU-UnusedBox:"
+-- "EU-DedicatedRes:"
+-- "EU-BoxUsage:"
+-- "EU-UnusedDed:"
+-- "EU-DedicatedUsage:"
+-- "EU-HostBoxUsage:"