X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=HMSTime.hs;fp=HMSTime.hs;h=cbe9e0914d752ac9b6ff62b416a39d646bfe75da;hb=84282f6317c0c1249c009469f75916acc69c1571;hp=6e903d3a981bbb55f5a47adaf57fbead0fc32592;hpb=9d103749a11f458b8e6834faf37b955fc2818c2b;p=user%2Fhenk%2Fcode%2Fhaskell%2Fdiddohs.git

diff --git a/HMSTime.hs b/HMSTime.hs
index 6e903d3..cbe9e09 100644
--- a/HMSTime.hs
+++ b/HMSTime.hs
@@ -14,8 +14,8 @@ instance Show HMSTime where
   show (HMSTime h m s) = printf "%d:%02d:%02d" h m s
 
 secondsToHMS :: Integer -> HMSTime
-secondsToHMS seconds =  HMSTime h m s where
-                          (mLeft, s) = seconds `divMod` 60
+secondsToHMS numSeconds = HMSTime h m s where
+                          (mLeft, s) = numSeconds `divMod` 60
                           (h, m)     = mLeft `divMod` 60
 
 hmsTimeStringToHMSTime :: String -> HMSTime
@@ -28,9 +28,6 @@ hmsTimeToSeconds (HMSTime {hours = h, minutes = m, seconds = s}) = h*3600 + m*60
 hmsTimeStringToSeconds :: String -> Integer
 hmsTimeStringToSeconds = hmsTimeToSeconds . hmsTimeStringToHMSTime
 
-hmsIntsToSeconds :: [Int] -> Int
-hmsIntsToSeconds (h:m:s:_) = (3600*h + 60*m + s)
-
 readInteger :: String -> Integer
 readInteger x = read x :: Integer