Cleanup

src/Dodge/Item/Attachment/Data.hs

@@ -8,13 +8,7 @@ import Control.Lens
 import qualified Data.Sequence as Seq
 
 data ItAttachment 
-    = ItScope 
-        {_scopePos        :: Point2 -- ^ a camera offset
-        ,_scopeZoomChange :: Int
-        ,_scopeZoom       :: Float 
-        ,_scopeIsCamera   :: Bool   -- ^ if the camera offset is also the center of vision
-        }
-    | ItFuse {_itFuseTime :: Int}
+    = ItFuse {_itFuseTime :: Int}
     | ItMode {_itMode :: Int}
     | ItCharMode {_itCharMode :: Seq.Seq Char }
     | ItTargetPos { _itTargetPos :: Point2 }
@@ -24,4 +18,18 @@ data ItAttachment
     | ItBool  { _itBool  :: Bool  }
     | NoItAttachment
 
+data Scope = NoScope
+    | RemoteScope 
+        {_scopePos        :: Point2 -- ^ a camera offset
+        ,_scopeZoom       :: Float 
+        ,_scopeIsCamera   :: Bool   -- ^ if the camera offset is also the center of vision
+        }
+    | ZoomScope 
+        {_scopePos        :: Point2 -- ^ a camera offset
+        ,_scopeZoomChange :: Int
+        ,_scopeZoom       :: Float 
+        ,_scopeIsCamera   :: Bool   -- ^ if the camera offset is also the center of vision
+        }
+
 makeLenses ''ItAttachment
+makeLenses ''Scope