Fix the prop_show_read test (#117)

This test used the 'NonEmpty' instances of 'Read' and 'Show' instead of the 'DNonEmpty' instances.
spl · Feb 17, 2024 · 1aa96db · 1aa96db
1 parent cf89951
commit 1aa96db
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/DNonEmptyProperties.hs b/tests/DNonEmptyProperties.hs
@@ -59,7 +59,7 @@ prop_map :: (Int -> Int) -> NonEmpty Int -> Bool
 prop_map f = eqWith (NonEmpty.map f) (toNonEmpty . map f . fromNonEmpty)
 
 prop_show_read :: NonEmpty Int -> Bool
-prop_show_read = eqWith id (read . show)
+prop_show_read = eqWith id (read . show) . fromNonEmpty
 
 prop_read_show :: NonEmpty Int -> Bool
 prop_read_show x = eqWith id (show . f . read) $ "fromNonEmpty (" ++ show x ++ ")"