Commit b3456767 authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel 🕺
Browse files

drop redundant constraint

parent fc00e33c
......@@ -9,7 +9,7 @@ import Distribution.System
import Test.Tasty
import Test.Tasty.QuickCheck
textRoundtrip :: (Arbitrary a, Show a, Eq a, Text a) => a -> Property
textRoundtrip :: (Show a, Eq a, Text a) => a -> Property
textRoundtrip x = simpleParse (display x) === Just x
tests :: [TestTree]
......@@ -26,4 +26,4 @@ instance Arbitrary Arch where
arbitrary = elements knownArches
instance Arbitrary Platform where
arbitrary = liftM2 Platform arbitrary arbitrary
\ No newline at end of file
arbitrary = liftM2 Platform arbitrary arbitrary
Markdown is supported
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