Continue selection refactor

src/Dodge/Data/HUD.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.HUD where
 
+import Data.IntSet (IntSet)
 import Data.IntMap
 import Control.Lens
 import Dodge.Data.Button
@@ -20,7 +21,7 @@ data HUDElement
         , _diSelection :: Maybe (Int, Int)
         , _diInvFilter :: Maybe String
         , _diCloseFilter :: Maybe String
-        , _diSelectionExtra :: Int
+        , _diSelectionExtra :: IntSet
         }
     | DisplayCarte