{-# OPTIONS_GHC -fno-warn-orphans #-}

module Data.Time.Clock.Instances
  (
  ) where

import ClassyPrelude

import Database.Persist.Sql

import Data.Proxy

import Data.Binary (Binary)
import qualified Data.Binary as Binary

import Data.Time.Clock
import Data.Time.Calendar.Instances ()


instance Hashable DiffTime where
  hashWithSalt s = hashWithSalt s . toRational

instance PersistField NominalDiffTime where
  toPersistValue   = toPersistValue . toRational
  fromPersistValue = fmap fromRational . fromPersistValue

instance PersistFieldSql NominalDiffTime where
  sqlType _ = sqlType (Proxy @Rational)


deriving instance Generic UTCTime
instance Hashable UTCTime


instance Binary DiffTime where
  get = fromRational <$> Binary.get
  put = Binary.put . toRational

instance Binary UTCTime