Add more deriving clauses

src/Dodge/Data.hs

@@ -299,18 +299,16 @@ data World = World
     , _lSelect          :: Point2
     , _rSelect          :: Point2
     }
---  deriving (Eq,Show,Read)
-data WorldHammer
-    = SubInvHam
-    | DoubleMouseHam
-  deriving (Eq,Ord,Show,Read,Enum,Bounded)
-
-
+  --deriving (Eq,Show,Read)
 data TimeFlowStatus
     = RewindingNow
     | RewindingLastFrame
     | NormalTimeFlow
   deriving (Eq,Ord,Show,Read)
+data WorldHammer
+    = SubInvHam
+    | DoubleMouseHam
+  deriving (Eq,Ord,Show,Read,Enum,Bounded)
 
 data SaveSlot = QuicksaveSlot | LevelStartSlot
   deriving (Eq,Ord,Show,Read)