From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 13 Jan 2021 17:23:35 +0000 (-0400)
Subject: export TestableFilePath constructor
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~98^2~208
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=bb4dc3a3997b4d7fb177e42cbe076b786e2eaebc;p=git-annex.git

export TestableFilePath constructor

Useful for eg, replicating failures in ghci. No need for this to be a
smart constructor, as long as it's used with valid filepaths, it's ok
and if not the test breaks.
---

diff --git a/Utility/QuickCheck.hs b/Utility/QuickCheck.hs
index 2093670a06..9244a28baa 100644
--- a/Utility/QuickCheck.hs
+++ b/Utility/QuickCheck.hs
@@ -12,7 +12,7 @@ module Utility.QuickCheck
 	( module X
 	, TestableString
 	, fromTestableString
-	, TestableFilePath
+	, TestableFilePath(..)
 	, fromTestableFilePath
 	, nonNegative
 	, positive