Util.hs

module OpenTok.Util where

import           Control.Arrow
import           Data.Time.Clock
import           Data.Convertible               ( convert )
import           Data.ByteString.Char8          ( pack
                                                , ByteString
                                                )
import           System.Posix.Types             ( EpochTime )

maybeToEither :: a -> Maybe b -> Either a b
maybeToEither e = maybe (Left e) Right

utcToEpoch :: UTCTime -> EpochTime
utcToEpoch = convert

epochToUTC :: EpochTime -> UTCTime
epochToUTC = convert

epochToBS :: EpochTime -> ByteString
epochToBS t = pack $ show t

utcToBS :: UTCTime -> ByteString
utcToBS = epochToBS . utcToEpoch

days :: NominalDiffTime -> NominalDiffTime
days = (*) 86400

mapEither :: (a -> a) -> (b -> b) -> Either a b -> Either a b
mapEither f g = left f >>> right g