Add generic derivations and To/FromJSON instances

2022-07-25 22:49:18 +01:00
parent f5604ef429
commit b8e8413daa
99 changed files with 1406 additions and 517 deletions
@@ -19,7 +19,7 @@ drawRadarSweep pt = setLayer DebugLayer $ pictures sweepPics
                | otherwise = fromIntegral x / 10
    x = _rsTimer pt

-rsObjectColor :: Object -> Color
+rsObjectColor :: ObjectType -> Color
 rsObjectColor ob = case ob of
    ObWall -> red
    ObCreature -> green