{-# 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 = Command [String] -> m [String]
forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand (Command [String] -> m [String])
-> (String -> Command [String]) -> String -> m [String]
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 = Command () -> m ()
forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand (Command () -> m ()) -> (String -> Command ()) -> String -> m ()
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 = Command () -> m ()
forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand (Command () -> m ()) -> (String -> Command ()) -> String -> m ()
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 = Command [(String, String)] -> m [(String, String)]
forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand (Command [(String, String)] -> m [(String, String)])
-> (String -> Command [(String, String)])
-> String
-> m [(String, String)]
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 = Command [(String, String)] -> m [(String, String)]
forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand (Command [(String, String)] -> m [(String, String)])
-> (String -> Command [(String, String)])
-> String
-> m [(String, String)]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ObjectType -> String -> String -> Command [(String, String)]
A.stickerFind ObjectType
typ String
uri