ntGot :: (Show a, Testable prop) => String -> a -> prop -> Property
printGot name value = printTestCase ("Got " ++ name ++ ": " ++ show value)

p
printGot :: (Show a, Testable prop) => String -> a -> prop -> Property
printGot name value = printTestCase ("Got " ++ name ++ ": " ++ show value)
printGot name value = printTestCase ("Got " ++ name ++ ": " ++ show value)