diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-21 21:40:31 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-21 21:40:31 +0200 |
| commit | dce37d7b9df388110bc28181896fc17531cf57a3 (patch) | |
| tree | 0f39153af04a76eb92dcb022d0f0f08b7d3a3e2c | |
| parent | 8222c6041d2e2ed5258aa0f9188d2011a17285c9 (diff) | |
| download | phi-dce37d7b9df388110bc28181896fc17531cf57a3.tar phi-dce37d7b9df388110bc28181896fc17531cf57a3.zip | |
Derive ZonedTime Eq instance
| -rw-r--r-- | lib/Phi/Widgets/Clock.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/Phi/Widgets/Clock.hs b/lib/Phi/Widgets/Clock.hs index 38b6c41..a11ef9e 100644 --- a/lib/Phi/Widgets/Clock.hs +++ b/lib/Phi/Widgets/Clock.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE MultiParamTypeClasses, DeriveDataTypeable, TypeSynonymInstances, FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses, DeriveDataTypeable, TypeSynonymInstances, FlexibleInstances, StandaloneDeriving #-} module Phi.Widgets.Clock ( ClockConfig(..) , defaultClockConfig @@ -36,8 +36,7 @@ defaultClockConfig = ClockConfig "%R" (0, 0, 0, 1) 0 50 data Clock = Clock !ClockConfig deriving (Show, Eq) -instance Eq ZonedTime where - (ZonedTime localTime timezone) == (ZonedTime localTime' timezone') = (localTime == localTime') && (timezone == timezone') +deriving instance Eq ZonedTime data ClockState = ClockState !ZonedTime deriving (Show, Eq) |