On branch master

      modified:   Diddo/Entry.hs
      modified:   HMSTime.hs
      modified:   diddohs.hs
        * CHANGED: mainly cleanup and some experimentation

1 files changed, 2 insertions, 5 deletions

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