Add epoch/era/century lenses for fclabels

alphaHeavy · Apr 22, 2012 · 17b59a6 · 17b59a6
1 parent 9a1575f
commit 17b59a6
Showing 1 changed file with 18 additions and 3 deletions.
diff --git a/fclabels/Data/Time/Cube/Label.hs b/fclabels/Data/Time/Cube/Label.hs
@@ -27,9 +27,9 @@ module Data.Time.Cube.Label
   , Data.Time.Cube.Label.modifyM
 
   -- * Helper lenses
-  -- , epoch
-  -- , era
-  -- , century
+  , epoch
+  , era
+  , century
   , year
   , month
   , monthOfYear
@@ -133,6 +133,21 @@ modify
   -> f
 modify l v = runIdentity . modifyM l v
 
+epoch
+  :: (Functor m, Monad m, DateTimePart c f Epoch)
+  => DateTimeLensT m c f Epoch
+epoch = datePart
+
+era
+  :: (Functor m, Monad m, DateTimePart c f Era)
+  => DateTimeLensT m c f Era
+era = datePart
+
+century
+  :: (Functor m, Monad m, DateTimePart c f Century)
+  => DateTimeLensT m c f Century
+century = datePart
+
 year
   :: (Functor m, Monad m, DateTimePart c f Year)
   => DateTimeLensT m c f Year