[commit: packages/filepath] master: Add a shrink method for QFilePath (0a2c5a4)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/filepath

On branch  : master
Link       : http://git.haskell.org/packages/filepath.git/commitdiff/0a2c5a48b25cd8e0dcf0537f3cfa175487e7be3c

>---------------------------------------------------------------

commit 0a2c5a48b25cd8e0dcf0537f3cfa175487e7be3c
Author: Neil Mitchell <ndmitchell at gmail.com>
Date:   Sun Oct 26 20:43:28 2014 +0000

    Add a shrink method for QFilePath


>---------------------------------------------------------------

0a2c5a48b25cd8e0dcf0537f3cfa175487e7be3c
 tests/AutoTest.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/AutoTest.hs b/tests/AutoTest.hs
index f9d8a90..56b6ec6 100644
--- a/tests/AutoTest.hs
+++ b/tests/AutoTest.hs
@@ -26,6 +26,7 @@ newtype QFilePath = QFilePath FilePath
 
 instance Arbitrary QFilePath where
     arbitrary = fmap (QFilePath . map fromQChar) arbitrary
+    shrink (QFilePath x) = map QFilePath $ shrink x
 
 newtype QChar = QChar {fromQChar :: Char}