Add newtype for item id int

src/Dodge/Update.hs

@@ -6,6 +6,7 @@ Description : Simulation update
 -}
 module Dodge.Update (updateUniverse) where
 
+import NewInt
 import Control.Monad
 import Dodge.Update.Input.InGame
 import Dodge.Update.Input.ScreenLayer
@@ -168,14 +169,14 @@ timeFlowUpdate u = case u ^. uvWorld . timeFlow of
     DeathTime{} -> u
     PausedTimeFlow _ itmloc -> over uvWorld (pauseTime itmloc) u
 
-pauseTime :: Int -> World -> World
+pauseTime :: NewInt ItmInt -> World -> World
 pauseTime itmloc w
     | justPressedButtonLeft || outofcharge = w & timeFlow .~ NormalTimeFlow
-    | otherwise = w & pointerToItemLocation (w ^?! cWorld . lWorld . itemLocations . ix itmloc) . itUse . leftConsumption . wpCharge -~ 1
+    | otherwise = w & pointerToItemLocation (w ^?! cWorld . lWorld . itemLocations . ix (_unNInt itmloc)) . itUse . leftConsumption . wpCharge -~ 1
   where
     justPressedButtonLeft = w ^? input . mouseButtons . ix ButtonLeft == Just 0
     outofcharge = maybe True (== 0) charge
-    charge = w ^? pointerToItemLocation (w ^?! cWorld . lWorld . itemLocations . ix itmloc) . itUse . leftConsumption . wpCharge
+    charge = w ^? pointerToItemLocation (w ^?! cWorld . lWorld . itemLocations . ix (_unNInt itmloc)) . itUse . leftConsumption . wpCharge
 
 doItemTimeScroll :: Int -> World -> World
 doItemTimeScroll smoothing w = case w ^? input . mouseButtons . ix ButtonLeft of
@@ -206,7 +207,7 @@ scrollTimeBack w = case w ^? pastWorlds . _head of
         _ -> w
   where
     mupdateitem x = fromMaybe id $ do
-        i <- w ^? timeFlow . scrollItemLocation
+        i <- w ^? timeFlow . scrollItemID . unNInt
         let pointituse = pointerToItemLocation (w ^?! cWorld . lWorld . itemLocations . ix i) . itUse
         return $ (pointituse . leftConsumption . wpCharge .~ (x -1))
                     . ( pointituse . leftHammer .~ HammerDown)
@@ -223,7 +224,7 @@ scrollTimeForward w = case w ^? timeFlow . futureWorlds . _head of
   where
     ramount = (w ^?! timeFlow . reverseAmount) + 1
     mupdateitem = fromMaybe id $ do
-        i <- w ^? timeFlow . scrollItemLocation
+        i <- w ^? timeFlow . scrollItemID . unNInt
         return $ pointerToItemLocation (w ^?! cWorld . lWorld . itemLocations . ix i) . itUse . leftConsumption . wpCharge .~ ramount
 
 -- | The update step.