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

module Data.Time.Calendar.Instances
  (
  ) where

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


deriving newtype instance Hashable Day

instance Binary Day where
  get = ModifiedJulianDay <$> Binary.get
  put = Binary.put . toModifiedJulianDay

