Rename ItemAttachments

2022-06-15 08:21:53 +01:00
parent 485c42eb24
commit bf1bfa5453
15 changed files with 98 additions and 80 deletions
@@ -8,14 +8,14 @@ import Control.Lens
 import qualified Data.Sequence as Seq

 data ItAttachment 
-    = ItFuse {_itFuseTime :: Int}
-    | ItMode {_itMode :: Int}
-    | ItCharMode {_itCharMode :: Seq.Seq Char }
-    | ItTargetPos { _itTargetPos :: Point2 }
-    | ItInt { _itInt :: Int }
-    | ItMInt { _itMInt :: Maybe Int }
-    | ItFloat { _itFloat :: Float }
-    | ItBool  { _itBool  :: Bool  }
+    = AttachFuse {_atFuseTime :: Int}
+    | AttachMode {_atMode :: Int}
+    | AttachCharMode {_atCharMode :: Seq.Seq Char }
+    | AttachTargetPos { _atTargetPos :: Point2 }
+    | AttachInt { _atInt :: Int }
+    | AttachMInt { _atMInt :: Maybe Int }
+    | AttachFloat { _atFloat :: Float }
+    | AttachBool  { _atBool  :: Bool  }
    | NoItAttachment

 data Scope = NoScope