Add Read instances

2022-07-22 01:06:35 +01:00
parent d4e5b02874
commit 4c5218c633
44 changed files with 209 additions and 126 deletions
@@ -6,11 +6,11 @@ data HammerType
    = NoHammer
    | HasHammer {_hammerPosition :: HammerPosition}
  deriving
-    (Eq, Ord, Show)
+    (Eq, Ord, Show,Read)
 data HammerPosition 
    = HammerDown
    | HammerReleased
    | HammerUp
  deriving
-    (Eq, Ord, Show)
+    (Eq, Ord, Show,Read)
 makeLenses ''HammerType