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

module Data.Time.Calendar.Instances
  (
  ) where

import ClassyPrelude
import Data.Binary (Binary)

import Data.Time.Calendar

import Data.Universe


deriving newtype instance Hashable Day
deriving newtype instance Binary Day

deriving instance Ord DayOfWeek
instance Universe DayOfWeek where
  universe = [Monday .. Sunday]
instance Finite DayOfWeek