From 5550b5eb952d11ac2c3ba351f69cccb63c64da39 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sat, 21 May 2022 22:22:44 +0100
Subject: [PATCH] Cleanup

---
 src/Dodge/Item/Draw.hs | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/src/Dodge/Item/Draw.hs b/src/Dodge/Item/Draw.hs
index fe37a9433..93e8cea9e 100644
--- a/src/Dodge/Item/Draw.hs
+++ b/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