import Data.Fixed (Fixed(MkFixed))
import Data.Time.Clock (secondsToNominalDiffTime)
import Data.Time.Clock.POSIX (posixSecondsToUTCTime)
d = posixSecondsToUTCTime . secondsToNominalDiffTime . MkFixed $ toInteger ts
d has type UTCTime. This code works for any Integral ts. If ts is an Integer, toInteger isn't required.