haskell-src-exts-1.15.0.1: tests/examples/WhereBlock.hs

hash ptr len = f len
 where f h = return h
       f p = (p `advancePtr` 1)