Set lasGun muzzle position correctly

src/Dodge/Creature/Action.hs

@@ -2,8 +2,7 @@
 {- | Actions performed by creatures within the world
  -}
 module Dodge.Creature.Action 
-    ( performActionsR
-    , performActions
+    ( performActions
     , stripNoItems
     , setMinInvSize
     , dropUnselected
@@ -42,7 +41,6 @@ import Control.Lens
 --import Control.Applicative
 import Data.Maybe
 import Data.List (findIndex)
-import Control.Monad.Reader
 --import qualified Data.Map as M
 performActions :: World -> Creature -> Creature
 performActions w cr = cr
@@ -51,9 +49,6 @@ performActions w cr = cr
   where
     (iss, mayas) = unzip $ map (performAction cr w) $ cr ^. crActionPlan . crAction
 
-performActionsR :: Creature -> Reader World Creature
-performActionsR cr = reader $ \w -> performActions w cr
-
 type OutAction = ( [Impulse] , Maybe Action )
 
 performAimAt :: Creature -> World -> Int -> Point2 -> OutAction