Compat.hs

{-# LANGUAGE CPP #-}

module XMonad.Prompt.MPD.Compat (wrapId, unwrapId) where

#if MIN_VERSION_libmpd(0,7,0)

import Network.MPD (Id(..))
wrapId = Id
unwrapId (Id i) = i

#else

type Id = Int
wrapId = id
unwrapId = id

#endif

wrapId :: Int -> Id
unwrapId :: Id -> Int