{- |
Module       : Data.Fixtime
Description  : Fixes to the time package
Copyright    : 2014, Peter Harpending
License      : BSD2
Maintainer   : Peter Harpending <pharpend2@gmail.com>
Stability    : stable
Portability  : Linux

-}

module Data.Fixtime (module Data.Time) where

import qualified Data.Time
import Data.Ord (comparing)

-- Just for reference
-- data ZonedTime = ZonedTime { zonedTimeToLocalTime :: LocalTime
--                            , zonedTimeZone :: TimeZone
--                            }
-- 
-- zonedTimeToUTC :: ZonedTime -> UTCTime

instance Eq Data.Time.ZonedTime where
  (==) t1 t2 = case comparing Data.Time.zonedTimeToUTC t1 t2 of
    EQ -> True
    _ -> False 

instance Ord Data.Time.ZonedTime where
  compare = comparing Data.Time.zonedTimeToUTC