Cleanup

2023-05-15 11:57:54 +01:00
parent c4ec84c0f9
commit ddb72690b1
3 changed files with 12 additions and 12 deletions
@@ -12,10 +12,7 @@ import Dodge.Data.Equipment.Misc

 data RightButtonOptions
    = NoRightButtonOptions
-    | EquipOptions
-        { _opEquip :: [EquipPosition]
-        , _opSel :: Int
-        }
+    | EquipOptions { _opSel :: Int }
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data EquipmentAllocation