Add Read instances

src/Dodge/Event.hs

@@ -14,32 +14,20 @@ the simulation step; in particular see 'updatePressedButtons'.
 module Dodge.Event
     ( handleEvent
     ) where
+import Dodge.Tweak
 import Dodge.HeldScroll
 import Dodge.InputFocus
 import Dodge.Combine
 import Dodge.Event.Keyboard
---import Dodge.Event.Menu
 import Dodge.Base
---import Dodge.Item
---import Dodge.Combine.Module
 import Dodge.Data
---import Dodge.Base.Window
 import Dodge.PreloadData
---import Dodge.Creature.Action
 import Dodge.Inventory
 import Dodge.SoundLogic
---import Geometry
---import Preload.Update
---import Dodge.FloorItem
 import qualified IntMapHelp           as IM
 
---import Data.Monoid
 import Control.Lens
 import Data.Maybe
---import Data.Maybe
---import Data.Char
---import Data.List
---import Data.Function (on)
 import qualified Data.Map.Strict as M
 import qualified Data.Set as S
 import qualified Data.Text as T
@@ -194,10 +182,10 @@ moveTweakSel i w = case yourItem w ^? _Just . itTweaks . tweakParams of
 changeTweakParam :: Int -> World -> World
 changeTweakParam i w = w
     & creatures . ix (_yourID w) . crInv . ix (crSel (you w)) %~
-        ( (itTweaks . tweakParams . ix paramid . curTweak .~ x)
-        . _doTweak params x)
+        ( (itTweaks . tweakParams . ix paramid . tweakVal .~ x)
+        . doTweak (_tweakType params) x)
   where
     tweaks = _itTweaks . fromJust $ yourItem w
     params = _tweakParams tweaks IM.! paramid
-    x = (_curTweak params + i) `mod` _maxTweak params
+    x = (_tweakVal params + i) `mod` _tweakMax params
     paramid = _tweakSel tweaks