Cleanup

src/Dodge/Data/Item/HeldUse.hs

@@ -1,11 +1,15 @@
-{-# LANGUAGE StrictData #-}
 {-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE StrictData #-}
+
 module Dodge.Data.Item.HeldUse where
-import GHC.Generics
+
 import Data.Aeson
 import Dodge.Combine.Data
 import Dodge.Data.CamouflageStatus
-data HeldUse = HeldDoNothing 
+import GHC.Generics
+
+data HeldUse
+    = HeldDoNothing
     | HeldUseAmmoParams
     | HeldOverNozzlesUseGasParams
     | HeldPJCreation
@@ -20,41 +24,43 @@ data HeldUse = HeldDoNothing
     | HeldTractor
     | HeldForceField
     | HeldShatter
-  deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON HeldUse  where
+    deriving (Eq, Ord, Show, Read, Generic)
+instance ToJSON HeldUse where
     toEncoding = genericToEncoding defaultOptions
-instance FromJSON HeldUse 
-data Cuse = CDoNothing
+instance FromJSON HeldUse
+data Cuse
+    = CDoNothing
     | CHeal Int
-  deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON Cuse  where
+    deriving (Eq, Ord, Show, Read, Generic)
+instance ToJSON Cuse where
     toEncoding = genericToEncoding defaultOptions
-instance FromJSON Cuse 
-data Euse = EDoNothing
+instance FromJSON Cuse
+data Euse
+    = EDoNothing
     | EDetector Detector
     | EMagShield
     | EWristShield
     | EHeadLamp
     | ECamouflage CamouflageStatus
-
     | EonWristShield
-
     | EoffWristShield
-  deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON Euse  where
+    deriving (Eq, Ord, Show, Read, Generic)
+instance ToJSON Euse where
     toEncoding = genericToEncoding defaultOptions
-instance FromJSON Euse 
-data Luse = LDoNothing
+instance FromJSON Euse
+data Luse
+    = LDoNothing
     | LRewind
     | LShrink
     | LBlink
     | LUnsafeBlink
     | LBoost
-  deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON Luse  where
+    deriving (Eq, Ord, Show, Read, Generic)
+instance ToJSON Luse where
     toEncoding = genericToEncoding defaultOptions
-instance FromJSON Luse 
-data HeldMod = HeldModNothing
+instance FromJSON Luse
+data HeldMod
+    = HeldModNothing
     | PoisonSprayerMod
     | FlameSpitterMod
     | FlameThrowerMod
@@ -73,12 +79,12 @@ data HeldMod = HeldModNothing
     | VolleyGunMod
     | AutoRifleMod
     | BangRodMod
-    | ElephantGunMod 
-    | AutoAmrMod 
-    | MachineGunMod 
+    | ElephantGunMod
+    | AutoAmrMod
+    | MachineGunMod
     | ModWithDirectedTeleport HeldMod
-    | BangStickMod 
-    | PistolMod 
+    | BangStickMod
+    | PistolMod
     | AutoPistolMod
     | MachinePistolMod
     | BurstRifleMod
@@ -86,7 +92,7 @@ data HeldMod = HeldModNothing
     | SmgMod
     | RevolverXMod
     | BangConeMod
-  deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON HeldMod  where
+    deriving (Eq, Ord, Show, Read, Generic)
+instance ToJSON HeldMod where
     toEncoding = genericToEncoding defaultOptions
-instance FromJSON HeldMod 
+instance FromJSON HeldMod