23 lines
435 B
Haskell
23 lines
435 B
Haskell
{-# 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
|