Commit ef3bf7a1 authored by Clint Adams's avatar Clint Adams
Browse files

libmpd: try to make QuickCheck happier

parent 334f2781
Loading
Loading
Loading
Loading
+6 −0
Original line number Diff line number Diff line
haskell-libmpd (0.9.0.8-2) unstable; urgency=medium

  * Try to make QuickCheck happier.

 -- Clint Adams <clint@debian.org>  Sat, 14 Apr 2018 22:51:39 -0400

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

  [ Ilias Tsitsimpis ]
+11 −0
Original line number Diff line number Diff line
--- a/tests/Arbitrary.hs
+++ b/tests/Arbitrary.hs
@@ -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) <$> arbitraryPrintableChar
 
 fieldBS :: Gen ByteString
 fieldBS = UTF8.fromString <$> field
+1 −0
Original line number Diff line number Diff line
newer-quickcheck