Cleanup

src/Dodge/Data/RightButtonOptions.hs

@@ -1,27 +1,24 @@
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module Dodge.Data.RightButtonOptions where
 
-import Dodge.Data.Item.Location
-import NewInt
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Equipment.Misc
+import Dodge.Data.Item.Location
+import NewInt
 
 data RightButtonState
     = NoRightButtonState
-    | EquipOptions { _opSel :: Int }
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    | EquipOptions {_opSel :: Int}
 
 data EquipmentAllocation
     = DoNotMoveEquipment
-    | PutOnEquipment
-        { _allocNewPos :: EquipSite
-        }
+    | PutOnEquipment {_allocNewPos :: EquipSite}
     | MoveEquipment
         { _allocNewPos :: EquipSite
         , _allocOldPos :: EquipSite
@@ -35,10 +32,7 @@ data EquipmentAllocation
         { _allocNewPos :: EquipSite
         , _allocRemoveID :: NewInt ItmInt
         }
-    | RemoveEquipment
-        { _allocOldPos :: EquipSite
-        }
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    | RemoveEquipment {_allocOldPos :: EquipSite}
 
 makeLenses ''RightButtonState
 makeLenses ''EquipmentAllocation