Information/Battery.hs: refactor batteryContextNew