moduleCodec.BMP.CIEXYZ(CIEXYZ(..))whereimportData.WordimportData.BinaryimportData.Binary.GetimportData.Binary.Put-- | Contains the XYZ coordinates of a specific color in a specified color-- space.dataCIEXYZ=CIEXYZWord32Word32Word32derivingShowinstanceBinaryCIEXYZwhereget=dor<-getWord32leg<-getWord32leb<-getWord32lereturn$CIEXYZrgbput(CIEXYZrgb)=doputWord32lerputWord32legputWord32leb