edit readBitmap.hs