getLabel :: Monad m => r -> RawDBOperation r m (B.ByteString, r)
getLabel ref = do
  node <- lift $ get ref
  case node of 
    Label l r ->
      return (l, r)
    _ ->
      throwError TypeError
getLabel :: Monad m => r -> RawDBOperation r m (B.ByteString, r)
getLabel ref = do
  node <- lift $ get ref
  case node of 
    Label l r ->
      return (l, r)
    _ ->
      throwError TypeError
getLabel ref = do
  node <- lift $ get ref
  case node of 
    Label l r ->
      return (l, r)
    _ ->
      throwError TypeError