aztecs-0.7.0: src/Aztecs/Time.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}

module Aztecs.Time (Time (..)) where

import Aztecs.ECS
import Control.DeepSeq
import Data.Word (Word32)
import GHC.Generics

-- | Time component.
newtype Time = Time {elapsedMS :: Word32}
  deriving (Eq, Ord, Num, Show, Generic, NFData)

instance Component Time