From 16c4dd1ba2ef4aeca1cb21c8d75fb3939507a7ba Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 21 Nov 2017 10:02:55 +0100
Subject: Don't shrink test cases; this always reduces to the moves '' which
 gives a runtime error

---
 test/ArbitraryMove.hs | 2 --
 1 file changed, 2 deletions(-)

diff --git a/test/ArbitraryMove.hs b/test/ArbitraryMove.hs
index df3d7fb..486eb36 100644
--- a/test/ArbitraryMove.hs
+++ b/test/ArbitraryMove.hs
@@ -56,8 +56,6 @@ instance Arbitrary PGN
 
         sensibleString = listOf $ choose ('a', 'z')
 
-    shrink pgn = [pgn {moves=ms} | ms <- shrink $ moves pgn]
-
 {- This file can largely be generated with the following pipeline:
  -
  - grep -v '^\(\[\|$\)' \
-- 
cgit v1.2.3