Add newtype for item id int

2024-09-28 23:34:32 +01:00
parent 241191ee1b
commit 7d72fa3c5d
14 changed files with 274 additions and 267 deletions
@@ -13,6 +13,7 @@ module Dodge.Data.World (
    module Dodge.Data.Input,
 ) where

+import NewInt
 import Control.Lens
 import Data.IntMap.Strict (IntMap)
 import Data.IntSet (IntSet)
@@ -62,7 +63,7 @@ data TimeFlowStatus
        { _scrollSmoothing :: Int
        , _reverseAmount :: Int
        , _futureWorlds :: [LWorld]
-        , _scrollItemLocation :: Int
+        , _scrollItemID :: NewInt ItmInt
        }
    | CameraScrollTimeFlow
        { _scrollSmoothing :: Int
@@ -71,11 +72,11 @@ data TimeFlowStatus
        }
    | RewindLeftClick
        { _reverseAmount :: Int
-        , _scrollItemLocation :: Int
+        , _scrollItemID :: NewInt ItmInt
        }
    | PausedTimeFlow
        { _timeFlowCharge :: Int
-        , _scrollItemLocation :: Int
+        , _scrollItemID :: NewInt ItmInt
        }

 makeLenses ''TimeFlowStatus