createValue :: Monad m => B.ByteString -> RawDBOperation r m r
createValue dat =
  lift $ store $ StringValue dat
createValue :: Monad m => B.ByteString -> RawDBOperation r m r
createValue dat =
  lift $ store $ StringValue dat
createValue dat =
  lift $ store $ StringValue dat