Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -47,5 +47,8 @@ data Item = Item
    }
    deriving (Eq, Show, Read)

+_itUseAimStance :: Item -> AimStance
+_itUseAimStance = _aimStance . _heldAim . _itUse
+
 makeLenses ''Item
 deriveJSON defaultOptions ''Item