eta-expand the unwrap functions for foldl

Previously it relied on GHC to eta-expand the loop function,
but it did not always happen.

Joachim Breitner kindly pointed this out (thanks!)
http://www.haskell.org/pipermail/ghc-devs/2014-January/003940.html