Start adding filters to selection lists

2023-01-15 11:55:32 +00:00
parent 6f1162f7b9
commit 64b1c2761e
16 changed files with 128 additions and 66 deletions
@@ -247,7 +247,7 @@ addBullets :: Item -> Shape
 addBullets itm = fromMaybe mempty $ do
    x <- itm ^? itUse . heldConsumption . laLoaded
    hit <- itm ^? itType . iyBase . ibtHeld
-    ps <- fmap (take x) $ (ammoPosition itm hit) ^? amPosDirs
+    ps <- fmap (take x) $ ammoPosition itm hit ^? amPosDirs
    return $ foldMap (uncurry (drawBullet itm)) ps

 drawBullet :: Item -> Point3 -> Q.Quaternion Float -> Shape