pokeLazyByteString :: Ptr a -> L.ByteString -> IO ()
pokeLazyByteString p v =
    void $ L.foldlChunks (\mi s -> mi >>= \i -> do
        pokeByteString (plusPtr p i) s
        return $ i + S.length s
    ) (return 0) v
pokeLazyByteString :: Ptr a -> L.ByteString -> IO ()
pokeLazyByteString p v =
    void $ L.foldlChunks (\mi s -> mi >>= \i -> do
        pokeByteString (plusPtr p i) s
        return $ i + S.length s
    ) (return 0) v
pokeLazyByteString p v =
    void $ L.foldlChunks (\mi s -> mi >>= \i -> do
        pokeByteString (plusPtr p i) s
        return $ i + S.length s
    ) (return 0) v