WikiMusic.Free.SongCommand

Documentation

data SongCommand a

Constructors

InsertSongs Env [Song] (Map UUID Song -> a)

InsertSongComments Env [SongComment] (Either SongCommandError () -> a)

InsertSongArtworks Env [SongArtwork] (Map UUID SongArtwork -> a)

InsertArtistsOfSongs Env [ArtistOfSong] (Map UUID ArtistOfSong -> a)

InsertSongExternalSources Env [SongExternalSources] (Map UUID SongExternalSources -> a)

InsertSongContents Env [SongContent] (Map UUID SongContent -> a)

DeleteSongs Env [UUID] (Either SongCommandError () -> a)

DeleteSongComments Env [UUID] (Either SongCommandError () -> a)

DeleteSongArtworks Env [UUID] (Either SongCommandError () -> a)

DeleteSongOpinions Env [UUID] (Either SongCommandError () -> a)

DeleteCommentsOfSongs Env [UUID] (Either SongCommandError () -> a)

DeleteSongExternalSources Env [UUID] (Either SongCommandError () -> a)

DeleteArtworksOfSongs Env [UUID] (Either SongCommandError () -> a)

DeleteOpinionsOfSongs Env [UUID] (Either SongCommandError () -> a)

DeleteArtistsOfSongs Env [UUID] (Either SongCommandError () -> a)

DeleteArtistOfSong Env (UUID, UUID) (Either SongCommandError () -> a)

DeleteSongContents Env [UUID] (Either SongCommandError () -> a)

DeleteContentsOfSongs Env [UUID] (Either SongCommandError () -> a)

UpsertSongOpinions Env [SongOpinion] (Map UUID SongOpinion -> a)

UpdateSongArtworkOrder Env [SongArtworkOrderUpdate] (Either Text () -> a)

UpdateSongs Env (Map UUID (Song, Maybe SongDelta)) (Either Text () -> a)

UpdateSongExternalSources Env (Map UUID (Song, Maybe SongDelta)) (Either Text () -> a)

UpdateSongContents Env [SongContentDelta] (Either Text () -> a)

NewSongFromRequest UUID InsertSongsRequestItem (Song -> a)

NewSongCommentFromRequest UUID InsertSongCommentsRequestItem (SongComment -> a)

NewSongOpinionFromRequest UUID UpsertSongOpinionsRequestItem (SongOpinion -> a)

NewSongArtworkFromRequest UUID InsertSongArtworksRequestItem (SongArtwork -> a)

NewArtistOfSongFromRequest UUID InsertArtistsOfSongsRequestItem (ArtistOfSong -> a)

NewSongContentFromRequest UUID InsertSongContentsRequestItem (SongContent -> a)

IncrementViewsByOne Env [UUID] (Either SongCommandError () -> a)

Instances

Functor SongCommand

Defined in WikiMusic.Free.SongCommand

Methods

fmap :: (a -> b) -> SongCommand a -> SongCommand b

(<$) :: a -> SongCommand b -> SongCommand a

Exec SongCommand

Defined in WikiMusic.Sqlite.SongCommand

Methods

execAlgebra :: SongCommand (IO a) -> IO a

insertSongs :: SongCommand :<: f => Env -> [Song] -> Free f (Map UUID Song)

insertSongComments :: SongCommand :<: f => Env -> [SongComment] -> Free f (Either SongCommandError ())

insertSongArtworks :: SongCommand :<: f => Env -> [SongArtwork] -> Free f (Map UUID SongArtwork)

upsertSongOpinions :: SongCommand :<: f => Env -> [SongOpinion] -> Free f (Map UUID SongOpinion)

insertSongExternalSources :: SongCommand :<: f => Env -> [SongExternalSources] -> Free f (Map UUID SongExternalSources)

deleteSongs :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

deleteSongComments :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

deleteSongArtworks :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

deleteSongOpinions :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

deleteCommentsOfSongs :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

deleteSongExternalSources :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

deleteArtworksOfSongs :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

deleteOpinionsOfSongs :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

insertArtistsOfSongs :: SongCommand :<: f => Env -> [ArtistOfSong] -> Free f (Map UUID ArtistOfSong)

deleteArtistsOfSongs :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

deleteArtistOfSong :: SongCommand :<: f => Env -> (UUID, UUID) -> Free f (Either SongCommandError ())

updateSongArtworkOrder :: SongCommand :<: f => Env -> [SongArtworkOrderUpdate] -> Free f (Either Text ())

updateSongs :: SongCommand :<: f => Env -> Map UUID (Song, Maybe SongDelta) -> Free f (Either Text ())

updateSongExternalSources :: SongCommand :<: f => Env -> Map UUID (Song, Maybe SongDelta) -> Free f (Either Text ())

newSongFromRequest :: SongCommand :<: f => UUID -> InsertSongsRequestItem -> Free f Song

newSongCommentFromRequest :: SongCommand :<: f => UUID -> InsertSongCommentsRequestItem -> Free f SongComment

newSongOpinionFromRequest :: SongCommand :<: f => UUID -> UpsertSongOpinionsRequestItem -> Free f SongOpinion

newSongArtworkFromRequest :: SongCommand :<: f => UUID -> InsertSongArtworksRequestItem -> Free f SongArtwork

newArtistOfSongFromRequest :: SongCommand :<: f => UUID -> InsertArtistsOfSongsRequestItem -> Free f ArtistOfSong

data SongCommandError

Constructors

PersistenceError Text

LogicError Text

Instances

Show SongCommandError

Defined in WikiMusic.Free.SongCommand

Methods

showsPrec :: Int -> SongCommandError -> ShowS

show :: SongCommandError -> String

showList :: [SongCommandError] -> ShowS

Eq SongCommandError

Defined in WikiMusic.Free.SongCommand

Methods

(==) :: SongCommandError -> SongCommandError -> Bool

(/=) :: SongCommandError -> SongCommandError -> Bool

insertSongContents :: SongCommand :<: f => Env -> [SongContent] -> Free f (Map UUID SongContent)

updateSongContents :: SongCommand :<: f => Env -> [SongContentDelta] -> Free f (Either Text ())

deleteSongContents :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

deleteContentsOfSongs :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())

newSongContentFromRequest :: SongCommand :<: f => UUID -> InsertSongContentsRequestItem -> Free f SongContent

incrementViewsByOne :: SongCommand :<: f => Env -> [UUID] -> Free f (Either SongCommandError ())