From: Hendrik Jaeger Date: Mon, 10 Mar 2014 23:23:31 +0000 (+0100) Subject: On branch master X-Git-Tag: v0.1~4 X-Git-Url: https://git.netwichtig.de/gitweb/?a=commitdiff_plain;h=2046a76e9a007f99705388b97d5d06a445a7dc32;p=user%2Fhenk%2Fcode%2Fhaskell%2Fdiddohs.git On branch master deleted: 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 -