switch back to POSIXTime

turned out not to need Read MeterState

diff --git a/Utility/Metered.hs b/Utility/Metered.hs
index 338bb0e6e0a5b7d718984b300a13277c4114795c..b4e4024a67f979eea6835244b80d225410007df1 100644 (file)
--- a/Utility/Metered.hs
+++ b/Utility/Metered.hs
@@ -382,8 +382,8 @@ data Meter = Meter (MVar (Maybe Integer)) (MVar MeterState) (MVar String) Displa
 
 data MeterState = MeterState
        { meterBytesProcessed :: BytesProcessed
-       , meterTimeStamp :: Double
-       } deriving (Show, Read)
+       , meterTimeStamp :: POSIXTime
+       } deriving (Show)
 
 type DisplayMeter = MVar String -> Maybe Integer -> MeterState -> MeterState -> IO ()
 
@@ -392,7 +392,7 @@ type RenderMeter = Maybe Integer -> MeterState -> MeterState -> String
 -- | Make a meter. Pass the total size, if it's known.
 mkMeter :: Maybe Integer -> DisplayMeter -> IO Meter
 mkMeter totalsize displaymeter = do
-       ts <- realToFrac <$> getPOSIXTime
+       ts <- getPOSIXTime
        Meter
                <$> newMVar totalsize
                <*> newMVar (MeterState zeroBytesProcessed ts)
@@ -405,7 +405,7 @@ setMeterTotalSize (Meter totalsizev _ _ _) = void . swapMVar totalsizev . Just
 -- | Updates the meter, displaying it if necessary.
 updateMeter :: Meter -> MeterUpdate
 updateMeter (Meter totalsizev sv bv displaymeter) new = do
-       now <- realToFrac <$> getPOSIXTime
+       now <- getPOSIXTime
        let curms = MeterState new now
        oldms <- swapMVar sv curms
        when (meterBytesProcessed oldms /= new) $ do