1 parent caa00b9 commit fe3195eCopy full SHA for fe3195e
1 file changed
Base.hs
@@ -1,5 +1,3 @@
1
-{-# LANGUAGE CPP #-}
2
-
3
-- Copyright (c) 2020-2026 Galen Huntington
4
-- SPDX-License-Identifier: GPL-2.0-or-later
5
@@ -41,12 +39,7 @@ discardErrors :: IO () -> IO ()
41
39
discardErrors = X.handle @SomeException (\_ -> pure ())
42
40
43
getMonoTime :: IO TimeSpec
44
-getMonoTime = getTime
45
-#if linux_HOST_OS
46
- Boottime
47
-#else
48
- Monotonic
49
-#endif
+getMonoTime = getTime Monotonic
50
51
whenJust :: Monad m => Maybe a -> (a -> m ()) -> m ()
52
whenJust = flip $ maybe $ pure ()
0 commit comments