libmpd: fix patch

haskell-libmpd (0.9.0.8-4) unstable; urgency=medium

  * Fix patch.

 -- Clint Adams <clint@debian.org>  Thu, 26 Apr 2018 21:44:10 -0400

haskell-libmpd (0.9.0.8-3) unstable; urgency=medium

  * Fix type mismatch.

--- a/tests/Arbitrary.hs

+++ b/tests/Arbitrary.hs

@@ -13,7 +13,7 @@

     , positive, field

     ) where

-import           Control.Applicative ((<$>), (<*>))

+import           Control.Applicative ((<$>), (<*>), some)

 import           Control.Monad (liftM2, liftM3, replicateM)

 import           Data.Char (isSpace)

 import           Data.List (intersperse)

@@ -46,7 +46,7 @@

 -- MPD fields can't contain newlines and the parser skips initial spaces.

 field :: Gen String

-field = (filter (/= '\n') . dropWhile isSpace) <$> arbitrary

+field = (filter (/= '\n') . dropWhile isSpace) <$> some arbitraryPrintableChar

+field = (filter (/= '\n') . dropWhile isSpace) . getPrintableString <$> (arbitrary :: Gen PrintableString)

 fieldBS :: Gen ByteString

 fieldBS = UTF8.fromString <$> field