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

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