extracting a vector from a Repa Array

Question

hello everyone I have this function in haskell that let me extract a Repa array from bitmap grayScale

readImageFromBMPa
        :: FilePath
        -> IO (