Implement zipper for attachment trees

2024-10-05 14:39:34 +01:00
parent 71d4802a4a
commit 164beeea6d
23 changed files with 391 additions and 277 deletions
@@ -244,7 +244,8 @@ inventoryX c = case c of
    'V' -> 
        [targetingScope tt | tt <- [minBound .. maxBound]]
        <>
-        [ augmentedHUD
+        [ battery
+        , augmentedHUD
        , autoRifle
        , megaTinMag 10200
        ] <>