Tweak posture

2026-03-31 22:50:53 +01:00
parent 074d354970
commit ecdc19fb5e
13 changed files with 134 additions and 143 deletions
@@ -30,9 +30,7 @@ data Carriage
 data FootForward = LeftForward | RightForward
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

-data Posture
-    = Aiming {_aimStance :: AimStance}
-    | AtEase
+data Posture = Aiming | AtEase
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 makeLenses ''Stance