Cleanup movement

src/Dodge/Item/Draw.hs

@@ -20,9 +20,6 @@ pictureWeaponOnAim
     -> Item
     -> SPic
 pictureWeaponOnAim = pictureWeaponAim itSPic
---pictureWeaponOnAim cr itm = case _itInvPos itm of
---    Just i -> pictureWeaponOnAimItem (itSPic itm) cr i
---    Nothing -> mempty
 
 itSPic :: Item -> SPic
 itSPic it = _dimSPic (_itDimension it) it
@@ -33,10 +30,8 @@ pictureWeaponAim
     -> Item
     -> SPic
 pictureWeaponAim f cr itm = case _itInvPos itm of
-    Just i -> pictureWeaponOnAimItem pic cr i
+    Just i -> pictureWeaponOnAimItem (f itm) cr i
     Nothing -> mempty
-  where
-    pic = f itm
 
 {- | Places an item picture onto a creature when the item is selected. -}
 pictureWeaponOnAimItem