nanosecAsTimeSpec :: Nanosec -> Clk.TimeSpec
nanosecAsTimeSpec (Nanosec count) = TimeSpec (fromIntegral sec) (fromIntegral nano)
  where (sec, nano) = count `quotRem` nanoFactor
nanosecAsTimeSpec :: Nanosec -> Clk.TimeSpec
nanosecAsTimeSpec (Nanosec count) = TimeSpec (fromIntegral sec) (fromIntegral nano)
  where (sec, nano) = count `quotRem` nanoFactor
nanosecAsTimeSpec (Nanosec count) = TimeSpec (fromIntegral sec) (fromIntegral nano)
  where (sec, nano) = count `quotRem` nanoFactor