summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--HMSTime.hs13
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
-