summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2011-08-21 21:40:31 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2011-08-21 21:40:31 +0200
commitdce37d7b9df388110bc28181896fc17531cf57a3 (patch)
tree0f39153af04a76eb92dcb022d0f0f08b7d3a3e2c /lib
parent8222c6041d2e2ed5258aa0f9188d2011a17285c9 (diff)
downloadphi-dce37d7b9df388110bc28181896fc17531cf57a3.tar
phi-dce37d7b9df388110bc28181896fc17531cf57a3.zip
Derive ZonedTime Eq instance
Diffstat (limited to 'lib')
-rw-r--r--lib/Phi/Widgets/Clock.hs5
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)