Add Read instances

2022-07-22 01:06:35 +01:00
parent d4e5b02874
commit 4c5218c633
44 changed files with 209 additions and 126 deletions
@@ -12,13 +12,16 @@ data Targeting
        , _tgID     :: Maybe Int
        , _tgActive :: Bool
        }
+  deriving (Eq,Ord,Show,Read)
 data TargetUpdate = NoTargetUpdate
    | TargetLaserUpdate
    | TargetRBPressUpdate
    | TargetRBCreatureUpdate
    | TargetCursorUpdate
+  deriving (Eq,Ord,Show,Read)
 data TargetDraw = NoTargetDraw
    | TargetDistanceDraw
    | SimpleDrawTarget
    | TargetRBCreatureDraw
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''Targeting