{-# LANGUAGE OverloadedStrings #-}
module Network.MPD.Commands.Database
( count
, find
, findAdd
, list
, listAll
, listAllInfo
, lsInfo
, readComments
, search
, searchAdd
, searchAddPl
, update
, rescan
) where
import qualified Network.MPD.Applicative.Internal as A
import qualified Network.MPD.Applicative.Database as A
import Network.MPD.Commands.Query
import Network.MPD.Commands.Types
import Network.MPD.Core
count :: MonadMPD m => Query -> m Count
count :: forall (m :: * -> *). MonadMPD m => Query -> m Count
count = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Query -> Command Count
A.count
find :: MonadMPD m => Query -> m [Song]
find :: forall (m :: * -> *). MonadMPD m => Query -> m [Song]
find = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Query -> Command [Song]
A.find
findAdd :: MonadMPD m => Query -> m ()
findAdd :: forall (m :: * -> *). MonadMPD m => Query -> m ()
findAdd = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Query -> Command ()
A.findAdd
list :: MonadMPD m
=> Metadata
-> Query -> m [Value]
list :: forall (m :: * -> *). MonadMPD m => Metadata -> Query -> m [Value]
list Metadata
m = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Metadata -> Query -> Command [Value]
A.list Metadata
m
listAll :: MonadMPD m => Path -> m [Path]
listAll :: forall (m :: * -> *). MonadMPD m => Path -> m [Path]
listAll = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Path -> Command [Path]
A.listAll
listAllInfo :: MonadMPD m => Path -> m [LsResult]
listAllInfo :: forall (m :: * -> *). MonadMPD m => Path -> m [LsResult]
listAllInfo = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Path -> Command [LsResult]
A.listAllInfo
lsInfo :: MonadMPD m => Path -> m [LsResult]
lsInfo :: forall (m :: * -> *). MonadMPD m => Path -> m [LsResult]
lsInfo = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Path -> Command [LsResult]
A.lsInfo
readComments :: MonadMPD m => Path -> m [(String, String)]
= forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Path -> Command [(String, String)]
A.readComments
search :: MonadMPD m => Query -> m [Song]
search :: forall (m :: * -> *). MonadMPD m => Query -> m [Song]
search = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Query -> Command [Song]
A.search
searchAdd :: MonadMPD m => Query -> m ()
searchAdd :: forall (m :: * -> *). MonadMPD m => Query -> m ()
searchAdd = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Query -> Command ()
A.searchAdd
searchAddPl :: MonadMPD m => PlaylistName -> Query -> m ()
searchAddPl :: forall (m :: * -> *). MonadMPD m => PlaylistName -> Query -> m ()
searchAddPl PlaylistName
pl = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. PlaylistName -> Query -> Command ()
A.searchAddPl PlaylistName
pl
update :: MonadMPD m => Maybe Path -> m Integer
update :: forall (m :: * -> *). MonadMPD m => Maybe Path -> m Integer
update = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Maybe Path -> Command Integer
A.update
rescan :: MonadMPD m => Maybe Path -> m Integer
rescan :: forall (m :: * -> *). MonadMPD m => Maybe Path -> m Integer
rescan = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. Maybe Path -> Command Integer
A.rescan