Tweak posture

src/Dodge/Data/ActionPlan.hs

@@ -34,7 +34,7 @@ data Impulse
     | MvForward
     | TurnTo Point2
     | UseItem
-    | SwitchToItem Int
+--    | SwitchToItem Int
     | DropItem
     | Bark SoundID -- placeholder for various communication types
     | Melee Int

src/Dodge/Data/Creature/Stance.hs

@@ -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

src/Dodge/Data/Item/Use/Consumption/LoadAction.hs

@@ -3,6 +3,7 @@
 
 module Dodge.Data.Item.Use.Consumption.LoadAction where
 
+import Dodge.Data.AimStance
 import Dodge.Data.Item.Location
 import NewInt
 import qualified Data.IntSet as IS
@@ -21,6 +22,7 @@ data ManipulatedObject
     | SelectedItem
         { _imSelectedItem :: NewInt InvInt
         , _imRootSelectedItem :: NewInt InvInt
+        , _imAimStance :: AimStance
         , _imAttachedItems :: IS.IntSet -- this should probably be NewIntSet InvInt also
         }    
     | SelNothing