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

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

dateTimeAtomFunctions :: AtomFunctions
dateTimeAtomFunctions = HS.fromList [ Function {
                                     funcName = "dateTimeFromEpochSeconds",
                                     funcType = [IntegerAtomType, DateTimeAtomType],
                                     funcBody = compiledAtomFunctionBody $
                                       \case
                                         IntegerAtom epoch:_ -> pure (DateTimeAtom (posixSecondsToUTCTime (realToFrac epoch)))
                                         _ -> Left AtomFunctionTypeMismatchError
                                     }]