Fix aiming with no weapon crash

2022-02-08 12:47:58 +00:00
parent 9ead5b3979
commit 0a860e6f68
39 changed files with 317 additions and 244 deletions
@@ -3,13 +3,26 @@ module LensHelp
    , (.:~)
    , (.++~)
    , (++.~)
+    , (.*.*~)
+    , (.+.+~)
    ) where
+import Geometry
 import Control.Lens

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

+infixr 4 .*.*~
+(.*.*~) :: ASetter s t Point2 Point2 -> Float -> s -> t
+{-# INLINABLE (.*.*~) #-}
+(.*.*~) m x = m %~ (x *.*)
+
+infixr 4 .+.+~
+(.+.+~) :: ASetter s t Point2 Point2 -> Point2 -> s -> t
+{-# INLINABLE (.+.+~) #-}
+(.+.+~) m x = m %~ (x +.+)
+
 infixr 4 .++~
 (.++~) :: ASetter s t [a] [a] -> [a] -> s -> t
 (.++~) m x = m %~ (x ++)