project-m36-0.3: src/lib/ProjectM36/DataTypes/DateTime.hs

module ProjectM36.DataTypes.DateTime where
import ProjectM36.Base
import ProjectM36.AtomFunctionBody
import qualified Data.HashSet as HS
import Data.Time.Clock.POSIX

dateTimeAtomFunctions :: AtomFunctions
dateTimeAtomFunctions = HS.fromList [ AtomFunction {
                                     atomFuncName = "dateTimeFromEpochSeconds",
                                     atomFuncType = [IntegerAtomType, DateTimeAtomType],
                                     atomFuncBody = compiledAtomFunctionBody $ \(IntegerAtom epoch:_) -> pure (DateTimeAtom (posixSecondsToUTCTime (realToFrac epoch)))
                                                                                                       }]