Cleanup module pathing

src/Dodge/Data/RightButtonOptions.hs

@@ -1,59 +1,70 @@
 {-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
 module Dodge.Data.RightButtonOptions where
-import GHC.Generics
+
+import Control.Lens
 import Data.Aeson
 import Dodge.Data.Equipment.Misc
-import Control.Lens
+import GHC.Generics
 
 data RightButtonOptions
     = NoRightButtonOptions
-    | EquipOptions 
-        {_opEquip       :: [EquipPosition]
-        ,_opSel         :: Int
-        ,_opCurInvPos   :: Int
-        ,_opAllocateEquipment :: AllocateEquipment
-        ,_opActivateEquipment :: ActivateEquipment
+    | EquipOptions
+        { _opEquip :: [EquipPosition]
+        , _opSel :: Int
+        , _opCurInvPos :: Int
+        , _opAllocateEquipment :: AllocateEquipment
+        , _opActivateEquipment :: ActivateEquipment
         }
-  deriving (Eq,Ord,Show,Read,Generic)
+    deriving (Eq, Ord, Show, Read, Generic)
+
 instance ToJSON RightButtonOptions where
     toEncoding = genericToEncoding defaultOptions
+
 instance FromJSON RightButtonOptions
+
 data ActivateEquipment
-    = ActivateEquipment {_activateEquipment :: Int }
+    = ActivateEquipment {_activateEquipment :: Int}
     | DeactivateEquipment {_deactivateEquipment :: Int}
-    | ActivateDeactivateEquipment {_activateEquipment :: Int ,_deactivateEquipment :: Int}
+    | ActivateDeactivateEquipment {_activateEquipment :: Int, _deactivateEquipment :: Int}
     | NoChangeActivateEquipment
-  deriving (Eq,Ord,Show,Read,Generic)
+    deriving (Eq, Ord, Show, Read, Generic)
+
 instance ToJSON ActivateEquipment where
     toEncoding = genericToEncoding defaultOptions
+
 instance FromJSON ActivateEquipment
-data AllocateEquipment 
+
+data AllocateEquipment
     = DoNotMoveEquipment
     | PutOnEquipment
         { _allocNewPos :: EquipPosition
         }
     | MoveEquipment
-        { _allocNewPos  :: EquipPosition
-        , _allocOldPos  :: EquipPosition
+        { _allocNewPos :: EquipPosition
+        , _allocOldPos :: EquipPosition
         }
     | SwapEquipment
-        { _allocNewPos  :: EquipPosition
-        , _allocOldPos  :: EquipPosition
-        , _allocSwapID  :: Int
+        { _allocNewPos :: EquipPosition
+        , _allocOldPos :: EquipPosition
+        , _allocSwapID :: Int
         }
     | ReplaceEquipment
-        { _allocNewPos  :: EquipPosition
+        { _allocNewPos :: EquipPosition
         , _allocRemoveID :: Int
         }
     | RemoveEquipment
-        { _allocOldPos  :: EquipPosition
+        { _allocOldPos :: EquipPosition
         }
-  deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON AllocateEquipment  where
+    deriving (Eq, Ord, Show, Read, Generic)
+
+instance ToJSON AllocateEquipment where
     toEncoding = genericToEncoding defaultOptions
-instance FromJSON AllocateEquipment 
+
+instance FromJSON AllocateEquipment
+
 makeLenses ''RightButtonOptions
 makeLenses ''AllocateEquipment
 makeLenses ''ActivateEquipment