Add Binary instances

2022-08-21 10:58:19 +01:00
parent 386a2b4732
commit 1ce7d4a72d
95 changed files with 345 additions and 3 deletions
@@ -12,6 +12,7 @@ module Dodge.Data.World (
    module Dodge.Data.Hammer,
 ) where

+import Data.Binary
 import Flat
 import Dodge.Data.SaveSlot
 import Control.Lens
@@ -53,6 +54,7 @@ data TimeFlowStatus
    | RewindingLastFrame
    | NormalTimeFlow
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary TimeFlowStatus

 data WorldHammer
    = SubInvHam