Work on orienting and drawing attachments

src/Dodge/Creature/Impulse/UseItem.hs

@@ -42,7 +42,7 @@ itemUseEffect cr it w = case it ^. ldtValue . itUse of
     CraftUse{} -> w
     AttachUse{} -> selectUse it cr  w
     TargetingUse {} -> w
-    AmmoMagUse{} -> w
+    UseAmmoMag{} -> w
     ScopeUse{} -> w
     BulletModUse{} -> w
   where
@@ -107,7 +107,7 @@ useItemLeftClick cr w = fromMaybe w $ do
         ConsumeUse{} -> return $ useItemLeftClick' cr w
         EquipUse{} -> return $ useItemLeftClick' cr w
         UseHotkey{} -> return $ useItemLeftClick' cr w
-        AmmoMagUse{} -> return w
+        UseAmmoMag{} -> return w
         _ -> Nothing
 
 useItemLeftClick' :: Creature -> World -> World