Fix serialization of the Hydra.Contract.ContestationPeriod

input-output-hk · Jul 29, 2021 · fc767f6 · fc767f6
1 parent 58eb201
commit fc767f6
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/hydra-plutus/src/Hydra/Contract/ContestationPeriod.hs b/hydra-plutus/src/Hydra/Contract/ContestationPeriod.hs
@@ -5,10 +5,19 @@ module Hydra.Contract.ContestationPeriod where
 
 import Hydra.Prelude
 
+import Data.Time (diffTimeToPicoseconds, picosecondsToDiffTime)
 import qualified PlutusTx
 
-newtype ContestationPeriod = UnsafeContestationPeriod {seconds :: Integer}
+newtype ContestationPeriod = UnsafeContestationPeriod {picoseconds :: Integer}
   deriving stock (Generic, Eq, Ord, Show)
-  deriving newtype (Num, FromJSON, ToJSON)
+  deriving newtype (Num)
 
 PlutusTx.unstableMakeIsData ''ContestationPeriod
+
+instance FromJSON ContestationPeriod where
+  parseJSON =
+    fmap (UnsafeContestationPeriod . diffTimeToPicoseconds) . parseJSON
+
+instance ToJSON ContestationPeriod where
+  toJSON =
+    toJSON . picosecondsToDiffTime . picoseconds