Cleanup

src/Dodge/Data/ComposedItem.hs

@@ -1,7 +1,9 @@
+{-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 
 module Dodge.Data.ComposedItem where
 
+import Control.Lens
 import Dodge.Data.AmmoType
 import Dodge.Data.Item
 import Linear
@@ -19,7 +21,7 @@ data ItemSF -- Structural Function
     | IntroScanSF
     | TriggerSF
     | ARHUDSF
-    | AmmoMagSF Int AmmoType
+    | AmmoMagSF {_amsfLink :: Int , _amsfType :: AmmoType}
     | RemoteScreenSF
     | JoystickSF
     | RemoteDetonatorSF
@@ -41,3 +43,5 @@ data ItemSF -- Structural Function
 type CItem = (Item, ItemSF)
 
 type OItem = (Item, ItemSF, (V3 Float,Q.Quaternion Float))
+
+makeLenses ''ItemSF