module Ouroboros.Consensus.Util.Time (
    -- Conversions
    nominalDelay
  , secondsToNominalDiffTime
  ) where

import           Data.Time (DiffTime, NominalDiffTime)

{-------------------------------------------------------------------------------
  Conversions
-------------------------------------------------------------------------------}

nominalDelay :: NominalDiffTime -> DiffTime
nominalDelay :: NominalDiffTime -> DiffTime
nominalDelay = NominalDiffTime -> DiffTime
forall a b. (Real a, Fractional b) => a -> b
realToFrac

secondsToNominalDiffTime :: Double -> NominalDiffTime
secondsToNominalDiffTime :: Double -> NominalDiffTime
secondsToNominalDiffTime = Double -> NominalDiffTime
forall a b. (Real a, Fractional b) => a -> b
realToFrac