Allow drag selecting outside of the selection section

Does not yet work outside of any selection section.
Need to think about what widths are acceptable to allow for selection.

src/Dodge/Data/CardinalPoint.hs

@@ -26,7 +26,7 @@ data CardinalCover
     | NSW
     | NS
 
-data XInfinity a = NegInf | NonInf a | PosInf
+data XInfinity a = NegInf | NonInf {_nonInf :: a} | PosInf
     deriving (Eq, Ord, Show)
 
 makeLenses ''XInfinity

src/Dodge/Data/Input.hs

@@ -17,11 +17,7 @@ data MouseContext
     | MouseInGame
     | MouseMenuClick {_mcoMenuClick :: Int}
     | MouseMenuCursor
-    | OverInvDrag {_mcoDragSection :: Int
-        , _mcoMaybeSelect :: Maybe (Int,Int)
---        , _mcoAboveSelect :: Maybe (Int,Int)
---        , _mcoBelowSelect :: Maybe (Int,Int)
-        }
+    | OverInvDrag {_mcoDragSection :: Int , _mcoMaybeSelect :: Maybe (Int,Int) }
     | OverInvDragSelect { _mcoSecSelStart :: Maybe (Int,Int), _mcoSelEnd :: Maybe Int }
     | OverInvSelect { _mcoInvSelect :: (Int,Int)}
     | OverCombFiltInv { _mcoInvFilt :: (Int,Int)}