On branch master

      deleted:    HMSTime.hs

diff --git a/HMSTime.hs b/HMSTime.hs
deleted file mode 100644 (file)
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
-