diff options
| author | Hendrik Jaeger <henk@frustcomp> | 2014-03-11 00:23:31 +0100 |
|---|---|---|
| committer | Hendrik Jaeger <henk@frustcomp> | 2014-03-11 00:23:31 +0100 |
| commit | 2046a76e9a007f99705388b97d5d06a445a7dc32 (patch) | |
| tree | d04ec2da815bd9af96dc65d05105ad60c4084923 | |
| parent | 1e3285599922c3b6ec009ac641464f3232d59bb8 (diff) | |
On branch master
deleted: HMSTime.hs
| -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 - |