Abstract out block placement

2022-06-27 13:38:46 +01:00
parent c8710fe92a
commit fec72cdf48
14 changed files with 105 additions and 55 deletions
@@ -96,6 +96,7 @@ collidePointWallsFilterStream t sp ep = collidePoint sp ep
    . S.filter t
    . wallsAlongLine sp ep

+-- this hopefully also nub the stream in most cases
 --orderStreamOn :: Ord b => (a -> b) -> Stream (Of a) Identity () -> Identity (Of (M.Map b a) ())
 sortStreamOn :: Ord a => (b -> a) -> Stream (Of b) Identity () -> Stream (Of b) Identity ()
 {-# INLINE sortStreamOn #-}