Skip to content

Commit fe3195e

Browse files
Use monotonic time on all platforms, dropping "boot time".
1 parent caa00b9 commit fe3195e

1 file changed

Lines changed: 1 addition & 8 deletions

File tree

Base.hs

Lines changed: 1 addition & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,3 @@
1-
{-# LANGUAGE CPP #-}
2-
31
-- Copyright (c) 2020-2026 Galen Huntington
42
-- SPDX-License-Identifier: GPL-2.0-or-later
53

@@ -41,12 +39,7 @@ discardErrors :: IO () -> IO ()
4139
discardErrors = X.handle @SomeException (\_ -> pure ())
4240

4341
getMonoTime :: IO TimeSpec
44-
getMonoTime = getTime
45-
#if linux_HOST_OS
46-
Boottime
47-
#else
48-
Monotonic
49-
#endif
42+
getMonoTime = getTime Monotonic
5043

5144
whenJust :: Monad m => Maybe a -> (a -> m ()) -> m ()
5245
whenJust = flip $ maybe $ pure ()

0 commit comments

Comments
 (0)