module Hasql.Pool.TimeExtras.IO where

import Hasql.Pool.Prelude
import Hasql.Pool.TimeExtras.Conversions

getMillisecondsSinceEpoch :: IO Int
getMillisecondsSinceEpoch :: IO Int
getMillisecondsSinceEpoch =
  forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap forall a. ToMilliseconds a => a -> Int
toMilliseconds IO SystemTime
getSystemTime