Delete file

src/Dodge/Update/UsingInput.hs

@@ -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)
-