{-# LANGUAGE OverloadedStrings #-}
module Network.MPD.Commands.Status
( clearError
, currentSong
, idle
, noidle
, stats
, status
) where
import qualified Network.MPD.Applicative.Internal as A
import qualified Network.MPD.Applicative.Status as A
import Network.MPD.Commands.Types
import Network.MPD.Core
clearError :: MonadMPD m => m ()
clearError :: forall (m :: * -> *). MonadMPD m => m ()
clearError = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand Command ()
A.clearError
currentSong :: MonadMPD m => m (Maybe Song)
currentSong :: forall (m :: * -> *). MonadMPD m => m (Maybe Song)
currentSong = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand Command (Maybe Song)
A.currentSong
idle :: MonadMPD m => [Subsystem] -> m [Subsystem]
idle :: forall (m :: * -> *). MonadMPD m => [Subsystem] -> m [Subsystem]
idle = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Subsystem] -> Command [Subsystem]
A.idle
noidle :: MonadMPD m => m ()
noidle :: forall (m :: * -> *). MonadMPD m => m ()
noidle = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand Command ()
A.noidle
stats :: MonadMPD m => m Stats
stats :: forall (m :: * -> *). MonadMPD m => m Stats
stats = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand Command Stats
A.stats
status :: MonadMPD m => m Status
status :: forall (m :: * -> *). MonadMPD m => m Status
status = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand Command Status
A.status