Add true quicksave and guickload

src/Dodge/Data/RightButtonOptions.hs

@@ -17,11 +17,11 @@ data RightButtonOptions
         , _opSel :: Int
         , _opItemID :: Int
         , _opAllocateEquipment :: AllocateEquipment
-        , _opActivateEquipment :: ActivateEquipment
+        , _opActivateEquipment :: ModifyEquipmentActivation
         }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data ActivateEquipment
+data ModifyEquipmentActivation
     = ActivateEquipment {_activateEquipment :: Int}
     | DeactivateEquipment {_deactivateEquipment :: Int}
     | ActivateDeactivateEquipment {_activateEquipment :: Int, _deactivateEquipment :: Int}
@@ -53,7 +53,7 @@ data AllocateEquipment
 
 makeLenses ''RightButtonOptions
 makeLenses ''AllocateEquipment
-makeLenses ''ActivateEquipment
-deriveJSON defaultOptions ''ActivateEquipment
+makeLenses ''ModifyEquipmentActivation
+deriveJSON defaultOptions ''ModifyEquipmentActivation
 deriveJSON defaultOptions ''AllocateEquipment
 deriveJSON defaultOptions ''RightButtonOptions