hora-2.2.1: src/Data/Time/Hora/Internal/FromIntegral.hs

module Data.Time.Hora.Internal.FromIntegral where

-- | constraint
type TwoInt a b = (Integral a, Integral b)

fi :: TwoInt a b => a -> b
fi = fromIntegral