Merge #3735

3735: Import `getMonotonicNSec` from base rather than via FFI r=amesgen a=amesgen

`getMonotonicTimeNSec` from `GHC.Clock` is this exact FFI import.

Co-authored-by: Alexander Esgen <[email protected]>

Author: iohk-bors[bot]

io-classes/src/Control/Monad/Class/MonadTime.hs

@@ -20,6 +20,7 @@ import           Data.Time.Clock (DiffTime, NominalDiffTime, UTCTime,
                      addUTCTime, diffUTCTime)
 import qualified Data.Time.Clock as Time
 import           Data.Word (Word64)
+import           GHC.Clock (getMonotonicTimeNSec)
 import           GHC.Generics (Generic (..))
 
 -- | A point in time in a monotonic clock.
@@ -59,17 +60,14 @@ class MonadMonotonicTime m => MonadTime m where
 
 instance MonadMonotonicTime IO where
   getMonotonicTime =
-      fmap conv getMonotonicNSec
+      fmap conv getMonotonicTimeNSec
     where
       conv :: Word64 -> Time
       conv = Time . Time.picosecondsToDiffTime . (* 1000) . toInteger
 
 instance MonadTime IO where
   getCurrentTime = Time.getCurrentTime
 
-foreign import ccall unsafe "getMonotonicNSec"
-    getMonotonicNSec :: IO Word64
-
 --
 -- Instance for ReaderT
 --