{-
 -      ``Control/Monad/Event/Internal/EventID''
 -      (c) 2008 Cook, J. MR  SSD, Inc.
 -}
{-# LANGUAGE
    GeneralizedNewtypeDeriving
  #-}

module Control.Monad.Event.Internal.EventID where

import Text.PrettyPrint.Leijen

-- |An opaque identifier for events.
newtype EventID = EventID Int
        deriving (Eq, Ord, Enum, Pretty)