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)