Commit before extending selection sections: overlapping elements

src/Dodge/Data/Item/Use/Consumption.hs

@@ -28,7 +28,7 @@ data HeldConsumption
 
 data AmmoSource 
     = InternalSource InternalAmmo
-    | ExternalSource { _eaAttachment :: Maybe Int }
+    | AboveSource
     deriving (Eq, Show, Read) --Generic, Flat)
 
 data InternalAmmo = InternalAmmo

src/Dodge/Data/SelectionList.hs

@@ -78,6 +78,7 @@ data SelectionItem a
         , _siIsSelectable :: Bool
         , _siColor :: Color
         , _siOffX :: Int
+        , _siOffY :: Int
         , _siPayload :: a
         }
     | SelectionInfo
@@ -86,6 +87,7 @@ data SelectionItem a
         , _siIsSelectable :: Bool
         , _siColor :: Color
         , _siOffX :: Int
+        , _siOffY :: Int
         }
 
 makeLenses ''ListDisplayParams