bitcoin-payment-channel-1.0.0.0: src/PaymentChannel/Internal/Serialization/Orphans.hs

{-# 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