createLabel :: Monad m => B.ByteString -> r -> RawDBOperation r m r
createLabel label ref =
  lift $ store $ Label label ref
createLabel :: Monad m => B.ByteString -> r -> RawDBOperation r m r
createLabel label ref =
  lift $ store $ Label label ref
createLabel label ref =
  lift $ store $ Label label ref