Fix stimes property

See #30
spl · Jan 12, 2017 · dc86c92 · dc86c92
1 parent e13a1ab
commit dc86c92
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/Main.hs b/tests/Main.hs
@@ -118,7 +118,8 @@ prop_Semigroup_sconcat :: NonEmpty [Int] -> Bool
 prop_Semigroup_sconcat xs = sconcat xs == toList (sconcat (fmap fromList xs))
 
 prop_Semigroup_stimes :: Int -> [Int] -> Bool
-prop_Semigroup_stimes n xs = stimes n xs == toList (stimes n (fromList xs))
+prop_Semigroup_stimes n xs =
+  n < 0 || stimes n xs == toList (stimes n (fromList xs))
 #endif
 
 --------------------------------------------------------------------------------