Reloading slows movement

2021-12-05 00:36:31 +00:00
parent cbf344e73e
commit 1bb1a06101
9 changed files with 155 additions and 24 deletions
@@ -2,6 +2,7 @@ module LensHelp
    ( module Control.Lens
    , (.:~)
    , (.++~)
+    , (++.~)
    ) where
 import Control.Lens

@@ -12,3 +13,7 @@ infixr 4 .:~
 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)