libmpd 0.9.0.8 → 0.9.0.9

raw patch · 3 files changed

+5/−3 lines, 3 filesdep ~basedep ~bytestringdep ~containers

Dependency ranges changed: base, bytestring, containers

Files

libmpd.cabal +1/−1
src/Network/MPD/Commands/Types.hs +2/−1
src/Network/MPD/Core.hs +2/−1

libmpd.cabal view

@@ -1,5 +1,5 @@ Name:               libmpd-Version:            0.9.0.8+Version:            0.9.0.9 Synopsis:           An MPD client library. Description:        A client library for MPD, the Music Player Daemon. Category:           Network, Sound

src/Network/MPD/Commands/Types.hs view

@@ -41,6 +41,7 @@ import           Data.Default.Class  import qualified Data.Map as M+import           Data.Map.Strict (insertWith) import           Data.Time.Clock (UTCTime) import           Data.String @@ -251,7 +252,7 @@  -- | Add metadata tag value. sgAddTag :: Metadata -> Value -> Song -> Song-sgAddTag meta value s = s { sgTags = M.insertWith' (++) meta [value] (sgTags s) }+sgAddTag meta value s = s { sgTags = insertWith (++) meta [value] (sgTags s) }  defaultSong :: Path -> Song defaultSong path =

src/Network/MPD/Core.hs view

@@ -116,7 +116,8 @@             (Just <$> connectTo host (PortNumber $ fromInteger port))             `E.catch` (\(_ :: E.SomeException) -> return Nothing)         checkConn = do-            [msg] <- send ""+            singleMsg <- send ""+            let [msg] = singleMsg             if "OK MPD" `isPrefixOf` msg                 then MPD $ checkVersion $ parseVersion msg                 else return False