Linting, haddocking

src/Dodge/Item/Attachment/Data.hs

@@ -0,0 +1,26 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Item.Attachment.Data
+    where
+import Geometry.Data
+
+import Control.Lens
+
+data ItAttachment 
+    = ItScope 
+        {_scopePos        :: Point2
+        ,_scopeZoomChange :: Int
+        ,_scopeZoom       :: Float 
+        ,_scopeIsCamera   :: Bool
+        }
+    | ItFuse {_itFuseTime :: Int}
+    | ItPhaseV {_itPhaseV :: Float}
+    | ItMode {_itMode :: Int}
+    | ItCharMode 
+        {_itCharMode    :: Char
+        ,_itUpChar      :: Char -> Char
+        ,_itDownChar    :: Char -> Char
+        }
+    | ItTargetPos { _itTargetPos :: Point2 }
+
+makeLenses ''ItAttachment