Update Photon.hs