diff options
-rw-r--r-- | HMSTime.hs | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/HMSTime.hs b/HMSTime.hs deleted file mode 100644 index ce4e3b2..0000000 --- a/HMSTime.hs +++ /dev/null @@ -1,13 +0,0 @@ -module HMSTime -( diffTimeToHMSString -) where - -import Data.Time.Clock( NominalDiffTime() ) -import Text.Printf( printf ) - -diffTimeToHMSString :: NominalDiffTime -> String -diffTimeToHMSString delta = printf "%d:%02d:%02d" h m s - where - (mLeft, s) = floor delta `divMod` 60 :: (Int, Int) - (h, m) = mLeft `divMod` 60 - |