Commit 8debedd3 authored by Lennart Kolmodin's avatar Lennart Kolmodin
Browse files

Add Show instance for Fingerprint on GHC < 7.8.

'forAll' needs Fingerprint to have a Show instance.
Starting from GHC 7.8 (base-4.7) Fingerprint has a Show instance, but
for older versions we need to provide one ourselves.
parent 2a84d670
......@@ -390,6 +390,10 @@ prop_test_GHC_Fingerprint = forAll gen test
where
gen :: Gen Fingerprint
gen = liftM2 Fingerprint arbitrary arbitrary
#if !MIN_VERSION_base(4,7,0)
instance Show Fingerprint where
show (Fingerprint x1 x2) = show (x1,x2)
#endif
#endif
------------------------------------------------------------------------
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment