{-# LANGUAGE OverloadedStrings #-}
module Network.MPD.Commands.Stickers
( stickerGet
, stickerSet
, stickerDelete
, stickerList
, stickerFind
) where
import qualified Network.MPD.Applicative.Internal as A
import qualified Network.MPD.Applicative.Stickers as A
import Network.MPD.Commands.Types
import Network.MPD.Core
stickerGet :: MonadMPD m => ObjectType
-> String
-> String
-> m [String]
stickerGet :: forall (m :: * -> *).
MonadMPD m =>
ObjectType -> String -> String -> m [String]
stickerGet ObjectType
typ String
uri = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. ObjectType -> String -> String -> Command [String]
A.stickerGet ObjectType
typ String
uri
stickerSet :: MonadMPD m => ObjectType
-> String
-> String
-> String
-> m ()
stickerSet :: forall (m :: * -> *).
MonadMPD m =>
ObjectType -> String -> String -> String -> m ()
stickerSet ObjectType
typ String
uri String
name = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. ObjectType -> String -> String -> String -> Command ()
A.stickerSet ObjectType
typ String
uri String
name
stickerDelete :: MonadMPD m => ObjectType
-> String
-> String
-> m ()
stickerDelete :: forall (m :: * -> *).
MonadMPD m =>
ObjectType -> String -> String -> m ()
stickerDelete ObjectType
typ String
uri = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. ObjectType -> String -> String -> Command ()
A.stickerDelete ObjectType
typ String
uri
stickerList :: MonadMPD m => ObjectType
-> String
-> m [(String, String)]
stickerList :: forall (m :: * -> *).
MonadMPD m =>
ObjectType -> String -> m [(String, String)]
stickerList ObjectType
typ = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. ObjectType -> String -> Command [(String, String)]
A.stickerList ObjectType
typ
stickerFind :: MonadMPD m => ObjectType
-> String
-> String
-> m [(String, String)]
stickerFind :: forall (m :: * -> *).
MonadMPD m =>
ObjectType -> String -> String -> m [(String, String)]
stickerFind ObjectType
typ String
uri = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. ObjectType -> String -> String -> Command [(String, String)]
A.stickerFind ObjectType
typ String
uri