module HMSTime
( HMSTime(HMSTime, hours, minutes, seconds)
, secondsToHMS
, hmsTimeStringToHMSTime
, hmsTimeStringToSeconds
) where

import Text.Printf( printf )
import Data.List.Split( splitOn )

data HMSTime = HMSTime { hours :: Integer, minutes :: Integer, seconds :: Integer }

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
                          (h, m)     = mLeft `divMod` 60

hmsTimeStringToHMSTime :: String -> HMSTime
hmsTimeStringToHMSTime hmsString = HMSTime h m s where
                          h:m:s:_ = map readInteger $ splitOn ":" hmsString

hmsTimeToSeconds :: HMSTime -> Integer
hmsTimeToSeconds (HMSTime {hours = h, minutes = m, seconds = s}) = h*3600 + m*60 + s

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