5 import Data.Time.Clock( NominalDiffTime() )
6 import Text.Printf( printf )
8 diffTimeToHMSString :: NominalDiffTime -> String
9 diffTimeToHMSString delta = printf "%d:%02d:%02d" h m s
11 (mLeft, s) = floor delta `divMod` 60 :: (Int, Int)
12 (h, m) = mLeft `divMod` 60