{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
module PaymentChannel.Internal.Serialization.Orphans where

import           PaymentChannel.Internal.Util
import           PaymentChannel.Internal.Error

import qualified Data.Time.Clock    as Clock
import qualified Data.Time.Clock.POSIX as Clock


instance Serialize Clock.UTCTime where
    put t = putWord64be (round $ Clock.utcTimeToPOSIXSeconds t)
    get = Clock.posixSecondsToUTCTime . fromIntegral <$> getWord64be