Hlinting

2021-04-27 11:45:43 +02:00
parent f8351fb150
commit 64b5b9e2a5
34 changed files with 974 additions and 761 deletions
@@ -41,7 +41,7 @@ shrinkTris (x:xs) = xs : map (x :) (shrinkTris xs)

 genTri = zip <$> trip <*> trip 
  where
-    trip = vectorOf 3 $ fmap fromIntegral $ choose (0,3::Int)
+    trip = vectorOf 3 $ fromIntegral <$> choose (0,3::Int)

 genTris = listOf genTri