diff --git a/tests/Tests/Properties/Validate.hs b/tests/Tests/Properties/Validate.hs
index a56f23c6..5dd97de6 100644
--- a/tests/Tests/Properties/Validate.hs
+++ b/tests/Tests/Properties/Validate.hs
@@ -30,7 +30,6 @@ testValidate :: TestTree
 testValidate = testGroup "validate"
   [ testProperty "bytestring" $ forAllShrink genByteString shrink $ \bs ->
       isValidUtf8ByteString bs === isRight (decodeUtf8' bs)
-    -- We have all we need to shrink here but I'm too lazy to do that now.
   , testProperty "bytearray" $ forAllByteArray $ \ba off len bs ->
       isValidUtf8ByteArray ba off len === isRight (decodeUtf8' bs)
   ]