Documentation

module Model.Comment.Types

blankComment :: Account -> Slot -> Comment Source #

lookupComment :: (MonadDB c m, MonadHasIdentity c m) => Id Comment -> m (Maybe Comment) Source #

lookupSlotComments :: (MonadDB c m, MonadHasIdentity c m) => Slot -> Int -> m [Comment] Source #

lookupVolumeCommentRows :: MonadDB c m => Volume -> m [CommentRow] Source #

addComment :: MonadDB c m => Comment -> m Comment Source #

commentJSON :: ToNestedObject o u => Comment -> Record (Id Comment) o Source #