haskell-src-exts-1.9.5: Test/examples/WhereBlock.hs

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