From ab69de73c770cc364c1affc54047db7f8649c3b6 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 20 Feb 2023 00:13:43 +0000
Subject: [PATCH] Delete file

---
 src/Dodge/Update/UsingInput.hs | 37 ----------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100644 src/Dodge/Update/UsingInput.hs

diff --git a/src/Dodge/Update/UsingInput.hs b/src/Dodge/Update/UsingInput.hs
deleted file mode 100644
index 6b7fedd56..000000000
--- a/src/Dodge/Update/UsingInput.hs
+++ /dev/null
@@ -1,37 +0,0 @@
-{- Functions that affect the world according to what pressed buttons are stored in a Set.  -}
-module Dodge.Update.UsingInput (
---    updateUsingInput,
-) where
-
-import Control.Lens
-import qualified Data.Map.Strict as M
-import Dodge.Base.You
---import Dodge.Combine
-import Dodge.Creature.Impulse.UseItem
-import Dodge.Data.Combine
-import Dodge.Data.SelectionList
-import Dodge.Data.World
-import Dodge.InputFocus
---import Dodge.Inventory
---import Dodge.Inventory.Add
-import Dodge.Terminal.LeftButton
-import Geometry
-import SDL
-
-
---    maybeexitcombine w'
---        | ButtonRight `M.member` _mouseButtons (_input w) =
---            (hud . hudElement . subInventory . subInvMap %~ setShownIntMap) $
---                (hud . hudElement . subInventory . subInvMap . smItems .~ combineList w') w'
---        | otherwise = w' & hud . hudElement . subInventory .~ NoSubInventory
-
-
-
--- note "sort" on the inventory indices; otherwise
--- lower items may be shifted up and items below these removed instead
-doCombine :: Int -> World -> World
-doCombine i w = undefined
--- case w ^? hud . hudElement . subInventory . subInvMap . smShownItems . ix i . siPayload of
---    Nothing -> w
---    Just (CombinableItem is it _) -> createAndSelectItem it $ foldr (rmInvItem 0) w (sort is)
-