neocturne/phi
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Derive ZonedTime Eq instance

Browse source
This commit is contained in:
Matthias Schiffer 2011-08-21 21:40:31 +02:00
parent 8222c6041d
commit dce37d7b9d
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/Phi/Widgets/Clock.hs
View file

@ -1,4 +1,4 @@
{-# LANGUAGE MultiParamTypeClasses, DeriveDataTypeable, TypeSynonymInstances, FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses, DeriveDataTypeable, TypeSynonymInstances, FlexibleInstances, StandaloneDeriving #-}
module Phi.Widgets.Clock ( ClockConfig(..) module Phi.Widgets.Clock ( ClockConfig(..)
, defaultClockConfig , defaultClockConfig
@ -36,8 +36,7 @@ defaultClockConfig = ClockConfig "%R" (0, 0, 0, 1) 0 50
data Clock = Clock !ClockConfig deriving (Show, Eq) data Clock = Clock !ClockConfig deriving (Show, Eq)
instance Eq ZonedTime where deriving instance Eq ZonedTime
(ZonedTime localTime timezone) == (ZonedTime localTime' timezone') = (localTime == localTime') && (timezone == timezone')
data ClockState = ClockState !ZonedTime deriving (Show, Eq) data ClockState = ClockState !ZonedTime deriving (Show, Eq)