{-# 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 = 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
. String -> String -> Command ()
A.mount String
p
unmount :: (MonadMPD m) => String -> m ()
unmount :: forall (m :: * -> *). MonadMPD m => String -> m ()
unmount = 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
. String -> Command ()
A.unmount
listMounts :: (MonadMPD m) => m [(String, String)]
listMounts :: forall (m :: * -> *). MonadMPD m => m [(String, String)]
listMounts = Command [(String, String)] -> m [(String, String)]
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 = Command [(String, String)] -> m [(String, String)]
forall (m :: * -> *) a. MonadMPD m => Command a -> m a
A.runCommand Command [(String, String)]
A.listNeighbors