module RsiBreak.Model.Minutes (Minutes, toTimeDiff) where import Data.Time (NominalDiffTime) type Minutes = Int toTimeDiff :: Minutes -> NominalDiffTime toTimeDiff :: Minutes -> NominalDiffTime toTimeDiff = Minutes -> NominalDiffTime forall a b. (Integral a, Num b) => a -> b fromIntegral (Minutes -> NominalDiffTime) -> (Minutes -> Minutes) -> Minutes -> NominalDiffTime forall b c a. (b -> c) -> (a -> b) -> a -> c . (Minutes -> Minutes -> Minutes forall a. Num a => a -> a -> a * Minutes 60)