From bc124e3e0b776ee20fe2fd4c507e1f81a8f69ad0 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 13 Nov 2017 15:25:39 +0100
Subject: Add shrink for PGN

---
 test/test_parser.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/test/test_parser.hs b/test/test_parser.hs
index de9883e..397248f 100644
--- a/test/test_parser.hs
+++ b/test/test_parser.hs
@@ -61,6 +61,8 @@ instance Arbitrary PGN
 
         sensibleString = listOf $ choose ('a', 'z')
 
+    shrink pgn = [pgn {moves=ms} | ms <- shrink $ moves pgn]
+
 main = quickCheck (withMaxSuccess 10000 checkPGN)
   where
     checkPGN :: PGN -> Bool
-- 
cgit v1.2.3