Add Read/Show instance for Creature

src/Dodge/Creature/Stance/Data.hs

@@ -10,7 +10,8 @@ data Stance = Stance
     ,_posture      :: Posture
     ,_strideLength :: Int
     }
-  deriving (Eq,Show)
+  deriving (Eq,Ord,Show,Read)
+
 data Carriage 
     = Walking 
         { _strideAmount :: Int 
@@ -20,18 +21,18 @@ data Carriage
     | Floating
     | Flying
     | Boosting Point2
-  deriving (Eq,Show)
+  deriving (Eq,Ord,Show,Read)
+
 data FootForward
     = LeftForward
     | RightForward
     | WasLeftForward
     | WasRightForward
-  deriving
-    (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)
+
 data Posture = Aiming 
     | AtEase
-  deriving 
-    (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)
 
 makeLenses ''Stance
 makeLenses ''Carriage