Linting, haddocking

src/Dodge/Data.hs

@@ -24,6 +24,7 @@ import Dodge.Data.SoundOrigin
 import Dodge.Data.DamageType
 import Dodge.Config.Data
 import Dodge.Config.KeyConfig
+import Dodge.Item.Attachment.Data
 import Preload.Data
 import Picture.Data
 import Geometry.Data
@@ -82,8 +83,6 @@ data World = World
     , _menuLayers           :: [MenuLayer]
     , _worldState           :: M.Map WorldState Bool
     , _worldTriggers        :: S.Set WorldTrigger
-    , _windowX              :: !Float
-    , _windowY              :: !Float
     , _carteDisplay         :: !Bool
     , _carteCenter          :: !Point2
     , _carteZoom            :: !Float
@@ -303,18 +302,6 @@ data Item
         }
      | NoItem
 
-data ItAttachment 
-    = ItScope 
-        {_scopePos        :: Point2
-        ,_scopeZoomChange :: Int
-        ,_scopeZoom       :: Float 
-        ,_scopeIsCamera   :: Bool
-        }
-    | ItFuse {_itFuseTime :: Int}
-    | ItPhaseV {_itPhaseV :: Float}
-    | ItMode {_itMode :: Int}
-    | ItTargetPos { _itTargetPos :: Point2 }
-
 data ItEffect = NoItEffect
     | ItInvEffect 
         {_itInvEffect       :: Creature -> Int -> World -> World
@@ -496,7 +483,6 @@ makeLenses ''Stance
 makeLenses ''Item
 makeLenses ''ItemPos
 makeLenses ''ItEffect
-makeLenses ''ItAttachment
 makeLenses ''ItZoom
 makeLenses ''FloorItem
 makeLenses ''Projectile