let mapBatteryTypeAndLogError code gtin = 
    mapCode BatteryType.FromString code
    |> Choice.mapr(fun _ ->
        Log.Warning("Unexpected battery code. gtin={gtin}, batteryType={code}", gtin, code)
        BatteryType.Other
    )
    |> Choice.codiag
let mapCategoryAndLogError code gtin = 
    mapCode Types.Category.FromString code
    |> Choice.mapr(fun _ ->
        Log.Warning("Unexpected category code. gtin={gtin}, category={code}", gtin, code)
        Types.Category.GeneralHandling
    )
    |> Choice.codiag
let mapSlottingAndLogError code gtin = 
    mapCode Slotting.FromInt code
    |> Choice.mapr(fun _ ->
        Log.Warning("Unexpected slotting code. gtin={gtin}, category={code}", gtin, code)
        Slotting.GeneralStorage
    )
    |> Choice.codiag