Add Read instances

2022-07-22 01:06:35 +01:00
parent d4e5b02874
commit 4c5218c633
44 changed files with 209 additions and 126 deletions
@@ -9,6 +9,8 @@ data ArcStep = ArcStep
    , _asDir :: Float
    , _asObject :: CrWlID --Maybe (Either Creature Wall)
    }
+  deriving (Eq,Ord,Show,Read)
 data NextArcStep = EndArc
    | DefaultArcStep
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''ArcStep