Tame one more test suite failure

mrkkrp · Dec 31, 2017 · 1eec90e · 1eec90e
1 parent 966768a
commit 1eec90e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/Text/Megaparsec/CharSpec.hs b/tests/Text/Megaparsec/CharSpec.hs
@@ -225,7 +225,7 @@ spec = do
           prs' (char' ch) s' `failsLeaving`   s'
     context "when stream is empty" $
       it "signals correct parse error" $
-        property $ \ch -> do
+        property $ \ch -> goodChar ch ==> do
           let ms = ueof <> etok (toLower ch) <> etok (toUpper ch)
           prs  (char' ch) "" `shouldFailWith` err posI ms