Add viewStartUTC, viewEndUTC

kfish · Dec 23, 2011 · f884541 · f884541
1 parent 4c04829
commit f884541
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/Scope/View.hs b/Scope/View.hs
@@ -21,6 +21,8 @@ module Scope.View (
     , dataToUTC
     , utcToCanvas
 
+    , viewStartUTC
+    , viewEndUTC
     , viewStartTime
     , viewEndTime
     , viewDuration
@@ -96,6 +98,12 @@ utcToCanvas scope u = CanvasX $
 
 ----------------------------------------------------------------------
 
+viewStartUTC :: Scope ui -> View ui -> Maybe UTCTime
+viewStartUTC scope View{..} = dataToUTC scope viewX1
+
+viewEndUTC :: Scope ui -> View ui -> Maybe UTCTime
+viewEndUTC scope View{..} = dataToUTC scope viewX2
+
 viewStartTime :: Scope ui -> View ui -> Maybe TimeStamp
 viewStartTime scope View{..} = dataToTimeStamp scope viewX1