{-# LANGUAGE OverloadedStrings #-}

{- |
Module      : Network.MPD.Applicative.Connection
Copyright   : (c) Joachim Fasting 2012
License     : MIT

Maintainer  : joachifm@fastmail.fm
Stability   : stable
Portability : unportable

Connection settings.
-}

module Network.MPD.Applicative.Connection
    ( password
    , ping
    ) where

import           Network.MPD.Applicative.Internal
import           Network.MPD.Core

-- | Authenticate session. The password is sent in plain text.
password :: Password -> Command ()
password :: [Char] -> Command ()
password [Char]
pwd = Parser () -> [[Char]] -> Command ()
forall a. Parser a -> [[Char]] -> Command a
Command Parser ()
emptyResponse [[Char]
"password " [Char] -> [Char] -> [Char]
forall a. [a] -> [a] -> [a]
++ [Char]
pwd]

-- | Ping daemon.
ping :: Command ()
ping :: Command ()
ping = Parser () -> [[Char]] -> Command ()
forall a. Parser a -> [[Char]] -> Command a
Command Parser ()
emptyResponse [[Char]
"ping"]