Cleanup

src/Dodge/Data/ComposedItem.hs

@@ -7,7 +7,7 @@ import Dodge.Data.Item
 import Linear
 import qualified Linear.Quaternion as Q
 
-data ItemStructuralFunction
+data ItemSF -- Structural Function
     = UnloadedWeaponSF
     | HeldPlatformSF
     | UnderBarrelSlotSF
@@ -38,6 +38,6 @@ data ItemStructuralFunction
     | LaserWeaponSF
     deriving (Eq, Ord, Show, Read)
 
-type CItem = (Item, ItemStructuralFunction)
+type CItem = (Item, ItemSF)
 
-type OItem = (Item, ItemStructuralFunction, (V3 Float,Q.Quaternion Float))
+type OItem = (Item, ItemSF, (V3 Float,Q.Quaternion Float))