{-# LANGUAGE OverloadedStrings #-}
module Network.MPD.Commands.Mount
( mount
, unmount
, listMounts
, listNeighbors
) where
import qualified Network.MPD.Applicative.Internal as A
import qualified Network.MPD.Applicative.Mount as A
import Network.MPD.Core
mount :: (MonadMPD m) => String -> String -> m ()
mount :: forall (m :: * -> *). MonadMPD m => String -> String -> m ()
mount String
p = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> String -> Command ()
A.mount String
p
unmount :: (MonadMPD m) => String -> m ()
unmount :: forall (m :: * -> *). MonadMPD m => String -> m ()
unmount = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Command ()
A.unmount
listMounts :: (MonadMPD m) => m [(String, String)]
listMounts :: forall (m :: * -> *). MonadMPD m => m [(String, String)]
listMounts = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand Command [(String, String)]
A.listMounts
listNeighbors :: (MonadMPD m) => m [(String, String)]
listNeighbors :: forall (m :: * -> *). MonadMPD m => m [(String, String)]
listNeighbors = forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand Command [(String, String)]
A.listNeighbors