Cleanup

src/Dodge/Item/Draw.hs

@@ -1,4 +1,9 @@
-module Dodge.Item.Draw where
+module Dodge.Item.Draw 
+    ( pictureWeaponOnAim
+    , pictureWeaponAim
+    , twoFlatHRot
+    , itSPic
+    ) where
 import Dodge.Data
 --import Dodge.Picture.Layer
 --import Picture
@@ -9,13 +14,15 @@ import Dodge.Creature.HandPos
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Data.Maybe
+
 pictureWeaponOnAim
     :: Creature 
     -> Item
     -> SPic
-pictureWeaponOnAim cr itm = case _itInvPos itm of
-    Just i -> pictureWeaponOnAimItem (itSPic itm) cr i
-    Nothing -> mempty
+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