getValue :: Monad m => r -> RawDBOperation r m B.ByteString
getValue ref = do
  node <- lift $ get ref
  case node of
    StringValue st -> return st
    _ -> throwError TypeError
getValue :: Monad m => r -> RawDBOperation r m B.ByteString
getValue ref = do
  node <- lift $ get ref
  case node of
    StringValue st -> return st
    _ -> throwError TypeError
getValue ref = do
  node <- lift $ get ref
  case node of
    StringValue st -> return st
    _ -> throwError TypeError