Allow more drag selection to work

src/Dodge/Data/CardinalPoint.hs

@@ -23,3 +23,6 @@ data CardinalCover
     | NSE
     | NSW
     | NS
+
+data AboveBelow = Above | Below
+    deriving (Eq, Ord, Show, Bounded, Enum)

src/Dodge/Data/Input.hs

@@ -22,7 +22,8 @@ data MouseContext
         , _mcoAboveSelect :: Maybe (Int,Int)
         , _mcoBelowSelect :: Maybe (Int,Int)
         }
-    | OverInvDragSelect { _mcoSecSelStart :: (Int,Int), _mcoSelEnd :: Maybe Int }
+--    | OverInvDragSelect { _mcoSecSelStart :: (Int,Int), _mcoSelEnd :: Maybe Int }
+    | OverInvDragSelect { _mcoSecSelStart :: Maybe (Int,Int), _mcoSelEnd :: Maybe Int }
     | OverInvSelect { _mcoInvSelect :: (Int,Int)}
     | OverCombFiltInv { _mcoInvFilt :: (Int,Int)}
     | OverCombSelect { _mcoCombSelect :: (Int,Int)}