Add burst fire, tentative inventory locking

2021-12-04 16:05:46 +00:00
parent 30abc318ae
commit cb670bdfd8
16 changed files with 108 additions and 18 deletions
@@ -1,9 +1,14 @@
 module LensHelp 
    ( module Control.Lens
    , (.:~)
+    , (.++~)
    ) where
 import Control.Lens

 infixr 4 .:~
 (.:~) :: ASetter s t [a] [a] -> a -> s -> t
 (.:~) m x = m %~ (x :)
+
+infixr 4 .++~
+(.++~) :: ASetter s t [a] [a] -> [a] -> s -> t
+(.++~) m x = m %~ (x ++)