-- prefetchRead a i = unsafeIOToST $ prefetchCacheLine_read v x
prefetchRead a i = prefetchCacheLine_read v x
  where
    v   = M.toPtr a
    x   = fI i

-- prefetchWrite a i = unsafeIOToST $ prefetchCacheLine_write v x
prefetchRead a i = prefetchCacheLine_read v x
  where
    v   = M.toPtr a
    x   = fI i

-- prefetchWrite a i = unsafeIOToST $ prefetchCacheLine_write v x
prefetchRead a i = prefetchCacheLine_read v x
  where
    v   = M.toPtr a
    x   = fI i

-- prefetchWrite a i = unsafeIOToST $ prefetchCacheLine_write v x