Implement reloading of single external magazines

src/Dodge/Euse.hs

@@ -1,7 +1,7 @@
 module Dodge.Euse where
 
 import Color
-import Control.Monad
+--import Control.Monad
 import Data.Maybe
 import Dodge.Creature.HandPos
 import Dodge.Creature.Test
@@ -44,7 +44,7 @@ tryChargeBattery :: Item -> Creature -> World -> World
 tryChargeBattery _ _ w = w
 
 trySiphonFuel :: Item -> Creature -> World -> World
-trySiphonFuel itm cr = id
+trySiphonFuel _ _ = id
 --trySiphonFuel itm cr w = fromMaybe w $ do
 --    eix <- itm ^? itLocation . ipInvID
 --    hix <- cr ^? crManipulation . manObject . inInventory . ispItem