setCompressor :: Compressor -> [Attrib] -> Action ()
setCompressor x as = emit $ SetCompressor $ foldl f def{compType=x} as
    where
        f c Final = c{compFinal=True}
        f c Solid = c{compSolid=True}
        f c x = error $ "Invalid attribute to setCompress: " ++ show x
setCompressor :: Compressor -> [Attrib] -> Action ()
setCompressor x as = emit $ SetCompressor $ foldl f def{compType=x} as
    where
        f c Final = c{compFinal=True}
        f c Solid = c{compSolid=True}
        f c x = error $ "Invalid attribute to setCompress: " ++ show x
setCompressor x as = emit $ SetCompressor $ foldl f def{compType=x} as
    where
        f c Final = c{compFinal=True}
        f c Solid = c{compSolid=True}
        f c x = error $ "Invalid attribute to setCompress: " ++ show x