HMSTime.hs

   1 module HMSTime
   2 ( diffTimeToHMSString
   3 ) where
   4
   5 import Data.Time.Clock( NominalDiffTime() )
   6 import Text.Printf( printf )
   7
   8 diffTimeToHMSString :: NominalDiffTime -> String
   9 diffTimeToHMSString delta = printf "%d:%02d:%02d" h m s
  10     where
  11         (mLeft, s) = floor delta `divMod` 60 :: (Int, Int)
  12         (h, m)     = mLeft `divMod` 60
  13