From 2046a76e9a007f99705388b97d5d06a445a7dc32 Mon Sep 17 00:00:00 2001 From: Hendrik Jaeger Date: Tue, 11 Mar 2014 00:23:31 +0100 Subject: [PATCH] On branch master deleted: HMSTime.hs --- HMSTime.hs | 13 ------------- 1 file changed, 13 deletions(-) delete mode 100644 HMSTime.hs 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 - -- 2.39.2