Fix DNonEmpty prop_read_show test (#97)

Fixes #96
spl · Aug 31, 2021 · 1793a5e · 1793a5e
1 parent 697cf20
commit 1793a5e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/DNonEmptyProperties.hs b/tests/DNonEmptyProperties.hs
@@ -62,9 +62,9 @@ prop_show_read :: NonEmpty Int -> Bool
 prop_show_read = eqWith id (read . show)
 
 prop_read_show :: NonEmpty Int -> Bool
-prop_read_show x = eqWith id (show . f . read) $ "fromNonEmpty " ++ show x
+prop_read_show x = eqWith id (show . f . read) $ "fromNonEmpty (" ++ show x ++ ")"
   where
-    f :: NonEmpty Int -> NonEmpty Int
+    f :: DNonEmpty Int -> DNonEmpty Int
     f = id
 
 exampleList :: [Int]