Cleanup

2022-06-26 12:41:15 +01:00
parent 5ba0ca9f9c
commit d386b0ea89
5 changed files with 17 additions and 17 deletions
@@ -29,7 +29,7 @@ thingsHit
    -> Stream (Of (Point2, Either Creature Wall)) Identity ()
 thingsHit sp ep w 
    | sp == ep  = S.each []
-    | otherwise = fmap (const ()) $ S.mergeOn (dist sp . fst) crs wls
+    | otherwise = void $ S.mergeOn (dist sp . fst) crs wls
  where 
    crs :: Stream (Of (Point2, Either Creature Wall)) Identity ()
    crs = sortStreamOn (dist sp . fst)