setValue :: B.ByteString -> B.ByteString -> IO ()
setValue k v =
  withConnection $ \lcb -> do
    let cmd = LcbCmdStore LcbSet k v Nothing
    lcbStore3 lcb nullPtr cmd >>= assertLcbSuccess "lcbStore3() failed"
    lcbWait lcb >>= assertLcbSuccess "lcbWait() failed"
setValue :: B.ByteString -> B.ByteString -> IO ()
setValue k v =
  withConnection $ \lcb -> do
    let cmd = LcbCmdStore LcbSet k v Nothing
    lcbStore3 lcb nullPtr cmd >>= assertLcbSuccess "lcbStore3() failed"
    lcbWait lcb >>= assertLcbSuccess "lcbWait() failed"
setValue k v =
  withConnection $ \lcb -> do
    let cmd = LcbCmdStore LcbSet k v Nothing
    lcbStore3 lcb nullPtr cmd >>= assertLcbSuccess "lcbStore3() failed"
    lcbWait lcb >>= assertLcbSuccess "lcbWait() failed"