How can I improve performance of this function?

Question

I\'m trying to implement a seam carving algorithm in Haskell. I\'m using the JuicyPixels-package for this.

I think I\'m almost done, but the following function is ren