Commit 7ee346bb authored by Clint Adams's avatar Clint Adams

libmpd: fix patch

parent e8c7ab30
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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment